1// CodeMirror, copyright (c) by Marijn Haverbeke and others
  2// Distributed under an MIT license: https://codemirror.net/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 instrinsic 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});