GPQAPP

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 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
});
149