clarion.xs

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

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

// states
State=snormal
State=sstring
State=scomment1
State=scomment2
// tokens
Token=tNone
Token=tstring
Token=tcomment
Token=tident
Token=tinteger
Token=tfloat
Token=tresword
Token=tresword1
Token=twhitespace
//delims
Delimiters=()[]''{}<>:,.|#$";!?@*~

// reswords
snormal 'accept'         snormal tresword
snormal 'and'            snormal tresword
snormal 'begin'          snormal tresword
snormal 'break'          snormal tresword
snormal 'by'             snormal tresword
snormal 'case'           snormal tresword
snormal 'choose'         snormal tresword
snormal 'compile'        snormal tresword
snormal 'cycle'          snormal tresword
snormal 'do'             snormal tresword
snormal 'else'           snormal tresword
snormal 'elsif'          snormal tresword
snormal 'end'            snormal tresword
snormal 'execute'        snormal tresword
snormal 'exit'           snormal tresword
snormal 'function'       snormal tresword
snormal 'goto'           snormal tresword
snormal 'if'             snormal tresword
snormal 'include'        snormal tresword
snormal 'loop'           snormal tresword
snormal 'member'         snormal tresword
snormal 'new'            snormal tresword
snormal 'not'            snormal tresword
snormal 'null'           snormal tresword
snormal 'of'             snormal tresword
snormal 'omit'           snormal tresword
snormal 'or'             snormal tresword
snormal 'orof'           snormal tresword
snormal 'parent'         snormal tresword
snormal 'procedure'      snormal tresword
snormal 'program'        snormal tresword
snormal 'return'         snormal tresword
snormal 'routine'        snormal tresword
snormal 'section'        snormal tresword
snormal 'self'           snormal tresword
snormal 'then'           snormal tresword
snormal 'times'          snormal tresword
snormal 'to'             snormal tresword
snormal 'until'          snormal tresword
snormal 'while'          snormal tresword
snormal 'xor'            snormal tresword
                                         
snormal 'application'    snormal tresword1
snormal 'class'          snormal tresword1
snormal 'code'           snormal tresword1
snormal 'data'           snormal tresword1
snormal 'detail'         snormal tresword1
snormal 'file'           snormal tresword1
snormal 'footer'         snormal tresword1
snormal 'form'           snormal tresword1
snormal 'group'          snormal tresword1
snormal 'header'         snormal tresword1
snormal 'item'           snormal tresword1
snormal 'itemize'        snormal tresword1
snormal 'join'           snormal tresword1
snormal 'map'            snormal tresword1
snormal 'menu'           snormal tresword1
snormal 'menubar'        snormal tresword1
snormal 'module'         snormal tresword1
snormal 'olecontrol'     snormal tresword1
snormal 'option'         snormal tresword1
snormal 'queue'          snormal tresword1
snormal 'record'         snormal tresword1
snormal 'report'         snormal tresword1
snormal 'row'            snormal tresword1
snormal 'sheet'          snormal tresword1
snormal 'tab'            snormal tresword1
snormal 'table'          snormal tresword1
snormal 'toolbar'        snormal tresword1
snormal 'view'           snormal tresword1
snormal 'window'         snormal tresword1

//idents
snormal   [a-z_A-Z][a-z_A-Z0-9]*  snormal   tident

// numbers
snormal [0-9][0-9]*                            snormal  tinteger
snormal \++[0-9][0-9]*                         snormal  tinteger
snormal \-+[0-9][0-9]*                         snormal  tinteger
snormal [0-9][0-9]*o                           snormal  tinteger
snormal \++[0-9][0-9]*o                        snormal  tinteger
snormal \-+[0-9][0-9]*o                        snormal  tinteger
snormal [0-9A-F]+h                             snormal  tinteger
snormal \++[0-9A-F]+h                          snormal  tinteger
snormal \-+[0-9A-F]+h                          snormal  tinteger
snormal [1-9][0-9]*\.[0-9]*                    snormal  tfloat
snormal \++[1-9][0-9]*\.[0-9]*                 snormal  tfloat
snormal \-+[1-9][0-9]*\.[0-9]*                 snormal  tfloat

//comments
snormal   \!                       scomment1 tcomment 
scomment1 [#1-#255]*               snormal   tcomment
scomment1 $                        snormal   tcomment
snormal   \-\-                     scomment2 tcomment 
scomment2 [#1-#255]*               snormal   tcomment
scomment2 $                        snormal   tcomment

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