Show More
dylan.js
291 lines
| 8.2 KiB
| application/javascript
|
JavascriptLexer
r1 | // CodeMirror, copyright (c) by Marijn Haverbeke and others | |||
// Distributed under an MIT license: http://codemirror.net/LICENSE | ||||
(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("dylan", function(_config) { | ||||
// Words | ||||
var words = { | ||||
// Words that introduce unnamed definitions like "define interface" | ||||
unnamedDefinition: ["interface"], | ||||
// Words that introduce simple named definitions like "define library" | ||||
namedDefinition: ["module", "library", "macro", | ||||
"C-struct", "C-union", | ||||
"C-function", "C-callable-wrapper" | ||||
], | ||||
// Words that introduce type definitions like "define class". | ||||
// These are also parameterized like "define method" and are | ||||
// appended to otherParameterizedDefinitionWords | ||||
typeParameterizedDefinition: ["class", "C-subtype", "C-mapped-subtype"], | ||||
// Words that introduce trickier definitions like "define method". | ||||
// These require special definitions to be added to startExpressions | ||||
otherParameterizedDefinition: ["method", "function", | ||||
"C-variable", "C-address" | ||||
], | ||||
// Words that introduce module constant definitions. | ||||
// These must also be simple definitions and are | ||||
// appended to otherSimpleDefinitionWords | ||||
constantSimpleDefinition: ["constant"], | ||||
// Words that introduce module variable definitions. | ||||
// These must also be simple definitions and are | ||||
// appended to otherSimpleDefinitionWords | ||||
variableSimpleDefinition: ["variable"], | ||||
// Other words that introduce simple definitions | ||||
// (without implicit bodies). | ||||
otherSimpleDefinition: ["generic", "domain", | ||||
"C-pointer-type", | ||||
"table" | ||||
], | ||||
// Words that begin statements with implicit bodies. | ||||
statement: ["if", "block", "begin", "method", "case", | ||||
"for", "select", "when", "unless", "until", | ||||
"while", "iterate", "profiling", "dynamic-bind" | ||||
], | ||||
// Patterns that act as separators in compound statements. | ||||
// This may include any general pattern that must be indented | ||||
// specially. | ||||
separator: ["finally", "exception", "cleanup", "else", | ||||
"elseif", "afterwards" | ||||
], | ||||
// Keywords that do not require special indentation handling, | ||||
// but which should be highlighted | ||||
other: ["above", "below", "by", "from", "handler", "in", | ||||
"instance", "let", "local", "otherwise", "slot", | ||||
"subclass", "then", "to", "keyed-by", "virtual" | ||||
], | ||||
// Condition signaling function calls | ||||
signalingCalls: ["signal", "error", "cerror", | ||||
"break", "check-type", "abort" | ||||
] | ||||
}; | ||||
words["otherDefinition"] = | ||||
words["unnamedDefinition"] | ||||
.concat(words["namedDefinition"]) | ||||
.concat(words["otherParameterizedDefinition"]); | ||||
words["definition"] = | ||||
words["typeParameterizedDefinition"] | ||||
.concat(words["otherDefinition"]); | ||||
words["parameterizedDefinition"] = | ||||
words["typeParameterizedDefinition"] | ||||
.concat(words["otherParameterizedDefinition"]); | ||||
words["simpleDefinition"] = | ||||
words["constantSimpleDefinition"] | ||||
.concat(words["variableSimpleDefinition"]) | ||||
.concat(words["otherSimpleDefinition"]); | ||||
words["keyword"] = | ||||
words["statement"] | ||||
.concat(words["separator"]) | ||||
.concat(words["other"]); | ||||
// Patterns | ||||
var symbolPattern = "[-_a-zA-Z?!*@<>$%]+"; | ||||
var symbol = new RegExp("^" + symbolPattern); | ||||
var patterns = { | ||||
// Symbols with special syntax | ||||
symbolKeyword: symbolPattern + ":", | ||||
symbolClass: "<" + symbolPattern + ">", | ||||
symbolGlobal: "\\*" + symbolPattern + "\\*", | ||||
symbolConstant: "\\$" + symbolPattern | ||||
}; | ||||
var patternStyles = { | ||||
symbolKeyword: "atom", | ||||
symbolClass: "tag", | ||||
symbolGlobal: "variable-2", | ||||
symbolConstant: "variable-3" | ||||
}; | ||||
// Compile all patterns to regular expressions | ||||
for (var patternName in patterns) | ||||
if (patterns.hasOwnProperty(patternName)) | ||||
patterns[patternName] = new RegExp("^" + patterns[patternName]); | ||||
// Names beginning "with-" and "without-" are commonly | ||||
// used as statement macro | ||||
patterns["keyword"] = [/^with(?:out)?-[-_a-zA-Z?!*@<>$%]+/]; | ||||
var styles = {}; | ||||
styles["keyword"] = "keyword"; | ||||
styles["definition"] = "def"; | ||||
styles["simpleDefinition"] = "def"; | ||||
styles["signalingCalls"] = "builtin"; | ||||
// protected words lookup table | ||||
var wordLookup = {}; | ||||
var styleLookup = {}; | ||||
[ | ||||
"keyword", | ||||
"definition", | ||||
"simpleDefinition", | ||||
"signalingCalls" | ||||
].forEach(function(type) { | ||||
words[type].forEach(function(word) { | ||||
wordLookup[word] = type; | ||||
styleLookup[word] = styles[type]; | ||||
}); | ||||
}); | ||||
function chain(stream, state, f) { | ||||
state.tokenize = f; | ||||
return f(stream, state); | ||||
} | ||||
function tokenBase(stream, state) { | ||||
// String | ||||
var ch = stream.peek(); | ||||
if (ch == "'" || ch == '"') { | ||||
stream.next(); | ||||
return chain(stream, state, tokenString(ch, "string")); | ||||
} | ||||
// Comment | ||||
else if (ch == "/") { | ||||
stream.next(); | ||||
if (stream.eat("*")) { | ||||
return chain(stream, state, tokenComment); | ||||
} else if (stream.eat("/")) { | ||||
stream.skipToEnd(); | ||||
return "comment"; | ||||
} else { | ||||
stream.skipTo(" "); | ||||
return "operator"; | ||||
} | ||||
} | ||||
// Decimal | ||||
else if (/\d/.test(ch)) { | ||||
stream.match(/^\d*(?:\.\d*)?(?:e[+\-]?\d+)?/); | ||||
return "number"; | ||||
} | ||||
// Hash | ||||
else if (ch == "#") { | ||||
stream.next(); | ||||
// Symbol with string syntax | ||||
ch = stream.peek(); | ||||
if (ch == '"') { | ||||
stream.next(); | ||||
return chain(stream, state, tokenString('"', "string-2")); | ||||
} | ||||
// Binary number | ||||
else if (ch == "b") { | ||||
stream.next(); | ||||
stream.eatWhile(/[01]/); | ||||
return "number"; | ||||
} | ||||
// Hex number | ||||
else if (ch == "x") { | ||||
stream.next(); | ||||
stream.eatWhile(/[\da-f]/i); | ||||
return "number"; | ||||
} | ||||
// Octal number | ||||
else if (ch == "o") { | ||||
stream.next(); | ||||
stream.eatWhile(/[0-7]/); | ||||
return "number"; | ||||
} | ||||
// Hash symbol | ||||
else { | ||||
stream.eatWhile(/[-a-zA-Z]/); | ||||
return "keyword"; | ||||
} | ||||
} else if (stream.match("end")) { | ||||
return "keyword"; | ||||
} | ||||
for (var name in patterns) { | ||||
if (patterns.hasOwnProperty(name)) { | ||||
var pattern = patterns[name]; | ||||
if ((pattern instanceof Array && pattern.some(function(p) { | ||||
return stream.match(p); | ||||
})) || stream.match(pattern)) | ||||
return patternStyles[name]; | ||||
} | ||||
} | ||||
if (stream.match("define")) { | ||||
return "def"; | ||||
} else { | ||||
stream.eatWhile(/[\w\-]/); | ||||
// Keyword | ||||
if (wordLookup[stream.current()]) { | ||||
return styleLookup[stream.current()]; | ||||
} else if (stream.current().match(symbol)) { | ||||
return "variable"; | ||||
} else { | ||||
stream.next(); | ||||
return "variable-2"; | ||||
} | ||||
} | ||||
} | ||||
function tokenComment(stream, state) { | ||||
var maybeEnd = false, | ||||
ch; | ||||
while ((ch = stream.next())) { | ||||
if (ch == "/" && maybeEnd) { | ||||
state.tokenize = tokenBase; | ||||
break; | ||||
} | ||||
maybeEnd = (ch == "*"); | ||||
} | ||||
return "comment"; | ||||
} | ||||
function tokenString(quote, style) { | ||||
return function(stream, state) { | ||||
var next, end = false; | ||||
while ((next = stream.next()) != null) { | ||||
if (next == quote) { | ||||
end = true; | ||||
break; | ||||
} | ||||
} | ||||
if (end) | ||||
state.tokenize = tokenBase; | ||||
return style; | ||||
}; | ||||
} | ||||
// Interface | ||||
return { | ||||
startState: function() { | ||||
return { | ||||
tokenize: tokenBase, | ||||
currentIndent: 0 | ||||
}; | ||||
}, | ||||
token: function(stream, state) { | ||||
if (stream.eatSpace()) | ||||
return null; | ||||
var style = state.tokenize(stream, state); | ||||
return style; | ||||
}, | ||||
blockCommentStart: "/*", | ||||
blockCommentEnd: "*/" | ||||
}; | ||||
}); | ||||
CodeMirror.defineMIME("text/x-dylan", "dylan"); | ||||
}); | ||||