ILIAS  release_4-3 Revision
 All Data Structures Namespaces Files Functions Variables Groups Pages
HFile_lisp.php
Go to the documentation of this file.
1 <?php
2 
3 $BEAUT_PATH = realpath(".")."/Services/COPage/syntax_highlight/php";
4 if (!isset ($BEAUT_PATH)) return;
5 require_once("$BEAUT_PATH/Beautifier/HFile.php");
6  class HFile_lisp extends HFile{
7  function HFile_lisp(){
8  $this->HFile();
9 
10 /*************************************/
11 // Beautifier Highlighting Configuration File
12 // LISP
13 /*************************************/
14 // Flags
15 
16 $this->nocase = "0";
17 $this->notrim = "0";
18 $this->perl = "0";
19 
20 // Colours
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 // Indent Strings
28 
29 $this->indent = array();
30 $this->unindent = array();
31 
32 // String characters and delimiters
33 
34 $this->stringchars = array("\"");
35 $this->delimiters = array("~", "!", "@", "%", "^", "&", "(", ")", "|", "{", "}", "[", "]", ";", "\"", "'", " ", ",", " ", ".", "?");
36 $this->escchar = "";
37 
38 // Comment settings
39 
40 $this->linecommenton = array(";");
41 $this->blockcommenton = array("#|");
42 $this->blockcommentoff = array("|#");
43 
44 // Keywords (keyword mapping to colour number)
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 // Special extensions
424 
425 // Each category can specify a PHP function that returns an altered
426 // version of the keyword.
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 }
439 
440 
441 
442 function donothing($keywordin)
443 {
444  return $keywordin;
445 }
446 
447 }
448 
449 ?>