foxpro.xs

来自「支持自定义语法高亮显示的编辑器控件」· XS 代码 · 共 368 行

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

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

// reswords
snormal 'ACCEPT'        snormal tresword
snormal 'ACTIVATE'      snormal tresword
snormal 'ADD'           snormal tresword
snormal 'ALL'           snormal tresword
snormal 'ALTER'         snormal tresword
snormal 'ALTERNATE'     snormal tresword
snormal 'ANSI'          snormal tresword
snormal 'APLABOUT'      snormal tresword
snormal 'APP'           snormal tresword
snormal 'APPEND'        snormal tresword
snormal 'ARRAY'         snormal tresword
snormal 'AS'            snormal tresword
snormal 'ASSIST'        snormal tresword
snormal 'AUTOSAVE'      snormal tresword
snormal 'AVERAGE'       snormal tresword
snormal 'BAR'           snormal tresword
snormal 'BEGIN'         snormal tresword
snormal 'BELL'          snormal tresword
snormal 'BLANK'         snormal tresword
snormal 'BLINK'         snormal tresword
snormal 'BLOCKSIZE'     snormal tresword
snormal 'BORDER'        snormal tresword
snormal 'BOX'           snormal tresword
snormal 'BROWSE'        snormal tresword
snormal 'BRSTATUS'      snormal tresword
snormal 'BUILD'         snormal tresword
snormal 'CALCULATE'     snormal tresword
snormal 'CALL'          snormal tresword
snormal 'CANCEL'        snormal tresword
snormal 'CARRY'         snormal tresword
snormal 'CASE'          snormal tresword
snormal 'CD'            snormal tresword
snormal 'CENTURY'       snormal tresword
snormal 'CHANGE'        snormal tresword
snormal 'CHDIR'         snormal tresword
snormal 'CLASS'         snormal tresword
snormal 'CLASSLIB'      snormal tresword
snormal 'CLEAR'         snormal tresword
snormal 'CLOCK'         snormal tresword
snormal 'CLOSE'         snormal tresword
snormal 'COLLATE'       snormal tresword
snormal 'COLOR'         snormal tresword
snormal 'COMMAND'       snormal tresword
snormal 'COMPATIBLE'    snormal tresword
snormal 'COMPILE'       snormal tresword
snormal 'CONFIRM'       snormal tresword
snormal 'CONNECTION'    snormal tresword
snormal 'CONNECTIONS'   snormal tresword
snormal 'CONSOLE'       snormal tresword
snormal 'CONTINUE'      snormal tresword
snormal 'COPY'          snormal tresword
snormal 'COUNT'         snormal tresword
snormal 'CPCOMPILE'     snormal tresword
snormal 'CPDIALOG'      snormal tresword
snormal 'CREATE'        snormal tresword
snormal 'CURRENCY'      snormal tresword
snormal 'CURSOR'        snormal tresword
snormal 'DATA'          snormal tresword
snormal 'DATABASE'      snormal tresword
snormal 'DATABASES'     snormal tresword
snormal 'DATASESSION'   snormal tresword
snormal 'DATE'          snormal tresword
snormal 'DEACTIVATE'    snormal tresword
snormal 'DEBUG'         snormal tresword
snormal 'DECIMALS'      snormal tresword
snormal 'DECLARE'       snormal tresword
snormal 'DEFAULT'       snormal tresword
snormal 'DEFINE'        snormal tresword
snormal 'DELETE'        snormal tresword
snormal 'DELETED'       snormal tresword
snormal 'DELIMITERS'    snormal tresword
snormal 'DEVELOPMENT'   snormal tresword
snormal 'DEVICE'        snormal tresword
snormal 'DIMENSION'     snormal tresword
snormal 'DIR'           snormal tresword
snormal 'DIRECTORY'     snormal tresword
snormal 'DISPLAY'       snormal tresword
snormal 'DLLS'          snormal tresword
snormal 'DO'            snormal tresword
snormal 'DOHISTORY'     snormal tresword
snormal 'ECHO'          snormal tresword
snormal 'EDIT'          snormal tresword
snormal 'EJECT'         snormal tresword
snormal 'ELSE'          snormal tresword
snormal 'END'           snormal tresword
snormal 'ENDCASE'       snormal tresword
snormal 'ENDDEFINE'     snormal tresword
snormal 'ENDDO'         snormal tresword
snormal 'ENDFOR'        snormal tresword
snormal 'ENDFUNC'       snormal tresword
snormal 'ENDIF'         snormal tresword
snormal 'ENDPRINTJOB'   snormal tresword
snormal 'ENDPROC'       snormal tresword
snormal 'ENDSCAN'       snormal tresword
snormal 'ENDWITH'       snormal tresword
snormal 'ERASE'         snormal tresword
snormal 'ERROR'         snormal tresword
snormal 'ESCAPE'        snormal tresword
snormal 'EVENTS'        snormal tresword
snormal 'EXACT'         snormal tresword
snormal 'EXCLUSIVE'     snormal tresword
snormal 'EXE'           snormal tresword
snormal 'EXIT'          snormal tresword
snormal 'EXPORT'        snormal tresword
snormal 'EXTENDED'      snormal tresword
snormal 'EXTERNAL'      snormal tresword
snormal 'FDOW'          snormal tresword
snormal 'FIELDS'        snormal tresword
snormal 'FILE'          snormal tresword
snormal 'FILER'         snormal tresword
snormal 'FILES'         snormal tresword
snormal 'FILTER'        snormal tresword
snormal 'FIND'          snormal tresword
snormal 'FIXED'         snormal tresword
snormal 'FLUSH'         snormal tresword
snormal 'FOR'           snormal tresword
snormal 'FORM'          snormal tresword
snormal 'FORMAT'        snormal tresword
snormal 'FREE'          snormal tresword
snormal 'FROM'          snormal tresword
snormal 'FULLPATH'      snormal tresword
snormal 'FUNCTION'      snormal tresword
snormal 'FWEEK'         snormal tresword
snormal 'GATHER'        snormal tresword
snormal 'GENERAL'       snormal tresword
snormal 'GET'           snormal tresword
snormal 'GETEXPR'       snormal tresword
snormal 'GETS'          snormal tresword
snormal 'GO'            snormal tresword
snormal 'GOTO'          snormal tresword
snormal 'HEADINGS'      snormal tresword
snormal 'HELP'          snormal tresword
snormal 'HELPFILTER'    snormal tresword
snormal 'HIDE'          snormal tresword
snormal 'HOURS'         snormal tresword
snormal 'ID'            snormal tresword
snormal 'IF'            snormal tresword
snormal 'IMPORT'        snormal tresword
snormal 'INDEX'         snormal tresword
snormal 'INDEXES'       snormal tresword
snormal 'INPUT'         snormal tresword
snormal 'INSERT'        snormal tresword
snormal 'INTENSITY'     snormal tresword
snormal 'JOIN'          snormal tresword
snormal 'KEY'           snormal tresword
snormal 'KEYBOARD'      snormal tresword
snormal 'KEYCOMP'       snormal tresword
snormal 'LABEL'         snormal tresword
snormal 'LIBRARY'       snormal tresword
snormal 'LIST'          snormal tresword
snormal 'LOAD'          snormal tresword
snormal 'LOCAL'         snormal tresword
snormal 'LOCATE'        snormal tresword
snormal 'LOCK'          snormal tresword
snormal 'LOGERRORS'     snormal tresword
snormal 'LPARAMETERS'   snormal tresword
snormal 'MACDESKTOP'    snormal tresword
snormal 'MACHELP'       snormal tresword
snormal 'MACKEY'        snormal tresword
snormal 'MACRO'         snormal tresword
snormal 'MACROS'        snormal tresword
snormal 'MARGIN'        snormal tresword
snormal 'MARK'          snormal tresword
snormal 'MD'            snormal tresword
snormal 'MEMO'          snormal tresword
snormal 'MEMORY'        snormal tresword
snormal 'MEMOWIDTH'     snormal tresword
snormal 'MENU'          snormal tresword
snormal 'MENUS'         snormal tresword
snormal 'MESSAGE'       snormal tresword
snormal 'MKDIR'         snormal tresword
snormal 'MODIFY'        snormal tresword
snormal 'MODULE'        snormal tresword
snormal 'MOUSE'         snormal tresword
snormal 'MOVE'          snormal tresword
snormal 'MULTILOCKS'    snormal tresword
snormal 'NEAR'          snormal tresword
snormal 'NOCPTRANS'     snormal tresword
snormal 'NOTE'          snormal tresword
snormal 'NOTIFY'        snormal tresword
snormal 'NULL'          snormal tresword
snormal 'OBJECT'        snormal tresword
snormal 'OBJECTS'       snormal tresword
snormal 'ODOMETER'      snormal tresword
snormal 'OF'            snormal tresword
snormal 'OFF'           snormal tresword
snormal 'OLEOBJECT'     snormal tresword
snormal 'ON'            snormal tresword
snormal 'OPEN'          snormal tresword
snormal 'OPTIMIZE'      snormal tresword
snormal 'or'            snormal tresword
snormal 'ORDER'         snormal tresword
snormal 'OTHERWISE'     snormal tresword
snormal 'PACK'          snormal tresword
snormal 'PAD'           snormal tresword
snormal 'PAGE'          snormal tresword
snormal 'PALETTE'       snormal tresword
snormal 'PARAMETERS'    snormal tresword
snormal 'PATH'          snormal tresword
snormal 'PDSETUP'       snormal tresword
snormal 'PLAY'          snormal tresword
snormal 'POINT'         snormal tresword
snormal 'POP'           snormal tresword
snormal 'POPUP'         snormal tresword
snormal 'POPUPS'        snormal tresword
snormal 'PRINTER'       snormal tresword
snormal 'PRINTJOB'      snormal tresword
snormal 'PRIVATE'       snormal tresword
snormal 'PROCEDURE'     snormal tresword
snormal 'PROCEDURES'    snormal tresword
snormal 'PROJECT'       snormal tresword
snormal 'PUBLIC'        snormal tresword
snormal 'PUSH'          snormal tresword
snormal 'QUERY'         snormal tresword
snormal 'QUIT'          snormal tresword
snormal 'RD'            snormal tresword
snormal 'READ'          snormal tresword
snormal 'READBORDER'    snormal tresword
snormal 'READERROR'     snormal tresword
snormal 'RECALL'        snormal tresword
snormal 'REFRESH'       snormal tresword
snormal 'REGIONAL'      snormal tresword
snormal 'REINDEX'       snormal tresword
snormal 'RELATION'      snormal tresword
snormal 'RELEASE'       snormal tresword
snormal 'REMOVE'        snormal tresword
snormal 'RENAME'        snormal tresword
snormal 'REPLACE'       snormal tresword
snormal 'REPORT'        snormal tresword
snormal 'REPROCESS'     snormal tresword
snormal 'RESOURCE'      snormal tresword
snormal 'RESTORE'       snormal tresword
snormal 'RESUME'        snormal tresword
snormal 'RETRY'         snormal tresword
snormal 'RETURN'        snormal tresword
snormal 'RMDIR'         snormal tresword
snormal 'ROLLBACK'      snormal tresword
snormal 'RUN'           snormal tresword
snormal 'RUNSCRIPT'     snormal tresword
snormal 's'             snormal tresword
snormal 'SAFETY'        snormal tresword
snormal 'SAVE'          snormal tresword
snormal 'SCAN'          snormal tresword
snormal 'SCATTER'       snormal tresword
snormal 'SCHEME'        snormal tresword
snormal 'SCOREBOARD'    snormal tresword
snormal 'SCREEN'        snormal tresword
snormal 'SCROLL'        snormal tresword
snormal 'SECONDS'       snormal tresword
snormal 'SEEK'          snormal tresword
snormal 'SELECT'        snormal tresword
snormal 'SELECTION'     snormal tresword
snormal 'SEPARATOR'     snormal tresword
snormal 'SET'           snormal tresword
snormal 'SHADOWS'       snormal tresword
snormal 'SHOW'          snormal tresword
snormal 'SHUTDOWN'      snormal tresword
snormal 'SIZE'          snormal tresword
snormal 'SKIP'          snormal tresword
snormal 'SORT'          snormal tresword
snormal 'SPACE'         snormal tresword
snormal 'SQL'           snormal tresword
snormal 'STATUS'        snormal tresword
snormal 'STEP'          snormal tresword
snormal 'STICKY'        snormal tresword
snormal 'STORE'         snormal tresword
snormal 'string$'       snormal tresword
snormal 'STRUCTURE'     snormal tresword
snormal 'SUM'           snormal tresword
snormal 'SUSPEND'       snormal tresword
snormal 'SYSFORMATS'    snormal tresword
snormal 'SYSMENU'       snormal tresword
snormal 'TABLE'         snormal tresword
snormal 'TABLES'        snormal tresword
snormal 'TAG'           snormal tresword
snormal 'TALK'          snormal tresword
snormal 'TEXTMERGE'     snormal tresword
snormal 'TO'            snormal tresword
snormal 'TOPIC'         snormal tresword
snormal 'TOTAL'         snormal tresword
snormal 'TRANSACTION'   snormal tresword
snormal 'TRBETWEEN'     snormal tresword
snormal 'TRIGGER'       snormal tresword
snormal 'TYPE'          snormal tresword
snormal 'TYPEAHEAD'     snormal tresword
snormal 'UDFPARMS'      snormal tresword
snormal 'UNIQUE'        snormal tresword
snormal 'UNLOCK'        snormal tresword
snormal 'UPDATE'        snormal tresword
snormal 'USE'           snormal tresword
snormal 'VALIDATE'      snormal tresword
snormal 'VIEW'          snormal tresword
snormal 'VIEWS'         snormal tresword
snormal 'VOLUME'        snormal tresword
snormal 'WAIT'          snormal tresword
snormal 'WHILE'         snormal tresword
snormal 'WINDOW'        snormal tresword
snormal 'WINDOWS'       snormal tresword
snormal 'WITH'          snormal tresword
snormal 'XCMDFILE'      snormal tresword
snormal 'ZAP'           snormal tresword
snormal 'ZOOM'          snormal tresword

// numbers
snormal [0-9][0-9]*                            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

//strings
snormal    \"                     sstring1   tstring
sstring1   [^\"]*                 sstring1   tstring
sstring1   \"                     snormal    tstring
sstring1   \"\"                   sstring1   tstring
sstring1   $                      snormal    tstring
//
snormal    \'                     sstring2   tstring
sstring2   [^\']*                 sstring2   tstring
sstring2   \'                     snormal    tstring
sstring2   \'\'                   sstring2   tstring
sstring2   $                      snormal    tstring

//comments
snormal   &&                      scomment tcomment
scomment [#1-#255]*               snormal  tcomment
scomment $                        snormal  tcomment
snormal   {#32}*\*                scomment tcomment

//directives

snormal  \#                       sdirective tdirective
sdirective [#1-#255]*             snormal    tdirective
sdirective $                      snormal    tdirective