ILIAS  Release_4_0_x_branch Revision 61816
 All Data Structures Namespaces Files Functions Variables Groups Pages
HFile_autolisp.php
Go to the documentation of this file.
1 <?php
2 $BEAUT_PATH = realpath(".")."/Services/COPage/syntax_highlight/php";
3 if (!isset ($BEAUT_PATH)) return;
4 require_once("$BEAUT_PATH/Beautifier/HFile.php");
5  class HFile_autolisp extends HFile{
6  function HFile_autolisp(){
7  $this->HFile();
8 /*************************************/
9 // Beautifier Highlighting Configuration File
10 // AutoLISP
11 /*************************************/
12 // Flags
13 
14 $this->nocase = "0";
15 $this->notrim = "0";
16 $this->perl = "0";
17 
18 // Colours
19 
20 $this->colours = array("blue", "purple", "gray", "brown", "blue", "purple");
21 $this->quotecolour = "blue";
22 $this->blockcommentcolour = "green";
23 $this->linecommentcolour = "green";
24 
25 // Indent Strings
26 
27 $this->indent = array("(");
28 $this->unindent = array(")");
29 
30 // String characters and delimiters
31 
32 $this->stringchars = array();
33 $this->delimiters = array("(", ")", "\"");
34 $this->escchar = "";
35 
36 // Comment settings
37 
38 $this->linecommenton = array(";");
39 $this->blockcommenton = array("");
40 $this->blockcommentoff = array("");
41 
42 // Keywords (keyword mapping to colour number)
43 
44 $this->keywords = array(
45  "cond" => "1",
46  "foreach" => "1",
47  "if" => "1",
48  "progn" => "1",
49  "repeat" => "1",
50  "while" => "1",
51  "*error*" => "2",
52  "alert" => "2",
53  "exit" => "2",
54  "nil" => "2",
55  "NIL" => "2",
56  "pi" => "2",
57  "quit" => "2",
58  "setq" => "2",
59  "setvar" => "2",
60  "t" => "2",
61  "T" => "2",
62  "*" => "3",
63  "+" => "3",
64  "-" => "3",
65  "//" => "3",
66  "/" => "3",
67  "/=" => "3",
68  "1+" => "3",
69  "1-" => "3",
70  "<" => "3",
71  "<=" => "3",
72  "=" => "3",
73  ">" => "3",
74  ">=" => "3",
75  "abs" => "3",
76  "and" => "3",
77  "angle" => "3",
78  "angtof" => "3",
79  "angtos" => "3",
80  "atan" => "3",
81  "atof" => "3",
82  "atoi" => "3",
83  "boundp" => "3",
84  "cos" => "3",
85  "distance" => "3",
86  "eq" => "3",
87  "equal" => "3",
88  "exp" => "3",
89  "expt" => "3",
90  "fix" => "3",
91  "float" => "3",
92  "log" => "3",
93  "logand" => "3",
94  "logior" => "3",
95  "lsh" => "3",
96  "max" => "3",
97  "min" => "3",
98  "minusp" => "3",
99  "not" => "3",
100  "null" => "3",
101  "or" => "3",
102  "sqrt" => "3",
103  "zerop" => "3",
104  "~" => "3",
105  "append" => "4",
106  "caddr" => "4",
107  "cadr" => "4",
108  "cal" => "4",
109  "car" => "4",
110  "cdddr" => "4",
111  "cdr" => "4",
112  "cons" => "4",
113  "length" => "4",
114  "list" => "4",
115  "listp" => "4",
116  "member" => "4",
117  "nth" => "4",
118  "reverse" => "4",
119  "subst" => "4",
120  "acad_colordlg" => "5",
121  "acad_helpdlg" => "5",
122  "acad_strlsort" => "5",
123  "action_tile" => "5",
124  "add_list" => "5",
125  "ads" => "5",
126  "alloc" => "5",
127  "apply" => "5",
128  "arx" => "5",
129  "arxload" => "5",
130  "ascii" => "5",
131  "atom" => "5",
132  "atoms-family" => "5",
133  "autoarxload" => "5",
134  "autoload" => "5",
135  "autoxload" => "5",
136  "boole" => "5",
137  "client_data_tile" => "5",
138  "close" => "5",
139  "command" => "5",
140  "cvunit" => "5",
141  "dictadd" => "5",
142  "dictnext" => "5",
143  "dictremove" => "5",
144  "dictrename" => "5",
145  "dictsearch" => "5",
146  "dimxtile" => "5",
147  "dimytile" => "5",
148  "done_dialog" => "5",
149  "end_image" => "5",
150  "end_list" => "5",
151  "eval" => "5",
152  "expand" => "5",
153  "fill_image" => "5",
154  "findfile" => "5",
155  "gc" => "5",
156  "gcd" => "5",
157  "get_attr" => "5",
158  "get_tile" => "5",
159  "getangle" => "5",
160  "getcfg" => "5",
161  "getcorner" => "5",
162  "getdist" => "5",
163  "getenv" => "5",
164  "getfiled" => "5",
165  "getint" => "5",
166  "getkword" => "5",
167  "getorient" => "5",
168  "getpoint" => "5",
169  "getreal" => "5",
170  "getstring" => "5",
171  "getvar" => "5",
172  "graphscr" => "5",
173  "grclear" => "5",
174  "grdraw" => "5",
175  "grread" => "5",
176  "grtext" => "5",
177  "grvecs" => "5",
178  "handent" => "5",
179  "help" => "5",
180  "initget" => "5",
181  "inters" => "5",
182  "lambda" => "5",
183  "last" => "5",
184  "load" => "5",
185  "load_dialog" => "5",
186  "mapcar" => "5",
187  "mem" => "5",
188  "menucmd" => "5",
189  "menugroup" => "5",
190  "mode_tile" => "5",
191  "namedobjdict" => "5",
192  "new_dialog" => "5",
193  "numberp" => "5",
194  "open" => "5",
195  "osnap" => "5",
196  "pause" => "5",
197  "polar" => "5",
198  "prin1" => "5",
199  "princ" => "5",
200  "print" => "5",
201  "prompt" => "5",
202  "quote" => "5",
203  "read" => "5",
204  "read-char" => "5",
205  "read-line" => "5",
206  "redraw" => "5",
207  "regapp" => "5",
208  "rem" => "5",
209  "rtos" => "5",
210  "set" => "5",
211  "set_tile" => "5",
212  "setcfg" => "5",
213  "setfunhelp" => "5",
214  "setview" => "5",
215  "sin" => "5",
216  "slide_image" => "5",
217  "snvalid" => "5",
218  "start_app" => "5",
219  "start_dialog" => "5",
220  "start_image" => "5",
221  "start_list" => "5",
222  "tablet" => "5",
223  "term_dialog" => "5",
224  "terpri" => "5",
225  "textbox" => "5",
226  "textpage" => "5",
227  "textscr" => "5",
228  "trace" => "5",
229  "trans" => "5",
230  "type" => "5",
231  "unload_dialog" => "5",
232  "untrace" => "5",
233  "vector_image" => "5",
234  "ver" => "5",
235  "vmon" => "5",
236  "vports" => "5",
237  "wcmatch" => "5",
238  "write-char" => "5",
239  "write-line" => "5",
240  "xdroom" => "5",
241  "xdsize" => "5",
242  "xload" => "5",
243  "xunload" => "5",
244  "assoc" => "6",
245  "chr" => "6",
246  "distof" => "6",
247  "entdel" => "6",
248  "entget" => "6",
249  "entlast" => "6",
250  "entmake" => "6",
251  "entmakex" => "6",
252  "entmod" => "6",
253  "entnext" => "6",
254  "entsel" => "6",
255  "entupd" => "6",
256  "itoa" => "6",
257  "nentsel" => "6",
258  "nentselp" => "6",
259  "ssadd" => "6",
260  "ssdel" => "6",
261  "ssget" => "6",
262  "ssgetfirst" => "6",
263  "sslength" => "6",
264  "ssmemb" => "6",
265  "ssname" => "6",
266  "ssnamex" => "6",
267  "sssetfirst" => "6",
268  "strcase" => "6",
269  "strcat" => "6",
270  "strlen" => "6",
271  "substr" => "6",
272  "tblnext" => "6",
273  "tblobjname" => "6",
274  "tblsearch" => "6");
275 
276 // Special extensions
277 
278 // Each category can specify a PHP function that returns an altered
279 // version of the keyword.
280 
281 
282 
283 $this->linkscripts = array(
284  "1" => "donothing",
285  "2" => "donothing",
286  "3" => "donothing",
287  "4" => "donothing",
288  "5" => "donothing",
289  "6" => "donothing");
290 }
291 
292 
293 function donothing($keywordin)
294 {
295  return $keywordin;
296 }
297 
298 }?>