00001 <?php
00002 $BEAUT_PATH = realpath(".")."/syntax_highlight/php";
00003 if (!isset ($BEAUT_PATH)) return;
00004 require_once("$BEAUT_PATH/Beautifier/HFile.php");
00005 class HFile_cobol extends HFile{
00006 function HFile_cobol(){
00007 $this->HFile();
00008
00009
00010
00011
00012
00013
00014 $this->nocase = "0";
00015 $this->notrim = "0";
00016 $this->perl = "0";
00017
00018
00019
00020 $this->colours = array("blue", "purple", "gray", "brown", "blue");
00021 $this->quotecolour = "blue";
00022 $this->blockcommentcolour = "green";
00023 $this->linecommentcolour = "green";
00024
00025
00026
00027 $this->indent = array();
00028 $this->unindent = array();
00029
00030
00031
00032 $this->stringchars = array("\"");
00033 $this->delimiters = array("~", "!", "@", "$", "%", "^", "&", "*", "(", ")", "_", "+", "=", "|", "\\", "/", "{", "}", "[", "]", ":", ";", "\"", "'", "<", ">", " ", ",", ".", "?", "/");
00034 $this->escchar = "";
00035
00036
00037
00038 $this->linecommenton = array("*");
00039 $this->blockcommenton = array("");
00040 $this->blockcommentoff = array("");
00041
00042
00043
00044 $this->keywords = array(
00045 "accept" => "1",
00046 "access" => "1",
00047 "acquire" => "1",
00048 "actual" => "1",
00049 "add" => "1",
00050 "address" => "1",
00051 "advancing" => "1",
00052 "after" => "1",
00053 "all" => "1",
00054 "allowing" => "1",
00055 "alphabet" => "1",
00056 "alphabetic" => "1",
00057 "alphabetic-lower" => "1",
00058 "alphabetic-upper" => "1",
00059 "alphanumeric" => "1",
00060 "alphanumeric-edited" => "1",
00061 "also" => "1",
00062 "alter" => "1",
00063 "alternate" => "1",
00064 "and" => "1",
00065 "any" => "1",
00066 "apply" => "1",
00067 "are" => "1",
00068 "area" => "1",
00069 "areas" => "1",
00070 "as" => "1",
00071 "ascending" => "1",
00072 "assign" => "1",
00073 "at" => "1",
00074 "attribute" => "1",
00075 "author" => "1",
00076 "auto" => "1",
00077 "auto-hyphen-skip" => "1",
00078 "auto-skip" => "1",
00079 "automatic" => "1",
00080 "autoterminate" => "1",
00081 "background-color" => "1",
00082 "background-colour" => "1",
00083 "backward" => "1",
00084 "basis" => "1",
00085 "beep" => "1",
00086 "before" => "1",
00087 "beginning" => "1",
00088 "bell" => "1",
00089 "binary" => "1",
00090 "blank" => "1",
00091 "blink" => "1",
00092 "blinking" => "1",
00093 "block" => "1",
00094 "bold" => "1",
00095 "bottom" => "1",
00096 "box" => "1",
00097 "boxed" => "1",
00098 "by" => "1",
00099 "c01" => "1",
00100 "c02" => "1",
00101 "c04" => "1",
00102 "c05" => "1",
00103 "c06" => "1",
00104 "c07" => "1",
00105 "c08" => "1",
00106 "c09" => "1",
00107 "c10" => "1",
00108 "c11" => "1",
00109 "c12" => "1",
00110 "cancel" => "1",
00111 "cbl" => "1",
00112 "cd" => "1",
00113 "centered" => "1",
00114 "cf" => "1",
00115 "ch" => "1",
00116 "chain" => "1",
00117 "chaining" => "1",
00118 "changed" => "1",
00119 "character" => "1",
00120 "characters" => "1",
00121 "chart" => "1",
00122 "class" => "1",
00123 "clock-units" => "1",
00124 "close" => "1",
00125 "cobol" => "1",
00126 "code" => "1",
00127 "code-set" => "1",
00128 "col" => "1",
00129 "collating" => "1",
00130 "color" => "1",
00131 "colour" => "1",
00132 "column" => "1",
00133 "com-reg" => "1",
00134 "comma" => "1",
00135 "command-line" => "1",
00136 "commit" => "1",
00137 "commitment" => "1",
00138 "common" => "1",
00139 "communication" => "1",
00140 "comp" => "1",
00141 "comp-0" => "1",
00142 "comp-1" => "1",
00143 "comp-2" => "1",
00144 "comp-3" => "1",
00145 "comp-4" => "1",
00146 "comp-5" => "1",
00147 "comp-6" => "1",
00148 "comp-x" => "1",
00149 "compression" => "1",
00150 "computational" => "1",
00151 "computational-1" => "1",
00152 "computational-2" => "1",
00153 "computational-3" => "1",
00154 "computational-4" => "1",
00155 "computational-5" => "1",
00156 "computational-6" => "1",
00157 "computational-x" => "1",
00158 "compute" => "1",
00159 "configuration" => "1",
00160 "console" => "1",
00161 "contains" => "1",
00162 "content" => "1",
00163 "continue" => "1",
00164 "control" => "1",
00165 "control-area" => "1",
00166 "controls" => "1",
00167 "conversion" => "1",
00168 "convert" => "1",
00169 "converting" => "1",
00170 "core-index" => "1",
00171 "corr" => "1",
00172 "corresponding" => "1",
00173 "count" => "1",
00174 "crt" => "1",
00175 "crt-under" => "1",
00176 "csp" => "1",
00177 "currency" => "1",
00178 "current-date" => "1",
00179 "cursor" => "1",
00180 "cycle" => "1",
00181 "cyl-index" => "1",
00182 "cyl-overflow" => "1",
00183 "data" => "1",
00184 "date" => "1",
00185 "date-compiled" => "1",
00186 "date-written" => "1",
00187 "day" => "1",
00188 "day-of-week" => "1",
00189 "dbcs" => "1",
00190 "de" => "1",
00191 "debug" => "1",
00192 "debug-contents" => "1",
00193 "debug-item" => "1",
00194 "debug-line" => "1",
00195 "debug-name" => "1",
00196 "debug-sub-1" => "1",
00197 "debug-sub-2" => "1",
00198 "debug-sub-3" => "1",
00199 "debugging" => "1",
00200 "decimal-point" => "1",
00201 "declaratives" => "1",
00202 "default" => "1",
00203 "delete" => "1",
00204 "delimited" => "1",
00205 "delimiter" => "1",
00206 "depending" => "1",
00207 "descending" => "1",
00208 "destination" => "1",
00209 "detail" => "1",
00210 "disable" => "1",
00211 "disk" => "1",
00212 "disp" => "1",
00213 "display" => "1",
00214 "display-1" => "1",
00215 "display-st" => "1",
00216 "divide" => "1",
00217 "division" => "1",
00218 "down" => "1",
00219 "draw" => "1",
00220 "drop" => "1",
00221 "duplicates" => "1",
00222 "dynamic" => "1",
00223 "echo" => "1",
00224 "egcs" => "1",
00225 "egi" => "1",
00226 "eject" => "1",
00227 "emi" => "1",
00228 "empty-check" => "1",
00229 "enable" => "1",
00230 "encryption" => "1",
00231 "end" => "1",
00232 "end-accept" => "1",
00233 "end-add" => "1",
00234 "end-call" => "1",
00235 "end-chain" => "1",
00236 "end-compute" => "1",
00237 "end-delete" => "1",
00238 "end-display" => "1",
00239 "end-divide" => "1",
00240 "end-invoke" => "1",
00241 "end-multiply" => "1",
00242 "end-of-page" => "1",
00243 "end-perform" => "1",
00244 "end-read" => "1",
00245 "end-receive" => "1",
00246 "end-return" => "1",
00247 "end-rewrite" => "1",
00248 "end-search" => "1",
00249 "end-start" => "1",
00250 "end-string" => "1",
00251 "end-subtract" => "1",
00252 "end-unstring" => "1",
00253 "end-write" => "1",
00254 "ending" => "1",
00255 "enter" => "1",
00256 "entry" => "1",
00257 "environment" => "1",
00258 "environment-division" => "1",
00259 "eol" => "1",
00260 "eop" => "1",
00261 "eos" => "1",
00262 "equal" => "1",
00263 "equals" => "1",
00264 "erase" => "1",
00265 "error" => "1",
00266 "escape" => "1",
00267 "esi" => "1",
00268 "every" => "1",
00269 "examine" => "1",
00270 "exceeds" => "1",
00271 "exception" => "1",
00272 "excess-3" => "1",
00273 "exclusive" => "1",
00274 "exec" => "1",
00275 "execute" => "1",
00276 "exhibit" => "1",
00277 "extend" => "1",
00278 "extended-search" => "1",
00279 "external" => "1",
00280 "externally-described-key" => "1",
00281 "factory" => "1",
00282 "false" => "1",
00283 "fd" => "1",
00284 "fh--fcd" => "1",
00285 "fh--keydef" => "1",
00286 "file" => "1",
00287 "file-control" => "1",
00288 "file-id" => "1",
00289 "file-limit" => "1",
00290 "file-limits" => "1",
00291 "file-prefix" => "1",
00292 "filler" => "1",
00293 "final" => "1",
00294 "first" => "1",
00295 "fixed" => "1",
00296 "footing" => "1",
00297 "for" => "1",
00298 "foreground-color" => "1",
00299 "foreground-colour" => "1",
00300 "format" => "1",
00301 "from" => "1",
00302 "full" => "1",
00303 "function" => "1",
00304 "generate" => "1",
00305 "giving" => "1",
00306 "global" => "1",
00307 "go" => "1",
00308 "goback" => "1",
00309 "greater" => "1",
00310 "grid" => "1",
00311 "group" => "1",
00312 "heading" => "1",
00313 "high" => "1",
00314 "high-value" => "1",
00315 "high-values" => "1",
00316 "highlight" => "1",
00317 "i-o" => "1",
00318 "i-o-control" => "1",
00319 "id" => "1",
00320 "identification" => "1",
00321 "ignore" => "1",
00322 "in" => "1",
00323 "index" => "1",
00324 "indexed" => "1",
00325 "indic" => "1",
00326 "indicate" => "1",
00327 "indicator" => "1",
00328 "indicators" => "1",
00329 "inheriting" => "1",
00330 "initial" => "1",
00331 "initialize" => "1",
00332 "initiate" => "1",
00333 "input" => "1",
00334 "input-output" => "1",
00335 "insert" => "1",
00336 "inspect" => "1",
00337 "installation" => "1",
00338 "into" => "1",
00339 "invalid" => "1",
00340 "invoke" => "1",
00341 "invoked" => "1",
00342 "is" => "1",
00343 "japanese" => "1",
00344 "just" => "1",
00345 "justified" => "1",
00346 "kanji" => "1",
00347 "kept" => "1",
00348 "key" => "1",
00349 "keyboard" => "1",
00350 "label" => "1",
00351 "last" => "1",
00352 "leading" => "1",
00353 "leave" => "1",
00354 "left" => "1",
00355 "lrft-justify" => "1",
00356 "leftline" => "1",
00357 "length" => "1",
00358 "length-check" => "1",
00359 "less" => "1",
00360 "limit" => "1",
00361 "limits" => "1",
00362 "lin" => "1",
00363 "linage" => "1",
00364 "linage-counter" => "1",
00365 "line" => "1",
00366 "line-counter" => "1",
00367 "lines" => "1",
00368 "linkage" => "1",
00369 "local-storage" => "1",
00370 "lock" => "1",
00371 "lock-holding" => "1",
00372 "locking" => "1",
00373 "low" => "1",
00374 "low-value" => "1",
00375 "low-values" => "1",
00376 "lower" => "1",
00377 "lowlight" => "1",
00378 "manual" => "1",
00379 "mass-update" => "1",
00380 "master-index" => "1",
00381 "memory" => "1",
00382 "merge" => "1",
00383 "message" => "1",
00384 "method" => "1",
00385 "mode" => "1",
00386 "modified" => "1",
00387 "modules" => "1",
00388 "more-labels" => "1",
00389 "move" => "1",
00390 "multiple" => "1",
00391 "multiply" => "1",
00392 "name" => "1",
00393 "named" => "1",
00394 "national" => "1",
00395 "national-edited" => "1",
00396 "native" => "1",
00397 "nchar" => "1",
00398 "negative" => "1",
00399 "next" => "1",
00400 "no" => "1",
00401 "no-echo" => "1",
00402 "nominal" => "1",
00403 "not" => "1",
00404 "note" => "1",
00405 "nstd-reels" => "1",
00406 "null" => "1",
00407 "nulls" => "1",
00408 "number" => "1",
00409 "numeric" => "1",
00410 "numeric-edited" => "1",
00411 "numeric-fill" => "1",
00412 "o-fill" => "1",
00413 "object" => "1",
00414 "object-computer" => "1",
00415 "object-storage" => "1",
00416 "occurs" => "1",
00417 "of" => "1",
00418 "off" => "1",
00419 "omitted" => "1",
00420 "on" => "1",
00421 "oostackptr" => "1",
00422 "open" => "1",
00423 "optional" => "1",
00424 "or" => "1",
00425 "order" => "1",
00426 "organization" => "1",
00427 "other" => "1",
00428 "others" => "1",
00429 "otherwise" => "1",
00430 "output" => "1",
00431 "overflow" => "1",
00432 "overline" => "1",
00433 "packed-decimal" => "1",
00434 "padding" => "1",
00435 "page" => "1",
00436 "page-counter" => "1",
00437 "paragraph" => "1",
00438 "password" => "1",
00439 "pf" => "1",
00440 "ph" => "1",
00441 "pic" => "1",
00442 "picture" => "1",
00443 "plus" => "1",
00444 "pointer" => "1",
00445 "pop-up" => "1",
00446 "pos" => "1",
00447 "position" => "1",
00448 "positioning" => "1",
00449 "positive" => "1",
00450 "previous" => "1",
00451 "print" => "1",
00452 "print-control" => "1",
00453 "print-switch" => "1",
00454 "printer" => "1",
00455 "printer-1" => "1",
00456 "printing" => "1",
00457 "prior" => "1",
00458 "private" => "1",
00459 "procedure" => "1",
00460 "procedure-pointer" => "1",
00461 "procedures" => "1",
00462 "proceed" => "1",
00463 "process" => "1",
00464 "processing" => "1",
00465 "program" => "1",
00466 "program-id" => "1",
00467 "prompt" => "1",
00468 "protected" => "1",
00469 "public" => "1",
00470 "purge" => "1",
00471 "queue" => "1",
00472 "quote" => "1",
00473 "quotes" => "1",
00474 "random" => "1",
00475 "range" => "1",
00476 "rd" => "1",
00477 "read" => "1",
00478 "readers" => "1",
00479 "ready" => "1",
00480 "receive" => "1",
00481 "record" => "1",
00482 "record-overflow" => "1",
00483 "recording" => "1",
00484 "records" => "1",
00485 "redefines" => "1",
00486 "reel" => "1",
00487 "reference" => "1",
00488 "references" => "1",
00489 "relative" => "1",
00490 "release" => "1",
00491 "reload" => "1",
00492 "remainder" => "1",
00493 "remarks" => "1",
00494 "removal" => "1",
00495 "renames" => "1",
00496 "reorg-criteria" => "1",
00497 "repeated" => "1",
00498 "replace" => "1",
00499 "replacing" => "1",
00500 "report" => "1",
00501 "reporting" => "1",
00502 "reports" => "1",
00503 "required" => "1",
00504 "reread" => "1",
00505 "rerun" => "1",
00506 "reserve" => "1",
00507 "reset" => "1",
00508 "resident" => "1",
00509 "return" => "1",
00510 "return-code" => "1",
00511 "returning" => "1",
00512 "reverse" => "1",
00513 "reverse-video" => "1",
00514 "reversed" => "1",
00515 "rewind" => "1",
00516 "rewrite" => "1",
00517 "rf" => "1",
00518 "rh" => "1",
00519 "right" => "1",
00520 "right-justify" => "1",
00521 "rollback" => "1",
00522 "rolling" => "1",
00523 "rounded" => "1",
00524 "run" => "1",
00525 "s01" => "1",
00526 "s02" => "1",
00527 "s03" => "1",
00528 "s04" => "1",
00529 "s05" => "1",
00530 "same" => "1",
00531 "screen" => "1",
00532 "scroll" => "1",
00533 "sd" => "1",
00534 "search" => "1",
00535 "section" => "1",
00536 "secure" => "1",
00537 "security" => "1",
00538 "seek" => "1",
00539 "segment" => "1",
00540 "segment-limit" => "1",
00541 "select" => "1",
00542 "selective" => "1",
00543 "self" => "1",
00544 "selfclass" => "1",
00545 "send" => "1",
00546 "sentence" => "1",
00547 "separate" => "1",
00548 "sequence" => "1",
00549 "sequential" => "1",
00550 "service" => "1",
00551 "set" => "1",
00552 "setshadow" => "1",
00553 "shift-in" => "1",
00554 "shift-out" => "1",
00555 "sign" => "1",
00556 "size" => "1",
00557 "skip1" => "1",
00558 "skip2" => "1",
00559 "skip3" => "1",
00560 "sort" => "1",
00561 "sort-control" => "1",
00562 "sort-core-size" => "1",
00563 "sort-file-size" => "1",
00564 "sort-merge" => "1",
00565 "sort-message" => "1",
00566 "sort-mode-size" => "1",
00567 "sort-option" => "1",
00568 "sort-return" => "1",
00569 "source" => "1",
00570 "source-computer" => "1",
00571 "space" => "1",
00572 "spaces" => "1",
00573 "space-fill" => "1",
00574 "special-names" => "1",
00575 "standard" => "1",
00576 "standard-1" => "1",
00577 "standard-2" => "1",
00578 "start" => "1",
00579 "starting" => "1",
00580 "status" => "1",
00581 "stop" => "1",
00582 "store" => "1",
00583 "string" => "1",
00584 "sub-queue-1" => "1",
00585 "sub-queue-2" => "1",
00586 "sub-queue-3" => "1",
00587 "subfile" => "1",
00588 "subtract" => "1",
00589 "sum" => "1",
00590 "super" => "1",
00591 "supress" => "1",
00592 "symbolic" => "1",
00593 "sync" => "1",
00594 "synchronized" => "1",
00595 "sysin" => "1",
00596 "sysipt" => "1",
00597 "syslst" => "1",
00598 "sysout" => "1",
00599 "syspch" => "1",
00600 "syspunch" => "1",
00601 "system-info" => "1",
00602 "tab" => "1",
00603 "tallying" => "1",
00604 "tape" => "1",
00605 "terminal" => "1",
00606 "terminal-info" => "1",
00607 "terminate" => "1",
00608 "test" => "1",
00609 "text" => "1",
00610 "than" => "1",
00611 "through" => "1",
00612 "thru" => "1",
00613 "time" => "1",
00614 "time-of-day" => "1",
00615 "time-out" => "1",
00616 "timeout" => "1",
00617 "times" => "1",
00618 "title" => "1",
00619 "to" => "1",
00620 "top" => "1",
00621 "totaled" => "1",
00622 "totaling" => "1",
00623 "trace" => "1",
00624 "track-area" => "1",
00625 "track-limit" => "1",
00626 "tracks" => "1",
00627 "trailing" => "1",
00628 "trailing-sign" => "1",
00629 "transaction" => "1",
00630 "transform" => "1",
00631 "true" => "1",
00632 "type" => "1",
00633 "typedef" => "1",
00634 "underline" => "1",
00635 "underlined" => "1",
00636 "unequal" => "1",
00637 "unit" => "1",
00638 "unlock" => "1",
00639 "unstring" => "1",
00640 "until" => "1",
00641 "up" => "1",
00642 "update" => "1",
00643 "updaters" => "1",
00644 "upon" => "1",
00645 "upper" => "1",
00646 "upsi-0" => "1",
00647 "upsi-1" => "1",
00648 "upsi-2" => "1",
00649 "upsi-3" => "1",
00650 "upsi-4" => "1",
00651 "upsi-5" => "1",
00652 "upsi-6" => "1",
00653 "upsi-7" => "1",
00654 "usage" => "1",
00655 "use" => "1",
00656 "user" => "1",
00657 "using" => "1",
00658 "value" => "1",
00659 "values" => "1",
00660 "variable" => "1",
00661 "varying" => "1",
00662 "wait" => "1",
00663 "when-compiled" => "1",
00664 "window" => "1",
00665 "with" => "1",
00666 "words" => "1",
00667 "working-storage" => "1",
00668 "wrap" => "1",
00669 "write" => "1",
00670 "write-only" => "1",
00671 "write-verify" => "1",
00672 "writerszero" => "1",
00673 "zero" => "1",
00674 "zero-fill" => "1",
00675 "zeros" => "1",
00676 "zeroes" => "1",
00677 "call" => "2",
00678 "exit" => "2",
00679 "else" => "2",
00680 "end-if" => "2",
00681 "end-evaluate" => "2",
00682 "evaluate" => "2",
00683 "if" => "2",
00684 "perform" => "2",
00685 "then" => "2",
00686 "when" => "2",
00687 "01" => "3",
00688 "15" => "3",
00689 "77" => "3",
00690 "78" => "3",
00691 "z" => "3",
00692 "88" => "3",
00693 "x" => "4",
00694 "02" => "4",
00695 "03" => "4",
00696 "04" => "4",
00697 "05" => "4",
00698 "copy" => "5",
00699 "d" => "5",
00700 "ddebug" => "5");
00701
00702
00703
00704
00705
00706
00707
00708
00709 $this->linkscripts = array(
00710 "1" => "donothing",
00711 "2" => "donothing",
00712 "3" => "donothing",
00713 "4" => "donothing",
00714 "5" => "donothing");
00715 }
00716
00717
00718 function donothing($keywordin)
00719 {
00720 return $keywordin;
00721 }
00722
00723 }?>
