<?php
/*************************************************************************************
 * cobol.php
 * ----------
 * Author: BenBE (BenBE@omorphia.org)
 * Copyright: (c) 2007-2008 BenBE (http://www.omorphia.de/)
 * Release Version: 1.0.8
 * Date Started: 2007/07/02
 *
 * COBOL language file for GeSHi.
 *
 * CHANGES
 * -------
 *
 * TODO (updated 2007/07/02)
 * -------------------------
 *
 *************************************************************************************
 *
 *     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(),
    'COMMENT_MULTI' => array(),
    'COMMENT_REGEXP' => array(1 => '/^\*.*?$/m'),
    'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE,
    'QUOTEMARKS' => array('"', "'"),
    'ESCAPE_CHAR' => '\\',
    'KEYWORDS' => array(
        1 => array( //Compiler Directives
            "ANSI", "BLANK", "NOBLANK", "CALL-SHARED", "CANCEL", "NOCANCEL",
            "CHECK", "CODE", "NOCODE", "COLUMNS", "COMPACT", "NOCOMPACT",
            "COMPILE", "CONSULT", "NOCONSULT", "CROSSREF", "NOCROSSREF",
            "DIAGNOSE-74", "NODIAGNOSE-74", "DIAGNOSE-85", "NODIAGNOSE-85",
            "DIAGNOSEALL", "NODIAGNOSEALL", "ENDIF", "ENDUNIT", "ENV",
            "ERRORFILE", "ERRORS", "FIPS", "NOFIPS", "FMAP", "HEADING", "HEAP",
            "HIGHPIN", "HIGHREQUESTERS", "ICODE", "NOICODE", "IF", "IFNOT",
            "INNERLIST", "NOINNERLIST", "INSPECT", "NOINSPECT", "LARGEDATA",
            "LD", "LESS-CODE", "LIBRARY", "LINES", "LIST", "NOLIST", "LMAP",
            "NOLMAP", "MAIN", "MAP", "NOMAP", "NLD", "NONSTOP", "NON-SHARED",
            "OPTIMIZE", "PERFORM-TRACE", "PORT", "NOPORT", "RESETTOG",
            "RUNNABLE", "RUNNAMED", "SAVE", "SAVEABEND", "NOSAVEABEND",
            "SEARCH", "NOSEARCH", "SECTION", "SETTOG", "SHARED", "SHOWCOPY",
            "NOSHOWCOPY", "SHOWFILE", "NOSHOWFILE", "SOURCE", "SQL", "NOSQL",
            "SQLMEM", "SUBSET", "SUBTYPE", "SUPPRESS", "NOSUPPRESS", "SYMBOLS",
            "NOSYMBOLS", "SYNTAX", "TANDEM", "TRAP2", "NOTRAP2", "TRAP2-74",
            "NOTRAP2-74", "UL", "WARN", "NOWARN"
            ),
        2 => array( //Statement Keywords
            "ACCEPT", "ADD", "TO", "GIVING", "CORRESPONDING", "ALTER", "CALL",
            "CANCEL", "CHECKPOINT", "CLOSE", "COMPUTE", "CONTINUE", "COPY",
            "DELETE", "DISPLAY", "DIVIDE", "INTO", "REMAINDER", "ENTER",
            "COBOL", "EVALUATE", "EXIT", "GO", "IF", "INITIALIZE", "INSPECT",
            "TALLYING", "REPLACING", "CONVERTING", "LOCKFILE", "MERGE", "MOVE",
            "CORRESPONDING", "MULTIPLY", "BY", "OPEN", "PERFORM", "TIMES",
            "UNTIL", "VARYING", "READ", "RELEASE", "REPLACE", "RETURN",
            "REWRITE", "SEARCH", "SET", "UP", "DOWN", "SORT", "START",
            "STARTBACKUP", "STOP", "STRING", "SUBTRACT", "FROM", "UNLOCKFILE",
            "UNLOCKRECORD", "UNSTRING", "USE", "DEBUGGING", "AFTER",
            "EXCEPTION", "WRITE"
            ),
        3 => array( //Reserved in some contexts
            "ACCESS", "ADDRESS", "ADVANCING", "AFTER", "ALL",
            "ALPHABET", "ALPHABETIC", "ALPHABETIC-LOWER", "ALPHABETIC-UPPER",
            "ALPHANUMERIC", "ALPHANUMERIC-EDITED", "ALSO", "ALTER", "ALTERNATE",
            "AND", "ANY", "APPROXIMATE", "AREA", "AREAS", "ASCENDING", "ASSIGN",
            "AT", "AUTHOR", "BEFORE", "BINARY", "BLANK", "BLOCK", "BOTTOM", "BY",
            "CALL", "CANCEL", "CD", "CF", "CH", "CHARACTER", "CHARACTERS",
            "CHARACTER-SET", "CHECKPOINT", "CLASS", "CLOCK-UNITS", "CLOSE",
            "COBOL", "CODE", "CODE-SET", "COLLATING", "COLUMN", "COMMA",
            "COMMON", "COMMUNICATION", "COMP", "COMP-3", "COMP-5",
            "COMPUTATIONAL", "COMPUTATIONAL-3", "COMPUTATIONAL-5",
            "CONFIGURATION", "CONTAINS", "CONTENT", "CONTINUE", "CONTROL",
            "CONTROLS", "CONVERTING", "COPY", "CORR", "CORRESPONDING", "COUNT",
            "CURRENCY", "DATA", "DATE", "DATE-COMPILED", "DATE-WRITTEN", "DAY",
            "DAY-OF-WEEK", "DE", "DEBUG-CONTENTS", "DEBUG-ITEM", "DEBUG-LINE",
            "DEBUG-SUB-2", "DEBUG-SUB-3", "DEBUGGING", "DECIMAL-POINT",
            "DECLARATIVES", "DEBUG-NAME", "DEBUG-SUB-1", "DELETE", "DELIMITED",
            "DELIMITER", "DEPENDING", "DESCENDING", "DESTINATION", "DETAIL",
            "DISABLE", "DISPLAY", "DIVIDE", "DIVISION", "DOWN", "DUPLICATES",
            "DYNAMIC", "EGI", "ELSE", "EMI", "ENABLE", "END", "END-ADD",
            "END-COMPUTE", "END-DELETE", "END-DIVIDE", "END-EVALUATE", "END-IF",
            "END-MULTIPLY", "END-OF-PAGE", "END-PERFORM", "END-READ",
            "END-RECEIVE", "END-RETURN", "END-REWRITE", "END-SEARCH",
            "END-START", "END-STRING", "END-SUBTRACT", "END-UNSTRING",
            "END-WRITE", "ENTER", "EOP", "EQUAL", "ERROR", "ESI", "EVALUATE",
            "EVERY", "EXCEPTION", "EXCLUSIVE", "EXIT", "EXTEND",
            "EXTENDED-STORAGE", "EXTERNAL", "FALSE", "FD", "FILE",
            "FILE-CONTROL", "FILLER", "FINAL", "FIRST", "FOOTING", "FOR",
            "FROM", "FUNCTION", "GENERATE", "GENERIC", "GIVING", "GLOBAL",
            "GO", "GREATER", "GROUP", "GUARDIAN-ERR", "HEADING", "HIGH-VALUE",
            "HIGH-VALUES", "I-O", "I-O-CONTROL", "IDENTIFICATION", "IF", "IN",
            "INDEX", "INDEXED", "INDICATE", "INITIAL", "INITIALIZE", "INITIATE",
            "INPUT", "INPUT-OUTPUT", "INSPECT", "INSTALLATION", "INTO",
            "INVALID", "IS", "JUST", "JUSTIFIED", "KEY", "LABEL", "LAST",
            "LEADING", "LEFT", "LENGTH", "LESS", "LIMIT", "LIMITS", "LINAGE",
            "LINAGE-COUNTER", "LINE", "LINE-COUNTER", "LINKAGE", "LOCK",
            "LOCKFILE", "LOW-VALUE", "LOW-VALUES", "MEMORY", "MERGE", "MESSAGE",
            "MODE", "MODULES", "MOVE", "MULTIPLE", "MULTIPLY", "NATIVE",
            "NEGATIVE", "NEXT", "NO", "NOT", "NULL", "NULLS", "NUMBER",
            "NUMERIC", "NUMERIC-EDITED", "OBJECT-COMPUTER", "OCCURS", "OF",
            "OFF", "OMITTED", "ON", "OPEN", "OPTIONAL", "OR", "ORDER",
            "ORGANIZATION", "OTHER", "OUTPUT", "OVERFLOW", "PACKED-DECIMAL",
            "PADDING", "PAGE", "PAGE-COUNTER", "PERFORM", "PF", "PH", "PIC",
            "PICTURE", "PLUS", "POINTER", "POSITION", "POSITIVE", "PRINTING",
            "PROCEDURE", "PROCEDURES", "PROCEED", "PROGRAM", "PROGRAM-ID",
            "PROGRAM-STATUS", "PROGRAM-STATUS-1", "PROGRAM-STATUS-2", "PROMPT",
            "PROTECTED", "PURGE", "QUEUE", "QUOTE", "QUOTES", "RANDOM", "RD",
            "READ", "RECEIVE", "RECEIVE-CONTROL", "RECORD", "RECORDS",
            "REDEFINES", "REEL", "REFERENCE", "REFERENCES", "RELATIVE",
            "RELEASE", "REMAINDER", "REMOVAL", "RENAMES", "REPLACE",
            "REPLACING", "REPLY", "REPORT", "REPORTING", "REPORTS", "RERUN",
            "RESERVE", "RESET", "REVERSED", "REWIND", "REWRITE", "RF",
            "RH", "RIGHT", "ROUNDED", "RUN", "SAME", "SD", "SEARCH", "SECTION",
            "SECURITY", "SEGMENT", "SEGMENT-LIMIT", "SELECT", "SEND",
            "SENTENCE", "SEPARATE", "SEQUENCE", "SEQUENTIAL", "SET", "SHARED",
            "SIGN", "SIZE", "SORT", "SORT-MERGE", "SOURCE", "SOURCE-COMPUTER",
            "SPACE", "SPACES", "SPECIAL-NAMES", "STANDARD", "STANDARD-1",
            "STANDARD-2", "START", "STARTBACKUP", "STATUS", "STOP", "STRING",
            "SUB-QUEUE-1", "SUB-QUEUE-2", "SUB-QUEUE-3", "SUBTRACT", "SUM",
            "SUPPRESS", "SYMBOLIC", "SYNC", "SYNCDEPTH", "SYNCHRONIZED",
            "TABLE", "TAL", "TALLYING", "TAPE", "TERMINAL", "TERMINATE", "TEST",
            "TEXT", "THAN", "THEN", "THROUGH", "THRU", "TIME", "TIMES", "TO",
            "TOP", "TRAILING", "TRUE", "TYPE", "UNIT", "UNLOCK", "UNLOCKFILE",
            "UNLOCKRECORD", "UNSTRING", "UNTIL", "UP", "UPON", "USAGE", "USE",
            "USING", "VALUE", "VALUES", "VARYING", "WHEN", "WITH", "WORDS",
            "WORKING-STORAGE", "WRITE", "ZERO", "ZEROES"
            ),
        4 => array( //Standard functions
            "ACOS", "ANNUITY", "ASIN", "ATAN", "CHAR", "COS", "CURRENT-DATE",
            "DATE-OF-INTEGER", "DAY-OF-INTEGER", "FACTORIAL", "INTEGER",
            "INTEGER-OF-DATE", "INTEGER-OF-DAY", "INTEGER-PART", "LENGTH",
            "LOG", "LOG10", "LOWER-CASE", "MAX", "MEAN", "MEDIAN", "MIDRANGE",
            "MIN", "MOD", "NUMVAL", "NUMVAL-C", "ORD", "ORD-MAX", "ORD-MIN",
            "PRESENT-VALUE", "RANDOM", "RANGE", "REM", "REVERSE", "SIN", "SQRT",
            "STANDARD-DEVIATION", "SUM", "TAN", "UPPER-CASE", "VARIANCE",
            "WHEN-COMPILED"
            ),
        5 => array( //Privileged Built-in Functions
            "#IN", "#OUT", "#TERM", "#TEMP", "#DYNAMIC", "COBOL85^ARMTRAP",
            "COBOL85^COMPLETION", "COBOL_COMPLETION_", "COBOL_CONTROL_",
            "COBOL_GETENV_", "COBOL_PUTENV_", "COBOL85^RETURN^SORT^ERRORS",
            "COBOL_RETURN_SORT_ERRORS_", "COBOL85^REWIND^SEQUENTIAL",
            "COBOL_REWIND_SEQUENTIAL_", "COBOL85^SET^SORT^PARAM^TEXT",
            "COBOL_SET_SORT_PARAM_TEXT_", "COBOL85^SET^SORT^PARAM^VALUE",
            "COBOL_SET_SORT_PARAM_VALUE_", "COBOL_SET_MAX_RECORD_",
            "COBOL_SETMODE_", "COBOL85^SPECIAL^OPEN", "COBOL_SPECIAL_OPEN_",
            "COBOLASSIGN", "COBOL_ASSIGN_", "COBOLFILEINFO", "COBOL_FILE_INFO_",
            "COBOLSPOOLOPEN", "CREATEPROCESS", "ALTERPARAMTEXT",
            "CHECKLOGICALNAME", "CHECKMESSAGE", "DELETEASSIGN", "DELETEPARAM",
            "DELETESTARTUP", "GETASSIGNTEXT", "GETASSIGNVALUE", "GETBACKUPCPU",
            "GETPARAMTEXT", "GETSTARTUPTEXT", "PUTASSIGNTEXT", "PUTASSIGNVALUE",
            "PUTPARAMTEXT", "PUTSTARTUPTEXT"
            )
        ),
    'SYMBOLS' => array(
        //Avoid having - in identifiers marked as symbols
        ' + ', ' - ', ' * ', ' / ', ' ** ',
        '.', ',',
        '=',
        '(', ')', '[', ']'
        ),
    'CASE_SENSITIVE' => array(
        GESHI_COMMENTS => false,
        1 => false,
        2 => false,
        3 => false,
        4 => false,
        5 => false
        ),
    'STYLES' => array(
        'KEYWORDS' => array(
            1 => 'color: #000080; font-weight: bold;',
            2 => 'color: #000000; font-weight: bold;',
            3 => 'color: #008000; font-weight: bold;',
            4 => 'color: #000080;',
            5 => 'color: #008000;',
            ),
        'COMMENTS' => array(
            1 => 'color: #a0a0a0; font-style: italic;',
            'MULTI' => 'color: #a0a0a0; font-style: italic;'
            ),
        'ESCAPE_CHAR' => array(
            0 => 'color: #000099; font-weight: bold;'
            ),
        'BRACKETS' => array(
            0 => 'color: #339933;'
            ),
        'STRINGS' => array(
            0 => 'color: #ff0000;'
            ),
        'NUMBERS' => array(
            0 => 'color: #993399;'
            ),
        'METHODS' => array(
            1 => 'color: #202020;'
            ),
        'SYMBOLS' => array(
            0 => 'color: #000066;'
            ),
        'REGEXPS' => array(
            ),
        'SCRIPT' => array(
            )
        ),
    'URLS' => array(
        1 => '',
        2 => '',
        3 => '',
        4 => '',
        5 => ''
        ),
    'OOLANG' => false,
    'OBJECT_SPLITTERS' => array(
        ),
    'REGEXPS' => array(
        ),
    'STRICT_MODE_APPLIES' => GESHI_NEVER,
    'SCRIPT_DELIMITERS' => array(
        ),
    'HIGHLIGHT_STRICT_BLOCK' => array(
        ),
    'TAB_WIDTH' => 4
    );

?>