cobol.php

Go to the documentation of this file.

<?php
/*************************************************************************************
 * cobol.php
 * ----------
 * Author: BenBE (BenBE@omorphia.org)
 * Copyright: (c) 2007-2008 BenBE (http://www.omorphia.de/)
 * Release Version: 1.0.9.0
 * Date Started: 2007/07/02
 *
 * COBOL language file for GeSHi.
 *
 * Most of the compiler directives, reserved words and intrinsic functions are
 * from the 2009 COBOL Draft Standard, Micro Focus, and GNU Cobol. The lists of
 * these were found in the draft standard (Sections 8.9, 8.10, 8.11 and 8.12),
 * Micro Focus' COBOL Language Reference and the GNU Cobol FAQ.
 *
 * CHANGES
 * -------
 * 2013/11/17 (1.0.8.13)
 *  -  Changed compiler directives to be handled like comments.
 *  -  Fixed bug where keywords in identifiers were highlighted.
 * 2013/08/19 (1.0.8.13)
 *  -  Added more intrinsic functions, reserved words, and compiler directives
 *     from the (upcoming) standard.
 * 2013/07/07 (1.0.8.13)
 *  -  Added more reserved words, compiler directives and intrinsic functions.
 *  -  Added modern comment syntax and corrected the other one.
 *  -  Set OOLANG to true and added an object splitter.
 *  -  Added extra symbols.
 *  -  Fixed bug where scope terminators were only the statement in
 *     end-statement was highlighted.
 *
 * TODO (updated 2013/11/17)
 * -------------------------
 *
 *************************************************************************************
 *
 *     This file is part of GeSHi.
 *
 *   GeSHi is free software; you can redistribute it and/or modify
 *   it under the terms of the GNU General Public License as published by
 *   the Free Software Foundation; either version 2 of the License, or
 *   (at your option) any later version.
 *
 *   GeSHi is distributed in the hope that it will be useful,
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *   GNU General Public License for more details.
 *
 *   You should have received a copy of the GNU General Public License
 *   along with GeSHi; if not, write to the Free Software
 *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 ************************************************************************************/

