ILIAS  release_5-1 Revision 5.0.0-5477-g43f3e3fab5f
HFile_autolisp.php
Go to the documentation of this file.
1<?php
2$BEAUT_PATH = realpath(".")."/Services/COPage/syntax_highlight/php";
3if (!isset ($BEAUT_PATH)) return;
4require_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
293function donothing($keywordin)
294{
295 return $keywordin;
296}
297
298}?>
$BEAUT_PATH
donothing($keywordin)