Mercurial > vim

comparison runtime/syntax/aspvbs.vim @ 25773:11b656e74444

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update runtime files Commit: https://github.com/vim/vim/commit/6c391a74fe90190796ca0b0c010112948a6e75d7 Author: Bram Moolenaar <Bram@vim.org> Date: Thu Sep 9 21:55:11 2021 +0200 Update runtime files
author Bram Moolenaar <Bram@vim.org>
date Thu, 09 Sep 2021 22:00:10 +0200
parents 46763b01cd9a
children
comparison
equal deleted inserted replaced
25772:55753c17b73d 25773:11b656e74444
32 syn match AspVBSVariableSimple contained "\<\(bln\|byt\|dtm\=\|dbl\|int\|str\)\u\w*" 32 syn match AspVBSVariableSimple contained "\<\(bln\|byt\|dtm\=\|dbl\|int\|str\)\u\w*"
33 syn match AspVBSVariableComplex contained "\<\(arr\|ary\|obj\)\u\w*" 33 syn match AspVBSVariableComplex contained "\<\(arr\|ary\|obj\)\u\w*"
34 34
35 35
36 " Functions and methods that are in VB but will cause errors in an ASP page 36 " Functions and methods that are in VB but will cause errors in an ASP page
37 " This is helpfull if your porting VB code to ASP 37 " This is helpful if your porting VB code to ASP
38 " I removed (Count, Item) because these are common variable names in AspVBScript 38 " I removed (Count, Item) because these are common variable names in AspVBScript
39 syn keyword AspVBSError contained Val Str CVar CVDate DoEvents GoSub Return GoTo 39 syn keyword AspVBSError contained Val Str CVar CVDate DoEvents GoSub Return GoTo
40 syn keyword AspVBSError contained Stop LinkExecute Add Type LinkPoke 40 syn keyword AspVBSError contained Stop LinkExecute Add Type LinkPoke
41 syn keyword AspVBSError contained LinkRequest LinkSend Declare Optional Sleep 41 syn keyword AspVBSError contained LinkRequest LinkSend Declare Optional Sleep
42 syn keyword AspVBSError contained ParamArray Static Erl TypeOf Like LSet RSet Mid StrConv 42 syn keyword AspVBSError contained ParamArray Static Erl TypeOf Like LSet RSet Mid StrConv
54 syn match AspVBSError contained "\<Option\s\+\(Base\|Compare\|Private\s\+Module\)\>" 54 syn match AspVBSError contained "\<Option\s\+\(Base\|Compare\|Private\s\+Module\)\>"
55 " This one I want 'cause I always seem to mis-spell it. 55 " This one I want 'cause I always seem to mis-spell it.
56 syn match AspVBSError contained "Respon\?ce\.\S*" 56 syn match AspVBSError contained "Respon\?ce\.\S*"
57 syn match AspVBSError contained "Respose\.\S*" 57 syn match AspVBSError contained "Respose\.\S*"
58 " When I looked up the VBScript syntax it mentioned that Property Get/Set/Let 58 " When I looked up the VBScript syntax it mentioned that Property Get/Set/Let
59 " statements are illegal, however, I have recived reports that they do work. 59 " statements are illegal, however, I have received reports that they do work.
60 " So I commented it out for now. 60 " So I commented it out for now.
61 " syn match AspVBSError contained "\<Property\s\+\(Get\|Let\|Set\)\>" 61 " syn match AspVBSError contained "\<Property\s\+\(Get\|Let\|Set\)\>"
62 62
63 " AspVBScript Reserved Words. 63 " AspVBScript Reserved Words.
64 syn match AspVBSStatement contained "\<On\s\+Error\s\+\(Resume\s\+Next\|goto\s\+0\)\>\|\<Next\>" 64 syn match AspVBSStatement contained "\<On\s\+Error\s\+\(Resume\s\+Next\|goto\s\+0\)\>\|\<Next\>"
106 syn keyword AspVBSMethods contained WriteLine 106 syn keyword AspVBSMethods contained WriteLine
107 syn match AspVBSMethods contained "Response\.\w*" 107 syn match AspVBSMethods contained "Response\.\w*"
108 " Colorize boolean constants: 108 " Colorize boolean constants:
109 syn keyword AspVBSMethods contained true false 109 syn keyword AspVBSMethods contained true false
110 110
111 " AspVBScript Number Contstants 111 " AspVBScript Number Constants
112 " Integer number, or floating point number without a dot. 112 " Integer number, or floating point number without a dot.
113 syn match AspVBSNumber contained "\<\d\+\>" 113 syn match AspVBSNumber contained "\<\d\+\>"
114 " Floating point number, with dot 114 " Floating point number, with dot
115 syn match AspVBSNumber contained "\<\d\+\.\d*\>" 115 syn match AspVBSNumber contained "\<\d\+\.\d*\>"
116 " Floating point number, starting with a dot 116 " Floating point number, starting with a dot
117 syn match AspVBSNumber contained "\.\d\+\>" 117 syn match AspVBSNumber contained "\.\d\+\>"
118 118
119 " String and Character Contstants 119 " String and Character Constants
120 " removed (skip=+\\\\\|\\"+) because VB doesn't have backslash escaping in 120 " removed (skip=+\\\\\|\\"+) because VB doesn't have backslash escaping in
121 " strings (or does it?) 121 " strings (or does it?)
122 syn region AspVBSString contained start=+"+ end=+"+ keepend 122 syn region AspVBSString contained start=+"+ end=+"+ keepend
123 123
124 " AspVBScript Comments 124 " AspVBScript Comments
141 141
142 " Folding 142 " Folding
143 syn region AspVBSFold start="^\s*\(class\)\s\+.*$" end="^\s*end\s\+\(class\)\>.*$" fold contained transparent keepend 143 syn region AspVBSFold start="^\s*\(class\)\s\+.*$" end="^\s*end\s\+\(class\)\>.*$" fold contained transparent keepend
144 syn region AspVBSFold start="^\s*\(private\|public\)\=\(\s\+default\)\=\s\+\(sub\|function\)\s\+.*$" end="^\s*end\s\+\(function\|sub\)\>.*$" fold contained transparent keepend 144 syn region AspVBSFold start="^\s*\(private\|public\)\=\(\s\+default\)\=\s\+\(sub\|function\)\s\+.*$" end="^\s*end\s\+\(function\|sub\)\>.*$" fold contained transparent keepend
145 145
146 " Define AspVBScript delimeters 146 " Define AspVBScript delimiters
147 " <%= func("string_with_%>_in_it") %> This is illegal in ASP syntax. 147 " <%= func("string_with_%>_in_it") %> This is illegal in ASP syntax.
148 syn region AspVBScriptInsideHtmlTags keepend matchgroup=Delimiter start=+<%=\=+ end=+%>+ contains=@AspVBScriptTop, AspVBSFold 148 syn region AspVBScriptInsideHtmlTags keepend matchgroup=Delimiter start=+<%=\=+ end=+%>+ contains=@AspVBScriptTop, AspVBSFold
149 syn region AspVBScriptInsideHtmlTags keepend matchgroup=Delimiter start=+<script\s\+language="\=vbscript"\=[^>]*\s\+runatserver[^>]*>+ end=+</script>+ contains=@AspVBScriptTop 149 syn region AspVBScriptInsideHtmlTags keepend matchgroup=Delimiter start=+<script\s\+language="\=vbscript"\=[^>]*\s\+runatserver[^>]*>+ end=+</script>+ contains=@AspVBScriptTop
150 150
151 151