ILIAS  Release_4_0_x_branch Revision 61816
 All Data Structures Namespaces Files Functions Variables Groups Pages
HFile_cobol.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_cobol extends HFile{
6  function HFile_cobol(){
7  $this->HFile();
8 /*************************************/
9 // Beautifier Highlighting Configuration File
10 // Cobol
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");
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  "accept" => "1",
46  "access" => "1",
47  "acquire" => "1",
48  "actual" => "1",
49  "add" => "1",
50  "address" => "1",
51  "advancing" => "1",
52  "after" => "1",
53  "all" => "1",
54  "allowing" => "1",
55  "alphabet" => "1",
56  "alphabetic" => "1",
57  "alphabetic-lower" => "1",
58  "alphabetic-upper" => "1",
59  "alphanumeric" => "1",
60  "alphanumeric-edited" => "1",
61  "also" => "1",
62  "alter" => "1",
63  "alternate" => "1",
64  "and" => "1",
65  "any" => "1",
66  "apply" => "1",
67  "are" => "1",
68  "area" => "1",
69  "areas" => "1",
70  "as" => "1",
71  "ascending" => "1",
72  "assign" => "1",
73  "at" => "1",
74  "attribute" => "1",
75  "author" => "1",
76  "auto" => "1",
77  "auto-hyphen-skip" => "1",
78  "auto-skip" => "1",
79  "automatic" => "1",
80  "autoterminate" => "1",
81  "background-color" => "1",
82  "background-colour" => "1",
83  "backward" => "1",
84  "basis" => "1",
85  "beep" => "1",
86  "before" => "1",
87  "beginning" => "1",
88  "bell" => "1",
89  "binary" => "1",
90  "blank" => "1",
91  "blink" => "1",
92  "blinking" => "1",
93  "block" => "1",
94  "bold" => "1",
95  "bottom" => "1",
96  "box" => "1",
97  "boxed" => "1",
98  "by" => "1",
99  "c01" => "1",
100  "c02" => "1",
101  "c04" => "1",
102  "c05" => "1",
103  "c06" => "1",
104  "c07" => "1",
105  "c08" => "1",
106  "c09" => "1",
107  "c10" => "1",
108  "c11" => "1",
109  "c12" => "1",
110  "cancel" => "1",
111  "cbl" => "1",
112  "cd" => "1",
113  "centered" => "1",
114  "cf" => "1",
115  "ch" => "1",
116  "chain" => "1",
117  "chaining" => "1",
118  "changed" => "1",
119  "character" => "1",
120  "characters" => "1",
121  "chart" => "1",
122  "class" => "1",
123  "clock-units" => "1",
124  "close" => "1",
125  "cobol" => "1",
126  "code" => "1",
127  "code-set" => "1",
128  "col" => "1",
129  "collating" => "1",
130  "color" => "1",
131  "colour" => "1",
132  "column" => "1",
133  "com-reg" => "1",
134  "comma" => "1",
135  "command-line" => "1",
136  "commit" => "1",
137  "commitment" => "1",
138  "common" => "1",
139  "communication" => "1",
140  "comp" => "1",
141  "comp-0" => "1",
142  "comp-1" => "1",
143  "comp-2" => "1",
144  "comp-3" => "1",
145  "comp-4" => "1",
146  "comp-5" => "1",
147  "comp-6" => "1",
148  "comp-x" => "1",
149  "compression" => "1",
150  "computational" => "1",
151  "computational-1" => "1",
152  "computational-2" => "1",
153  "computational-3" => "1",
154  "computational-4" => "1",
155  "computational-5" => "1",
156  "computational-6" => "1",
157  "computational-x" => "1",
158  "compute" => "1",
159  "configuration" => "1",
160  "console" => "1",
161  "contains" => "1",
162  "content" => "1",
163  "continue" => "1",
164  "control" => "1",
165  "control-area" => "1",
166  "controls" => "1",
167  "conversion" => "1",
168  "convert" => "1",
169  "converting" => "1",
170  "core-index" => "1",
171  "corr" => "1",
172  "corresponding" => "1",
173  "count" => "1",
174  "crt" => "1",
175  "crt-under" => "1",
176  "csp" => "1",
177  "currency" => "1",
178  "current-date" => "1",
179  "cursor" => "1",
180  "cycle" => "1",
181  "cyl-index" => "1",
182  "cyl-overflow" => "1",
183  "data" => "1",
184  "date" => "1",
185  "date-compiled" => "1",
186  "date-written" => "1",
187  "day" => "1",
188  "day-of-week" => "1",
189  "dbcs" => "1",
190  "de" => "1",
191  "debug" => "1",
192  "debug-contents" => "1",
193  "debug-item" => "1",
194  "debug-line" => "1",
195  "debug-name" => "1",
196  "debug-sub-1" => "1",
197  "debug-sub-2" => "1",
198  "debug-sub-3" => "1",
199  "debugging" => "1",
200  "decimal-point" => "1",
201  "declaratives" => "1",
202  "default" => "1",
203  "delete" => "1",
204  "delimited" => "1",
205  "delimiter" => "1",
206  "depending" => "1",
207  "descending" => "1",
208  "destination" => "1",
209  "detail" => "1",
210  "disable" => "1",
211  "disk" => "1",
212  "disp" => "1",
213  "display" => "1",
214  "display-1" => "1",
215  "display-st" => "1",
216  "divide" => "1",
217  "division" => "1",
218  "down" => "1",
219  "draw" => "1",
220  "drop" => "1",
221  "duplicates" => "1",
222  "dynamic" => "1",
223  "echo" => "1",
224  "egcs" => "1",
225  "egi" => "1",
226  "eject" => "1",
227  "emi" => "1",
228  "empty-check" => "1",
229  "enable" => "1",
230  "encryption" => "1",
231  "end" => "1",
232  "end-accept" => "1",
233  "end-add" => "1",
234  "end-call" => "1",
235  "end-chain" => "1",
236  "end-compute" => "1",
237  "end-delete" => "1",
238  "end-display" => "1",
239  "end-divide" => "1",
240  "end-invoke" => "1",
241  "end-multiply" => "1",
242  "end-of-page" => "1",
243  "end-perform" => "1",
244  "end-read" => "1",
245  "end-receive" => "1",
246  "end-return" => "1",
247  "end-rewrite" => "1",
248  "end-search" => "1",
249  "end-start" => "1",
250  "end-string" => "1",
251  "end-subtract" => "1",
252  "end-unstring" => "1",
253  "end-write" => "1",
254  "ending" => "1",
255  "enter" => "1",
256  "entry" => "1",
257  "environment" => "1",
258  "environment-division" => "1",
259  "eol" => "1",
260  "eop" => "1",
261  "eos" => "1",
262  "equal" => "1",
263  "equals" => "1",
264  "erase" => "1",
265  "error" => "1",
266  "escape" => "1",
267  "esi" => "1",
268  "every" => "1",
269  "examine" => "1",
270  "exceeds" => "1",
271  "exception" => "1",
272  "excess-3" => "1",
273  "exclusive" => "1",
274  "exec" => "1",
275  "execute" => "1",
276  "exhibit" => "1",
277  "extend" => "1",
278  "extended-search" => "1",
279  "external" => "1",
280  "externally-described-key" => "1",
281  "factory" => "1",
282  "false" => "1",
283  "fd" => "1",
284  "fh--fcd" => "1",
285  "fh--keydef" => "1",
286  "file" => "1",
287  "file-control" => "1",
288  "file-id" => "1",
289  "file-limit" => "1",
290  "file-limits" => "1",
291  "file-prefix" => "1",
292  "filler" => "1",
293  "final" => "1",
294  "first" => "1",
295  "fixed" => "1",
296  "footing" => "1",
297  "for" => "1",
298  "foreground-color" => "1",
299  "foreground-colour" => "1",
300  "format" => "1",
301  "from" => "1",
302  "full" => "1",
303  "function" => "1",
304  "generate" => "1",
305  "giving" => "1",
306  "global" => "1",
307  "go" => "1",
308  "goback" => "1",
309  "greater" => "1",
310  "grid" => "1",
311  "group" => "1",
312  "heading" => "1",
313  "high" => "1",
314  "high-value" => "1",
315  "high-values" => "1",
316  "highlight" => "1",
317  "i-o" => "1",
318  "i-o-control" => "1",
319  "id" => "1",
320  "identification" => "1",
321  "ignore" => "1",
322  "in" => "1",
323  "index" => "1",
324  "indexed" => "1",
325  "indic" => "1",
326  "indicate" => "1",
327  "indicator" => "1",
328  "indicators" => "1",
329  "inheriting" => "1",
330  "initial" => "1",
331  "initialize" => "1",
332  "initiate" => "1",
333  "input" => "1",
334  "input-output" => "1",
335  "insert" => "1",
336  "inspect" => "1",
337  "installation" => "1",
338  "into" => "1",
339  "invalid" => "1",
340  "invoke" => "1",
341  "invoked" => "1",
342  "is" => "1",
343  "japanese" => "1",
344  "just" => "1",
345  "justified" => "1",
346  "kanji" => "1",
347  "kept" => "1",
348  "key" => "1",
349  "keyboard" => "1",
350  "label" => "1",
351  "last" => "1",
352  "leading" => "1",
353  "leave" => "1",
354  "left" => "1",
355  "lrft-justify" => "1",
356  "leftline" => "1",
357  "length" => "1",
358  "length-check" => "1",
359  "less" => "1",
360  "limit" => "1",
361  "limits" => "1",
362  "lin" => "1",
363  "linage" => "1",
364  "linage-counter" => "1",
365  "line" => "1",
366  "line-counter" => "1",
367  "lines" => "1",
368  "linkage" => "1",
369  "local-storage" => "1",
370  "lock" => "1",
371  "lock-holding" => "1",
372  "locking" => "1",
373  "low" => "1",
374  "low-value" => "1",
375  "low-values" => "1",
376  "lower" => "1",
377  "lowlight" => "1",
378  "manual" => "1",
379  "mass-update" => "1",
380  "master-index" => "1",
381  "memory" => "1",
382  "merge" => "1",
383  "message" => "1",
384  "method" => "1",
385  "mode" => "1",
386  "modified" => "1",
387  "modules" => "1",
388  "more-labels" => "1",
389  "move" => "1",
390  "multiple" => "1",
391  "multiply" => "1",
392  "name" => "1",
393  "named" => "1",
394  "national" => "1",
395  "national-edited" => "1",
396  "native" => "1",
397  "nchar" => "1",
398  "negative" => "1",
399  "next" => "1",
400  "no" => "1",
401  "no-echo" => "1",
402  "nominal" => "1",
403  "not" => "1",
404  "note" => "1",
405  "nstd-reels" => "1",
406  "null" => "1",
407  "nulls" => "1",
408  "number" => "1",
409  "numeric" => "1",
410  "numeric-edited" => "1",
411  "numeric-fill" => "1",
412  "o-fill" => "1",
413  "object" => "1",
414  "object-computer" => "1",
415  "object-storage" => "1",
416  "occurs" => "1",
417  "of" => "1",
418  "off" => "1",
419  "omitted" => "1",
420  "on" => "1",
421  "oostackptr" => "1",
422  "open" => "1",
423  "optional" => "1",
424  "or" => "1",
425  "order" => "1",
426  "organization" => "1",
427  "other" => "1",
428  "others" => "1",
429  "otherwise" => "1",
430  "output" => "1",
431  "overflow" => "1",
432  "overline" => "1",
433  "packed-decimal" => "1",
434  "padding" => "1",
435  "page" => "1",
436  "page-counter" => "1",
437  "paragraph" => "1",
438  "password" => "1",
439  "pf" => "1",
440  "ph" => "1",
441  "pic" => "1",
442  "picture" => "1",
443  "plus" => "1",
444  "pointer" => "1",
445  "pop-up" => "1",
446  "pos" => "1",
447  "position" => "1",
448  "positioning" => "1",
449  "positive" => "1",
450  "previous" => "1",
451  "print" => "1",
452  "print-control" => "1",
453  "print-switch" => "1",
454  "printer" => "1",
455  "printer-1" => "1",
456  "printing" => "1",
457  "prior" => "1",
458  "private" => "1",
459  "procedure" => "1",
460  "procedure-pointer" => "1",
461  "procedures" => "1",
462  "proceed" => "1",
463  "process" => "1",
464  "processing" => "1",
465  "program" => "1",
466  "program-id" => "1",
467  "prompt" => "1",
468  "protected" => "1",
469  "public" => "1",
470  "purge" => "1",
471  "queue" => "1",
472  "quote" => "1",
473  "quotes" => "1",
474  "random" => "1",
475  "range" => "1",
476  "rd" => "1",
477  "read" => "1",
478  "readers" => "1",
479  "ready" => "1",
480  "receive" => "1",
481  "record" => "1",
482  "record-overflow" => "1",
483  "recording" => "1",
484  "records" => "1",
485  "redefines" => "1",
486  "reel" => "1",
487  "reference" => "1",
488  "references" => "1",
489  "relative" => "1",
490  "release" => "1",
491  "reload" => "1",
492  "remainder" => "1",
493  "remarks" => "1",
494  "removal" => "1",
495  "renames" => "1",
496  "reorg-criteria" => "1",
497  "repeated" => "1",
498  "replace" => "1",
499  "replacing" => "1",
500  "report" => "1",
501  "reporting" => "1",
502  "reports" => "1",
503  "required" => "1",
504  "reread" => "1",
505  "rerun" => "1",
506  "reserve" => "1",
507  "reset" => "1",
508  "resident" => "1",
509  "return" => "1",
510  "return-code" => "1",
511  "returning" => "1",
512  "reverse" => "1",
513  "reverse-video" => "1",
514  "reversed" => "1",
515  "rewind" => "1",
516  "rewrite" => "1",
517  "rf" => "1",
518  "rh" => "1",
519  "right" => "1",
520  "right-justify" => "1",
521  "rollback" => "1",
522  "rolling" => "1",
523  "rounded" => "1",
524  "run" => "1",
525  "s01" => "1",
526  "s02" => "1",
527  "s03" => "1",
528  "s04" => "1",
529  "s05" => "1",
530  "same" => "1",
531  "screen" => "1",
532  "scroll" => "1",
533  "sd" => "1",
534  "search" => "1",
535  "section" => "1",
536  "secure" => "1",
537  "security" => "1",
538  "seek" => "1",
539  "segment" => "1",
540  "segment-limit" => "1",
541  "select" => "1",
542  "selective" => "1",
543  "self" => "1",
544  "selfclass" => "1",
545  "send" => "1",
546  "sentence" => "1",
547  "separate" => "1",
548  "sequence" => "1",
549  "sequential" => "1",
550  "service" => "1",
551  "set" => "1",
552  "setshadow" => "1",
553  "shift-in" => "1",
554  "shift-out" => "1",
555  "sign" => "1",
556  "size" => "1",
557  "skip1" => "1",
558  "skip2" => "1",
559  "skip3" => "1",
560  "sort" => "1",
561  "sort-control" => "1",
562  "sort-core-size" => "1",
563  "sort-file-size" => "1",
564  "sort-merge" => "1",
565  "sort-message" => "1",
566  "sort-mode-size" => "1",
567  "sort-option" => "1",
568  "sort-return" => "1",
569  "source" => "1",
570  "source-computer" => "1",
571  "space" => "1",
572  "spaces" => "1",
573  "space-fill" => "1",
574  "special-names" => "1",
575  "standard" => "1",
576  "standard-1" => "1",
577  "standard-2" => "1",
578  "start" => "1",
579  "starting" => "1",
580  "status" => "1",
581  "stop" => "1",
582  "store" => "1",
583  "string" => "1",
584  "sub-queue-1" => "1",
585  "sub-queue-2" => "1",
586  "sub-queue-3" => "1",
587  "subfile" => "1",
588  "subtract" => "1",
589  "sum" => "1",
590  "super" => "1",
591  "supress" => "1",
592  "symbolic" => "1",
593  "sync" => "1",
594  "synchronized" => "1",
595  "sysin" => "1",
596  "sysipt" => "1",
597  "syslst" => "1",
598  "sysout" => "1",
599  "syspch" => "1",
600  "syspunch" => "1",
601  "system-info" => "1",
602  "tab" => "1",
603  "tallying" => "1",
604  "tape" => "1",
605  "terminal" => "1",
606  "terminal-info" => "1",
607  "terminate" => "1",
608  "test" => "1",
609  "text" => "1",
610  "than" => "1",
611  "through" => "1",
612  "thru" => "1",
613  "time" => "1",
614  "time-of-day" => "1",
615  "time-out" => "1",
616  "timeout" => "1",
617  "times" => "1",
618  "title" => "1",
619  "to" => "1",
620  "top" => "1",
621  "totaled" => "1",
622  "totaling" => "1",
623  "trace" => "1",
624  "track-area" => "1",
625  "track-limit" => "1",
626  "tracks" => "1",
627  "trailing" => "1",
628  "trailing-sign" => "1",
629  "transaction" => "1",
630  "transform" => "1",
631  "true" => "1",
632  "type" => "1",
633  "typedef" => "1",
634  "underline" => "1",
635  "underlined" => "1",
636  "unequal" => "1",
637  "unit" => "1",
638  "unlock" => "1",
639  "unstring" => "1",
640  "until" => "1",
641  "up" => "1",
642  "update" => "1",
643  "updaters" => "1",
644  "upon" => "1",
645  "upper" => "1",
646  "upsi-0" => "1",
647  "upsi-1" => "1",
648  "upsi-2" => "1",
649  "upsi-3" => "1",
650  "upsi-4" => "1",
651  "upsi-5" => "1",
652  "upsi-6" => "1",
653  "upsi-7" => "1",
654  "usage" => "1",
655  "use" => "1",
656  "user" => "1",
657  "using" => "1",
658  "value" => "1",
659  "values" => "1",
660  "variable" => "1",
661  "varying" => "1",
662  "wait" => "1",
663  "when-compiled" => "1",
664  "window" => "1",
665  "with" => "1",
666  "words" => "1",
667  "working-storage" => "1",
668  "wrap" => "1",
669  "write" => "1",
670  "write-only" => "1",
671  "write-verify" => "1",
672  "writerszero" => "1",
673  "zero" => "1",
674  "zero-fill" => "1",
675  "zeros" => "1",
676  "zeroes" => "1",
677  "call" => "2",
678  "exit" => "2",
679  "else" => "2",
680  "end-if" => "2",
681  "end-evaluate" => "2",
682  "evaluate" => "2",
683  "if" => "2",
684  "perform" => "2",
685  "then" => "2",
686  "when" => "2",
687  "01" => "3",
688  "15" => "3",
689  "77" => "3",
690  "78" => "3",
691  "z" => "3",
692  "88" => "3",
693  "x" => "4",
694  "02" => "4",
695  "03" => "4",
696  "04" => "4",
697  "05" => "4",
698  "copy" => "5",
699  "d" => "5",
700  "ddebug" => "5");
701 
702 // Special extensions
703 
704 // Each category can specify a PHP function that returns an altered
705 // version of the keyword.
706 
707 
708 
709 $this->linkscripts = array(
710  "1" => "donothing",
711  "2" => "donothing",
712  "3" => "donothing",
713  "4" => "donothing",
714  "5" => "donothing");
715 }
716 
717 
718 function donothing($keywordin)
719 {
720  return $keywordin;
721 }
722 
723 }?>