7 {
9
10
11
12
13
14
15
16$this->nocase = "0";
17$this->notrim = "0";
18$this->perl = "0";
19
20
21
22$this->colours = array("blue", "purple", "gray", "brown", "blue", "purple", "gray");
23$this->quotecolour = "blue";
24$this->blockcommentcolour = "green";
25$this->linecommentcolour = "green";
26
27
28
29$this->indent = array();
30$this->unindent = array();
31
32
33
34$this->stringchars = array("\"");
35$this->delimiters = array("~", "!", "@", "%", "^", "&", "(", ")", "|", "{", "}", "[", "]", ";", "\"", "'", " ", ",", " ", ".", "?");
36$this->escchar = "";
37
38
39
40$this->linecommenton = array(";");
41$this->blockcommenton = array("#|");
42$this->blockcommentoff = array("|#");
43
44
45
46$this->keywords = array(
47 "~a" => "1",
48 "~A" => "1",
49 "~b" => "1",
50 "~B" => "1",
51 "~d" => "1",
52 "~D" => "1",
53 "~e" => "1",
54 "~E" => "1",
55 "~o" => "1",
56 "~O" => "1",
57 "~s" => "1",
58 "~S" => "1",
59 "~x" => "1",
60 "~X" => "1",
61 "~%" => "1",
62 "#\\" => "2",
63 "#|" => "2",
64 "#=" => "2",
65 "#-" => "2",
66 "#+" => "2",
67 "#(" => "2",
68 "#." => "2",
69 "#\'" => "2",
70 "#:" => "2",
71 "##" => "2",
72 "#a" => "2",
73 "#A" => "2",
74 "#b" => "2",
75 "#B" => "2",
76 "#c" => "2",
77 "#o" => "2",
78 "#O" => "2",
79 "#r" => "2",
80 "#R" => "2",
81 "#s" => "2",
82 "#S" => "2",
83 "#x" => "2",
84 "#X" => "2",
85 "&allow-other-keys" => "3",
86 "&aux" => "3",
87 "&key" => "3",
88 "&optional" => "3",
89 "&rest" => "3",
90 "*features*" => "4",
91 "*load-verbose*" => "4",
92 "*modules*" => "4",
93 "*package*" => "4",
94 "*print-array*" => "4",
95 "*print-base*" => "4",
96 "*print-case*" => "4",
97 "*print-circle*" => "4",
98 "*printescape*" => "4",
99 "*printgensym*" => "4",
100 "*print-length*" => "4",
101 "*print-level*" => "4",
102 "*print-pretty*" => "4",
103 "*print-radix*" => "4",
104 "*read-base*" => "4",
105 "*readtable*" => "4",
106 "*standard-input*" => "4",
107 "*standard-output*" => "4",
108 "*terminal-io*" => "4",
109 ":allow-other-keys" => "5",
110 ":append" => "5",
111 ":array" => "5",
112 ":base" => "5",
113 ":capitalize" => "5",
114 ":case" => "5",
115 ":circle" => "5",
116 ":count" => "5",
117 ":direction" => "5",
118 ":downcase" => "5",
119 ":element-type" => "5",
120 ":escape" => "5",
121 ":external" => "5",
122 ":from-end" => "5",
123 ":gensym" => "5",
124 ":if-exists" => "5",
125 ":inherited" => "5",
126 ":initial-element" => "5",
127 ":input" => "5",
128 ":internal" => "5",
129 ":key" => "5",
130 ":length" => "5",
131 ":level" => "5",
132 ":output" => "5",
133 ":output-file" => "5",
134 ":pretty" => "5",
135 ":print" => "5",
136 ":radix" => "5",
137 ":stream" => "5",
138 ":test" => "5",
139 ":test-not" => "5",
140 ":upcase" => "5",
141 ":verbose" => "5",
142 "abs" => "6",
143 "acons" => "6",
144 "acos" => "6",
145 "alpha-char-p" => "6",
146 "alphanumericp" => "6",
147 "and" => "6",
148 "append" => "6",
149 "apply" => "6",
150 "apropos" => "6",
151 "aref" => "6",
152 "array-dimensions" => "6",
153 "array-rank" => "6",
154 "arrayp" => "6",
155 "asin" => "6",
156 "assoc" => "6",
157 "atan" => "6",
158 "atom" => "6",
159 "block" => "6",
160 "boundp" => "6",
161 "break" => "6",
162 "by" => "6",
163 "bye" => "6",
164 "car" => "6",
165 "case" => "6",
166 "catch" => "6",
167 "cdr" => "6",
168 "ceiling" => "6",
169 "char" => "6",
170 "char=" => "6",
171 "char/=" => "6",
172 "char>" => "6",
173 "char>=" => "6",
174 "char<" => "6",
175 "char<=" => "6",
176 "char-code" => "6",
177 "char-downcase" => "6",
178 "char-upcase" => "6",
179 "char-acterp" => "6",
180 "close" => "6",
181 "code-char" => "6",
182 "compile" => "6",
183 "compile-file" => "6",
184 "compiler-let" => "6",
185 "complexp" => "6",
186 "concatenate" => "6",
187 "cond" => "6",
188 "cons" => "6",
189 "consp" => "6",
190 "copy-seq" => "6",
191 "cos" => "6",
192 "decf" => "6",
193 "declare" => "6",
194 "defconstant" => "6",
195 "defmacro" => "6",
196 "defparameter" => "6",
197 "defstruct" => "6",
198 "defun" => "6",
199 "defvar" => "6",
200 "delete" => "6",
201 "delete-file" => "6",
202 "delete-if" => "6",
203 "delete-if-not" => "6",
204 "describe" => "6",
205 "digit-char-p" => "6",
206 "do" => "6",
207 "do*" => "6",
208 "do-all-symbols" => "6",
209 "do-external-symbols" => "6",
210 "do-symbols" => "6",
211 "documentation" => "6",
212 "dolist" => "6",
213 "dotimes" => "6",
214 "ed" => "6",
215 "eighth" => "6",
216 "eq" => "6",
217 "eql" => "6",
218 "equal" => "6",
219 "error" => "6",
220 "eval" => "6",
221 "eval-when" => "6",
222 "exp" => "6",
223 "export" => "6",
224 "expt" => "6",
225 "fifth" => "6",
226 "find-package" => "6",
227 "find-symbol" => "6",
228 "finish-output" => "6",
229 "first" => "6",
230 "flet" => "6",
231 "floatp" => "6",
232 "floor" => "6",
233 "format" => "6",
234 "fourth" => "6",
235 "fresh-line" => "6",
236 "funcall" => "6",
237 "function" => "6",
238 "gcd" => "6",
239 "gensym" => "6",
240 "gentemp" => "6",
241 "get" => "6",
242 "getf" => "6",
243 "get-macro-character" => "6",
244 "get-properties" => "6",
245 "go" => "6",
246 "if" => "6",
247 "import" => "6",
248 "in-package" => "6",
249 "incf" => "6",
250 "inspect" => "6",
251 "integerp" => "6",
252 "intern" => "6",
253 "isqrt" => "6",
254 "labels" => "6",
255 "lanbda" => "6",
256 "last" => "6",
257 "lcm" => "6",
258 "length" => "6",
259 "let" => "6",
260 "let*" => "6",
261 "list" => "6",
262 "list*" => "6",
263 "list-all-packages" => "6",
264 "listp" => "6",
265 "load" => "6",
266 "log" => "6",
267 "loop" => "6",
268 "lower-case-p" => "6",
269 "macroexpand" => "6",
270 "macro-function" => "6",
271 "macrolet" => "6",
272 "make-array" => "6",
273 "make-list" => "6",
274 "make-string" => "6",
275 "makunbound" => "6",
276 "mapc" => "6",
277 "mapcan" => "6",
278 "mapcar" => "6",
279 "mapcon" => "6",
280 "mapl" => "6",
281 "maplist" => "6",
282 "max" => "6",
283 "member" => "6",
284 "member-if" => "6",
285 "member-if-not" => "6",
286 "min" => "6",
287 "mod" => "6",
288 "multiple-value-bind" => "6",
289 "multiple-value-call" => "6",
290 "multiple-value-list" => "6",
291 "multiple-value-prog1" => "6",
292 "multiple-value-setq" => "6",
293 "nconc" => "6",
294 "nil" => "6",
295 "ninth" => "6",
296 "not" => "6",
297 "nreverse" => "6",
298 "nstring-downcase" => "6",
299 "nstring-upcase" => "6",
300 "nth" => "6",
301 "nthcdr" => "6",
302 "null" => "6",
303 "numberp" => "6",
304 "open" => "6",
305 "or" => "6",
306 "otherwise" => "6",
307 "peek-char" => "6",
308 "pi" => "6",
309 "pop" => "6",
310 "pprint" => "6",
311 "prin1" => "6",
312 "princ" => "6",
313 "print" => "6",
314 "probe-file" => "6",
315 "proclaim" => "6",
316 "prog" => "6",
317 "prog*" => "6",
318 "prog1" => "6",
319 "progn" => "6",
320 "progv" => "6",
321 "provide" => "6",
322 "psetf" => "6",
323 "psetq" => "6",
324 "push" => "6",
325 "quote" => "6",
326 "random" => "6",
327 "rationalp" => "6",
328 "read" => "6",
329 "read-char" => "6",
330 "read-preserving-whitespace" => "6",
331 "rem" => "6",
332 "remf" => "6",
333 "remove" => "6",
334 "remove-if" => "6",
335 "remove-if-not" => "6",
336 "remprop" => "6",
337 "rename-file" => "6",
338 "require" => "6",
339 "rest" => "6",
340 "return" => "6",
341 "return-from" => "6",
342 "reverse" => "6",
343 "round" => "6",
344 "rplace" => "6",
345 "rplacd" => "6",
346 "second" => "6",
347 "set" => "6",
348 "set-macro-character" => "6",
349 "setf" => "6",
350 "setq" => "6",
351 "seventh" => "6",
352 "shadow" => "6",
353 "sin" => "6",
354 "sixth" => "6",
355 "special" => "6",
356 "special-form-p" => "6",
357 "sqrt" => "6",
358 "step" => "6",
359 "string" => "6",
360 "string=" => "6",
361 "string/=" => "6",
362 "string>" => "6",
363 "string<" => "6",
364 "string>=" => "6",
365 "string<=" => "6",
366 "string-char" => "6",
367 "string-downcase" => "6",
368 "string-upcase" => "6",
369 "stringp" => "6",
370 "subseq" => "6",
371 "symbol-name" => "6",
372 "symbol-package" => "6",
373 "symbol-values" => "6",
374 "t" => "6",
375 "tagbody" => "6",
376 "tan" => "6",
377 "tenth" => "6",
378 "terpri" => "6",
379 "the" => "6",
380 "third" => "6",
381 "throw" => "6",
382 "time" => "6",
383 "trace" => "6",
384 "truncate" => "6",
385 "typep" => "6",
386 "unless" => "6",
387 "unread-char" => "6",
388 "untrace" => "6",
389 "unwind-protect" => "6",
390 "upper-case-p" => "6",
391 "use-package" => "6",
392 "values" => "6",
393 "values-list" => "6",
394 "variable" => "6",
395 "vector" => "6",
396 "vectorp" => "6",
397 "when" => "6",
398 "with-input-from-string" => "6",
399 "with-open-file" => "6",
400 "with-output-to-string" => "6",
401 "write" => "6",
402 "write-char" => "6",
403 "write-to-string" => "6",
404 "=" => "7",
405 "//" => "7",
406 "/=" => "7",
407 "/" => "7",
408 ">" => "7",
409 ">=" => "7",
410 "<" => "7",
411 "<=" => "7",
412 "+" => "7",
413 "-" => "7",
414 "*" => "7",
415 "1+" => "7",
416 "1-" => "7",
417 "evenp" => "7",
418 "minusp" => "7",
419 "oddp" => "7",
420 "plusp" => "7",
421 "zerop" => "7");
422
423
424
425
426
427
428
429
430$this->linkscripts = array(
431 "1" => "donothing",
432 "2" => "donothing",
433 "3" => "donothing",
434 "4" => "donothing",
435 "5" => "donothing",
436 "6" => "donothing",
437 "7" => "donothing");
438}