|
7
|
1 " Vim syntax file
|
|
|
2 " Language: Microsoft VBScript Web Content (ASP)
|
|
22
|
3 " Maintainer: Devin Weaver <ktohg@tritarget.com> (non-functional)
|
|
|
4 " URL: http://tritarget.com/pub/vim/syntax/aspvbs.vim (broken)
|
|
|
5 " Last Change: 2004 Jul 29
|
|
7
|
6 " Version: $Revision$
|
|
|
7 " Thanks to Jay-Jay <vim@jay-jay.net> for a syntax sync hack, hungarian
|
|
|
8 " notation, and extra highlighting.
|
|
|
9 " Thanks to patrick dehne <patrick@steidle.net> for the folding code.
|
|
|
10 " Thanks to Dean Hall <hall@apt7.com> for testing the use of classes in
|
|
|
11 " VBScripts which I've been too scared to do.
|
|
|
12
|
|
|
13 " Quit when a syntax file was already loaded
|
|
|
14 if version < 600
|
|
|
15 syn clear
|
|
|
16 elseif exists("b:current_syntax")
|
|
|
17 finish
|
|
|
18 endif
|
|
|
19
|
|
|
20 if !exists("main_syntax")
|
|
|
21 let main_syntax = 'aspvbs'
|
|
|
22 endif
|
|
|
23
|
|
|
24 if version < 600
|
|
|
25 source <sfile>:p:h/html.vim
|
|
|
26 else
|
|
|
27 runtime! syntax/html.vim
|
|
|
28 endif
|
|
|
29 unlet b:current_syntax
|
|
|
30
|
|
|
31 syn cluster htmlPreProc add=AspVBScriptInsideHtmlTags
|
|
|
32
|
|
|
33
|
|
|
34 " Colored variable names, if written in hungarian notation
|
|
|
35 hi def AspVBSVariableSimple term=standout ctermfg=3 guifg=#99ee99
|
|
|
36 hi def AspVBSVariableComplex term=standout ctermfg=3 guifg=#ee9900
|
|
|
37 syn match AspVBSVariableSimple contained "\<\(bln\|byt\|dtm\=\|dbl\|int\|str\)\u\w*"
|
|
|
38 syn match AspVBSVariableComplex contained "\<\(arr\|obj\)\u\w*"
|
|
|
39
|
|
|
40
|
|
|
41 " Functions and methods that are in VB but will cause errors in an ASP page
|
|
|
42 " This is helpfull if your porting VB code to ASP
|
|
|
43 " I removed (Count, Item) because these are common variable names in AspVBScript
|
|
|
44 syn keyword AspVBSError contained Val Str CVar CVDate DoEvents GoSub Return GoTo
|
|
|
45 syn keyword AspVBSError contained Stop LinkExecute Add Type LinkPoke
|
|
|
46 syn keyword AspVBSError contained LinkRequest LinkSend Declare Optional Sleep
|
|
|
47 syn keyword AspVBSError contained ParamArray Static Erl TypeOf Like LSet RSet Mid StrConv
|
|
|
48 " It may seem that most of these can fit into a keyword clause but keyword takes
|
|
|
49 " priority over all so I can't get the multi-word matches
|
|
|
50 syn match AspVBSError contained "\<Def[a-zA-Z0-9_]\+\>"
|
|
|
51 syn match AspVBSError contained "^\s*Open\s\+"
|
|
|
52 syn match AspVBSError contained "Debug\.[a-zA-Z0-9_]*"
|
|
|
53 syn match AspVBSError contained "^\s*[a-zA-Z0-9_]\+:"
|
|
|
54 syn match AspVBSError contained "[a-zA-Z0-9_]\+![a-zA-Z0-9_]\+"
|
|
|
55 syn match AspVBSError contained "^\s*#.*$"
|
|
|
56 syn match AspVBSError contained "\<As\s\+[a-zA-Z0-9_]*"
|
|
|
57 syn match AspVBSError contained "\<End\>\|\<Exit\>"
|
|
|
58 syn match AspVBSError contained "\<On\s\+Error\>\|\<On\>\|\<Error\>\|\<Resume\s\+Next\>\|\<Resume\>"
|
|
|
59 syn match AspVBSError contained "\<Option\s\+\(Base\|Compare\|Private\s\+Module\)\>"
|
|
|
60 " This one I want 'cause I always seem to mis-spell it.
|
|
|
61 syn match AspVBSError contained "Respon\?ce\.\S*"
|
|
|
62 syn match AspVBSError contained "Respose\.\S*"
|
|
|
63 " When I looked up the VBScript syntax it mentioned that Property Get/Set/Let
|
|
|
64 " statements are illegal, however, I have recived reports that they do work.
|
|
|
65 " So I commented it out for now.
|
|
|
66 " syn match AspVBSError contained "\<Property\s\+\(Get\|Let\|Set\)\>"
|
|
|
67
|
|
|
68 " AspVBScript Reserved Words.
|
|
|
69 syn match AspVBSStatement contained "\<On\s\+Error\s\+\(Resume\s\+Next\|goto\s\+0\)\>\|\<Next\>"
|
|
|
70 syn match AspVBSStatement contained "\<End\s\+\(If\|For\|Select\|Class\|Function\|Sub\|With\)\>"
|
|
|
71 syn match AspVBSStatement contained "\<Exit\s\+\(Do\|For\|Sub\|Function\)\>"
|
|
|
72 syn match AspVBSStatement contained "\<Option\s\+Explicit\>"
|
|
|
73 syn match AspVBSStatement contained "\<For\s\+Each\>\|\<For\>"
|
|
|
74 syn match AspVBSStatement contained "\<Set\>"
|
|
|
75 syn keyword AspVBSStatement contained Call Class Const Default Dim Do Loop Erase And
|
|
|
76 syn keyword AspVBSStatement contained Function If Then Else ElseIf Or
|
|
|
77 syn keyword AspVBSStatement contained Private Public Randomize ReDim
|
|
|
78 syn keyword AspVBSStatement contained Select Case Sub While With Wend Not
|
|
|
79
|
|
|
80 " AspVBScript Functions
|
|
|
81 syn keyword AspVBSFunction contained Abs Array Asc Atn CBool CByte CCur CDate CDbl
|
|
|
82 syn keyword AspVBSFunction contained Chr CInt CLng Cos CreateObject CSng CStr Date
|
|
|
83 syn keyword AspVBSFunction contained DateAdd DateDiff DatePart DateSerial DateValue
|
|
|
84 syn keyword AspVBSFunction contained Date Day Exp Filter Fix FormatCurrency
|
|
|
85 syn keyword AspVBSFunction contained FormatDateTime FormatNumber FormatPercent
|
|
|
86 syn keyword AspVBSFunction contained GetObject Hex Hour InputBox InStr InStrRev Int
|
|
|
87 syn keyword AspVBSFunction contained IsArray IsDate IsEmpty IsNull IsNumeric
|
|
|
88 syn keyword AspVBSFunction contained IsObject Join LBound LCase Left Len LoadPicture
|
|
|
89 syn keyword AspVBSFunction contained Log LTrim Mid Minute Month MonthName MsgBox Now
|
|
|
90 syn keyword AspVBSFunction contained Oct Replace RGB Right Rnd Round RTrim
|
|
|
91 syn keyword AspVBSFunction contained ScriptEngine ScriptEngineBuildVersion
|
|
|
92 syn keyword AspVBSFunction contained ScriptEngineMajorVersion
|
|
|
93 syn keyword AspVBSFunction contained ScriptEngineMinorVersion Second Sgn Sin Space
|
|
|
94 syn keyword AspVBSFunction contained Split Sqr StrComp StrReverse String Tan Time Timer
|
|
|
95 syn keyword AspVBSFunction contained TimeSerial TimeValue Trim TypeName UBound UCase
|
|
|
96 syn keyword AspVBSFunction contained VarType Weekday WeekdayName Year
|
|
|
97
|
|
|
98 " AspVBScript Methods
|
|
|
99 syn keyword AspVBSMethods contained Add AddFolders BuildPath Clear Close Copy
|
|
|
100 syn keyword AspVBSMethods contained CopyFile CopyFolder CreateFolder CreateTextFile
|
|
|
101 syn keyword AspVBSMethods contained Delete DeleteFile DeleteFolder DriveExists
|
|
|
102 syn keyword AspVBSMethods contained Exists FileExists FolderExists
|
|
|
103 syn keyword AspVBSMethods contained GetAbsolutePathName GetBaseName GetDrive
|
|
|
104 syn keyword AspVBSMethods contained GetDriveName GetExtensionName GetFile
|
|
|
105 syn keyword AspVBSMethods contained GetFileName GetFolder GetParentFolderName
|
|
|
106 syn keyword AspVBSMethods contained GetSpecialFolder GetTempName Items Keys Move
|
|
|
107 syn keyword AspVBSMethods contained MoveFile MoveFolder OpenAsTextStream
|
|
|
108 syn keyword AspVBSMethods contained OpenTextFile Raise Read ReadAll ReadLine Remove
|
|
|
109 syn keyword AspVBSMethods contained RemoveAll Skip SkipLine Write WriteBlankLines
|
|
|
110 syn keyword AspVBSMethods contained WriteLine
|
|
22
|
111 syn match AspVBSMethods contained "Response\.\w*"
|
|
7
|
112 " Colorize boolean constants:
|
|
|
113 syn keyword AspVBSMethods contained true false
|
|
|
114
|
|
|
115 " AspVBScript Number Contstants
|
|
|
116 " Integer number, or floating point number without a dot.
|
|
|
117 syn match AspVBSNumber contained "\<\d\+\>"
|
|
|
118 " Floating point number, with dot
|
|
|
119 syn match AspVBSNumber contained "\<\d\+\.\d*\>"
|
|
|
120 " Floating point number, starting with a dot
|
|
|
121 syn match AspVBSNumber contained "\.\d\+\>"
|
|
|
122
|
|
|
123 " String and Character Contstants
|
|
|
124 " removed (skip=+\\\\\|\\"+) because VB doesn't have backslash escaping in
|
|
|
125 " strings (or does it?)
|
|
|
126 syn region AspVBSString contained start=+"+ end=+"+ keepend
|
|
|
127
|
|
|
128 " AspVBScript Comments
|
|
|
129 syn region AspVBSComment contained start="^REM\s\|\sREM\s" end="$" contains=AspVBSTodo keepend
|
|
|
130 syn region AspVBSComment contained start="^'\|\s'" end="$" contains=AspVBSTodo keepend
|
|
|
131 " misc. Commenting Stuff
|
|
|
132 syn keyword AspVBSTodo contained TODO FIXME
|
|
|
133
|
|
|
134 " Cosmetic syntax errors commanly found in VB but not in AspVBScript
|
|
|
135 " AspVBScript doesn't use line numbers
|
|
|
136 syn region AspVBSError contained start="^\d" end="\s" keepend
|
|
|
137 " AspVBScript also doesn't have type defining variables
|
|
|
138 syn match AspVBSError contained "[a-zA-Z0-9_][\$&!#]"ms=s+1
|
|
|
139 " Since 'a%' is a VB variable with a type and in AspVBScript you can have 'a%>'
|
|
|
140 " I have to make a special case so 'a%>' won't show as an error.
|
|
|
141 syn match AspVBSError contained "[a-zA-Z0-9_]%\($\|[^>]\)"ms=s+1
|
|
|
142
|
|
|
143 " Top Cluster
|
|
|
144 syn cluster AspVBScriptTop contains=AspVBSStatement,AspVBSFunction,AspVBSMethods,AspVBSNumber,AspVBSString,AspVBSComment,AspVBSError,AspVBSVariableSimple,AspVBSVariableComplex
|
|
|
145
|
|
|
146 " Folding
|
|
|
147 syn region AspVBSFold start="^\s*\(class\)\s\+.*$" end="^\s*end\s\+\(class\)\>.*$" fold contained transparent keepend
|
|
|
148 syn region AspVBSFold start="^\s*\(private\|public\)\=\(\s\+default\)\=\s\+\(sub\|function\)\s\+.*$" end="^\s*end\s\+\(function\|sub\)\>.*$" fold contained transparent keepend
|
|
|
149
|
|
|
150 " Define AspVBScript delimeters
|
|
|
151 " <%= func("string_with_%>_in_it") %> This is illegal in ASP syntax.
|
|
|
152 syn region AspVBScriptInsideHtmlTags keepend matchgroup=Delimiter start=+<%=\=+ end=+%>+ contains=@AspVBScriptTop, AspVBSFold
|
|
|
153 syn region AspVBScriptInsideHtmlTags keepend matchgroup=Delimiter start=+<script\s\+language="\=vbscript"\=[^>]*\s\+runatserver[^>]*>+ end=+</script>+ contains=@AspVBScriptTop
|
|
|
154
|
|
|
155
|
|
|
156 " Synchronization
|
|
|
157 " syn sync match AspVBSSyncGroup grouphere AspVBScriptInsideHtmlTags "<%"
|
|
|
158 " This is a kludge so the HTML will sync properly
|
|
|
159 syn sync match htmlHighlight grouphere htmlTag "%>"
|
|
|
160
|
|
|
161
|
|
|
162
|
|
|
163 " Define the default highlighting.
|
|
|
164 " For version 5.7 and earlier: only when not done already
|
|
|
165 " For version 5.8 and later: only when an item doesn't have highlighting yet
|
|
|
166 if version >= 508 || !exists("did_aspvbs_syn_inits")
|
|
|
167 if version < 508
|
|
|
168 let did_aspvbs_syn_inits = 1
|
|
|
169 command -nargs=+ HiLink hi link <args>
|
|
|
170 else
|
|
|
171 command -nargs=+ HiLink hi def link <args>
|
|
|
172 endif
|
|
|
173
|
|
|
174 "HiLink AspVBScript Special
|
|
|
175 HiLink AspVBSLineNumber Comment
|
|
|
176 HiLink AspVBSNumber Number
|
|
|
177 HiLink AspVBSError Error
|
|
|
178 HiLink AspVBSStatement Statement
|
|
|
179 HiLink AspVBSString String
|
|
|
180 HiLink AspVBSComment Comment
|
|
|
181 HiLink AspVBSTodo Todo
|
|
|
182 HiLink AspVBSFunction Identifier
|
|
|
183 HiLink AspVBSMethods PreProc
|
|
|
184 HiLink AspVBSEvents Special
|
|
|
185 HiLink AspVBSTypeSpecifier Type
|
|
|
186
|
|
|
187 delcommand HiLink
|
|
|
188 endif
|
|
|
189
|
|
|
190 let b:current_syntax = "aspvbs"
|
|
|
191
|
|
|
192 if main_syntax == 'aspvbs'
|
|
|
193 unlet main_syntax
|
|
|
194 endif
|
|
|
195
|
|
|
196 " vim: ts=8:sw=2:sts=0:noet
|
