" ASP Syntax File " snatched off Usenet, group comp.editors: " " From: jl_huynh@my-deja.com " Newsgroups: comp.editors " Subject: Re: ASp.vim " Date: Mon, 28 Jun 1999 11:14:37 GMT " Message-ID: <7l7len$e6f$1@nnrp1.deja.com> syn clear syn case ignore " we define it here so that included files can test for it if !exists("main_syntax") let main_syntax='asp' endif syn match HTMLTag /<.*>/ contained transparent contains=HTMLValue,VBRegion " all that must be contained in VBRegion syn match VBString /"[^"]*"/ contained syn match VBComment /'.*/ contained " VBSub and VBFunction are equivalent syn match VBSub /sub\s*.*/hs=s+3 contained contains=VBFunctionArgs syn match VBFunction /function\s*.*/hs=s+8 contained contains=VBFunctionArgs " only in VBSub and VBFunction syn match VBFunctionArgs /(.*)/ contained contains=VBFunctionParam syn match VBFunctionParam /\w*/ contained " VB Region syn region VBRegion start="<%" end="%>" contains=VBString,VBComment,VBFunction,VBSub syn region VBRegion start="/ " HTML syn region HTMLComment start="" contained syn region HTMLRegion start="" end="" contains=VBRegion,HTMLComment,HTMLTag,ASPIncludePragma syn match HTMLValue /"[^"]*"/ contained contains=VBRegion " Include Pragma (must be define after HTMLTag) " \s is whitespace syn match ASPIncludePragma // " SYNCING syn sync lines=50 syn sync match VBCommentSync /'.*/ grouphere NONE contained syn sync match VBStringSync /"[^"]*"/ grouphere NONE contained syn sync match ASPLangPragmaSync /<%@.*%>/ grouphere NONE syn sync match ASPIncludePragmaSync // grouphere NONE syn sync match VBSubSync /sub\s.*/hs=s+3 grouphere NONE contained syn sync match VBFunctionSync /function\s.*/hs=s+8 grouphere NONE contained " Linking groups hi link ASPLangPragma PreProc hi link ASPIncludePragma Include hi link VBString String hi link HTMLRegion SpecialComment hi HTMLComment guifg=DarkGray "hi HTMLValue guifg=DarkGray hi link HTMLValue Identifier "hi link HTMLTag Error "hi VBRegion guifg=Black hi link VBRegion Normal hi link VBComment Comment hi link VBFunction StorageClass hi link VBSub StorageClass hi link VBFunctionParam Function let b:current_syntax = "asp" if main_syntax == 'asp' unlet main_syntax endif " end-of-file!