cobol.xs

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

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

State=snormal
State=scomment
// tokens
Token=tNone
Token=tstring
Token=tcomment
Token=tident
Token=tinteger
Token=tlevelinteger
Token=tfloat
Token=tresword
Token=twhitespace
// reswords
snormal 'ACCEPT' snormal tresword
snormal 'ACCESS' snormal tresword
snormal 'ADD' snormal tresword
snormal 'ADDRESS' snormal tresword
snormal 'ADVANCING' snormal tresword
snormal 'AFTER' snormal tresword
snormal 'ALL' snormal tresword
snormal 'ALPHABET' snormal tresword
snormal 'ALSO' snormal tresword
snormal 'ALTER' snormal tresword
snormal 'ALTERNATE' snormal tresword
snormal 'AND' snormal tresword
snormal 'ANY' snormal tresword
snormal 'APPLY' snormal tresword
snormal 'ARE' snormal tresword
snormal 'AREA' snormal tresword
snormal 'AREAS' snormal tresword
snormal 'ASCENDING' snormal tresword
snormal 'ASSIGN' snormal tresword
snormal 'AT' snormal tresword
snormal 'BASIS' snormal tresword
snormal 'BEFORE' snormal tresword
snormal 'BEGINNING' snormal tresword
snormal 'BINARY' snormal tresword
snormal 'BLANK' snormal tresword
snormal 'BLOCK' snormal tresword
snormal 'BOTTOM' snormal tresword
snormal 'BY' snormal tresword
snormal 'CALL' snormal tresword
snormal 'CANCEL' snormal tresword
snormal 'CBL' snormal tresword
snormal 'CHARACTER' snormal tresword
snormal 'CHARACTERS' snormal tresword
snormal 'CLASS' snormal tresword
snormal 'CLOSE' snormal tresword
snormal 'COLLATING' snormal tresword
snormal 'COMMA' snormal tresword
snormal 'COMMON' snormal tresword
snormal 'COMPUTE' snormal tresword
snormal 'CONFIGURATION' snormal tresword
snormal 'CONTAINS' snormal tresword
snormal 'CONTENT' snormal tresword
snormal 'CONTINUE' snormal tresword
snormal 'CONVERTING' snormal tresword
snormal 'COPY' snormal tresword
snormal 'CORR' snormal tresword
snormal 'CORRESPONDING' snormal tresword
snormal 'COUNT' snormal tresword
snormal 'CURRENCY' snormal tresword
snormal 'DATA' snormal tresword
snormal 'DAY' snormal tresword
snormal 'DBCS' snormal tresword
snormal 'DEBUGGING' snormal tresword
snormal 'DECLARATIVES' snormal tresword
snormal 'DEGUGGING' snormal tresword
snormal 'DELETE' snormal tresword
snormal 'DELIMITED' snormal tresword
snormal 'DELIMITER' snormal tresword
snormal 'DEPENDING' snormal tresword
snormal 'DESCENDING' snormal tresword
snormal 'DIVIDE' snormal tresword
snormal 'DIVISION' snormal tresword
snormal 'DOWN' snormal tresword
snormal 'DUPLICATES' snormal tresword
snormal 'DYNAMIC' snormal tresword
snormal 'EBCDIC' snormal tresword
snormal 'EGCS' snormal tresword
snormal 'EJECT' snormal tresword
snormal 'ELSE' snormal tresword
snormal 'ENDING' snormal tresword
snormal 'ENTER' snormal tresword
snormal 'ENTRY' snormal tresword
snormal 'ENVIRONMENT' snormal tresword
snormal 'EOP' snormal tresword
snormal 'EQUAL' snormal tresword
snormal 'ERROR' snormal tresword
snormal 'EVALUATE' snormal tresword
snormal 'EVERY' snormal tresword
snormal 'EXCEPTION' snormal tresword
snormal 'EXIT' snormal tresword
snormal 'EXTEND' snormal tresword
snormal 'EXTERNAL' snormal tresword
snormal 'F' snormal tresword
snormal 'FALSE' snormal tresword
snormal 'FD' snormal tresword
snormal 'FILLER' snormal tresword
snormal 'FIRST' snormal tresword
snormal 'FOOTING' snormal tresword
snormal 'FOR' snormal tresword
snormal 'FROM' snormal tresword
snormal 'GIVING' snormal tresword
snormal 'GLOBAL' snormal tresword
snormal 'GO' snormal tresword
snormal 'GOBACK' snormal tresword
snormal 'GREATER' snormal tresword
snormal 'ID' snormal tresword
snormal 'IDENTIFICATION' snormal tresword
snormal 'IF' snormal tresword
snormal 'IN' snormal tresword
snormal 'INDEX' snormal tresword
snormal 'INDEXED' snormal tresword
snormal 'INITIAL' snormal tresword
snormal 'INITIALIZE' snormal tresword
snormal 'INSERT' snormal tresword
snormal 'INSPECT' snormal tresword
snormal 'INSTALLATION' snormal tresword
snormal 'INTO' snormal tresword
snormal 'INVALID' snormal tresword
snormal 'IS' snormal tresword
snormal 'JUST' snormal tresword
snormal 'JUSTIFIED' snormal tresword
snormal 'KANJI' snormal tresword
snormal 'KEY' snormal tresword
snormal 'LABEL' snormal tresword
snormal 'LEADING' snormal tresword
snormal 'LEFT' snormal tresword
snormal 'LENGTH' snormal tresword
snormal 'LESS' snormal tresword
snormal 'LINE' snormal tresword
snormal 'LINES' snormal tresword
snormal 'LINKAGE' snormal tresword
snormal 'LIST' snormal tresword
snormal 'LOCK' snormal tresword
snormal 'MAP' snormal tresword
snormal 'MEMORY' snormal tresword
snormal 'MERGE' snormal tresword
snormal 'MODE' snormal tresword
snormal 'MODULES' snormal tresword
snormal 'MOVE' snormal tresword
snormal 'MULTIPLE' snormal tresword
snormal 'MULTIPLY' snormal tresword
snormal 'NATIVE' snormal tresword
snormal 'NEGATIVE' snormal tresword
snormal 'NEXT' snormal tresword
snormal 'NO' snormal tresword
snormal 'NOLIST' snormal tresword
snormal 'NOMAP' snormal tresword
snormal 'NOSOURCE' snormal tresword
snormal 'NOT' snormal tresword
snormal 'NULL' snormal tresword
snormal 'NULLS' snormal tresword
snormal 'OCCURS' snormal tresword
snormal 'OF' snormal tresword
snormal 'OFF' snormal tresword
snormal 'OMITTED' snormal tresword
snormal 'ON' snormal tresword
snormal 'OPEN' snormal tresword
snormal 'OPTIONAL' snormal tresword
snormal 'OR' snormal tresword
snormal 'ORDER' snormal tresword
snormal 'ORGANIZATION' snormal tresword
snormal 'OTHER' snormal tresword
snormal 'OUTPUT' snormal tresword
snormal 'OVERFLOW' snormal tresword
snormal 'PADDING' snormal tresword
snormal 'PAGE' snormal tresword
snormal 'PASSWORD' snormal tresword
snormal 'PERFORM' snormal tresword
snormal 'PIC' snormal tresword
snormal 'PICTURE' snormal tresword
snormal 'POINTER' snormal tresword
snormal 'POSITION' snormal tresword
snormal 'POSITIVE' snormal tresword
snormal 'PROCEDURE' snormal tresword
snormal 'PROCEDURES' snormal tresword
snormal 'PROCEED' snormal tresword
snormal 'PROCESS' snormal tresword
snormal 'QUOTE' snormal tresword
snormal 'QUOTES' snormal tresword
snormal 'RANDOM' snormal tresword
snormal 'READ' snormal tresword
snormal 'READY' snormal tresword
snormal 'RECORD' snormal tresword
snormal 'RECORDING' snormal tresword
snormal 'RECORDS' snormal tresword
snormal 'REDEFINES' snormal tresword
snormal 'REEL' snormal tresword
snormal 'REFERENCE' snormal tresword
snormal 'RELATIVE' snormal tresword
snormal 'RELEASE' snormal tresword
snormal 'RELOAD' snormal tresword
snormal 'REMAINDER' snormal tresword
snormal 'REMOVAL' snormal tresword
snormal 'RENAMES' snormal tresword
snormal 'REPLACE' snormal tresword
snormal 'REPLACING' snormal tresword
snormal 'RERUN' snormal tresword
snormal 'RESERVE' snormal tresword
snormal 'RESET' snormal tresword
snormal 'REVERSED' snormal tresword
snormal 'REWIND' snormal tresword
snormal 'REWRITE' snormal tresword
snormal 'RIGHT' snormal tresword
snormal 'ROUNDED' snormal tresword
snormal 'RUN' snormal tresword
snormal 'S' snormal tresword
snormal 'SAME' snormal tresword
snormal 'SD' snormal tresword
snormal 'SEARCH' snormal tresword
snormal 'SECTION' snormal tresword
snormal 'SELECT' snormal tresword
snormal 'SENTENCE' snormal tresword
snormal 'SEPARATE' snormal tresword
snormal 'SEQUENCE' snormal tresword
snormal 'SEQUENTIAL' snormal tresword
snormal 'SERVICE' snormal tresword
snormal 'SET' snormal tresword
snormal 'SIGN' snormal tresword
snormal 'SIZE' snormal tresword
snormal 'SKIP1' snormal tresword
snormal 'SKIP2' snormal tresword
snormal 'SKIP3' snormal tresword
snormal 'SPACE' snormal tresword
snormal 'SPACES' snormal tresword
snormal 'START' snormal tresword
snormal 'STATUS' snormal tresword
snormal 'STOP' snormal tresword
snormal 'STRING' snormal tresword
snormal 'SUBTRACT' snormal tresword
snormal 'SUPPRESS' snormal tresword
snormal 'SYMBOLIC' snormal tresword
snormal 'SYNC' snormal tresword
snormal 'SYNCHRONIZED' snormal tresword
snormal 'TALLY' snormal tresword
snormal 'TALLYING' snormal tresword
snormal 'TAPE' snormal tresword
snormal 'TEST' snormal tresword
snormal 'THAN' snormal tresword
snormal 'THEN' snormal tresword
snormal 'THROUGH' snormal tresword
snormal 'THRU' snormal tresword
snormal 'TIME' snormal tresword
snormal 'TIMES' snormal tresword
snormal 'TITLE' snormal tresword
snormal 'TO' snormal tresword
snormal 'TOP' snormal tresword
snormal 'TRACE' snormal tresword
snormal 'TRAILING' snormal tresword
snormal 'TRUE' snormal tresword
snormal 'U' snormal tresword
snormal 'UNIT' snormal tresword
snormal 'UNSTRING' snormal tresword
snormal 'UNTIL' snormal tresword
snormal 'UP' snormal tresword
snormal 'UPON' snormal tresword
snormal 'USAGE' snormal tresword
snormal 'USE' snormal tresword
snormal 'USING' snormal tresword
snormal 'V' snormal tresword
snormal 'VALUE' snormal tresword
snormal 'VALUES' snormal tresword
snormal 'VARYING' snormal tresword
snormal 'WITH' snormal tresword
snormal 'WORDS' snormal tresword
snormal 'ZERO' snormal tresword
snormal 'ZEROES' snormal tresword
snormal 'ZEROS' snormal tresword


