delphi.xs

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

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

// states
State=snormal
State=sasm
State=sproperty
State=sexternal
State=sstring
State=scomment1
State=scomment2
State=scomment3
State=sasmcomment1
State=sasmcomment2
State=sasmcomment3
// tokens
Token=tNone
Token=tstring
Token=tcomment
Token=tident
Token=tinteger
Token=tfloat
Token=tresword
Token=tassembler
Token=turl
Token=twhitespace
//delims
Delimiters=;.,:'"{}[]()?!@#$%^&*-+=|\/

// reswords
snormal 'absolute'       snormal tresword
snormal 'abstract'       snormal tresword
snormal 'and'            snormal tresword
snormal 'array'          snormal tresword
snormal 'as'             snormal tresword
//snormal 'asm'            snormal tresword
snormal 'assembler'      snormal tresword
snormal 'automated'      snormal tresword
snormal 'begin'          snormal tresword
snormal 'break'          snormal tresword
snormal 'case'           snormal tresword
snormal 'cdecl'          snormal tresword
snormal 'class'          snormal tresword
snormal 'const'          snormal tresword
snormal 'constructor'    snormal tresword
snormal 'continue'       snormal tresword
snormal 'default'        snormal tresword
snormal 'destructor'     snormal tresword
snormal 'dispid'         snormal tresword
snormal 'dispinterface'  snormal tresword
snormal 'div'            snormal tresword
snormal 'do'             snormal tresword
snormal 'downto'         snormal tresword
snormal 'dynamic'        snormal tresword
snormal 'else'           snormal tresword
snormal 'end'            snormal tresword
snormal 'except'         snormal tresword
snormal 'exit'           snormal tresword
snormal 'export'         snormal tresword
snormal 'exports'        snormal tresword
snormal 'external'       snormal tresword
snormal 'far'            snormal tresword
snormal 'file'           snormal tresword
snormal 'finalization'   snormal tresword
snormal 'finally'        snormal tresword
snormal 'for'            snormal tresword
snormal 'forward'        snormal tresword
snormal 'function'       snormal tresword
snormal 'goto'           snormal tresword
snormal 'if'             snormal tresword
snormal 'implementation' snormal tresword
snormal 'in'             snormal tresword
snormal 'index'          snormal tresword
snormal 'inherited'      snormal tresword
snormal 'initialization' snormal tresword
snormal 'inline'         snormal tresword
snormal 'interface'      snormal tresword
snormal 'is'             snormal tresword
snormal 'label'          snormal tresword
snormal 'library'        snormal tresword
snormal 'message'        snormal tresword
snormal 'mod'            snormal tresword
snormal 'near'           snormal tresword
snormal 'nil'            snormal tresword
snormal 'nodefault'      snormal tresword
snormal 'not'            snormal tresword
snormal 'object'         snormal tresword
snormal 'of'             snormal tresword
snormal 'or'             snormal tresword
snormal 'out'            snormal tresword
snormal 'overload'       snormal tresword
snormal 'override'       snormal tresword
snormal 'packed'         snormal tresword
snormal 'pascal'         snormal tresword
snormal 'private'        snormal tresword
snormal 'procedure'      snormal tresword
snormal 'program'        snormal tresword
snormal 'property'       snormal tresword
snormal 'protected'      snormal tresword
snormal 'public'         snormal tresword
snormal 'published'      snormal tresword
snormal 'raise'          snormal tresword
snormal 'read'           snormal tresword
snormal 'readonly'       snormal tresword
snormal 'record'         snormal tresword
snormal 'register'       snormal tresword
snormal 'reintroduce'    snormal tresword
snormal 'repeat'         snormal tresword
snormal 'resident'       snormal tresword
snormal 'resourcestring' snormal tresword
snormal 'safecall'       snormal tresword
snormal 'set'            snormal tresword
snormal 'shl'            snormal tresword
snormal 'shr'            snormal tresword
snormal 'stdcall'        snormal tresword
snormal 'stored'         snormal tresword
snormal 'string'         snormal tresword
snormal 'stringresource' snormal tresword
snormal 'then'           snormal tresword
snormal 'threadvar'      snormal tresword
snormal 'to'             snormal tresword
snormal 'try'            snormal tresword
snormal 'type'           snormal tresword
snormal 'unit'           snormal tresword
snormal 'until'          snormal tresword
snormal 'uses'           snormal tresword
snormal 'var'            snormal tresword
snormal 'virtual'        snormal tresword
snormal 'while'          snormal tresword
snormal 'with'           snormal tresword
snormal 'write'          snormal tresword
snormal 'writeonly'      snormal tresword
snormal 'xor'            snormal tresword

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

//idents
snormal   [a-z_A-Z][a-z_A-Z0-9]*  snormal   tident
//white space
//snormal #32*                      snormal   twhitespace

//comments
snormal   //                      scomment1 tcomment 
scomment1 [#1-#255]*              snormal   tcomment
scomment1 $                       snormal   tcomment
snormal   \{                      scomment2 tcomment 
scomment2 [^\}]*                  scomment2 tcomment
scomment2 \}                      snormal   tcomment

snormal   (\*                     scomment3 tcomment 
scomment3 [^\*]*                  scomment3 tcomment
scomment3 \*[^)]                  scomment3 tcomment
scomment3 [\*]*)                  snormal   tcomment


//strings
snormal   \'                      sstring   tstring
sstring   [^\']*                  sstring   tstring
sstring   \'                      snormal   tstring
sstring   \'\'                    sstring   tstring
sstring   $                       snormal   tstring

// asm
snormal      'asm'                sasm         tresword
sasm         [a-z_A-Z0-9;,@-.]*   sasm         tassembler
sasm         'end'                snormal      tresword
sasm         //                   sasmcomment1 tcomment 
sasmcomment1 [#1-#255]*           sasm         tcomment
sasmcomment1 $                    sasm         tcomment
sasm         \{                   sasmcomment2 tcomment 
sasmcomment2 [^\}]*               sasmcomment2 tcomment
sasmcomment2 \}                   sasm         tcomment

sasm         (\*                  sasmcomment3 tcomment 
sasmcomment3 [^\*]*               sasmcomment3 tcomment
sasmcomment3 \*[^)]               asmscomment3 tcomment
sasmcomment3 [\*]*)               sasm         tcomment

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


// urls
snormal   www\.[a-z_A-Z0-9@\-.]*   snormal turl
snormal   mailto:[a-z_A-Z0-9@\-.]*   snormal turl