Edit File by line

// CodeMirror, copyright (c) by Marijn Haverbeke and others

[0] Fix | Delete

// Distributed under an MIT license: http://codemirror.net/LICENSE

[1] Fix | Delete

[2] Fix | Delete

(function(mod) {

[3] Fix | Delete

if (typeof exports == "object" && typeof module == "object") // CommonJS

[4] Fix | Delete

mod(require("../../lib/codemirror"));

[5] Fix | Delete

else if (typeof define == "function" && define.amd) // AMD

[6] Fix | Delete

define(["../../lib/codemirror"], mod);

[7] Fix | Delete

else // Plain browser env

[8] Fix | Delete

mod(CodeMirror);

[9] Fix | Delete

})(function(CodeMirror) {

[10] Fix | Delete

"use strict";

[11] Fix | Delete

[12] Fix | Delete

CodeMirror.defineMode("elm", function() {

[13] Fix | Delete

[14] Fix | Delete

function switchState(source, setState, f) {

[15] Fix | Delete

setState(f);

[16] Fix | Delete

return f(source, setState);

[17] Fix | Delete

}

[18] Fix | Delete

[19] Fix | Delete

// These should all be Unicode extended, as per the Haskell 2010 report

[20] Fix | Delete

var smallRE = /[a-z_]/;

[21] Fix | Delete

var largeRE = /[A-Z]/;

[22] Fix | Delete

var digitRE = /[0-9]/;

[23] Fix | Delete

var hexitRE = /[0-9A-Fa-f]/;

[24] Fix | Delete

var octitRE = /[0-7]/;

[25] Fix | Delete

var idRE = /[a-z_A-Z0-9\']/;

[26] Fix | Delete

var symbolRE = /[-!#$%&*+.\/<=>?@\\^|~:\u03BB\u2192]/;

[27] Fix | Delete

var specialRE = /[(),;[\]`{}]/;

[28] Fix | Delete

var whiteCharRE = /[ \t\v\f]/; // newlines are handled in tokenizer

[29] Fix | Delete

[30] Fix | Delete

function normal() {

[31] Fix | Delete

return function (source, setState) {

[32] Fix | Delete

if (source.eatWhile(whiteCharRE)) {

[33] Fix | Delete

return null;

[34] Fix | Delete

}

[35] Fix | Delete

[36] Fix | Delete

var ch = source.next();

[37] Fix | Delete

if (specialRE.test(ch)) {

[38] Fix | Delete

if (ch == '{' && source.eat('-')) {

[39] Fix | Delete

var t = "comment";

[40] Fix | Delete

if (source.eat('#')) t = "meta";

[41] Fix | Delete

return switchState(source, setState, ncomment(t, 1));

[42] Fix | Delete

}

[43] Fix | Delete

return null;

[44] Fix | Delete

}

[45] Fix | Delete

[46] Fix | Delete

if (ch == '\'') {

[47] Fix | Delete

if (source.eat('\\'))

[48] Fix | Delete

source.next(); // should handle other escapes here

[49] Fix | Delete

else

[50] Fix | Delete

source.next();

[51] Fix | Delete

[52] Fix | Delete

if (source.eat('\''))

[53] Fix | Delete

return "string";

[54] Fix | Delete

return "error";

[55] Fix | Delete

}

[56] Fix | Delete

[57] Fix | Delete

if (ch == '"') {

[58] Fix | Delete

return switchState(source, setState, stringLiteral);

[59] Fix | Delete

}

[60] Fix | Delete

[61] Fix | Delete

if (largeRE.test(ch)) {

[62] Fix | Delete

source.eatWhile(idRE);

[63] Fix | Delete

if (source.eat('.'))

[64] Fix | Delete

return "qualifier";

[65] Fix | Delete

return "variable-2";

[66] Fix | Delete

}

[67] Fix | Delete

[68] Fix | Delete

if (smallRE.test(ch)) {

[69] Fix | Delete

var isDef = source.pos === 1;

[70] Fix | Delete

source.eatWhile(idRE);

[71] Fix | Delete

return isDef ? "variable-3" : "variable";

[72] Fix | Delete

}

[73] Fix | Delete

[74] Fix | Delete

if (digitRE.test(ch)) {

[75] Fix | Delete

if (ch == '0') {

[76] Fix | Delete

if (source.eat(/[xX]/)) {

[77] Fix | Delete

source.eatWhile(hexitRE); // should require at least 1

[78] Fix | Delete

return "integer";

[79] Fix | Delete

}

[80] Fix | Delete

if (source.eat(/[oO]/)) {

[81] Fix | Delete

source.eatWhile(octitRE); // should require at least 1

[82] Fix | Delete

return "number";

[83] Fix | Delete

}

[84] Fix | Delete

}

[85] Fix | Delete

source.eatWhile(digitRE);

[86] Fix | Delete

var t = "number";

[87] Fix | Delete

if (source.eat('.')) {

[88] Fix | Delete

t = "number";

[89] Fix | Delete

source.eatWhile(digitRE); // should require at least 1

[90] Fix | Delete

}

[91] Fix | Delete

if (source.eat(/[eE]/)) {

[92] Fix | Delete

t = "number";

[93] Fix | Delete

source.eat(/[-+]/);

[94] Fix | Delete

source.eatWhile(digitRE); // should require at least 1

[95] Fix | Delete

}

[96] Fix | Delete

return t;

[97] Fix | Delete

}

[98] Fix | Delete

[99] Fix | Delete

if (symbolRE.test(ch)) {

[100] Fix | Delete

if (ch == '-' && source.eat(/-/)) {

[101] Fix | Delete

source.eatWhile(/-/);

[102] Fix | Delete

if (!source.eat(symbolRE)) {

[103] Fix | Delete

source.skipToEnd();

[104] Fix | Delete

return "comment";

[105] Fix | Delete

}

[106] Fix | Delete

}

[107] Fix | Delete

source.eatWhile(symbolRE);

[108] Fix | Delete

return "builtin";

[109] Fix | Delete

}

[110] Fix | Delete

[111] Fix | Delete

return "error";

[112] Fix | Delete

}

[113] Fix | Delete

}

[114] Fix | Delete

[115] Fix | Delete

function ncomment(type, nest) {

[116] Fix | Delete

if (nest == 0) {

[117] Fix | Delete

return normal();

[118] Fix | Delete

}

[119] Fix | Delete

return function(source, setState) {

[120] Fix | Delete

var currNest = nest;

[121] Fix | Delete

while (!source.eol()) {

[122] Fix | Delete

var ch = source.next();

[123] Fix | Delete

if (ch == '{' && source.eat('-')) {

[124] Fix | Delete

++currNest;

[125] Fix | Delete

} else if (ch == '-' && source.eat('}')) {

[126] Fix | Delete

--currNest;

[127] Fix | Delete

if (currNest == 0) {

[128] Fix | Delete

setState(normal());

[129] Fix | Delete

return type;

[130] Fix | Delete

}

[131] Fix | Delete

}

[132] Fix | Delete

}

[133] Fix | Delete

setState(ncomment(type, currNest));

[134] Fix | Delete

return type;

[135] Fix | Delete

}

[136] Fix | Delete

}

[137] Fix | Delete

[138] Fix | Delete

function stringLiteral(source, setState) {

[139] Fix | Delete

while (!source.eol()) {

[140] Fix | Delete

var ch = source.next();

[141] Fix | Delete

if (ch == '"') {

[142] Fix | Delete

setState(normal());

[143] Fix | Delete

return "string";

[144] Fix | Delete

}

[145] Fix | Delete

if (ch == '\\') {

[146] Fix | Delete

if (source.eol() || source.eat(whiteCharRE)) {

[147] Fix | Delete

setState(stringGap);

[148] Fix | Delete

return "string";

[149] Fix | Delete

}

[150] Fix | Delete

if (!source.eat('&')) source.next(); // should handle other escapes here

[151] Fix | Delete

}

[152] Fix | Delete

}

[153] Fix | Delete

setState(normal());

[154] Fix | Delete

return "error";

[155] Fix | Delete

}

[156] Fix | Delete

[157] Fix | Delete

function stringGap(source, setState) {

[158] Fix | Delete

if (source.eat('\\')) {

[159] Fix | Delete

return switchState(source, setState, stringLiteral);

[160] Fix | Delete

}

[161] Fix | Delete

source.next();

[162] Fix | Delete

setState(normal());

[163] Fix | Delete

return "error";

[164] Fix | Delete

}

[165] Fix | Delete

[166] Fix | Delete

[167] Fix | Delete

var wellKnownWords = (function() {

[168] Fix | Delete

var wkw = {};

[169] Fix | Delete

[170] Fix | Delete

var keywords = [

[171] Fix | Delete

"case", "of", "as",

[172] Fix | Delete

"if", "then", "else",

[173] Fix | Delete

"let", "in",

[174] Fix | Delete

"infix", "infixl", "infixr",

[175] Fix | Delete

"type", "alias",

[176] Fix | Delete

"input", "output", "foreign", "loopback",

[177] Fix | Delete

"module", "where", "import", "exposing",

[178] Fix | Delete

"_", "..", "|", ":", "=", "\\", "\"", "->", "<-"

[179] Fix | Delete

];

[180] Fix | Delete

[181] Fix | Delete

for (var i = keywords.length; i--;)

[182] Fix | Delete

wkw[keywords[i]] = "keyword";

[183] Fix | Delete

[184] Fix | Delete

return wkw;

[185] Fix | Delete

})();

[186] Fix | Delete

[187] Fix | Delete

[188] Fix | Delete

[189] Fix | Delete

return {

[190] Fix | Delete

startState: function () { return { f: normal() }; },

[191] Fix | Delete

copyState: function (s) { return { f: s.f }; },

[192] Fix | Delete

[193] Fix | Delete

token: function(stream, state) {

[194] Fix | Delete

var t = state.f(stream, function(s) { state.f = s; });

[195] Fix | Delete

var w = stream.current();

[196] Fix | Delete

return (wellKnownWords.hasOwnProperty(w)) ? wellKnownWords[w] : t;

[197] Fix | Delete

}

[198] Fix | Delete

};

[199] Fix | Delete

[200] Fix | Delete

});

[201] Fix | Delete

[202] Fix | Delete

CodeMirror.defineMIME("text/x-elm", "elm");

[203] Fix | Delete

});

[204] Fix | Delete

[205] Fix | Delete