cobol.jsf (9678B)
1 # JOE syntax highlight file for COBOL 2 3 =Idle 4 =Bad bold red 5 =Preproc blue 6 =Define bold blue 7 =Comment green 8 =IncLocal cyan 9 =IncSystem bold cyan 10 =Constant cyan 11 =Escape bold cyan 12 =Type bold 13 =Keyword bold 14 15 :reset Idle 16 * idle noeat 17 "*" line_comment recolor=-1 18 " \t" reset 19 20 :line_comment Comment 21 * line_comment 22 "\n" reset 23 24 # All following states are for when we're not in a preprocessor line 25 26 :idle Idle 27 * idle 28 "\n" reset 29 "0" first_digit recolor=-1 30 "1-9" decimal recolor=-1 31 "." maybe_float 32 "\"" string recolor=-1 33 "'" char recolor=-1 34 "a-zA-Z_" ident buffer 35 36 :first_digit Constant 37 * idle noeat 38 "xX" hex 39 "." float 40 "eE" epart 41 "0-7" octal 42 "89" bad_number recolor=-1 43 44 :bad_number Bad 45 * idle noeat 46 "0-9" bad_number 47 48 :octal Constant 49 * idle noeat 50 "0-7" octal 51 "89" bad_number recolor=-1 52 53 :hex Constant 54 * idle noeat 55 "0-9A-Fa-f" hex 56 57 :decimal Constant 58 * idle noeat 59 "0-9" decimal 60 "eE" epart 61 "." float 62 63 :maybe_float Constant 64 * idle recolor=-2 noeat 65 "0-9" float recolor=-2 66 67 :float Constant 68 * idle noeat 69 "eE" epart 70 "0-9" float 71 72 :epart Constant 73 * idle noeat 74 "0-9+\-" enum 75 76 :enum Constant 77 * idle noeat 78 "0-9" enum 79 80 :string Constant 81 * string 82 "\"" idle 83 "\\" string_escape recolor=-1 84 "%" string_control recolor=-1 85 86 :string_escape Escape 87 * string 88 "x" string_hex1 89 "0-7" string_octal2 90 "\n" string recolor=-2 91 92 :string_hex1 Escape 93 * string noeat 94 "0-9a-fA-F" string_hex2 95 96 :string_hex2 Escape 97 * string noeat 98 "0-9a-fA-F" string 99 100 :string_octal2 Escape 101 * string noeat 102 "0-7" string_octal3 103 104 :string_octal3 Escape 105 * string noeat 106 "0-7" string 107 108 :string_control Escape 109 * string_control 110 "\n" reset 111 "diouxXeEfFgGaAcspn%SC" string 112 113 :char Constant 114 * char 115 "\n" reset 116 "'" idle 117 "\\" char_escape recolor=-1 118 119 :char_escape Escape 120 * char 121 "x" char_hex1 122 "0-7" char_octal2 123 "\n" char recolor=-2 124 125 :char_hex1 Escape 126 * char noeat 127 "0-9a-fA-F" char_hex2 128 129 :char_hex2 Escape 130 * char noeat 131 "0-9a-fA-F" char 132 133 :char_octal2 Escape 134 * char noeat 135 "0-7" char_octal3 136 137 :char_octal3 Escape 138 * char noeat 139 "0-7" char 140 141 :ident Idle 142 * idle noeat istrings 143 "accept" kw 144 "access" kw 145 "add" kw 146 "address" kw 147 "advancing" kw 148 "after" kw 149 "all" kw 150 "allowing" kw 151 "alphabet" kw 152 "alphabetic" kw 153 "alphabetic-lower" kw 154 "alphabetic-upper" kw 155 "alphanumeric" kw 156 "alphanumeric-edited" kw 157 "also" kw 158 "alter" kw 159 "alternate" kw 160 "and" kw 161 "any" kw 162 "apply" kw 163 "are" kw 164 "area" kw 165 "areas" kw 166 "arithmetic" kw 167 "ascending" kw 168 "assign" kw 169 "at" kw 170 "author" kw 171 "automatic" kw 172 "b-and" kw 173 "b-exor" kw 174 "b-less" kw 175 "b-not" kw 176 "b-or" kw 177 "basis" kw 178 "before" kw 179 "beginning" kw 180 "binary" kw 181 "bit" kw 182 "bits" kw 183 "blank" kw 184 "block" kw 185 "boolean" kw 186 "bottom" kw 187 "by" kw 188 "call" kw 189 "cancel" kw 190 "cbl" kw 191 "cd" kw 192 "cf" kw 193 "ch" kw 194 "character" kw 195 "characters" kw 196 "class" kw 197 "class-id" kw 198 "clock-units" kw 199 "close" kw 200 "cobol" kw 201 "code" kw 202 "code-set" kw 203 "collating" kw 204 "column" kw 205 "com-reg" kw 206 "comma" kw 207 "commit" kw 208 "common" kw 209 "communication" kw 210 "comp" kw 211 "comp-1" kw 212 "comp-2" kw 213 "comp-3" kw 214 "comp-4" kw 215 "comp-5" kw 216 "comp-6" kw 217 "comp-7" kw 218 "comp-8" kw 219 "comp-9" kw 220 "computational" kw 221 "computational-1" kw 222 "computational-2" kw 223 "computational-3" kw 224 "computational-4" kw 225 "computational-5" kw 226 "computational-6" kw 227 "computational-7" kw 228 "computational-8" kw 229 "computational-9" kw 230 "compute" kw 231 "configuration" kw 232 "connect" kw 233 "contained" kw 234 "contains" kw 235 "content" kw 236 "continue" kw 237 "control" kw 238 "controls" kw 239 "converting" kw 240 "copy" kw 241 "corr" kw 242 "corresponding" kw 243 "count" kw 244 "currency" kw 245 "current" kw 246 "cycle" kw 247 "data" kw 248 "date" kw 249 "date-compiled" kw 250 "date-written" kw 251 "day" kw 252 "day-of-week" kw 253 "db" kw 254 "db-access-control-key" kw 255 "db-data-name" kw 256 "db-exception" kw 257 "db-record-name" kw 258 "db-set-name" kw 259 "db-status" kw 260 "dbcs" kw 261 "de" kw 262 "debug-contents" kw 263 "debug-item" kw 264 "debug-line" kw 265 "debug-name" kw 266 "debug-sub-1" kw 267 "debug-sub-2" kw 268 "debug-sub-3" kw 269 "debugging" kw 270 "decimal-point" kw 271 "declaratives" kw 272 "default" kw 273 "delete" kw 274 "delimited" kw 275 "delimiter" kw 276 "depending" kw 277 "descending" kw 278 "destination" kw 279 "detail" kw 280 "disable" kw 281 "disconnect" kw 282 "display" kw 283 "display-1" kw 284 "display-2" kw 285 "display-3" kw 286 "display-4" kw 287 "display-5" kw 288 "display-6" kw 289 "display-7" kw 290 "display-8" kw 291 "display-9" kw 292 "divide" kw 293 "division" kw 294 "down" kw 295 "duplicate" kw 296 "duplicates" kw 297 "dynamic" kw 298 "egcs" kw 299 "egi" kw 300 "eject" kw 301 "else" kw 302 "emi" kw 303 "empty" kw 304 "enable" kw 305 "end" kw 306 "end-add" kw 307 "end-call" kw 308 "end-compute" kw 309 "end-delete" kw 310 "end-disable" kw 311 "end-divide" kw 312 "end-enable" kw 313 "end-evaluate" kw 314 "end-if" kw 315 "end-invoke" kw 316 "end-multiply" kw 317 "end-of-page" kw 318 "end-perform" kw 319 "end-read" kw 320 "end-receive" kw 321 "end-return" kw 322 "end-rewrite" kw 323 "end-search" kw 324 "end-send" kw 325 "end-start" kw 326 "end-string" kw 327 "end-subtract" kw 328 "end-transceive" kw 329 "end-unstring" kw 330 "end-write" kw 331 "ending" kw 332 "enter" kw 333 "entry" kw 334 "environment" kw 335 "eop" kw 336 "equal" kw 337 "equals" kw 338 "erase" kw 339 "error" kw 340 "esi" kw 341 "evaluate" kw 342 "every" kw 343 "exact" kw 344 "exceeds" kw 345 "exception" kw 346 "exclusive" kw 347 "exit" kw 348 "extend" kw 349 "external" kw 350 "false" const 351 "fd" kw 352 "fetch" kw 353 "file" kw 354 "file-control" kw 355 "filler" kw 356 "final" kw 357 "find" kw 358 "finish" kw 359 "first" kw 360 "footing" kw 361 "for" kw 362 "form" kw 363 "format" kw 364 "free" kw 365 "from" kw 366 "function" kw 367 "generate" kw 368 "get" kw 369 "giving" kw 370 "global" kw 371 "go" kw 372 "goback" kw 373 "greater" kw 374 "group" kw 375 "heading" kw 376 "high-value" const 377 "high-values" const 378 "i-o" kw 379 "i-o-control" kw 380 "id" kw 381 "identification" kw 382 "if" kw 383 "in" kw 384 "index" kw 385 "index-1" kw 386 "index-2" kw 387 "index-3" kw 388 "index-4" kw 389 "index-5" kw 390 "index-6" kw 391 "index-7" kw 392 "index-8" kw 393 "index-9" kw 394 "indexed" kw 395 "indicate" kw 396 "inherits" kw 397 "initial" kw 398 "initialize" kw 399 "initiate" kw 400 "input" kw 401 "input-output" kw 402 "insert" kw 403 "inspect" kw 404 "installation" kw 405 "into" kw 406 "invalid" kw 407 "invoke" kw 408 "is" kw 409 "just" kw 410 "justified" kw 411 "kanji" kw 412 "keep" kw 413 "key" kw 414 "label" kw 415 "last" kw 416 "ld" kw 417 "leading" kw 418 "left" kw 419 "length" kw 420 "less" kw 421 "limit" kw 422 "limits" kw 423 "linage" kw 424 "linage-counter" kw 425 "line" kw 426 "line-counter" kw 427 "lines" kw 428 "linkage" kw 429 "locally" kw 430 "local-storage" kw 431 "lock" kw 432 "low-value" const 433 "low-values" const 434 "member" kw 435 "memory" kw 436 "merge" kw 437 "message" kw 438 "metaclass" kw 439 "method" kw 440 "method-id" kw 441 "mode" kw 442 "modify" kw 443 "modules" kw 444 "more-labels" kw 445 "move" kw 446 "multiple" kw 447 "multiply" kw 448 "native" kw 449 "negative" kw 450 "next" kw 451 "no" kw 452 "normal" kw 453 "not" kw 454 "null" const 455 "nulls" const 456 "number" kw 457 "numeric" kw 458 "numeric-edited" kw 459 "object" kw 460 "object-computer" kw 461 "occurs" kw 462 "of" kw 463 "off" kw 464 "omitted" kw 465 "on" kw 466 "only" kw 467 "open" kw 468 "optional" kw 469 "or" kw 470 "order" kw 471 "organization" kw 472 "other" kw 473 "output" kw 474 "overflow" kw 475 "override" kw 476 "owner" kw 477 "packed-decimal" kw 478 "padding" kw 479 "page" kw 480 "page-counter" kw 481 "paragraph" kw 482 "password" kw 483 "perform" kw 484 "pf" kw 485 "ph" kw 486 "pic" kw 487 "picture" kw 488 "plus" kw 489 "pointer" kw 490 "position" kw 491 "positive" kw 492 "present" kw 493 "previous" kw 494 "printing" kw 495 "prior" kw 496 "procedure" kw 497 "procedure-pointer" kw 498 "procedures" kw 499 "proceed" kw 500 "processing" kw 501 "program" kw 502 "program-id" kw 503 "protected" kw 504 "purge" kw 505 "queue" kw 506 "quote" const 507 "quotes" const 508 "random" kw 509 "rd" kw 510 "read" kw 511 "ready" kw 512 "realm" kw 513 "receive" kw 514 "reconnect" kw 515 "record" kw 516 "record-name" kw 517 "recording" kw 518 "records" kw 519 "recursive" kw 520 "redefines" kw 521 "reel" kw 522 "reference" kw 523 "references" kw 524 "relation" kw 525 "relative" kw 526 "release" kw 527 "reload" kw 528 "remainder" kw 529 "removal" kw 530 "renames" kw 531 "repeated" kw 532 "replace" kw 533 "replacing" kw 534 "report" kw 535 "reporting" kw 536 "reports" kw 537 "repository" kw 538 "rerun" kw 539 "reserve" kw 540 "reset" kw 541 "retaining" kw 542 "retrieval" kw 543 "return" kw 544 "return-code" kw 545 "returning" kw 546 "reversed" kw 547 "rewind" kw 548 "rewrite" kw 549 "rf" kw 550 "rh" kw 551 "right" kw 552 "rollback" kw 553 "rounded" kw 554 "run" kw 555 "same" kw 556 "sd" kw 557 "search" kw 558 "section" kw 559 "security" kw 560 "segment" kw 561 "segment-limit" kw 562 "select" kw 563 "self" kw 564 "send" kw 565 "sentence" kw 566 "separate" kw 567 "sequence" kw 568 "sequential" kw 569 "service" kw 570 "session-id" kw 571 "set" kw 572 "shared" kw 573 "shift-in" kw 574 "shift-out" kw 575 "sign" kw 576 "size" kw 577 "skip1" kw 578 "skip2" kw 579 "skip3" kw 580 "sort" kw 581 "sort-control" kw 582 "sort-core-size" kw 583 "sort-file-size" kw 584 "sort-merge" kw 585 "sort-message" kw 586 "sort-mode-size" kw 587 "sort-return" kw 588 "source" kw 589 "source-computer" kw 590 "space" const 591 "spaces" const 592 "special-names" kw 593 "standard" kw 594 "standard-1" kw 595 "standard-2" kw 596 "standard-3" kw 597 "standard-4" kw 598 "start" kw 599 "status" kw 600 "stop" kw 601 "store" kw 602 "string" kw 603 "sub-queue-1" kw 604 "sub-queue-2" kw 605 "sub-queue-3" kw 606 "sub-schema" kw 607 "subtract" kw 608 "sum" kw 609 "super" kw 610 "suppress" kw 611 "symbolic" kw 612 "sync" kw 613 "synchronized" kw 614 "table" kw 615 "tally" kw 616 "tallying" kw 617 "tape" kw 618 "tenant" kw 619 "terminal" kw 620 "terminate" kw 621 "test" kw 622 "text" kw 623 "than" kw 624 "then" kw 625 "through" kw 626 "thru" kw 627 "time" kw 628 "timeout" kw 629 "times" kw 630 "title" kw 631 "to" kw 632 "top" kw 633 "trace" kw 634 "trailing" kw 635 "transceive" kw 636 "true" const 637 "type" kw 638 "unequal" kw 639 "unit" kw 640 "unstring" kw 641 "until" kw 642 "up" kw 643 "update" kw 644 "upon" kw 645 "usage" kw 646 "usage-mode" kw 647 "use" kw 648 "using" kw 649 "valid" kw 650 "validate" kw 651 "value" kw 652 "values" kw 653 "varying" kw 654 "wait" kw 655 "when" kw 656 "when-compiled" kw 657 "with" kw 658 "within" kw 659 "words" kw 660 "working-storage" kw 661 "write" kw 662 "write-only" kw 663 "zero" const 664 "zeroes" const 665 "zeros" const 666 done 667 "a-zA-Z0-9_\-" ident 668 669 :kw Keyword 670 * idle noeat 671 672 :const Constant 673 * idle noeat