asp(vbs)_html.xs

支持自定义语法高亮显示的编辑器控件

//Language: ASP in HTML 
//Copyright (c) 1992-2002 Altium Limited           
//All rights reserved.                                                                                
//http://www.dream-com.com                         
//[e-mail]                            

// states
State=snormal
State=sstring1
State=sstring2
State=sstring3
State=scomment1
State=scomment2
State=scomment3
State=shtmltag
State=shtmlVBS
// tokens
Token=tnone
Token=tstring
Token=tcomment
Token=tident
Token=tinteger
Token=tfloat
Token=tresword
Token=tassembler
Token=turl
Token=twhitespace
Token=tdirective
Token=tresword1
//delims
Delimiters=;.,:'"{}[]()?!@#$%^&*-+=|\/


// numbers
shtmltag [0-9][0-9]*              shtmltag  tinteger
shtmltag \#[0-9A-F]+              shtmltag  tinteger
shtmltag [1-9][0-9]*\.[0-9]*                    shtmltag  tfloat
shtmltag [1-9][0-9]*{\.[0-9]+}|e{[\+\-]}|[0-9]+ shtmltag  tfloat

//white space
snormal #32*                      snormal   twhitespace

//strings
shtmltag   \'                     sstring1   tstring
sstring1   [^\']*                 sstring1   tstring
sstring1   \'                     shtmltag   tstring
sstring1   \'\'                   sstring1   tstring
sstring1   $                      shtmltag   tstring

//strings
shtmltag    \"                    sstring2   tstring
sstring2   [^\"]*                 sstring2   tstring
sstring2   \"                     shtmltag   tstring
sstring2   \"\"                   sstring2   tstring
sstring2   $                      shtmltag   tstring

//Common
snormal <                          shtmltag  tresword
shtmltag [^\>^\'^\"^\0-9^#32^\=][^\>^\'^\"^#32^\=]*              shtmltag  tresword
shtmltag >                         snormal   tresword

//comments
snormal   <\!--                    scomment1 tcomment
scomment1 [^\-]*                   scomment1 tcomment
scomment1  -->                     snormal   tcomment

//VBS
snormal  <%                        shtmlVBS  tresword1
shtmlVBS   [a-z_A-Z0-9#33#35-#38#40-#43#45-#47#58#59#61#63#64#92-#96#123-#127]*     shtmlVBS   tresword1
shtmlVBS %>                        snormal   tresword1

// reswords
shtmlVBS 'And'       shtmlVBS tresword
shtmlVBS 'As'        shtmlVBS tresword
shtmlVBS 'Attribute' shtmlVBS tresword
shtmlVBS 'Base'      shtmlVBS tresword
shtmlVBS 'ByVal'     shtmlVBS tresword
shtmlVBS 'Call'      shtmlVBS tresword
shtmlVBS 'Case'      shtmlVBS tresword
shtmlVBS 'Compare'   shtmlVBS tresword
shtmlVBS 'Const'     shtmlVBS tresword
shtmlVBS 'Date'      shtmlVBS tresword
shtmlVBS 'Declare'   shtmlVBS tresword
shtmlVBS 'Dim'       shtmlVBS tresword
shtmlVBS 'Do'        shtmlVBS tresword
shtmlVBS 'Each'      shtmlVBS tresword
shtmlVBS 'Else'      shtmlVBS tresword
shtmlVBS 'Elseif'    shtmlVBS tresword
shtmlVBS 'Empty'     shtmlVBS tresword
shtmlVBS 'end'       shtmlVBS tresword
shtmlVBS 'Error'     shtmlVBS tresword
shtmlVBS 'Exit'      shtmlVBS tresword
shtmlVBS 'Explicit'  shtmlVBS tresword
shtmlVBS 'False'     shtmlVBS tresword
shtmlVBS 'For'       shtmlVBS tresword
shtmlVBS 'friend'    shtmlVBS tresword
shtmlVBS 'Function'  shtmlVBS tresword
shtmlVBS 'get'       shtmlVBS tresword
shtmlVBS 'If'        shtmlVBS tresword
shtmlVBS 'Is'        shtmlVBS tresword
shtmlVBS 'let'       shtmlVBS tresword
shtmlVBS 'Loop'      shtmlVBS tresword
shtmlVBS 'Mod'       shtmlVBS tresword
shtmlVBS 'Next'      shtmlVBS tresword
shtmlVBS 'Not'       shtmlVBS tresword
shtmlVBS 'Nothing'   shtmlVBS tresword
shtmlVBS 'Null'      shtmlVBS tresword
shtmlVBS 'On'        shtmlVBS tresword
shtmlVBS 'Option'    shtmlVBS tresword
shtmlVBS 'Or'        shtmlVBS tresword
shtmlVBS 'Private'   shtmlVBS tresword
shtmlVBS 'property'  shtmlVBS tresword
shtmlVBS 'Public'    shtmlVBS tresword
shtmlVBS 'ReDim'     shtmlVBS tresword
shtmlVBS 'Select'    shtmlVBS tresword
shtmlVBS 'Set'       shtmlVBS tresword
shtmlVBS 'String'    shtmlVBS tresword
shtmlVBS 'Sub'       shtmlVBS tresword
shtmlVBS 'Then'      shtmlVBS tresword
shtmlVBS 'To'        shtmlVBS tresword
shtmlVBS 'True'      shtmlVBS tresword
shtmlVBS 'Type'      shtmlVBS tresword
shtmlVBS 'Wend'      shtmlVBS tresword
shtmlVBS 'While'     shtmlVBS tresword
shtmlVBS 'With'      shtmlVBS tresword
shtmlVBS 'Xor'       shtmlVBS tresword

// numbers
shtmlVBS [1-9][0-9]*                            shtmlVBS  tinteger
shtmlVBS [1-9][0-9]*\.[0-9]*                    shtmlVBS  tfloat
shtmlVBS [1-9][0-9]*{\.[0-9]+}|e{[\+\-]}|[0-9]+ shtmlVBS  tfloat

//idents
//shtmlVBS   [A-Z_a-z][0-9A-Z_a-z]*  shtmlVBS   tident

//white space
shtmlVBS #32*                      shtmlVBS  twhitespace

//comments
shtmlVBS   \'                       scomment2  tcomment
scomment2  [#1-#255]*               shtmlVBS   tcomment
shtmlVBS   rem[^#33-#255]           scomment3  tcomment
scomment3  [#1-#255]*               shtmlVBS   tcomment
scomment2  $                        shtmlVBS   tcomment
scomment3  $                        shtmlVBS   tcomment

//strings
shtmlVBS    \"                     sstring3    tstring
sstring3    [^\"]*                 sstring3    tstring
sstring3    \"                     shtmlVBS    tstring
sstring3    \"\"                   sstring3    tstring
sstring3    $                      shtmlVBS    tstring