to-be-integrated/third-party/codemirror-3.15/mode/cobol/cobol.js

   1 /**
   2  * Author: Gautam Mehta
   3  * Branched from CodeMirror's Scheme mode
   4  */
   5 CodeMirror.defineMode("cobol", function () {
   6   var BUILTIN = "builtin", COMMENT = "comment", STRING = "string",
   7       ATOM = "atom", NUMBER = "number", KEYWORD = "keyword", MODTAG = "header",
   8       COBOLLINENUM = "def", PERIOD = "link";
   9   function makeKeywords(str) {
  10     var obj = {}, words = str.split(" ");
  11     for (var i = 0; i < words.length; ++i) obj[words[i]] = true;
  12     return obj;
  13   }
  14   var atoms = makeKeywords("TRUE FALSE ZEROES ZEROS ZERO SPACES SPACE LOW-VALUE LOW-VALUES ");
  15   var keywords = makeKeywords(
  16       "ACCEPT ACCESS ACQUIRE ADD ADDRESS " +
  17       "ADVANCING AFTER ALIAS ALL ALPHABET " +
  18       "ALPHABETIC ALPHABETIC-LOWER ALPHABETIC-UPPER ALPHANUMERIC ALPHANUMERIC-EDITED " +
  19       "ALSO ALTER ALTERNATE AND ANY " +
  20       "ARE AREA AREAS ARITHMETIC ASCENDING " +
  21       "ASSIGN AT ATTRIBUTE AUTHOR AUTO " +
  22       "AUTO-SKIP AUTOMATIC B-AND B-EXOR B-LESS " +
  23       "B-NOT B-OR BACKGROUND-COLOR BACKGROUND-COLOUR BEEP " +
  24       "BEFORE BELL BINARY BIT BITS " +
  25       "BLANK BLINK BLOCK BOOLEAN BOTTOM " +
  26       "BY CALL CANCEL CD CF " +
  27       "CH CHARACTER CHARACTERS CLASS CLOCK-UNITS " +
  28       "CLOSE COBOL CODE CODE-SET COL " +
  29       "COLLATING COLUMN COMMA COMMIT COMMITMENT " +
  30       "COMMON COMMUNICATION COMP COMP-0 COMP-1 " +
  31       "COMP-2 COMP-3 COMP-4 COMP-5 COMP-6 " +
  32       "COMP-7 COMP-8 COMP-9 COMPUTATIONAL COMPUTATIONAL-0 " +
  33       "COMPUTATIONAL-1 COMPUTATIONAL-2 COMPUTATIONAL-3 COMPUTATIONAL-4 COMPUTATIONAL-5 " +
  34       "COMPUTATIONAL-6 COMPUTATIONAL-7 COMPUTATIONAL-8 COMPUTATIONAL-9 COMPUTE " +
  35       "CONFIGURATION CONNECT CONSOLE CONTAINED CONTAINS " +
  36       "CONTENT CONTINUE CONTROL CONTROL-AREA CONTROLS " +
  37       "CONVERTING COPY CORR CORRESPONDING COUNT " +
  38       "CRT CRT-UNDER CURRENCY CURRENT CURSOR " +
  39       "DATA DATE DATE-COMPILED DATE-WRITTEN DAY " +
  40       "DAY-OF-WEEK DB DB-ACCESS-CONTROL-KEY DB-DATA-NAME DB-EXCEPTION " +
  41       "DB-FORMAT-NAME DB-RECORD-NAME DB-SET-NAME DB-STATUS DBCS " +
  42       "DBCS-EDITED DE DEBUG-CONTENTS DEBUG-ITEM DEBUG-LINE " +
  43       "DEBUG-NAME DEBUG-SUB-1 DEBUG-SUB-2 DEBUG-SUB-3 DEBUGGING " +
  44       "DECIMAL-POINT DECLARATIVES DEFAULT DELETE DELIMITED " +
  45       "DELIMITER DEPENDING DESCENDING DESCRIBED DESTINATION " +
  46       "DETAIL DISABLE DISCONNECT DISPLAY DISPLAY-1 " +
  47       "DISPLAY-2 DISPLAY-3 DISPLAY-4 DISPLAY-5 DISPLAY-6 " +
  48       "DISPLAY-7 DISPLAY-8 DISPLAY-9 DIVIDE DIVISION " +
  49       "DOWN DROP DUPLICATE DUPLICATES DYNAMIC " +
  50       "EBCDIC EGI EJECT ELSE EMI " +
  51       "EMPTY EMPTY-CHECK ENABLE END END. END-ACCEPT END-ACCEPT. " +
  52       "END-ADD END-CALL END-COMPUTE END-DELETE END-DISPLAY " +
  53       "END-DIVIDE END-EVALUATE END-IF END-INVOKE END-MULTIPLY " +
  54       "END-OF-PAGE END-PERFORM END-READ END-RECEIVE END-RETURN " +
  55       "END-REWRITE END-SEARCH END-START END-STRING END-SUBTRACT " +
  56       "END-UNSTRING END-WRITE END-XML ENTER ENTRY " +
  57       "ENVIRONMENT EOP EQUAL EQUALS ERASE " +
  58       "ERROR ESI EVALUATE EVERY EXCEEDS " +
  59       "EXCEPTION EXCLUSIVE EXIT EXTEND EXTERNAL " +
  60       "EXTERNALLY-DESCRIBED-KEY FD FETCH FILE FILE-CONTROL " +
  61       "FILE-STREAM FILES FILLER FINAL FIND " +
  62       "FINISH FIRST FOOTING FOR FOREGROUND-COLOR " +
  63       "FOREGROUND-COLOUR FORMAT FREE FROM FULL " +
  64       "FUNCTION GENERATE GET GIVING GLOBAL " +
  65       "GO GOBACK GREATER GROUP HEADING " +
  66       "HIGH-VALUE HIGH-VALUES HIGHLIGHT I-O I-O-CONTROL " +
  67       "ID IDENTIFICATION IF IN INDEX " +
  68       "INDEX-1 INDEX-2 INDEX-3 INDEX-4 INDEX-5 " +
  69       "INDEX-6 INDEX-7 INDEX-8 INDEX-9 INDEXED " +
  70       "INDIC INDICATE INDICATOR INDICATORS INITIAL " +
  71       "INITIALIZE INITIATE INPUT INPUT-OUTPUT INSPECT " +
  72       "INSTALLATION INTO INVALID INVOKE IS " +
  73       "JUST JUSTIFIED KANJI KEEP KEY " +
  74       "LABEL LAST LD LEADING LEFT " +
  75       "LEFT-JUSTIFY LENGTH LENGTH-CHECK LESS LIBRARY " +
  76       "LIKE LIMIT LIMITS LINAGE LINAGE-COUNTER " +
  77       "LINE LINE-COUNTER LINES LINKAGE LOCAL-STORAGE " +
  78       "LOCALE LOCALLY LOCK " +
  79       "MEMBER MEMORY MERGE MESSAGE METACLASS " +
  80       "MODE MODIFIED MODIFY MODULES MOVE " +
  81       "MULTIPLE MULTIPLY NATIONAL NATIVE NEGATIVE " +
  82       "NEXT NO NO-ECHO NONE NOT " +
  83       "NULL NULL-KEY-MAP NULL-MAP NULLS NUMBER " +
  84       "NUMERIC NUMERIC-EDITED OBJECT OBJECT-COMPUTER OCCURS " +
  85       "OF OFF OMITTED ON ONLY " +
  86       "OPEN OPTIONAL OR ORDER ORGANIZATION " +
  87       "OTHER OUTPUT OVERFLOW OWNER PACKED-DECIMAL " +
  88       "PADDING PAGE PAGE-COUNTER PARSE PERFORM " +
  89       "PF PH PIC PICTURE PLUS " +
  90       "POINTER POSITION POSITIVE PREFIX PRESENT " +
  91       "PRINTING PRIOR PROCEDURE PROCEDURE-POINTER PROCEDURES " +
  92       "PROCEED PROCESS PROCESSING PROGRAM PROGRAM-ID " +
  93       "PROMPT PROTECTED PURGE QUEUE QUOTE " +
  94       "QUOTES RANDOM RD READ READY " +
  95       "REALM RECEIVE RECONNECT RECORD RECORD-NAME " +
  96       "RECORDS RECURSIVE REDEFINES REEL REFERENCE " +
  97       "REFERENCE-MONITOR REFERENCES RELATION RELATIVE RELEASE " +
  98       "REMAINDER REMOVAL RENAMES REPEATED REPLACE " +
  99       "REPLACING REPORT REPORTING REPORTS REPOSITORY " +
 100       "REQUIRED RERUN RESERVE RESET RETAINING " +
 101       "RETRIEVAL RETURN RETURN-CODE RETURNING REVERSE-VIDEO " +
 102       "REVERSED REWIND REWRITE RF RH " +
 103       "RIGHT RIGHT-JUSTIFY ROLLBACK ROLLING ROUNDED " +
 104       "RUN SAME SCREEN SD SEARCH " +
 105       "SECTION SECURE SECURITY SEGMENT SEGMENT-LIMIT " +
 106       "SELECT SEND SENTENCE SEPARATE SEQUENCE " +
 107       "SEQUENTIAL SET SHARED SIGN SIZE " +
 108       "SKIP1 SKIP2 SKIP3 SORT SORT-MERGE " +
 109       "SORT-RETURN SOURCE SOURCE-COMPUTER SPACE-FILL " +
 110       "SPECIAL-NAMES STANDARD STANDARD-1 STANDARD-2 " +
 111       "START STARTING STATUS STOP STORE " +
 112       "STRING SUB-QUEUE-1 SUB-QUEUE-2 SUB-QUEUE-3 SUB-SCHEMA " +
 113       "SUBFILE SUBSTITUTE SUBTRACT SUM SUPPRESS " +
 114       "SYMBOLIC SYNC SYNCHRONIZED SYSIN SYSOUT " +
 115       "TABLE TALLYING TAPE TENANT TERMINAL " +
 116       "TERMINATE TEST TEXT THAN THEN " +
 117       "THROUGH THRU TIME TIMES TITLE " +
 118       "TO TOP TRAILING TRAILING-SIGN TRANSACTION " +
 119       "TYPE TYPEDEF UNDERLINE UNEQUAL UNIT " +
 120       "UNSTRING UNTIL UP UPDATE UPON " +
 121       "USAGE USAGE-MODE USE USING VALID " +
 122       "VALIDATE VALUE VALUES VARYING VLR " +
 123       "WAIT WHEN WHEN-COMPILED WITH WITHIN " +
 124       "WORDS WORKING-STORAGE WRITE XML XML-CODE " +
 125       "XML-EVENT XML-NTEXT XML-TEXT ZERO ZERO-FILL " );
 126
 127   var builtins = makeKeywords("- * ** / + < <= = > >= ");
 128   var tests = {
 129     digit: /\d/,
 130     digit_or_colon: /[\d:]/,
 131     hex: /[0-9a-f]/i,
 132     sign: /[+-]/,
 133     exponent: /e/i,
 134     keyword_char: /[^\s\(\[\;\)\]]/,
 135     symbol: /[\w*+\-]/
 136   };
 137   function isNumber(ch, stream){
 138     // hex
 139     if ( ch === '0' && stream.eat(/x/i) ) {
 140       stream.eatWhile(tests.hex);
 141       return true;
 142     }
 143     // leading sign
 144     if ( ( ch == '+' || ch == '-' ) && ( tests.digit.test(stream.peek()) ) ) {
 145       stream.eat(tests.sign);
 146       ch = stream.next();
 147     }
 148     if ( tests.digit.test(ch) ) {
 149       stream.eat(ch);
 150       stream.eatWhile(tests.digit);
 151       if ( '.' == stream.peek()) {
 152         stream.eat('.');
 153         stream.eatWhile(tests.digit);
 154       }
 155       if ( stream.eat(tests.exponent) ) {
 156         stream.eat(tests.sign);
 157         stream.eatWhile(tests.digit);
 158       }
 159       return true;
 160     }
 161     return false;
 162   }
 163   return {
 164     startState: function () {
 165       return {
 166         indentStack: null,
 167         indentation: 0,
 168         mode: false
 169       };
 170     },
 171     token: function (stream, state) {
 172       if (state.indentStack == null && stream.sol()) {
 173         // update indentation, but only if indentStack is empty
 174         state.indentation = 6 ; //stream.indentation();
 175       }
 176       // skip spaces
 177       if (stream.eatSpace()) {
 178         return null;
 179       }
 180       var returnType = null;
 181       switch(state.mode){
 182       case "string": // multi-line string parsing mode
 183         var next = false;
 184         while ((next = stream.next()) != null) {
 185           if (next == "\"" || next == "\'") {
 186             state.mode = false;
 187             break;
 188           }
 189         }
 190         returnType = STRING; // continue on in string mode
 191         break;
 192       default: // default parsing mode
 193         var ch = stream.next();
 194         var col = stream.column();
 195         if (col >= 0 && col <= 5) {
 196           returnType = COBOLLINENUM;
 197         } else if (col >= 72 && col <= 79) {
 198           stream.skipToEnd();
 199           returnType = MODTAG;
 200         } else if (ch == "*" && col == 6) { // comment
 201           stream.skipToEnd(); // rest of the line is a comment
 202           returnType = COMMENT;
 203         } else if (ch == "\"" || ch == "\'") {
 204           state.mode = "string";
 205           returnType = STRING;
 206         } else if (ch == "'" && !( tests.digit_or_colon.test(stream.peek()) )) {
 207           returnType = ATOM;
 208         } else if (ch == ".") {
 209           returnType = PERIOD;
 210         } else if (isNumber(ch,stream)){
 211           returnType = NUMBER;
 212         } else {
 213           if (stream.current().match(tests.symbol)) {
 214             while (col < 71) {
 215               if (stream.eat(tests.symbol) === undefined) {
 216                 break;
 217               } else {
 218                 col++;
 219               }
 220             }
 221           }
 222           if (keywords && keywords.propertyIsEnumerable(stream.current().toUpperCase())) {
 223             returnType = KEYWORD;
 224           } else if (builtins && builtins.propertyIsEnumerable(stream.current().toUpperCase())) {
 225             returnType = BUILTIN;
 226           } else if (atoms && atoms.propertyIsEnumerable(stream.current().toUpperCase())) {
 227             returnType = ATOM;
 228           } else returnType = null;
 229         }
 230       }
 231       return returnType;
 232     },
 233     indent: function (state) {
 234       if (state.indentStack == null) return state.indentation;
 235       return state.indentStack.indent;
 236     }
 237   };
 238 });
 239
 240 CodeMirror.defineMIME("text/x-cobol", "cobol");