ILIAS  release_5-3 Revision v5.3.23-19-g915713cf615
HFile_clarion.php
Go to the documentation of this file.
1<?php
2$BEAUT_PATH = realpath(".") . "/Services/COPage/syntax_highlight/php";
3if (!isset($BEAUT_PATH)) {
4 return;
5}
6require_once("$BEAUT_PATH/Beautifier/HFile.php");
7 class HFile_clarion extends HFile
8 {
9 public function HFile_clarion()
10 {
11 $this->HFile();
12 /*************************************/
13 // Beautifier Highlighting Configuration File
14 // Clarion Plus
15 /*************************************/
16 // Flags
17
18 $this->nocase = "1";
19 $this->notrim = "0";
20 $this->perl = "0";
21
22 // Colours
23
24 $this->colours = array("blue", "purple", "gray", "brown", "blue", "purple", "gray", "brown");
25 $this->quotecolour = "blue";
26 $this->blockcommentcolour = "green";
27 $this->linecommentcolour = "green";
28
29 // Indent Strings
30
31 $this->indent = array("LOOP", "IF", "THEN", "OF", "ELSE");
32 $this->unindent = array("END", "UNTIL", "WHILE");
33
34 // String characters and delimiters
35
36 $this->stringchars = array("'");
37 $this->delimiters = array("~", "@", "%", "^", "*", "(", ")", "-", "+", "|", "\\", "/", "{", "}", "[", "]", ";", "\"", "'", ".", ",");
38 $this->escchar = "";
39
40 // Comment settings
41
42 $this->linecommenton = array("!");
43 $this->blockcommenton = array("OMIT");
44 $this->blockcommentoff = array("ENDOM");
45
46 // Keywords (keyword mapping to colour number)
47
48 $this->keywords = array(
49 "C" => "1",
50 "CODE" => "1",
51 "DATA" => "1",
52 "DLL" => "1",
53 "FUNCTION" => "1",
54 "MAP" => "1",
55 "MEMBER" => "1",
56 "MODULE" => "1",
57 "PASCAL" => "1",
58 "PROC" => "1",
59 "PROCEDURE" => "1",
60 "PROGRAM" => "1",
61 "RAW" => "1",
62 "ROUTINE" => "1",
63 "?" => "2",
64 "ASSERT" => "2",
65 "BEGIN" => "2",
66 "COMPILE" => "2",
67 "EJECT" => "2",
68 "EMBED" => "2",
69 "ENDEMBED" => "2",
70 "EQUATE" => "2",
71 "INCLUDE" => "2",
72 "ITEMIZE" => "2",
73 "OMIT" => "2",
74 "SECTION" => "2",
75 "SIZE" => "2",
76 "SUBTITLE" => "2",
77 "TITLE" => "2",
78 "_PROC" => "3",
79 "_PROC1" => "3",
80 "_PROC2" => "3",
81 "_PROC3" => "3",
82 "ANY" => "3",
83 "AUTO" => "3",
84 "BYTE" => "3",
85 "BFLOAT4" => "3",
86 "BFLOAT8" => "3",
87 "BINARY" => "3",
88 "BINDABLE" => "3",
89 "BLOB" => "3",
90 "BOOL" => "3",
91 "CLASS" => "3",
92 "CREATE" => "3",
93 "CSTRING" => "3",
94 "DATE" => "3",
95 "DECIMAL" => "3",
96 "DIM" => "3",
97 "DISPOSE" => "3",
98 "DRIVER" => "3",
99 "DUP" => "3",
100 "ENCRYPT" => "3",
101 "EXTERNAL" => "3",
102 "FILE" => "3",
103 "FILTER" => "3",
104 "FLOAT4" => "3",
105 "GROUP" => "3",
106 "INDEX" => "3",
107 "INNER" => "3",
108 "JOIN" => "3",
109 "KEY" => "3",
110 "LIKE" => "3",
111 "LONG" => "3",
112 "MEMO" => "3",
113 "NEW" => "3",
114 "NOCASE" => "3",
115 "OEM" => "3",
116 "OPT" => "3",
117 "ORDER" => "3",
118 "OVER" => "3",
119 "OWNER" => "3",
120 "PDECIMAL" => "3",
121 "PRE" => "3",
122 "PRIMARY" => "3",
123 "PRIVATE" => "3",
124 "PSTRING" => "3",
125 "PROJECT" => "3",
126 "PROTECTED" => "3",
127 "QUEUE" => "3",
128 "REAL" => "3",
129 "RECLAIM" => "3",
130 "RECORD" => "3",
131 "SHORT" => "3",
132 "SIGNED" => "3",
133 "SREAL" => "3",
134 "STATIC" => "3",
135 "STRING" => "3",
136 "TIME" => "3",
137 "THREAD" => "3",
138 "TYPE" => "3",
139 "USHORT" => "3",
140 "ULONG" => "3",
141 "UNSIGNED" => "3",
142 "VIEW" => "3",
143 "APPLICATION" => "4",
144 "ABSOLUTE" => "4",
145 "ABOVE" => "4",
146 "ALONE" => "4",
147 "ALRT" => "4",
148 "ANGLE" => "4",
149 "AT" => "4",
150 "AUTOSIZE" => "4",
151 "AVE" => "4",
152 "BELOW" => "4",
153 "BREAK" => "4",
154 "BOX" => "4",
155 "BUTTON" => "4",
156 "BEVEL" => "4",
157 "BOXED" => "4",
158 "CHECK" => "4",
159 "COMBO" => "4",
160 "CAP" => "4",
161 "CENTER" => "4",
162 "CENTERED" => "4",
163 "CLIP" => "4",
164 "CNT" => "4",
165 "COLOR" => "4",
166 "COLUMN" => "4",
167 "COMPATIBILITY" => "4",
168 "CURSOR" => "4",
169 "DETAIL" => "4",
170 "DEFAULT" => "4",
171 "DELAY" => "4",
172 "DISABLE" => "4",
173 "DOCK" => "4",
174 "DOCKED" => "4",
175 "DOCUMENT" => "4",
176 "DOUBLE" => "4",
177 "DRAGID" => "4",
178 "DROP" => "4",
179 "DROPID" => "4",
180 "DOWN" => "4",
181 "ELLIPSE" => "4",
182 "ENTRY" => "4",
183 "ENABLE" => "4",
184 "FOOTER" => "4",
185 "FORM" => "4",
186 "FILL" => "4",
187 "FIRST" => "4",
188 "FLAT" => "4",
189 "FONT" => "4",
190 "FORMAT" => "4",
191 "FROM" => "4",
192 "FULL" => "4",
193 "GRAY" => "4",
194 "GRID" => "4",
195 "HEADER" => "4",
196 "HIDE" => "4",
197 "HLP" => "4",
198 "HSCROLL" => "4",
199 "HVSCROLL" => "4",
200 "IMAGE" => "4",
201 "ITEM" => "4",
202 "ICON" => "4",
203 "ICONIZE" => "4",
204 "IMM" => "4",
205 "INS" => "4",
206 "LAST" => "4",
207 "LINE" => "4",
208 "LIST" => "4",
209 "LANDSCAPE" => "4",
210 "LEFT" => "4",
211 "LINEWIDTH" => "4",
212 "LINK" => "4",
213 "MENU" => "4",
214 "MENUBAR" => "4",
215 "MARK" => "4",
216 "MASK" => "4",
217 "MAX" => "4",
218 "MAXIMIZE" => "4",
219 "MDI" => "4",
220 "META" => "4",
221 "MIN" => "4",
222 "MODAL" => "4",
223 "MSG" => "4",
224 "MM" => "4",
225 "NOBAR" => "4",
226 "NOFRAME" => "4",
227 "NOMERGE" => "4",
228 "NOSHEET" => "4",
229 "OLE" => "4",
230 "OPTION" => "4",
231 "OVR" => "4",
232 "OPEN" => "4",
233 "PAGE" => "4",
234 "PANEL" => "4",
235 "PROMPT" => "4",
236 "PROGRESS" => "4",
237 "PAGEAFTER" => "4",
238 "PAGEBEFORE" => "4",
239 "PAGENO" => "4",
240 "PALETTE" => "4",
241 "PAPER" => "4",
242 "PASSWORD" => "4",
243 "PREVIEW" => "4",
244 "POINTS" => "4",
245 "RADIO" => "4",
246 "REGION" => "4",
247 "REPORT" => "4",
248 "RIGHT" => "4",
249 "RANGE" => "4",
250 "READONLY" => "4",
251 "REPEAT" => "4",
252 "REQ" => "4",
253 "RESIZE" => "4",
254 "ROUND" => "4",
255 "SHEET" => "4",
256 "SPIN" => "4",
257 "SCROLL" => "4",
258 "SEPARATOR" => "4",
259 "SINGLE" => "4",
260 "SPREAD" => "4",
261 "STATUS" => "4",
262 "STD" => "4",
263 "STEP" => "4",
264 "STRETCH" => "4",
265 "SUM" => "4",
266 "SYSTEM" => "4",
267 "TAB" => "4",
268 "TEXT" => "4",
269 "TOOLBAR" => "4",
270 "TALLY" => "4",
271 "TARGET" => "4",
272 "THOUS" => "4",
273 "TILED" => "4",
274 "TIMER" => "4",
275 "TIP" => "4",
276 "TOOLBOX" => "4",
277 "TRN" => "4",
278 "UP" => "4",
279 "UPR" => "4",
280 "USE" => "4",
281 "VBX" => "4",
282 "VALUE" => "4",
283 "VCR" => "4",
284 "VSCROLL" => "4",
285 "WALLPAPER" => "4",
286 "WITHNEXT" => "4",
287 "WITHPRIOR" => "4",
288 "WIZARD" => "4",
289 "WRAP" => "4",
290 "WINDOW" => "4",
291 "ZOOM" => "4",
292 "+" => "5",
293 "+=" => "5",
294 "-" => "5",
295 "-=" => "5",
296 "=" => "5",
297 "//" => "5",
298 "/" => "5",
299 "/=" => "5",
300 "*" => "5",
301 "*=" => "5",
302 "%" => "5",
303 "&" => "5",
304 "&=" => "5",
305 ">" => "5",
306 ">=" => "5",
307 "<" => "5",
308 "<=" => "5",
309 "~" => "5",
310 ":=:" => "5",
311 "ACCEPT" => "5",
312 "BIND" => "5",
313 "BY" => "5",
314 "CASE" => "5",
315 "CYCLE" => "5",
316 "CLEAR" => "5",
317 "DO" => "5",
318 "ELSE" => "5",
319 "ELSIF" => "5",
320 "END" => "5",
321 "EXECUTE" => "5",
322 "EXIT" => "5",
323 "EVALUATE" => "5",
324 "GOTO" => "5",
325 "IF" => "5",
326 "LOOP" => "5",
327 "MATCH" => "5",
328 "OF" => "5",
329 "OR" => "5",
330 "OROF" => "5",
331 "POPBIND" => "5",
332 "RETURN" => "5",
333 "THEN" => "5",
334 "TIMES" => "5",
335 "TO" => "5",
336 "UNTIL" => "5",
337 "UNBIND" => "5",
338 "WHILE" => "5",
339 "ABS" => "6",
340 "ACCEPTED" => "6",
341 "ACOS" => "6",
342 "ADD" => "6",
343 "ADDRESS" => "6",
344 "AGE" => "6",
345 "ALERT" => "6",
346 "ALIAS" => "6",
347 "ALL" => "6",
348 "APPEND" => "6",
349 "ARC" => "6",
350 "ASIN" => "6",
351 "ASK" => "6",
352 "ATAN" => "6",
353 "BAND" => "6",
354 "BEEP" => "7",
355 "BLANK" => "6",
356 "BOF" => "6",
357 "BOR" => "6",
358 "BSHIFT" => "6",
359 "BUILD" => "6",
360 "BUFFER" => "6",
361 "BXOR" => "6",
362 "BYTES" => "6",
363 "CALL" => "6",
364 "CHAIN" => "6",
365 "CHANGE" => "6",
366 "CHANGES" => "6",
367 "CHOICE" => "6",
368 "CHOOSE" => "6",
369 "CHORD" => "6",
370 "CHR" => "6",
371 "CLIPBOARD" => "6",
372 "CLOCK" => "6",
373 "CLOSE" => "6",
374 "COL" => "6",
375 "COLORDIALOG" => "6",
376 "COMMAND" => "6",
377 "COMMIT" => "6",
378 "CONTENTS" => "6",
379 "CONVERTANSITOOEM" => "6",
380 "CONVERTOEMTOANSI" => "6",
381 "COPY" => "6",
382 "COS" => "6",
383 "DAY" => "6",
384 "DEFORMAT" => "6",
385 "DELETE" => "6",
386 "DESTROY" => "6",
387 "DIRECTORY" => "6",
388 "DISPLAY" => "6",
389 "DRAGIT" => "6",
390 "DROPIT" => "6",
391 "DUPLICATE" => "6",
392 "EMPTY" => "6",
393 "ENDPAGE" => "6",
394 "EOF" => "6",
395 "ERASE" => "6",
396 "ERROR" => "6",
397 "ERRORCODE" => "6",
398 "ERRORFILE" => "6",
399 "EVENT" => "6",
400 "EXISTS" => "6",
401 "FIELD" => "6",
402 "FILEDIALOG" => "6",
403 "FILEERROR" => "6",
404 "FILEERRORCODE" => "6",
405 "FIRSTFIELD" => "6",
406 "FLUSH" => "6",
407 "FOCUS" => "6",
408 "FONTDIALOG" => "6",
409 "FREE" => "6",
410 "GET" => "6",
411 "GETFONT" => "6",
412 "GETINI" => "6",
413 "GETPOSITION" => "6",
414 "HALT" => "6",
415 "HELP" => "6",
416 "HOLD" => "6",
417 "IDLE" => "6",
418 "INCOMPLETE" => "6",
419 "INLIST" => "6",
420 "INRANGE" => "6",
421 "INSTRING" => "6",
422 "INT" => "6",
423 "ISALPHA" => "6",
424 "ISLOWER" => "6",
425 "ISSTRING" => "6",
426 "ISUPPER" => "6",
427 "KEYBOARD" => "6",
428 "KEYCHAR" => "6",
429 "KEYCODE" => "6",
430 "KEYSTATE" => "6",
431 "LASTFIELD" => "6",
432 "LEN" => "6",
433 "LOCALE" => "6",
434 "LOCK" => "6",
435 "LOCKTHREAD" => "6",
436 "LOG10" => "6",
437 "LOGE" => "6",
438 "LOGOUT" => "6",
439 "LONGPATH" => "6",
440 "LOWER" => "6",
441 "MAXIMUM" => "6",
442 "MESSAGE" => "6",
443 "MONTH" => "6",
444 "MOUSEX" => "6",
445 "MOUSEY" => "6",
446 "NAME" => "6",
447 "NEXT" => "6",
448 "NOMEMO" => "6",
449 "NULL" => "6",
450 "NUMERIC" => "6",
451 "OMITTED" => "6",
452 "OUT" => "6",
453 "PACK" => "6",
454 "PATH" => "6",
455 "PEEK" => "6",
456 "PENCOLOR" => "6",
457 "PENSTYLE" => "6",
458 "PENWIDTH" => "6",
459 "PIE" => "6",
460 "POINTER" => "6",
461 "POKE" => "6",
462 "POLYGON" => "6",
463 "POPUP" => "6",
464 "POST" => "6",
465 "PRESS" => "6",
466 "PRESSKEY" => "6",
467 "PREVIOUS" => "6",
468 "PRINT" => "6",
469 "PRINTERDIALOG" => "6",
470 "PUT" => "6",
471 "PUTINI" => "6",
472 "RANDOM" => "6",
473 "RECORDS" => "6",
474 "REGISTER" => "6",
475 "REGISTEREVENT" => "6",
476 "REGET" => "6",
477 "REJECTCODE" => "6",
478 "RELEASE" => "6",
479 "REMOVE" => "6",
480 "RENAME" => "6",
481 "RESET" => "6",
482 "ROLLBACK" => "6",
483 "ROUNDBOX" => "6",
484 "RUN" => "6",
485 "RUNCODE" => "6",
486 "SELECT" => "6",
487 "SELECTED" => "6",
488 "SEND" => "6",
489 "SET3DLOOK" => "6",
490 "SET" => "6",
491 "SETCLOCK" => "6",
492 "SETCURSOR" => "6",
493 "SETCOMMAND" => "6",
494 "SETCLIPBOARD" => "6",
495 "SETDROPID" => "6",
496 "SETFONT" => "6",
497 "SETKEYCHAR" => "6",
498 "SETKEYCODE" => "6",
499 "SETNONULL" => "6",
500 "SETNULL" => "6",
501 "SETPATH" => "6",
502 "SETPENCOLOR" => "6",
503 "SETPENSTYLE" => "6",
504 "SETPENWIDTH" => "6",
505 "SETPOSITION" => "6",
506 "SETPROPERTY" => "6",
507 "SETTARGET" => "6",
508 "SETTODAY" => "6",
509 "SHORTNAME" => "6",
510 "SHORTPATH" => "6",
511 "SHOW" => "6",
512 "SHUTDOWN" => "6",
513 "SIN" => "6",
514 "SKIP" => "6",
515 "SORT" => "6",
516 "SQRT" => "6",
517 "START" => "6",
518 "STOP" => "6",
519 "STREAM" => "6",
520 "TAN" => "6",
521 "THREADLOCKED" => "6",
522 "TODAY" => "6",
523 "UNHIDE" => "6",
524 "UNLOAD" => "6",
525 "UNLOCK" => "6",
526 "UNLOCKTHREAD" => "6",
527 "UNREGISTER" => "6",
528 "UNREGISTEREVENT" => "6",
529 "UPDATE" => "6",
530 "UPPER" => "6",
531 "VAL" => "6",
532 "WATCH" => "6",
533 "WHAT" => "6",
534 "WHERE" => "6",
535 "WHO" => "6",
536 "YEAR" => "6",
537 "YIELD" => "6",
538 "DDEACKNOWLEDGE" => "7",
539 "DDEAPP" => "7",
540 "DDECHANNEL" => "7",
541 "DDECLIENT" => "7",
542 "DDECLOSE" => "7",
543 "DDEEXECUTE" => "7",
544 "DDEITEM" => "7",
545 "DDEPOKE" => "7",
546 "DDEQUERRY" => "7",
547 "DDEREAD" => "7",
548 "DDESERVER" => "7",
549 "DDETOPIC" => "7",
550 "DDEVALUE" => "7",
551 "DDEWRITE" => "7",
552 "OLEDIRECTORY" => "7",
553 "OCXGETPARAM" => "7",
554 "OCXGETPARAMCOUNT" => "7",
555 "OCXLOADIMAGE" => "7",
556 "OCXREGISTEREVENTPROC" => "7",
557 "OCXREGISTERPROPCHANGE" => "7",
558 "OCXREGISTERPROPEDIT" => "7",
559 "OCXSETPARAM" => "7",
560 "OCXSETPARAMOCXEVENT" => "7",
561 "OCXUNREGISTERPROPCHANGE" => "7",
562 "OCXUNREGISTERPROPEDIT" => "7",
563 "OCXUNREGISTEREVENTPROC" => "7",
564 "FALSE" => "8",
565 "PARENT" => "8",
566 "SELF" => "8",
567 "TRUE" => "8",
568 "VIRTUAL" => "8",
569 "**" => "8",
570 "&A" => "8",
571 "&B" => "8",
572 "&C" => "8",
573 "&D" => "8",
574 "&E" => "8",
575 "&F" => "8",
576 "&G" => "8",
577 "&H" => "8",
578 "&I" => "8",
579 "&J" => "8",
580 "&K" => "8",
581 "&L" => "8",
582 "&M" => "8",
583 "&N" => "8",
584 "&O" => "8",
585 "&P" => "8",
586 "&Q" => "8",
587 "&R" => "8",
588 "&S" => "8",
589 "&T" => "8",
590 "&U" => "8",
591 "&V" => "8",
592 "&W" => "8",
593 "&X" => "8",
594 "&Y" => "8",
595 "&Z" => "8",
596 "BEEP:" => "8",
597 "BUTTON:" => "8",
598 "COLOR:" => "8",
599 "CREATE:" => "8",
600 "CURSOR:" => "8",
601 "DDE:" => "8",
602 "EVENT:" => "8",
603 "ff_:" => "8",
604 "FILE:" => "8",
605 "FONT:" => "8",
606 "ICON:" => "8",
607 "LISTZONE:" => "8",
608 "PEN:" => "8",
609 "PROP:" => "8",
610 "PROPLIST:" => "8",
611 "PROPPRINT:" => "8",
612 "REJECT:" => "8",
613 "STD:" => "8",
614 "VBXEVENT:" => "8");
615
616 // Special extensions
617
618 // Each category can specify a PHP function that returns an altered
619 // version of the keyword.
620
621
622
623 $this->linkscripts = array(
624 "1" => "donothing",
625 "2" => "donothing",
626 "3" => "donothing",
627 "4" => "donothing",
628 "5" => "donothing",
629 "6" => "donothing",
630 "7" => "donothing",
631 "8" => "donothing");
632 }
633
634
635 public function donothing($keywordin)
636 {
637 return $keywordin;
638 }
639 }
$BEAUT_PATH
An exception for terminatinating execution or to throw for unit testing.
donothing($keywordin)