|
66
|
1 <lexer>
|
|
|
2 <config>
|
|
|
3 <name>QBasic</name>
|
|
|
4 <alias>qbasic</alias>
|
|
|
5 <alias>basic</alias>
|
|
|
6 <filename>*.BAS</filename>
|
|
|
7 <filename>*.bas</filename>
|
|
|
8 <mime_type>text/basic</mime_type>
|
|
|
9 </config>
|
|
|
10 <rules>
|
|
|
11 <state name="root">
|
|
|
12 <rule pattern="\n+">
|
|
|
13 <token type="Text"/>
|
|
|
14 </rule>
|
|
|
15 <rule pattern="\s+">
|
|
|
16 <token type="TextWhitespace"/>
|
|
|
17 </rule>
|
|
|
18 <rule pattern="^(\s*)(\d*)(\s*)(REM .*)$">
|
|
|
19 <bygroups>
|
|
|
20 <token type="TextWhitespace"/>
|
|
|
21 <token type="NameLabel"/>
|
|
|
22 <token type="TextWhitespace"/>
|
|
|
23 <token type="CommentSingle"/>
|
|
|
24 </bygroups>
|
|
|
25 </rule>
|
|
|
26 <rule pattern="^(\s*)(\d+)(\s*)">
|
|
|
27 <bygroups>
|
|
|
28 <token type="TextWhitespace"/>
|
|
|
29 <token type="NameLabel"/>
|
|
|
30 <token type="TextWhitespace"/>
|
|
|
31 </bygroups>
|
|
|
32 </rule>
|
|
|
33 <rule pattern="(?=[\s]*)(\w+)(?=[\s]*=)">
|
|
|
34 <token type="NameVariableGlobal"/>
|
|
|
35 </rule>
|
|
|
36 <rule pattern="(?=[^"]*)\'.*$">
|
|
|
37 <token type="CommentSingle"/>
|
|
|
38 </rule>
|
|
|
39 <rule pattern=""[^\n"]*"">
|
|
|
40 <token type="LiteralStringDouble"/>
|
|
|
41 </rule>
|
|
|
42 <rule pattern="(END)(\s+)(FUNCTION|IF|SELECT|SUB)">
|
|
|
43 <bygroups>
|
|
|
44 <token type="KeywordReserved"/>
|
|
|
45 <token type="TextWhitespace"/>
|
|
|
46 <token type="KeywordReserved"/>
|
|
|
47 </bygroups>
|
|
|
48 </rule>
|
|
|
49 <rule pattern="(DECLARE)(\s+)([A-Z]+)(\s+)(\S+)">
|
|
|
50 <bygroups>
|
|
|
51 <token type="KeywordDeclaration"/>
|
|
|
52 <token type="TextWhitespace"/>
|
|
|
53 <token type="NameVariable"/>
|
|
|
54 <token type="TextWhitespace"/>
|
|
|
55 <token type="Name"/>
|
|
|
56 </bygroups>
|
|
|
57 </rule>
|
|
|
58 <rule pattern="(DIM)(\s+)(SHARED)(\s+)([^\s(]+)">
|
|
|
59 <bygroups>
|
|
|
60 <token type="KeywordDeclaration"/>
|
|
|
61 <token type="TextWhitespace"/>
|
|
|
62 <token type="NameVariable"/>
|
|
|
63 <token type="TextWhitespace"/>
|
|
|
64 <token type="NameVariableGlobal"/>
|
|
|
65 </bygroups>
|
|
|
66 </rule>
|
|
|
67 <rule pattern="(DIM)(\s+)([^\s(]+)">
|
|
|
68 <bygroups>
|
|
|
69 <token type="KeywordDeclaration"/>
|
|
|
70 <token type="TextWhitespace"/>
|
|
|
71 <token type="NameVariableGlobal"/>
|
|
|
72 </bygroups>
|
|
|
73 </rule>
|
|
|
74 <rule pattern="^(\s*)([a-zA-Z_]+)(\s*)(\=)">
|
|
|
75 <bygroups>
|
|
|
76 <token type="TextWhitespace"/>
|
|
|
77 <token type="NameVariableGlobal"/>
|
|
|
78 <token type="TextWhitespace"/>
|
|
|
79 <token type="Operator"/>
|
|
|
80 </bygroups>
|
|
|
81 </rule>
|
|
|
82 <rule pattern="(GOTO|GOSUB)(\s+)(\w+\:?)">
|
|
|
83 <bygroups>
|
|
|
84 <token type="KeywordReserved"/>
|
|
|
85 <token type="TextWhitespace"/>
|
|
|
86 <token type="NameLabel"/>
|
|
|
87 </bygroups>
|
|
|
88 </rule>
|
|
|
89 <rule pattern="(SUB)(\s+)(\w+\:?)">
|
|
|
90 <bygroups>
|
|
|
91 <token type="KeywordReserved"/>
|
|
|
92 <token type="TextWhitespace"/>
|
|
|
93 <token type="NameLabel"/>
|
|
|
94 </bygroups>
|
|
|
95 </rule>
|
|
|
96 <rule>
|
|
|
97 <include state="declarations"/>
|
|
|
98 </rule>
|
|
|
99 <rule>
|
|
|
100 <include state="functions"/>
|
|
|
101 </rule>
|
|
|
102 <rule>
|
|
|
103 <include state="metacommands"/>
|
|
|
104 </rule>
|
|
|
105 <rule>
|
|
|
106 <include state="operators"/>
|
|
|
107 </rule>
|
|
|
108 <rule>
|
|
|
109 <include state="statements"/>
|
|
|
110 </rule>
|
|
|
111 <rule>
|
|
|
112 <include state="keywords"/>
|
|
|
113 </rule>
|
|
|
114 <rule pattern="[a-zA-Z_]\w*[$@#&!]">
|
|
|
115 <token type="NameVariableGlobal"/>
|
|
|
116 </rule>
|
|
|
117 <rule pattern="[a-zA-Z_]\w*\:">
|
|
|
118 <token type="NameLabel"/>
|
|
|
119 </rule>
|
|
|
120 <rule pattern="\-?\d*\.\d+[@|#]?">
|
|
|
121 <token type="LiteralNumberFloat"/>
|
|
|
122 </rule>
|
|
|
123 <rule pattern="\-?\d+[@|#]">
|
|
|
124 <token type="LiteralNumberFloat"/>
|
|
|
125 </rule>
|
|
|
126 <rule pattern="\-?\d+#?">
|
|
|
127 <token type="LiteralNumberIntegerLong"/>
|
|
|
128 </rule>
|
|
|
129 <rule pattern="\-?\d+#?">
|
|
|
130 <token type="LiteralNumberInteger"/>
|
|
|
131 </rule>
|
|
|
132 <rule pattern="!=|==|:=|\.=|<<|>>|[-~+/\\*%=<>&^|?:!.]">
|
|
|
133 <token type="Operator"/>
|
|
|
134 </rule>
|
|
|
135 <rule pattern="[\[\]{}(),;]">
|
|
|
136 <token type="Punctuation"/>
|
|
|
137 </rule>
|
|
|
138 <rule pattern="[\w]+">
|
|
|
139 <token type="NameVariableGlobal"/>
|
|
|
140 </rule>
|
|
|
141 </state>
|
|
|
142 <state name="declarations">
|
|
|
143 <rule pattern="\b(DATA|LET)(?=\(|\b)">
|
|
|
144 <token type="KeywordDeclaration"/>
|
|
|
145 </rule>
|
|
|
146 </state>
|
|
|
147 <state name="functions">
|
|
|
148 <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)">
|
|
|
149 <token type="KeywordReserved"/>
|
|
|
150 </rule>
|
|
|
151 </state>
|
|
|
152 <state name="metacommands">
|
|
|
153 <rule pattern="\b(\$DYNAMIC|\$INCLUDE|\$STATIC)(?=\(|\b)">
|
|
|
154 <token type="KeywordConstant"/>
|
|
|
155 </rule>
|
|
|
156 </state>
|
|
|
157 <state name="operators">
|
|
|
158 <rule pattern="\b(AND|EQV|IMP|NOT|OR|XOR)(?=\(|\b)">
|
|
|
159 <token type="OperatorWord"/>
|
|
|
160 </rule>
|
|
|
161 </state>
|
|
|
162 <state name="statements">
|
|
|
163 <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">
|
|
|
164 <token type="KeywordReserved"/>
|
|
|
165 </rule>
|
|
|
166 </state>
|
|
|
167 <state name="keywords">
|
|
|
168 <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">
|
|
|
169 <token type="Keyword"/>
|
|
|
170 </rule>
|
|
|
171 </state>
|
|
|
172 </rules>
|
|
|
173 </lexer> |