$language_data = array (
    'LANG_NAME' => 'COBOL',
    'COMMENT_SINGLE' => array(
        1 => '*>', // COBOL 2002 inline comment
        2 => '>>'  // COBOL compiler directive indicator
        ),
    'COMMENT_MULTI' => array(),
    'COMMENT_REGEXP' => array(
        1 => '/^......(\*.*?$)/m', // Fixed-form comment
        2 => '/\$SET.*/i'          // MF compiler directive indicator
        ),
    'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE,
    'QUOTEMARKS' => array('"', "'"),
    'ESCAPE_CHAR' => '',
    'NUMBERS' =>
        GESHI_NUMBER_INT_BASIC |
        GESHI_NUMBER_FLT_NONSCI |
        GESHI_NUMBER_FLT_SCI_SHORT |
        GESHI_NUMBER_FLT_SCI_ZERO,
    'KEYWORDS' => array(
        // Statements containing spaces. These are separate to other statements
        // so that they are highlighted correctly.
        1 => array(
            'DELETE FILE', 'GO TO', 'NEXT SENTENCE', 'XML GENERATE',
            'XML PARSE'
            ),

        2 => array( // Other Reserved Words
            '3-D', 'ABSENT', 'ABSTRACT', 'ACCESS', 'ACQUIRE',
            'ACTION', 'ACTIVE-CLASS', 'ACTIVE-X', 'ACTUAL', 'ADDRESS',
            'ADDRESS-ARRAY', 'ADDRESS-OFFSET', 'ADJUSTABLE-COLUMNS',
            'ADVANCING', 'AFP-5A', 'AFTER', 'ALIGNED', 'ALIGNMENT', 'ALL',
            'ALLOW', 'ALLOWING', 'ALPHABET', 'ALPHABETIC',
            'ALPHABETIC-LOWER', 'ALPHABETIC-UPPER', 'ALPHANUMERIC',
            'ALPHANUMERIC-EDITED', 'ALSO', 'ALTERNATE', 'AND', 'ANY',
            'ANYCASE',
            'APPLY', 'ARE', 'AREA', 'AREAS', 'ARGUMENT-NUMBER',
            'ARGUMENT-VALUE',
            'ARITHMETIC', 'AS', 'ASCENDING',
            'ASSEMBLY-ATTRIBUTES', 'ASSIGN', 'AT', 'ATTRIBUTE', 'AUTHOR',
            'AUTO', 'AUTO-DECIMAL', 'AUTO-HYPHEN-SKIP', 'AUTO-MINIMIZE',
            'AUTO-RESIZE', 'AUTO-SKIP', 'AUTO-SPIN', 'AUTOMATIC',
            'AUTOTERMINATE', 'AWAY-FROM-ZERO',
            'AX-EVENT-LIST', 'B-AND', 'B-EXOR', 'B-LEFT',
            'B-NOT', 'B-OR', 'B-RIGHT', 'B-XOR', 'BACKGROUND-COLOR',
            'BACKGROUND-COLOUR', 'BACKGROUND-HIGH', 'BACKGROUND-LOW',
            'BACKGROUND-STANDARD', 'BACKWARD', 'BAR', 'BASED', 'BASIS', 'BEEP',
            'BEFORE', 'BEGINNING', 'BELL', 'BINARY', 'BINARY-CHAR',
            'BINARY-DOUBLE', 'BINARY-LONG', 'BINARY-SHORT', 'BIND', 'BIT',
            'BITMAP', 'BITMAP-END', 'BITMAP-HANDLE', 'BITMAP-NUMBER',
            'BITMAP-RAW-HEIGHT', 'BITMAP-RAW-WIDTH', 'BITMAP-SCALE',
            'BITMAP-START', 'BITMAP-TIMER', 'BITMAP-TRAILING', 'BITMAP-WIDTH',
            'BLANK', 'BLINK', 'BLINKING', 'BLOB', 'BLOB-FILE', 'BLOB-LOCATOR',
            'BLOCK', 'BOLD', 'BOOLEAN', 'BOTTOM', 'BOX', 'BOXED', 'BROWSING',
            'BUSY', 'BUTTONS', 'BY', 'C01', 'C02', 'C03', 'C04',
            'C05',
            'C06', 'C07', 'C08', 'C09', 'C10', 'C11', 'C12', 'CALENDAR-FONT',
            'CALLED', 'CANCEL-BUTTON', 'CAPACITY', 'CATCH', 'CBL',
            'CBL-CTR', 'CCOL', 'CD', 'CELL', 'CELL-COLOR', 'CELL-DATA',
            'CELL-FONT', 'CELL-PROTECTION', 'CELLS', 'CENTER', 'CENTERED',
            'CENTERED-HEADINGS', 'CENTURY-DATE', 'CENTURY-DAY', 'CF', 'CH',
            'CHAINING', 'CHANGED', 'CHAR-VARYING',
            'CHARACTER',
            'CHARACTERS', 'CHART', 'CHECK-BOX', 'CHECKING', 'CLASS',
            'CLASS-ATTRIBUTES', 'CLASS-CONTROL', 'CLASS-ID', 'CLASS-OBJECT',
            'CLASSIFICATION',
            'CLEAR-SELECTION', 'CLINE', 'CLINES', 'CLOB', 'CLOB-FILE',
            'CLOB-LOCATOR', 'CLOCK-UNITS', 'COBOL', 'CODE', 'CODE-SET',
            'COERCION', 'COL', 'COLLATING', 'COLORS', 'COLOUR',
            'COLOURS', 'COLS', 'COLUMN', 'COLUMN-COLOR', 'COLUMN-DIVIDERS',
            'COLUMN-FONT', 'COLUMN-HEADINGS', 'COLUMN-PROTECTION', 'COLUMNS',
            'COM-REG', 'COMBO-BOX', 'COMMA', 'COMMITMENT', 'COMMON',
            'COMMUNICATION', 'COMP', 'COMP-0', 'COMP-1', 'COMP-2', 'COMP-3',
            'COMP-4', 'COMP-5', 'COMP-6', 'COMP-X', 'COMPRESSION',
            'COMPUTATIONAL', 'COMPUTATIONAL-0', 'COMPUTATIONAL-1',
            'COMPUTATIONAL-2', 'COMPUTATIONAL-3', 'COMPUTATIONAL-4',
            'COMPUTATIONAL-5', 'COMPUTATIONAL-6', 'COMPUTATIONAL-X',
            'CONDITION-VALUE', 'CONFIGURATION', 'CONSOLE', 'CONSTANT',
            'CONSTRAIN', 'CONSTRAINTS', 'CONTAINS', 'CONTENT',
            'CONTROL', 'CONTROL-AREA', 'CONTROLS', 'CONTROLS-UNCROPPED',
            'CONVERSION', 'CONVERT', 'CONVERTING', 'COPY-SELECTION',
            'CORE-INDEX', 'CORR', 'CORRESPONDING', 'COUNT',
            'CREATING', 'CRT', 'CRT-UNDER', 'CSIZE', 'CSP', 'CURRENCY',
            'CURSOR', 'CURSOR-COL', 'CURSOR-COLOR',
            'CURSOR-FRAME-WIDTH', 'CURSOR-ROW', 'CURSOR-X', 'CURSOR-Y',
            'CUSTOM-ATTRIBUTE', 'CUSTOM-PRINT-TEMPLATE', 'CYCLE', 'CYL-INDEX',
            'CYL-OVERFLOW', 'DASHED', 'DATA', 'DATA-COLUMNS',
            'DATA-POINTER', 'DATA-TYPES', 'DATABASE-KEY', 'DATABASE-KEY-LONG',
            'DATE', 'DATE-COMPILED', 'DATE-ENTRY', 'DATE-RECORD',
            'DATE-WRITTEN', 'DAY', 'DAY-OF-WEEK', 'DBCLOB', 'DBCLOB-FILE',
            'DBCLOB-LOCATOR', 'DBCS', 'DE', 'DEBUG', 'DEBUG-CONTENTS',
            'DEBUG-ITEM', 'DEBUG-LINE', 'DEBUG-NAME', 'DEBUG-SUB-1',
            'DEBUG-SUB-2', 'DEBUG-SUB-3', 'DEBUGGING', 'DECIMAL',
            'DECIMAL-POINT', 'DECLARATIVES', 'DEFAULT',
            'DEFAULT-BUTTON', 'DEFAULT-FONT', 'DEFINITION',
            'DELEGATE-ID', 'DELIMITED', 'DELIMITER', 'DEPENDING',
            'DESCENDING', 'DESTINATION', 'DESTROY', 'DETAIL', 'DICTIONARY',
            'DISABLE', 'DISC', 'DISJOINING', 'DISK', 'DISP',
            'DISPLAY-1', 'DISPLAY-COLUMNS', 'DISPLAY-FORMAT', 'DISPLAY-ST',
            'DIVIDER-COLOR', 'DIVIDERS', 'DIVISION', 'DOT-DASH',
            'DOTTED', 'DOWN', 'DRAG-COLOR', 'DRAW', 'DROP', 'DROP-DOWN',
            'DROP-LIST', 'DUPLICATES', 'DYNAMIC', 'EBCDIC', 'EC', 'ECHO', 'EGCS',
            'EGI', 'EJECT', 'ELEMENTARY', 'ELSE', 'EMI', 'EMPTY-CHECK',
            'ENABLE', 'ENABLED', 'END', 'END-ACCEPT', 'END-ADD', 'END-CALL',
            'END-CHAIN', 'END-COLOR', 'END-COMPUTE', 'END-DELEGATE',
            'END-DELETE', 'END-DISPLAY', 'END-DIVIDE', 'END-EVALUATE',
            'END-IF', 'END-INVOKE', 'END-MODIFY', 'END-MOVE', 'END-MULTIPLY',
            'END-OF-PAGE', 'END-PERFORM', 'END-READ', 'END-RECEIVE',
            'END-RETURN', 'END-REWRITE', 'END-SEARCH', 'END-START',
            'END-STRING', 'END-SUBTRACT', 'END-SYNC', 'END-TRY',
            'END-UNSTRING', 'END-WAIT', 'END-WRITE', 'END-XML', 'ENDING',
            'ENGRAVED', 'ENSURE-VISIBLE', 'ENTRY-CONVENTION',
            'ENTRY-FIELD',
            'ENTRY-REASON', 'ENUM', 'ENUM-ID', 'ENVIRONMENT',
            'ENVIRONMENT-NAME', 'ENVIRONMENT-VALUE', 'EOL', 'EOP',
            'EOS', 'EQUAL', 'EQUALS', 'ERASE', 'ERROR', 'ESCAPE',
            'ESCAPE-BUTTON', 'ESI', 'EVENT', 'EVENT-LIST',
            'EVENT-POINTER', 'EVERY', 'EXCEEDS', 'EXCEPTION',
            'EXCEPTION-OBJECT', 'EXCEPTION-VALUE', 'EXCESS-3',
            'EXCLUDE-EVENT-LIST', 'EXCLUSIVE',
            'EXPAND', 'EXPANDS', 'EXTEND', 'EXTENDED',
            'EXTENDED-SEARCH', 'EXTENSION', 'EXTERNAL', 'EXTERNAL-FORM',
            'EXTERNALLY-DESCRIBED-KEY', 'FACTORY', 'FALSE', 'FD',
            'FH--FCD', 'FH--KEYDEF', 'FILE', 'FILE-CONTROL', 'FILE-ID',
            'FILE-LIMIT', 'FILE-LIMITS', 'FILE-NAME', 'FILE-POS', 'FILL-COLOR',
            'FILL-COLOR2', 'FILL-PERCENT', 'FILLER', 'FINAL', 'FINALLY',
            'FINISH-REASON', 'FIRST', 'FIXED', 'FIXED-FONT', 'FIXED-WIDTH',
            'FLAT', 'FLAT-BUTTONS', 'FLOAT-BINARY-7', 'FLOAT-BINARY-16',
            'FLOAT-BINARY-34', 'FLOAT-DECIMAL-16', 'FLOAT-DECIMAL-34',
            'FLOAT-EXTENDED', 'FLOAT-LONG',
            'FLOAT-SHORT', 'FLOATING', 'FONT', 'FOOTING', 'FOR',
            'FOREGROUND-COLOR', 'FOREGROUND-COLOUR', 'FOREVER', 'FORMAT',
            'FRAME', 'FRAMED', 'FROM', 'FULL', 'FULL-HEIGHT',
            'FUNCTION', 'FUNCTION-ID', 'FUNCTION-POINTER', 'GENERATE',
            'GET', 'GETTER', 'GIVING', 'GLOBAL', 'GO-BACK', 'GO-FORWARD',
            'GO-HOME', 'GO-SEARCH', 'GRAPHICAL', 'GREATER', 'GRID',
            'GRIP', 'GROUP', 'GROUP-USAGE', 'GROUP-VALUE', 'HANDLE',
            'HAS-CHILDREN', 'HEADING', 'HEADING-COLOR', 'HEADING-DIVIDER-COLOR',
            'HEADING-FONT', 'HEAVY', 'HEIGHT', 'HEIGHT-IN-CELLS', 'HELP-ID',
            'HIDDEN-DATA', 'HIGH', 'HIGH-COLOR', 'HIGH-VALUE', 'HIGH-VALUES',
            'HIGHLIGHT', 'HORIZONTAL', 'HOT-TRACK', 'HSCROLL', 'HSCROLL-POS',
            'I-O', 'I-O-CONTROL', 'ICON', 'ID', 'IDENTIFICATION',
            'IDENTIFIED', 'IFINITY', 'IGNORE', 'IGNORING', 'IMPLEMENTS', 'IN',
            'INDEPENDENT', 'INDEX', 'INDEXED', 'INDEXER', 'INDEXER-ID', 'INDIC',
            'INDICATE', 'INDICATOR', 'INDICATORS', 'INDIRECT',
            'INHERITING', 'INHERITS',
            'INITIAL', 'INITIALIZED', 'INPUT',
            'INPUT-OUTPUT', 'INQUIRE', 'INSERT', 'INSERT-ROWS',
            'INSERTION-INDEX', 'INSTALLATION', 'INSTANCE',
            'INTERFACE', 'INTERFACE-ID', 'INTERMEDIATE',
            'INTERNAL', 'INTO', 'INTRINSIC',
            'INVALID', 'INVOKED', 'IS', 'ITEM', 'ITEM-BOLD',
            'ITEM-ID', 'ITEM-TEXT', 'ITEM-TO-ADD', 'ITEM-TO-DELETE',
            'ITEM-TO-EMPTY', 'ITEM-VALUE', 'ITERATOR', 'ITERATOR-ID', 'J',
            'JOINED', 'JOINING', 'JUST', 'JUSTIFIED', 'KANJI',
            'KEPT', 'KEY', 'KEY-YY', 'KEYBOARD', 'LABEL', 'LABEL-OFFSET',
            'LARGE-FONT', 'LAST', 'LAST-ROW', 'LAYOUT-DATA', 'LAYOUT-MANAGER',
            'LC_ALL', 'LC_COLLATE', 'LC_CTYPE', 'LC_CURRENCY', 'LC_MESSAGES',
            'LC_MONETARY', 'LC_NUMERIC', 'LC_TIME', 'LEADING', 'LEADING-SHIFT',
            'LEAVE', 'LEFT', 'LEFT-JUSTIFY', 'LEFT-TEXT', 'LEFTLINE',
            'LENGTH-CHECK', 'LESS', 'LIMIT', 'LIMITS', 'LIN', 'LINAGE',
            'LINAGE-COUNTER', 'LINE', 'LINE-COUNTER', 'LINES', 'LINES-AT-ROOT',
            'LINK', 'LINKAGE', 'LIST', 'LIST-BOX', 'LM-RESIZE', 'LOCAL-STORAGE',
            'LOCALE', 'LOCK', 'LOCKING', 'LONG-DATE', 'LONG-VARBINARY',
            'LONG-VARCHAR', 'LOW', 'LOW-COLOR', 'LOW-VALUE', 'LOW-VALUES',
            'LOWER', 'LOWERED', 'LOWLIGHT', 'MANUAL', 'MASS-UPDATE',
            'MASTER-INDEX', 'MAX-HEIGHT', 'MAX-LINES', 'MAX-PROGRESS',
            'MAX-SIZE', 'MAX-TEXT', 'MAX-VAL', 'MAX-WIDTH', 'MDI-CHILD',
            'MDI-FRAME', 'MEDIUM-FONT', 'MEMORY', 'MENU', 'MESSAGE',
            'MESSAGES', 'METACLASS', 'METHOD', 'METHOD-ID', 'MIN-HEIGHT',
            'MIN-LINES', 'MIN-SIZE', 'MIN-VAL', 'MIN-WIDTH', 'MODAL', 'MODE',
            'MODELESS', 'MODIFIED', 'MODULES', 'MONITOR-POINTER',
            'MORE-LABELS', 'MULTILINE',
            'MUTEX-POINTER', 'NAME', 'NAMED', 'NATIONAL',
            'NATIONAL-EDITED', 'NATIVE', 'NAVIGATE-URL', 'NCHAR',
            'NEAREST-AWAY-FROM-ZERO', 'NEAREST-EVEN', 'NEAREST-TOWARD-ZERO',
            'NEGATIVE', 'NEGATIVE-INFINITY',
            'NESTED', 'NET-EVENT-LIST', 'NEW', 'NEWABLE', 'NEXT ', 'NEXT-ITEM',
            'NO', 'NO-AUTO-DEFAULT', 'NO-AUTOSEL', 'NO-BOX', 'NO-CELL-DRAG',
            'NO-CLOSE', 'NO-DIVIDERS', 'NO-ECHO', 'NO-F4', 'NO-FOCUS',
            'NO-GROUP-TAB', 'NO-KEY-LETTER', 'NO-SEARCH', 'NO-TAB', 'NO-UPDOWN',
            'NOMINAL', 'NONE', 'NORMAL', 'NOT', 'NOT-A-NUMBER', 'NOTIFY',
            'NOTIFY-CHANGE', 'NOTIFY-DBLCLICK', 'NOTIFY-SELCHANGE',
            'NSTD-REELS', 'NULL', 'NULLS', 'NUM-COL-HEADINGS',
            'NUM-ROW-HEADINGS', 'NUM-ROWS', 'NUMBER', 'NUMBERS', 'NUMERIC',
            'NUMERIC-EDITED', 'NUMERIC-FILL', 'O-FILL', 'OBJECT',
            'OBJECT-COMPUTER', 'OBJECT-ID', 'OBJECT-REFERENCE',
            'OBJECT-STORAGE', 'OCCURS', 'OF', 'OFF', 'OK-BUTTON', 'OMITTED',
            'ONLY', 'OOSTACKPTR', 'OPERATOR', 'OPERATOR-ID',
            'OPTIONAL', 'OPTIONS', 'OR', 'ORDER', 'ORGANIZATION', 'OTHER',
            'OTHERWISE', 'OUTPUT', 'OVERFLOW', 'OVERLAP-LEFT', 'OVERLAP-TOP',
            'OVERLAPPED', 'OVERLINE', 'OVERRIDE', 'PACKED-DECIMAL',
            'PADDING', 'PAGE', 'PAGE-COUNTER', 'PAGE-SETUP', 'PAGE-SIZE',
            'PAGED', 'PANEL-INDEX', 'PANEL-STYLE', 'PANEL-TEXT', 'PANEL-WIDTHS',
            'PARAGRAPH', 'PARAMS', 'PARENT', 'PARSE', 'PARTIAL', 'PASSWORD',
            'PERMANENT', 'PF', 'PH', 'PIC', 'PICTURE', 'PIXEL',
            'PIXELS', 'PLACEMENT', 'PLUS', 'POINTER', 'POP-UP', 'POSITION',
            'POSITION-SHIFT', 'POSITIONING', 'POSITIVE', 'POSITIVE-INFINITY',
            'PREFIXED', 'PREFIXING', 'PRESENT',
            'PREVIOUS', 'PRINT', 'PRINT-CONTROL', 'PRINT-NO-PROMPT',
            'PRINT-PREVIEW', 'PRINT-SWITCH', 'PRINTER', 'PRINTER-1', 'PRINTING',
            'PRIOR', 'PRIORITY', 'PRIVATE', 'PROCEDURE', 'PROCEDURE-POINTER',
            'PROCEDURES', 'PROCEED', 'PROCESS', 'PROCESSING', 'PROGRAM',
            'PROGRAM-ID', 'PROGRAM-POINTER', 'PROGRESS', 'PROHIBITED',
            'PROMPT', 'PROPERTIES',
            'PROPERTY', 'PROPERTY-ID', 'PROPERTY-VALUE', 'PROTECTED',
            'PROTOTYPE', 'PUBLIC', 'PURGE', 'PUSH-BUTTON', 'QUERY-INDEX',
            'QUEUE', 'QUOTE', 'QUOTES', 'RADIO-BUTTON', 'RAISED',
            'RAISING', 'RD', 'READ-ONLY', 'READING',
            'READY', 'RECORD', 'RECORD-DATA', 'RECORD-OVERFLOW',
            'RECORD-TO-ADD', 'RECORD-TO-DELETE', 'RECORDING', 'RECORDS',
            'RECURSIVE', 'REDEFINE', 'REDEFINES', 'REDEFINITION', 'REEL',
            'REFERENCE', 'REFERENCES', 'REFRESH', 'REGION-COLOR', 'RELATION',
            'RELATIVE', 'RELOAD', 'REMAINDER', 'REMARKS', 'REMOVAL',
            'RENAMES', 'REORG-CRITERIA', 'REPEATED', 'REPLACE', 'REPLACING',
            'REPORT', 'REPORTING', 'REPORTS', 'REPOSITORY', 'REQUIRED',
            'REPRESENTS-NOT-A-NUMBER',
            'REREAD', 'RERUN', 'RESERVE', 'RESET-GRID', 'RESET-LIST',
            'RESET-TABS', 'RESIZABLE', 'RESTRICTED', 'RESULT-SET-LOCATOR',
            'RETRY', 'RETURN-CODE', 'RETURNING',
            'REVERSE-VIDEO', 'REVERSED', 'REWIND', 'RF', 'RH',
            'RIGHT', 'RIGHT-ALIGN', 'RIGHT-JUSTIFY', 'RIMMED',
            'ROLLING', 'ROUNDED', 'ROUNDING', 'ROW-COLOR', 'ROW-COLOR-PATTERN',
            'ROW-DIVIDERS', 'ROW-FONT', 'ROW-HEADINGS', 'ROW-PROTECTION',
            'ROWID', 'RUN', 'S01', 'S02', 'S03', 'S04', 'S05', 'SAME',
            'SAVE-AS', 'SAVE-AS-NO-PROMPT', 'SCREEN', 'SCROLL', 'SCROLL-BAR',
            'SD', 'SEARCH-OPTIONS', 'SEARCH-TEXT', 'SECONDS',
            'SECTION', 'SECURE', 'SECURITY', 'SEEK', 'SEGMENT', 'SEGMENT-LIMIT',
            'SELECT-ALL', 'SELECTION-INDEX', 'SELECTION-TEXT',
            'SELECTIVE', 'SELF', 'SELF-ACT', 'SELFCLASS', 'SEMAPHORE-POINTER',
            'SEND', 'SENTENCE', 'SEPARATE', 'SEPARATION', 'SEQUENCE',
            'SEQUENTIAL', 'SETTER', 'SHADING', 'SHADOW',
            'SHARING', 'SHIFT-IN', 'SHIFT-OUT', 'SHORT-DATE', 'SHOW-LINES',
            'SHOW-NONE', 'SHOW-SEL-ALWAYS', 'SIGNED', 'SIGNED-INT',
            'SIGNED-LONG', 'SIGNED-SHORT', 'SIZE', 'SKIP1',
            'SKIP2', 'SKIP3', 'SMALL-FONT', 'SORT-CONTROL',
            'SORT-CORE-SIZE', 'SORT-FILE-SIZE', 'SORT-MERGE', 'SORT-MESSAGE',
            'SORT-MODE-SIZE', 'SORT-OPTION', 'SORT-ORDER', 'SORT-RETURN',
            'SORT-TAPE', 'SORT-TAPES', 'SOURCE', 'SOURCE-COMPUTER', 'SOURCES',
            'SPACE', 'SPACE-FILL', 'SPACES', 'SPECIAL-NAMES', 'SPINNER', 'SQL',
            'SQUARE', 'STANDARD', 'STANDARD-1', 'STANDARD-2', 'STANDARD-3',
            'STANDARD-BINARY', 'STANDARD-DECIMAL',
            'START-X', 'START-Y', 'STARTING', 'STATEMENT', 'STATIC',
            'STATIC-LIST',
            'STATUS', 'STATUS-BAR', 'STATUS-TEXT', 'STEP',
            'STOP-BROWSER', 'STRONG', 'STYLE', 'SUB-QUEUE-1',
            'SUB-QUEUE-2', 'SUB-QUEUE-3', 'SUBFILE', 'SUBWINDOW',
            'SUFFIXING', 'SUPER', 'SYMBOL', 'SYMBOLIC',
            'SYNCHRONIZED', 'SYSIN', 'SYSIPT', 'SYSLST', 'SYSOUT',
            'SYSPCH', 'SYSPUNCH', 'SYSTEM', 'SYSTEM-DEFAULT', 'SYSTEM-INFO',
            'TAB', 'TAB-CONTROL', 'TAB-TO-ADD', 'TAB-TO-DELETE', 'TABLE',
            'TALLY', 'TALLYING', 'TAPE', 'TAPES', 'TEMPORARY', 'TERMINAL',
            'TERMINAL-INFO', 'TERMINATION-VALUE', 'TEST', 'TEXT',
            'THAN', 'THEN', 'THREAD', 'THREAD-LOCAL', 'THREAD-LOCAL-STORAGE',
            'THREAD-POINTER', 'THROUGH', 'THRU', 'THUMB-POSITION',
            'TILED-HEADINGS', 'TIME', 'TIME-OF-DAY', 'TIME-OUT', 'TIME-RECORD',
            'TIMEOUT', 'TIMES', 'TIMESTAMP', 'TIMESTAMP-OFFSET',
            'TIMESTAMP-OFFSET-RECORD', 'TIMESTAMP-RECORD', 'TITLE', 'TITLE-BAR',
            'TITLE-POSITION', 'TO', 'TOOL-BAR', 'TOP', 'TOTALED', 'TOTALING',
            'TOWARD-GREATER', 'TOWARD-LESSER',
            'TRACE', 'TRACK-AREA', 'TRACK-LIMIT', 'TRACK-THUMB', 'TRACKS',
            'TRADITIONAL-FONT', 'TRAILING', 'TRAILING-SHIFT', 'TRAILING-SIGN',
            'TRANSACTION', 'TRANSPARENT', 'TRANSPARENT-COLOR',
            'TREE-VIEW', 'TRUE', 'TRUNCATION', 'TYPE', 'TYPEDEF', 'UCS-4',
            'UNDERLINE', 'UNDERLINED', 'UNEQUAL', 'UNFRAMED', 'UNIT', 'UNITS',
            'UNIVERSAL', 'UNSIGNED', 'UNSIGNED-INT', 'UNSIGNED-LONG',
            'UNSIGNED-SHORT',
            'UNSORTED', 'UP', 'UPDATE', 'UNTIL', 'UPON', 'UPPER',
            'UPSI-0', 'UPSI-1', 'UPSI-2', 'UPSI-3', 'UPSI-4', 'UPSI-5',
            'UPSI-6', 'UPSI-7', 'USAGE', 'USE-ALT', 'USE-RETURN',
            'USE-TAB', 'USER', 'USER-COLORS', 'USER-DEFAULT', 'USER-GRAY',
            'USER-WHITE', 'USING', 'UTF-16', 'UTF-8', 'VALID',
            'VAL-STATUS', 'VALIDATE-STATUS',
            'VALUE', 'VALUE-FORMAT', 'VALUES', 'VALUETYPE', 'VALUETYPE-ID',
            'VARBINARY', 'VARIABLE', 'VARIANT', 'VARYING', 'VERTICAL',
            'VERY-HEAVY', 'VIRTUAL-WIDTH', 'VISIBLE', 'VPADDING', 'VSCROLL',
            'VSCROLL-BAR', 'VSCROLL-POS', 'VTOP', 'WEB-BROWSER', 'WHEN',
            'WHERE', 'WIDTH', 'WIDTH-IN-CELLS', 'WINDOW',
            'WITH', 'WORDS', 'WORKING-STORAGE', 'WRAP', 'WRITE-ONLY',
            'WRITE-VERIFY', 'WRITING', ' XML', 'XML ', 'XML-CODE', 'XML-EVENT',
            'XML-NTEXT', 'XML-TEXT', 'YIELDING', 'YYYYDDD', 'YYYYMMDD', 'ZERO',
            'ZERO-FILL', 'ZEROES', 'ZEROS'
            ),
        3 => array( // Statement Keywords containing no spaces.
            'ACCEPT', 'ADD', 'ALTER', 'ALLOCATE', 'ATTACH', 'CALL', 'CANCEL',
            'CHAIN', 'CREATE',
            'CLOSE', 'COLOR', 'COMPUTE', 'COMMIT', 'CONTINUE',
            'COPY', 'DECLARE', 'DELEGATE', 'DELETE', 'DETACH', 'DISPLAY',
            'DIVIDE',
            'ENTER', 'ENTRY', 'EVALUATE', 'EXAMINE',
            'EXEC', 'EXECUTE', 'EXHIBIT', 'EXIT', 'FREE', 'GOBACK',
            'IF',  'INITIALIZE', 'INITIATE', 'INSPECT', 'INVOKE', 'MERGE',
            'MODIFY', 'MOVE', 'MULTIPLY', 'NOTE', 'ON', 'OPEN',
            'PERFORM', 'RAISE', 'READ', 'RECEIVE', 'RELEASE', 'RETURN',
            'RESET', 'RESUME',
            'REWRITE', 'ROLLBACK', 'SEARCH', 'SELECT', 'SERVICE', 'SET', 'SORT',
            'START', 'STOP', 'STRING', 'SUBTRACT', 'SYNC',
            'SUPPRESS', 'TERMINATE',
            'TRANSFORM', 'TRY', 'UNLOCKFILE', 'UNLOCK', 'UNSTRING', 'USE',
            'VALIDATE', 'WAIT', 'WRITE'
            ),
        4 => array( // Intrinsic functions
            'ABS', 'ACOS', 'ANNUITY', 'ASIN', 'ATAN', 'BOOLEAN-OF-INTEGER',
            'BYTE-LENGTH', 'CHAR', 'CHAR-NATIONAL',
            'COS', 'COMBINED-DATETIME', 'CONCATENATE', 'CURRENT-DATE',
            'DATE-OF-INTEGER', 'DATE-TO-YYYYMMDD', 'DAY-TO-YYYYDDD',
            'DAY-OF-INTEGER', 'DISPLAY-OF', 'E', 'EXCEPTION-FILE',
            'EXCEPTION-FILE-N', 'EXCEPTION-LOCATION',
            'EXCEPTION-LOCATION-N', 'EXCEPTION-STATEMENT', 'EXCEPTION-STATUS',
            'EXP', 'EXP10', 'FACTORIAL', 'FORMATTED-CURRENT-DATE',
            'FORMATTED-DATE', 'FORMATTED-DATETIME', 'FORMATTED-TIME',
            'FRACTION-PART', 'HIGHEST-ALGEBRAIC', 'INTEGER',
            'INTEGER-OF-BOOLEAN', 'INTEGER-OF-DATE', 'INTEGER-OF-DAY',
            'INTEGER-OF-FORMATTED-DATE', 'INTEGER-PART', 'LENGTH',
            'LOCALE-COMPARE',
            'LOCALE-DATE', 'LOCALE-TIME', 'LOCALE-TIME-FROM-SECONDS',
            'LOCALE-TIME-FROM-SECS', 'LOG',
            'LOG10', 'LOWER-CASE', 'LOWEST-ALGEBRAIC',
            'MAX', 'MEAN', 'MEDIAN', 'MIDRANGE',
            'MIN', 'MOD', 'NATIONAL-OF', 'NUMVAL', 'NUMVAL-C', 'NUMVAL-F',
            'ORD', 'ORD-MAX', 'ORD-MIN',
            'PI', 'PRESENT-VALUE', 'RANDOM', 'RANGE', 'REM', 'REVERSE',
            'SECONDS-FROM-FORMATTED-TIME', 'SIGN', 'SIN', 'SQRT',
            'SECONDS-PAST-MIDNIGHT', 'STANDARD-DEVIATION', 'STANDARD-COMPARE',
            'STORED-CHAR-LENGTH',
            'SUBSTITUTE', 'SUBSTITUE-CASE', 'SUM', 'TAN', 'TEST-DATE-YYYYMMDD',
            'TEST-DAY-YYYYDDD', 'TEST-FORMATTED-TIME', 'TEST-NUMVAL',
            'TEST-NUMVAL-C', 'TEST-NUMVAL-F',
            'TRIM', 'UPPER-CASE', 'VARIANCE', 'YEAR-TO-YYYY', 'WHEN-COMPILED'
            ),
        ),
    'SYMBOLS' => array(
        //  Arithmetic and comparison operators must be surrounded by spaces.
        ' + ', ' - ', ' * ', ' / ', ' ** ', ' ^ ',
        '.', ',',
        ' = ', ' < ', ' > ', ' >= ', ' <= ', ' <> ',
        '(', ')', '[', ']'
        ),
    'CASE_SENSITIVE' => array(
        GESHI_COMMENTS => false,
        1 => false,
        2 => false,
        3 => false,
        4 => false,
        ),
    'STYLES' => array(
        'KEYWORDS' => array(
            1 => 'color: #000000; font-weight: bold;',
            2 => 'color: #008000; font-weight: bold;',
            3 => 'color: #000000; font-weight: bold;',
            4 => 'color: #9d7700;',
            ),
        'COMMENTS' => array(
            1 => 'color: #a0a0a0; font-style: italic;',
            2 => 'color: #000080; font-weight: bold;',
            ),
        'ESCAPE_CHAR' => array(
            ),
        'BRACKETS' => array(
            0 => 'color: #339933;'
            ),
        'STRINGS' => array(
            0 => 'color: #ff0000;'
            ),
        'NUMBERS' => array(
            0 => 'color: #993399;'
            ),
        'METHODS' => array(
            1 => 'color: #800080;'
            ),
        'SYMBOLS' => array(
            0 => 'color: #000066;'
            ),
        'REGEXPS' => array(
            ),
        'SCRIPT' => array(
            )
        ),
    'URLS' => array(
        1 => '',
        2 => '',
        3 => '',
        4 => ''
        ),
    'OOLANG' => true,
    'OBJECT_SPLITTERS' => array(
        1 => '::'
        ),
    'REGEXPS' => array(
        ),
    'STRICT_MODE_APPLIES' => GESHI_NEVER,
    'SCRIPT_DELIMITERS' => array(
        ),
    'HIGHLIGHT_STRICT_BLOCK' => array(
        ),
    'TAB_WIDTH' => 4,
    'PARSER_CONTROL' => array(
        'KEYWORDS' => array(
            'DISALLOWED_BEFORE' => '(?<![a-zA-Z0-9-\$_\|\#|^&])',
        ),
    ),
);