diff options
Diffstat (limited to 'inc/geshi/cobol.php')
| -rw-r--r-- | inc/geshi/cobol.php | 243 |
1 files changed, 243 insertions, 0 deletions
diff --git a/inc/geshi/cobol.php b/inc/geshi/cobol.php new file mode 100644 index 000000000..d7158199d --- /dev/null +++ b/inc/geshi/cobol.php @@ -0,0 +1,243 @@ +<?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 + ); + +?> |