github.com/elliott5/community@v0.14.1-0.20160709191136-823126fb026a/app/public/codemirror/mode/forth/forth.js (about)

     1  // CodeMirror, copyright (c) by Marijn Haverbeke and others
     2  // Distributed under an MIT license: http://codemirror.net/LICENSE
     3  
     4  // Author: Aliaksei Chapyzhenka
     5  
     6  (function(mod) {
     7    if (typeof exports == "object" && typeof module == "object") // CommonJS
     8      mod(require("../../lib/codemirror"));
     9    else if (typeof define == "function" && define.amd) // AMD
    10      define(["../../lib/codemirror"], mod);
    11    else // Plain browser env
    12      mod(CodeMirror);
    13  })(function(CodeMirror) {
    14    "use strict";
    15  
    16    function toWordList(words) {
    17      var ret = [];
    18      words.split(' ').forEach(function(e){
    19        ret.push({name: e});
    20      });
    21      return ret;
    22    }
    23  
    24    var coreWordList = toWordList(
    25  'INVERT AND OR XOR\
    26   2* 2/ LSHIFT RSHIFT\
    27   0= = 0< < > U< MIN MAX\
    28   2DROP 2DUP 2OVER 2SWAP ?DUP DEPTH DROP DUP OVER ROT SWAP\
    29   >R R> R@\
    30   + - 1+ 1- ABS NEGATE\
    31   S>D * M* UM*\
    32   FM/MOD SM/REM UM/MOD */ */MOD / /MOD MOD\
    33   HERE , @ ! CELL+ CELLS C, C@ C! CHARS 2@ 2!\
    34   ALIGN ALIGNED +! ALLOT\
    35   CHAR [CHAR] [ ] BL\
    36   FIND EXECUTE IMMEDIATE COUNT LITERAL STATE\
    37   ; DOES> >BODY\
    38   EVALUATE\
    39   SOURCE >IN\
    40   <# # #S #> HOLD SIGN BASE >NUMBER HEX DECIMAL\
    41   FILL MOVE\
    42   . CR EMIT SPACE SPACES TYPE U. .R U.R\
    43   ACCEPT\
    44   TRUE FALSE\
    45   <> U> 0<> 0>\
    46   NIP TUCK ROLL PICK\
    47   2>R 2R@ 2R>\
    48   WITHIN UNUSED MARKER\
    49   I J\
    50   TO\
    51   COMPILE, [COMPILE]\
    52   SAVE-INPUT RESTORE-INPUT\
    53   PAD ERASE\
    54   2LITERAL DNEGATE\
    55   D- D+ D0< D0= D2* D2/ D< D= DMAX DMIN D>S DABS\
    56   M+ M*/ D. D.R 2ROT DU<\
    57   CATCH THROW\
    58   FREE RESIZE ALLOCATE\
    59   CS-PICK CS-ROLL\
    60   GET-CURRENT SET-CURRENT FORTH-WORDLIST GET-ORDER SET-ORDER\
    61   PREVIOUS SEARCH-WORDLIST WORDLIST FIND ALSO ONLY FORTH DEFINITIONS ORDER\
    62   -TRAILING /STRING SEARCH COMPARE CMOVE CMOVE> BLANK SLITERAL');
    63  
    64    var immediateWordList = toWordList('IF ELSE THEN BEGIN WHILE REPEAT UNTIL RECURSE [IF] [ELSE] [THEN] ?DO DO LOOP +LOOP UNLOOP LEAVE EXIT AGAIN CASE OF ENDOF ENDCASE');
    65  
    66    CodeMirror.defineMode('forth', function() {
    67      function searchWordList (wordList, word) {
    68        var i;
    69        for (i = wordList.length - 1; i >= 0; i--) {
    70          if (wordList[i].name === word.toUpperCase()) {
    71            return wordList[i];
    72          }
    73        }
    74        return undefined;
    75      }
    76    return {
    77      startState: function() {
    78        return {
    79          state: '',
    80          base: 10,
    81          coreWordList: coreWordList,
    82          immediateWordList: immediateWordList,
    83          wordList: []
    84        };
    85      },
    86      token: function (stream, stt) {
    87        var mat;
    88        if (stream.eatSpace()) {
    89          return null;
    90        }
    91        if (stt.state === '') { // interpretation
    92          if (stream.match(/^(\]|:NONAME)(\s|$)/i)) {
    93            stt.state = ' compilation';
    94            return 'builtin compilation';
    95          }
    96          mat = stream.match(/^(\:)\s+(\S+)(\s|$)+/);
    97          if (mat) {
    98            stt.wordList.push({name: mat[2].toUpperCase()});
    99            stt.state = ' compilation';
   100            return 'def' + stt.state;
   101          }
   102          mat = stream.match(/^(VARIABLE|2VARIABLE|CONSTANT|2CONSTANT|CREATE|POSTPONE|VALUE|WORD)\s+(\S+)(\s|$)+/i);
   103          if (mat) {
   104            stt.wordList.push({name: mat[2].toUpperCase()});
   105            return 'def' + stt.state;
   106          }
   107          mat = stream.match(/^(\'|\[\'\])\s+(\S+)(\s|$)+/);
   108          if (mat) {
   109            return 'builtin' + stt.state;
   110          }
   111          } else { // compilation
   112          // ; [
   113          if (stream.match(/^(\;|\[)(\s)/)) {
   114            stt.state = '';
   115            stream.backUp(1);
   116            return 'builtin compilation';
   117          }
   118          if (stream.match(/^(\;|\[)($)/)) {
   119            stt.state = '';
   120            return 'builtin compilation';
   121          }
   122          if (stream.match(/^(POSTPONE)\s+\S+(\s|$)+/)) {
   123            return 'builtin';
   124          }
   125        }
   126  
   127        // dynamic wordlist
   128        mat = stream.match(/^(\S+)(\s+|$)/);
   129        if (mat) {
   130          if (searchWordList(stt.wordList, mat[1]) !== undefined) {
   131            return 'variable' + stt.state;
   132          }
   133  
   134          // comments
   135          if (mat[1] === '\\') {
   136            stream.skipToEnd();
   137              return 'comment' + stt.state;
   138            }
   139  
   140            // core words
   141            if (searchWordList(stt.coreWordList, mat[1]) !== undefined) {
   142              return 'builtin' + stt.state;
   143            }
   144            if (searchWordList(stt.immediateWordList, mat[1]) !== undefined) {
   145              return 'keyword' + stt.state;
   146            }
   147  
   148            if (mat[1] === '(') {
   149              stream.eatWhile(function (s) { return s !== ')'; });
   150              stream.eat(')');
   151              return 'comment' + stt.state;
   152            }
   153  
   154            // // strings
   155            if (mat[1] === '.(') {
   156              stream.eatWhile(function (s) { return s !== ')'; });
   157              stream.eat(')');
   158              return 'string' + stt.state;
   159            }
   160            if (mat[1] === 'S"' || mat[1] === '."' || mat[1] === 'C"') {
   161              stream.eatWhile(function (s) { return s !== '"'; });
   162              stream.eat('"');
   163              return 'string' + stt.state;
   164            }
   165  
   166            // numbers
   167            if (mat[1] - 0xfffffffff) {
   168              return 'number' + stt.state;
   169            }
   170            // if (mat[1].match(/^[-+]?[0-9]+\.[0-9]*/)) {
   171            //     return 'number' + stt.state;
   172            // }
   173  
   174            return 'atom' + stt.state;
   175          }
   176        }
   177      };
   178    });
   179    CodeMirror.defineMIME("text/x-forth", "forth");
   180  });