openrat-cms

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README

mumps.js (5354B)


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