[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  /*
   5    This MUMPS Language script was constructed using vbscript.js as a template.
   6  */
   7  
   8  (function(mod) {
   9    if (typeof exports == "object" && typeof module == "object") // CommonJS
  10      mod(require("../../lib/codemirror"));
  11    else if (typeof define == "function" && define.amd) // AMD
  12      define(["../../lib/codemirror"], mod);
  13    else // Plain browser env
  14      mod(CodeMirror);
  15  })(function(CodeMirror) {
  16    "use strict";
  17  
  18    CodeMirror.defineMode("mumps", function() {
  19      function wordRegexp(words) {
  20        return new RegExp("^((" + words.join(")|(") + "))\\b", "i");
  21      }
  22  
  23      var singleOperators = new RegExp("^[\\+\\-\\*/&#!_?\\\\<>=\\'\\[\\]]");
  24      var doubleOperators = new RegExp("^(('=)|(<=)|(>=)|('>)|('<)|([[)|(]])|(^$))");
  25      var singleDelimiters = new RegExp("^[\\.,:]");
  26      var brackets = new RegExp("[()]");
  27      var identifiers = new RegExp("^[%A-Za-z][A-Za-z0-9]*");
  28      var commandKeywords = ["break","close","do","else","for","goto", "halt", "hang", "if", "job","kill","lock","merge","new","open", "quit", "read", "set", "tcommit", "trollback", "tstart", "use", "view", "write", "xecute", "b","c","d","e","f","g", "h", "i", "j","k","l","m","n","o", "q", "r", "s", "tc", "tro", "ts", "u", "v", "w", "x"];
  29      // The following list includes intrinsic functions _and_ special variables
  30      var intrinsicFuncsWords = ["\\$ascii", "\\$char", "\\$data", "\\$ecode", "\\$estack", "\\$etrap", "\\$extract", "\\$find", "\\$fnumber", "\\$get", "\\$horolog", "\\$io", "\\$increment", "\\$job", "\\$justify", "\\$length", "\\$name", "\\$next", "\\$order", "\\$piece", "\\$qlength", "\\$qsubscript", "\\$query", "\\$quit", "\\$random", "\\$reverse", "\\$select", "\\$stack", "\\$test", "\\$text", "\\$translate", "\\$view", "\\$x", "\\$y", "\\$a", "\\$c", "\\$d", "\\$e", "\\$ec", "\\$es", "\\$et", "\\$f", "\\$fn", "\\$g", "\\$h", "\\$i", "\\$j", "\\$l", "\\$n", "\\$na", "\\$o", "\\$p", "\\$q", "\\$ql", "\\$qs", "\\$r", "\\$re", "\\$s", "\\$st", "\\$t", "\\$tr", "\\$v", "\\$z"];
  31      var intrinsicFuncs = wordRegexp(intrinsicFuncsWords);
  32      var command = wordRegexp(commandKeywords);
  33  
  34      function tokenBase(stream, state) {
  35        if (stream.sol()) {
  36          state.label = true;
  37          state.commandMode = 0;
  38        }
  39  
  40        // The <space> character has meaning in MUMPS. Ignoring consecutive
  41        // spaces would interfere with interpreting whether the next non-space
  42        // character belongs to the command or argument context.
  43  
  44        // Examine each character and update a mode variable whose interpretation is:
  45        //   >0 => command    0 => argument    <0 => command post-conditional
  46        var ch = stream.peek();
  47  
  48        if (ch == " " || ch == "\t") { // Pre-process <space>
  49          state.label = false;
  50          if (state.commandMode == 0)
  51            state.commandMode = 1;
  52          else if ((state.commandMode < 0) || (state.commandMode == 2))
  53            state.commandMode = 0;
  54        } else if ((ch != ".") && (state.commandMode > 0)) {
  55          if (ch == ":")
  56            state.commandMode = -1;   // SIS - Command post-conditional
  57          else
  58            state.commandMode = 2;
  59        }
  60  
  61        // Do not color parameter list as line tag
  62        if ((ch === "(") || (ch === "\u0009"))
  63          state.label = false;
  64  
  65        // MUMPS comment starts with ";"
  66        if (ch === ";") {
  67          stream.skipToEnd();
  68          return "comment";
  69        }
  70  
  71        // Number Literals // SIS/RLM - MUMPS permits canonic number followed by concatenate operator
  72        if (stream.match(/^[-+]?\d+(\.\d+)?([eE][-+]?\d+)?/))
  73          return "number";
  74  
  75        // Handle Strings
  76        if (ch == '"') {
  77          if (stream.skipTo('"')) {
  78            stream.next();
  79            return "string";
  80          } else {
  81            stream.skipToEnd();
  82            return "error";
  83          }
  84        }
  85  
  86        // Handle operators and Delimiters
  87        if (stream.match(doubleOperators) || stream.match(singleOperators))
  88          return "operator";
  89  
  90        // Prevents leading "." in DO block from falling through to error
  91        if (stream.match(singleDelimiters))
  92          return null;
  93  
  94        if (brackets.test(ch)) {
  95          stream.next();
  96          return "bracket";
  97        }
  98  
  99        if (state.commandMode > 0 && stream.match(command))
 100          return "variable-2";
 101  
 102        if (stream.match(intrinsicFuncs))
 103          return "builtin";
 104  
 105        if (stream.match(identifiers))
 106          return "variable";
 107  
 108        // Detect dollar-sign when not a documented intrinsic function
 109        // "^" may introduce a GVN or SSVN - Color same as function
 110        if (ch === "$" || ch === "^") {
 111          stream.next();
 112          return "builtin";
 113        }
 114  
 115        // MUMPS Indirection
 116        if (ch === "@") {
 117          stream.next();
 118          return "string-2";
 119        }
 120  
 121        if (/[\w%]/.test(ch)) {
 122          stream.eatWhile(/[\w%]/);
 123          return "variable";
 124        }
 125  
 126        // Handle non-detected items
 127        stream.next();
 128        return "error";
 129      }
 130  
 131      return {
 132        startState: function() {
 133          return {
 134            label: false,
 135            commandMode: 0
 136          };
 137        },
 138  
 139        token: function(stream, state) {
 140          var style = tokenBase(stream, state);
 141          if (state.label) return "tag";
 142          return style;
 143        }
 144      };
 145    });
 146  
 147    CodeMirror.defineMIME("text/x-mumps", "mumps");
 148  });