tartrazine/lexers/qbasic.xml

173 lines
6.5 KiB
XML
Raw Normal View History

2024-08-02 20:03:49 +00:00
<lexer>
<config>
<name>QBasic</name>
<alias>qbasic</alias>
<alias>basic</alias>
<filename>*.BAS</filename>
<filename>*.bas</filename>
<mime_type>text/basic</mime_type>
</config>
<rules>
<state name="root">
<rule pattern="\n+">
<token type="Text"/>
</rule>
<rule pattern="\s+">
<token type="TextWhitespace"/>
</rule>
<rule pattern="^(\s*)(\d*)(\s*)(REM .*)$">
<bygroups>
<token type="TextWhitespace"/>
<token type="NameLabel"/>
<token type="TextWhitespace"/>
<token type="CommentSingle"/>
</bygroups>
</rule>
<rule pattern="^(\s*)(\d+)(\s*)">
<bygroups>
<token type="TextWhitespace"/>
<token type="NameLabel"/>
<token type="TextWhitespace"/>
</bygroups>
</rule>
<rule pattern="(?=[\s]*)(\w+)(?=[\s]*=)">
<token type="NameVariableGlobal"/>
</rule>
<rule pattern="(?=[^&#34;]*)\&#39;.*$">
<token type="CommentSingle"/>
</rule>
<rule pattern="&#34;[^\n&#34;]*&#34;">
<token type="LiteralStringDouble"/>
</rule>
<rule pattern="(END)(\s+)(FUNCTION|IF|SELECT|SUB)">
<bygroups>
<token type="KeywordReserved"/>
<token type="TextWhitespace"/>
<token type="KeywordReserved"/>
</bygroups>
</rule>
<rule pattern="(DECLARE)(\s+)([A-Z]+)(\s+)(\S+)">
<bygroups>
<token type="KeywordDeclaration"/>
<token type="TextWhitespace"/>
<token type="NameVariable"/>
<token type="TextWhitespace"/>
<token type="Name"/>
</bygroups>
</rule>
<rule pattern="(DIM)(\s+)(SHARED)(\s+)([^\s(]+)">
<bygroups>
<token type="KeywordDeclaration"/>
<token type="TextWhitespace"/>
<token type="NameVariable"/>
<token type="TextWhitespace"/>
<token type="NameVariableGlobal"/>
</bygroups>
</rule>
<rule pattern="(DIM)(\s+)([^\s(]+)">
<bygroups>
<token type="KeywordDeclaration"/>
<token type="TextWhitespace"/>
<token type="NameVariableGlobal"/>
</bygroups>
</rule>
<rule pattern="^(\s*)([a-zA-Z_]+)(\s*)(\=)">
<bygroups>
<token type="TextWhitespace"/>
<token type="NameVariableGlobal"/>
<token type="TextWhitespace"/>
<token type="Operator"/>
</bygroups>
</rule>
<rule pattern="(GOTO|GOSUB)(\s+)(\w+\:?)">
<bygroups>
<token type="KeywordReserved"/>
<token type="TextWhitespace"/>
<token type="NameLabel"/>
</bygroups>
</rule>
<rule pattern="(SUB)(\s+)(\w+\:?)">
<bygroups>
<token type="KeywordReserved"/>
<token type="TextWhitespace"/>
<token type="NameLabel"/>
</bygroups>
</rule>
<rule>
<include state="declarations"/>
</rule>
<rule>
<include state="functions"/>
</rule>
<rule>
<include state="metacommands"/>
</rule>
<rule>
<include state="operators"/>
</rule>
<rule>
<include state="statements"/>
</rule>
<rule>
<include state="keywords"/>
</rule>
<rule pattern="[a-zA-Z_]\w*[$@#&amp;!]">
<token type="NameVariableGlobal"/>
</rule>
<rule pattern="[a-zA-Z_]\w*\:">
<token type="NameLabel"/>
</rule>
<rule pattern="\-?\d*\.\d+[@|#]?">
<token type="LiteralNumberFloat"/>
</rule>
<rule pattern="\-?\d+[@|#]">
<token type="LiteralNumberFloat"/>
</rule>
<rule pattern="\-?\d+#?">
<token type="LiteralNumberIntegerLong"/>
</rule>
<rule pattern="\-?\d+#?">
<token type="LiteralNumberInteger"/>
</rule>
<rule pattern="!=|==|:=|\.=|&lt;&lt;|&gt;&gt;|[-~+/\\*%=&lt;&gt;&amp;^|?:!.]">
<token type="Operator"/>
</rule>
<rule pattern="[\[\]{}(),;]">
<token type="Punctuation"/>
</rule>
<rule pattern="[\w]+">
<token type="NameVariableGlobal"/>
</rule>
</state>
<state name="declarations">
<rule pattern="\b(DATA|LET)(?=\(|\b)">
<token type="KeywordDeclaration"/>
</rule>
</state>
<state name="functions">
<rule pattern="\b(ABS|ASC|ATN|CDBL|CHR\$|CINT|CLNG|COMMAND\$|COS|CSNG|CSRLIN|CVD|CVDMBF|CVI|CVL|CVS|CVSMBF|DATE\$|ENVIRON\$|EOF|ERDEV|ERDEV\$|ERL|ERR|EXP|FILEATTR|FIX|FRE|FREEFILE|HEX\$|INKEY\$|INP|INPUT\$|INSTR|INT|IOCTL\$|LBOUND|LCASE\$|LEFT\$|LEN|LOC|LOF|LOG|LPOS|LTRIM\$|MID\$|MKD\$|MKDMBF\$|MKI\$|MKL\$|MKS\$|MKSMBF\$|OCT\$|PEEK|PEN|PLAY|PMAP|POINT|POS|RIGHT\$|RND|RTRIM\$|SADD|SCREEN|SEEK|SETMEM|SGN|SIN|SPACE\$|SPC|SQR|STICK|STR\$|STRIG|STRING\$|TAB|TAN|TIME\$|TIMER|UBOUND|UCASE\$|VAL|VARPTR|VARPTR\$|VARSEG)(?=\(|\b)">
<token type="KeywordReserved"/>
</rule>
</state>
<state name="metacommands">
<rule pattern="\b(\$DYNAMIC|\$INCLUDE|\$STATIC)(?=\(|\b)">
<token type="KeywordConstant"/>
</rule>
</state>
<state name="operators">
<rule pattern="\b(AND|EQV|IMP|NOT|OR|XOR)(?=\(|\b)">
<token type="OperatorWord"/>
</rule>
</state>
<state name="statements">
<rule pattern="\b(BEEP|BLOAD|BSAVE|CALL|CALL\ ABSOLUTE|CALL\ INTERRUPT|CALLS|CHAIN|CHDIR|CIRCLE|CLEAR|CLOSE|CLS|COLOR|COM|COMMON|CONST|DATA|DATE\$|DECLARE|DEF\ FN|DEF\ SEG|DEFDBL|DEFINT|DEFLNG|DEFSNG|DEFSTR|DEF|DIM|DO|LOOP|DRAW|END|ENVIRON|ERASE|ERROR|EXIT|FIELD|FILES|FOR|NEXT|FUNCTION|GET|GOSUB|GOTO|IF|THEN|INPUT|INPUT\ \#|IOCTL|KEY|KEY|KILL|LET|LINE|LINE\ INPUT|LINE\ INPUT\ \#|LOCATE|LOCK|UNLOCK|LPRINT|LSET|MID\$|MKDIR|NAME|ON\ COM|ON\ ERROR|ON\ KEY|ON\ PEN|ON\ PLAY|ON\ STRIG|ON\ TIMER|ON\ UEVENT|ON|OPEN|OPEN\ COM|OPTION\ BASE|OUT|PAINT|PALETTE|PCOPY|PEN|PLAY|POKE|PRESET|PRINT|PRINT\ \#|PRINT\ USING|PSET|PUT|PUT|RANDOMIZE|READ|REDIM|REM|RESET|RESTORE|RESUME|RETURN|RMDIR|RSET|RUN|SCREEN|SEEK|SELECT\ CASE|SHARED|SHELL|SLEEP|SOUND|STATIC|STOP|STRIG|SUB|SWAP|SYSTEM|TIME\$|TIMER|TROFF|TRON|TYPE|UEVENT|UNLOCK|VIEW|WAIT|WHILE|WEND|WIDTH|WINDOW|WRITE)\b">
<token type="KeywordReserved"/>
</rule>
</state>
<state name="keywords">
<rule pattern="\b(ACCESS|ALIAS|ANY|APPEND|AS|BASE|BINARY|BYVAL|CASE|CDECL|DOUBLE|ELSE|ELSEIF|ENDIF|INTEGER|IS|LIST|LOCAL|LONG|LOOP|MOD|NEXT|OFF|ON|OUTPUT|RANDOM|SIGNAL|SINGLE|STEP|STRING|THEN|TO|UNTIL|USING|WEND)\b">
<token type="Keyword"/>
</rule>
</state>
</rules>
</lexer>