snormal ALPHABETIC snormal tresword
snormal ALPHABETIC-LOWER snormal tresword
snormal ALPHABETIC-UPPER snormal tresword
snormal ALPHANUMERIC snormal tresword
snormal ALPHANUMERIC-EDITED snormal tresword
snormal CODE-SET snormal tresword
snormal COMP snormal tresword
snormal COMP-1 snormal tresword
snormal COMP-2 snormal tresword
snormal COMP-3 snormal tresword
snormal COMP-4 snormal tresword
snormal COMPUTATIONAL snormal tresword
snormal COMPUTATIONAL-1 snormal tresword
snormal COMPUTATIONAL-2 snormal tresword
snormal COMPUTATIONAL-3 snormal tresword
snormal COMPUTATIONAL-4 snormal tresword
snormal DATE snormal tresword
snormal DATE-COMPILED snormal tresword
snormal DATE-WRITTEN snormal tresword
snormal DAY-OF-WEEK snormal tresword
snormal DEBUG-ITEM snormal tresword
snormal DECIMAL-POINT snormal tresword
snormal DISPLAY snormal tresword
snormal DISPLAY-1 snormal tresword
snormal END snormal tresword
snormal END-ADD snormal tresword
snormal END-CALL snormal tresword
snormal END-COMPUTE snormal tresword
snormal END-DELETE snormal tresword
snormal END-DIVIDE snormal tresword
snormal END-EVALUATE snormal tresword
snormal END-IF snormal tresword
snormal END-MULTIPLY snormal tresword
snormal END-OF-PAGE snormal tresword
snormal END-PERFORM snormal tresword
snormal END-READ snormal tresword
snormal END-RETURN snormal tresword
snormal END-REWRITE snormal tresword
snormal END-SEARCH snormal tresword
snormal END-START snormal tresword
snormal END-STRING snormal tresword
snormal END-SUBTRACT snormal tresword
snormal END-UNSTRING snormal tresword
snormal END-WRITE snormal tresword
snormal FILE snormal tresword
snormal FILE-CONTROL snormal tresword
snormal HIGH-VALUE snormal tresword
snormal HIGH-VALUES snormal tresword
snormal I-O snormal tresword
snormal I-O-CONTROL snormal tresword
snormal INPUT snormal tresword
snormal INPUT-OUTPUT snormal tresword
snormal LINAGE snormal tresword
snormal LINAGE-COUNTER snormal tresword
snormal LOW-VALUE snormal tresword
snormal LOW-VALUES snormal tresword
snormal MORE-LABELS snormal tresword
snormal NUMERIC snormal tresword
snormal NUMERIC-EDITED snormal tresword
snormal OBJECT-COMPUTER snormal tresword
snormal PACKED-DECIMAL snormal tresword
snormal PROGRAM snormal tresword
snormal PROGRAM-ID snormal tresword
snormal RETURN snormal tresword
snormal RETURN-CODE snormal tresword
snormal SEGMENT-LIMIT snormal tresword
snormal SHIFT-IN snormal tresword
snormal SHIFT-OUT snormal tresword
snormal SORT snormal tresword
snormal SORT-CONTROL snormal tresword
snormal SORT-CORE-SIZE snormal tresword
snormal SORT-FILE-SIZE snormal tresword
snormal SORT-MERGE snormal tresword
snormal SORT-MESSAGE snormal tresword
snormal SORT-MODE-SIZE snormal tresword
snormal SORT-RETURN snormal tresword
snormal SOURCE snormal tresword
snormal SOURCE-COMPUTER snormal tresword
snormal SPECIAL-NAMES snormal tresword
snormal STANDARD snormal tresword
snormal STANDARD-1 snormal tresword
snormal STANDARD-2 snormal tresword
snormal WHEN snormal tresword
snormal WHEN-COMPILED snormal tresword
snormal WORKING-STORAGE snormal tresword
snormal WRITE snormal tresword
snormal WRITE-ONLY snormal tresword

snormal AUTHOR snormal tresword
snormal SECURITY snormal tresword

// numbers
snormal [0-9][0-9]* snormal  tinteger
snormal [x]"[0-9A-F]+" snormal  tinteger
snormal [x]'[0-9A-F]+' snormal  tinteger
snormal [0-9][0-9]*\.[0-9]* snormal  tfloat

//comments
snormal   ^#32*\* scomment tcomment
snormal   ^\* scomment tcomment
scomment $  snormal   tcomment
snormal AUTHOR\. scomment tresword
snormal INSTALLATION\. scomment tresword
snormal DATE-WRITTEN\. scomment tresword
snormal DATE-COMPILED\. scomment tresword
snormal SECURITY\. scomment tresword