[Summary view] [Print] [Text view]

   1  // CodeMirror, copyright (c) by Marijn Haverbeke and others
   2  // Distributed under an MIT license: https://codemirror.net/5/LICENSE
   3  
   4  (function(mod) {
   5    if (typeof exports == "object" && typeof module == "object") // CommonJS
   6      mod(require("../../lib/codemirror"));
   7    else if (typeof define == "function" && define.amd) // AMD
   8      define(["../../lib/codemirror"], mod);
   9    else // Plain browser env
  10      mod(CodeMirror);
  11  })(function(CodeMirror) {
  12  "use strict";
  13  
  14  CodeMirror.defineMode("apl", function() {
  15    var builtInOps = {
  16      ".": "innerProduct",
  17      "\\": "scan",
  18      "/": "reduce",
  19      "⌿": "reduce1Axis",
  20      "⍀": "scan1Axis",
  21      "¨": "each",
  22      "⍣": "power"
  23    };
  24    var builtInFuncs = {
  25      "+": ["conjugate", "add"],
  26      "−": ["negate", "subtract"],
  27      "×": ["signOf", "multiply"],
  28      "÷": ["reciprocal", "divide"],
  29      "⌈": ["ceiling", "greaterOf"],
  30      "⌊": ["floor", "lesserOf"],
  31      "∣": ["absolute", "residue"],
  32      "⍳": ["indexGenerate", "indexOf"],
  33      "?": ["roll", "deal"],
  34      "⋆": ["exponentiate", "toThePowerOf"],
  35      "⍟": ["naturalLog", "logToTheBase"],
  36      "○": ["piTimes", "circularFuncs"],
  37      "!": ["factorial", "binomial"],
  38      "⌹": ["matrixInverse", "matrixDivide"],
  39      "<": [null, "lessThan"],
  40      "≤": [null, "lessThanOrEqual"],
  41      "=": [null, "equals"],
  42      ">": [null, "greaterThan"],
  43      "≥": [null, "greaterThanOrEqual"],
  44      "≠": [null, "notEqual"],
  45      "≡": ["depth", "match"],
  46      "≢": [null, "notMatch"],
  47      "∈": ["enlist", "membership"],
  48      "⍷": [null, "find"],
  49      "∪": ["unique", "union"],
  50      "∩": [null, "intersection"],
  51      "∼": ["not", "without"],
  52      "∨": [null, "or"],
  53      "∧": [null, "and"],
  54      "⍱": [null, "nor"],
  55      "⍲": [null, "nand"],
  56      "⍴": ["shapeOf", "reshape"],
  57      ",": ["ravel", "catenate"],
  58      "⍪": [null, "firstAxisCatenate"],
  59      "⌽": ["reverse", "rotate"],
  60      "⊖": ["axis1Reverse", "axis1Rotate"],
  61      "⍉": ["transpose", null],
  62      "↑": ["first", "take"],
  63      "↓": [null, "drop"],
  64      "⊂": ["enclose", "partitionWithAxis"],
  65      "⊃": ["diclose", "pick"],
  66      "⌷": [null, "index"],
  67      "⍋": ["gradeUp", null],
  68      "⍒": ["gradeDown", null],
  69      "⊤": ["encode", null],
  70      "⊥": ["decode", null],
  71      "⍕": ["format", "formatByExample"],
  72      "⍎": ["execute", null],
  73      "⊣": ["stop", "left"],
  74      "⊢": ["pass", "right"]
  75    };
  76  
  77    var isOperator = /[\.\/⌿⍀¨⍣]/;
  78    var isNiladic = /⍬/;
  79    var isFunction = /[\+−×÷⌈⌊∣⍳\?⋆⍟○!⌹<≤=>≥≠≡≢∈⍷∪∩∼∨∧⍱⍲⍴,⍪⌽⊖⍉↑↓⊂⊃⌷⍋⍒⊤⊥⍕⍎⊣⊢]/;
  80    var isArrow = /←/;
  81    var isComment = /[⍝#].*$/;
  82  
  83    var stringEater = function(type) {
  84      var prev;
  85      prev = false;
  86      return function(c) {
  87        prev = c;
  88        if (c === type) {
  89          return prev === "\\";
  90        }
  91        return true;
  92      };
  93    };
  94    return {
  95      startState: function() {
  96        return {
  97          prev: false,
  98          func: false,
  99          op: false,
 100          string: false,
 101          escape: false
 102        };
 103      },
 104      token: function(stream, state) {
 105        var ch, funcName;
 106        if (stream.eatSpace()) {
 107          return null;
 108        }
 109        ch = stream.next();
 110        if (ch === '"' || ch === "'") {
 111          stream.eatWhile(stringEater(ch));
 112          stream.next();
 113          state.prev = true;
 114          return "string";
 115        }
 116        if (/[\[{\(]/.test(ch)) {
 117          state.prev = false;
 118          return null;
 119        }
 120        if (/[\]}\)]/.test(ch)) {
 121          state.prev = true;
 122          return null;
 123        }
 124        if (isNiladic.test(ch)) {
 125          state.prev = false;
 126          return "niladic";
 127        }
 128        if (/[¯\d]/.test(ch)) {
 129          if (state.func) {
 130            state.func = false;
 131            state.prev = false;
 132          } else {
 133            state.prev = true;
 134          }
 135          stream.eatWhile(/[\w\.]/);
 136          return "number";
 137        }
 138        if (isOperator.test(ch)) {
 139          return "operator apl-" + builtInOps[ch];
 140        }
 141        if (isArrow.test(ch)) {
 142          return "apl-arrow";
 143        }
 144        if (isFunction.test(ch)) {
 145          funcName = "apl-";
 146          if (builtInFuncs[ch] != null) {
 147            if (state.prev) {
 148              funcName += builtInFuncs[ch][1];
 149            } else {
 150              funcName += builtInFuncs[ch][0];
 151            }
 152          }
 153          state.func = true;
 154          state.prev = false;
 155          return "function " + funcName;
 156        }
 157        if (isComment.test(ch)) {
 158          stream.skipToEnd();
 159          return "comment";
 160        }
 161        if (ch === "∘" && stream.peek() === ".") {
 162          stream.next();
 163          return "function jot-dot";
 164        }
 165        stream.eatWhile(/[\w\$_]/);
 166        state.prev = true;
 167        return "keyword";
 168      }
 169    };
 170  });
 171  
 172  CodeMirror.defineMIME("text/apl", "apl");
 173  
 174  });