Show More
mumps.js
148 lines
| 5.2 KiB
| application/javascript
|
JavascriptLexer
r1 | // CodeMirror, copyright (c) by Marijn Haverbeke and others | |||
r4105 | // Distributed under an MIT license: https://codemirror.net/LICENSE | |||
r1 | ||||
/* | ||||
This MUMPS Language script was constructed using vbscript.js as a template. | ||||
*/ | ||||
(function(mod) { | ||||
if (typeof exports == "object" && typeof module == "object") // CommonJS | ||||
mod(require("../../lib/codemirror")); | ||||
else if (typeof define == "function" && define.amd) // AMD | ||||
define(["../../lib/codemirror"], mod); | ||||
else // Plain browser env | ||||
mod(CodeMirror); | ||||
})(function(CodeMirror) { | ||||
"use strict"; | ||||
CodeMirror.defineMode("mumps", function() { | ||||
function wordRegexp(words) { | ||||
return new RegExp("^((" + words.join(")|(") + "))\\b", "i"); | ||||
} | ||||
var singleOperators = new RegExp("^[\\+\\-\\*/&#!_?\\\\<>=\\'\\[\\]]"); | ||||
var doubleOperators = new RegExp("^(('=)|(<=)|(>=)|('>)|('<)|([[)|(]])|(^$))"); | ||||
var singleDelimiters = new RegExp("^[\\.,:]"); | ||||
var brackets = new RegExp("[()]"); | ||||
var identifiers = new RegExp("^[%A-Za-z][A-Za-z0-9]*"); | ||||
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"]; | ||||
// The following list includes instrinsic functions _and_ special variables | ||||
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"]; | ||||
var intrinsicFuncs = wordRegexp(intrinsicFuncsWords); | ||||
var command = wordRegexp(commandKeywords); | ||||
function tokenBase(stream, state) { | ||||
if (stream.sol()) { | ||||
state.label = true; | ||||
state.commandMode = 0; | ||||
} | ||||
// The <space> character has meaning in MUMPS. Ignoring consecutive | ||||
// spaces would interfere with interpreting whether the next non-space | ||||
// character belongs to the command or argument context. | ||||
// Examine each character and update a mode variable whose interpretation is: | ||||
// >0 => command 0 => argument <0 => command post-conditional | ||||
var ch = stream.peek(); | ||||
if (ch == " " || ch == "\t") { // Pre-process <space> | ||||
state.label = false; | ||||
if (state.commandMode == 0) | ||||
state.commandMode = 1; | ||||
else if ((state.commandMode < 0) || (state.commandMode == 2)) | ||||
state.commandMode = 0; | ||||
} else if ((ch != ".") && (state.commandMode > 0)) { | ||||
if (ch == ":") | ||||
state.commandMode = -1; // SIS - Command post-conditional | ||||
else | ||||
state.commandMode = 2; | ||||
} | ||||
// Do not color parameter list as line tag | ||||
if ((ch === "(") || (ch === "\u0009")) | ||||
state.label = false; | ||||
// MUMPS comment starts with ";" | ||||
if (ch === ";") { | ||||
stream.skipToEnd(); | ||||
return "comment"; | ||||
} | ||||
// Number Literals // SIS/RLM - MUMPS permits canonic number followed by concatenate operator | ||||
if (stream.match(/^[-+]?\d+(\.\d+)?([eE][-+]?\d+)?/)) | ||||
return "number"; | ||||
// Handle Strings | ||||
if (ch == '"') { | ||||
if (stream.skipTo('"')) { | ||||
stream.next(); | ||||
return "string"; | ||||
} else { | ||||
stream.skipToEnd(); | ||||
return "error"; | ||||
} | ||||
} | ||||
// Handle operators and Delimiters | ||||
if (stream.match(doubleOperators) || stream.match(singleOperators)) | ||||
return "operator"; | ||||
// Prevents leading "." in DO block from falling through to error | ||||
if (stream.match(singleDelimiters)) | ||||
return null; | ||||
if (brackets.test(ch)) { | ||||
stream.next(); | ||||
return "bracket"; | ||||
} | ||||
if (state.commandMode > 0 && stream.match(command)) | ||||
return "variable-2"; | ||||
if (stream.match(intrinsicFuncs)) | ||||
return "builtin"; | ||||
if (stream.match(identifiers)) | ||||
return "variable"; | ||||
// Detect dollar-sign when not a documented intrinsic function | ||||
// "^" may introduce a GVN or SSVN - Color same as function | ||||
if (ch === "$" || ch === "^") { | ||||
stream.next(); | ||||
return "builtin"; | ||||
} | ||||
// MUMPS Indirection | ||||
if (ch === "@") { | ||||
stream.next(); | ||||
return "string-2"; | ||||
} | ||||
if (/[\w%]/.test(ch)) { | ||||
stream.eatWhile(/[\w%]/); | ||||
return "variable"; | ||||
} | ||||
// Handle non-detected items | ||||
stream.next(); | ||||
return "error"; | ||||
} | ||||
return { | ||||
startState: function() { | ||||
return { | ||||
label: false, | ||||
commandMode: 0 | ||||
}; | ||||
}, | ||||
token: function(stream, state) { | ||||
var style = tokenBase(stream, state); | ||||
if (state.label) return "tag"; | ||||
return style; | ||||
} | ||||
}; | ||||
}); | ||||
CodeMirror.defineMIME("text/x-mumps", "mumps"); | ||||
}); | ||||