diff --git a/Gruntfile.js b/Gruntfile.js
index 4fc9b6fed..0e15c8dcd 100644
--- a/Gruntfile.js
+++ b/Gruntfile.js
@@ -161,7 +161,9 @@ module.exports = function(grunt) {
files: {
'public/red/red.min.js': 'public/red/red.js',
'public/red/main.min.js': 'public/red/main.js',
- 'public/vendor/jsonata/jsonata.min.js': 'editor/vendor/jsonata/jsonata.js'
+ 'public/vendor/jsonata/jsonata.min.js': 'editor/vendor/jsonata/jsonata.js',
+ 'public/vendor/ace/mode-jsonata.js': 'editor/vendor/jsonata/mode-jsonata.js',
+ 'public/vendor/ace/worker-jsonata.js': 'editor/vendor/jsonata/worker-jsonata.js'
}
}
},
diff --git a/editor/js/ui/common/typedInput.js b/editor/js/ui/common/typedInput.js
index b30af8961..c433c0366 100644
--- a/editor/js/ui/common/typedInput.js
+++ b/editor/js/ui/common/typedInput.js
@@ -95,7 +95,21 @@
json: {value:"json",label:"JSON",icon:"red/images/typedInput/json.png", validate: function(v) { try{JSON.parse(v);return true;}catch(e){return false;}}},
re: {value:"re",label:"regular expression",icon:"red/images/typedInput/re.png"},
date: {value:"date",label:"timestamp",hasValue:false},
- jsonata: {value:"jsonata",label:"expression",icon:"red/images/typedInput/expr.png", validate: function(v) { try{jsonata(v);return true;}catch(e){return false;}}},
+ jsonata: {
+ value: "jsonata",
+ label: "expression",
+ icon: "red/images/typedInput/expr.png",
+ validate: function(v) { try{jsonata(v);return true;}catch(e){return false;}},
+ expand:function() {
+ var that = this;
+ RED.editor.editExpression({
+ value: this.value(),
+ complete: function(v) {
+ that.value(v);
+ }
+ })
+ }
+ }
};
var nlsd = false;
@@ -189,7 +203,7 @@
that.uiSelect.addClass('red-ui-typedInput-focus');
});
-
+ this.optionExpandButton = $('').appendTo(this.uiSelect);
this.type(this.options.default||this.typeList[0].value);
@@ -323,11 +337,16 @@
this.uiSelect.width(this.uiWidth);
}
if (this.typeMap[this.propertyType] && this.typeMap[this.propertyType].hasValue === false) {
- this.selectTrigger.css('width',"100%");
+ this.selectTrigger.addClass("red-ui-typedInput-full-width");
} else {
- this.selectTrigger.width('auto');
+ this.selectTrigger.removeClass("red-ui-typedInput-full-width");
var labelWidth = this._getLabelWidth(this.selectTrigger);
this.elementDiv.css('left',labelWidth+"px");
+ if (this.optionExpandButton.is(":visible")) {
+ this.elementDiv.css('right',"22px");
+ } else {
+ this.elementDiv.css('right','0');
+ }
if (this.optionSelectTrigger) {
this.optionSelectTrigger.css({'left':(labelWidth)+"px",'width':'calc( 100% - '+labelWidth+'px )'});
}
@@ -397,6 +416,9 @@
this.selectLabel.text(opt.label);
}
if (opt.options) {
+ if (this.optionExpandButton) {
+ this.optionExpandButton.hide();
+ }
if (this.optionSelectTrigger) {
this.optionSelectTrigger.show();
this.elementDiv.hide();
@@ -430,6 +452,16 @@
}
this.elementDiv.show();
}
+ if (opt.expand && typeof opt.expand === 'function') {
+ this.optionExpandButton.show();
+ this.optionExpandButton.off('click');
+ this.optionExpandButton.on('click',function(evt) {
+ evt.preventDefault();
+ opt.expand.call(that);
+ })
+ } else {
+ this.optionExpandButton.hide();
+ }
this.element.trigger('change',this.propertyType,this.value());
}
if (image) {
diff --git a/editor/js/ui/editor.js b/editor/js/ui/editor.js
index c689352b0..cb821d731 100644
--- a/editor/js/ui/editor.js
+++ b/editor/js/ui/editor.js
@@ -494,12 +494,13 @@ RED.editor = (function() {
}
function getEditStackTitle() {
-
var title = '
';
for (var i=0;i').appendTo(trayBody);
+ dialogForm.html($("script[data-template-name='"+type+"']").html());
+ ns = ns||"node-red";
+ dialogForm.find('[data-i18n]').each(function() {
+ var current = $(this).attr("data-i18n");
+ var keys = current.split(";");
+ for (var i=0;i').prependTo(dialogForm);
+ dialogForm.submit(function(e) { e.preventDefault();});
+ return dialogForm;
+ }
+
function showEditDialog(node) {
var editing_node = node;
editStack.push(node);
@@ -763,33 +791,13 @@ RED.editor = (function() {
if (editing_node) {
RED.sidebar.info.refresh(editing_node);
}
- var trayBody = tray.find('.editor-tray-body');
- var dialogForm = $('').appendTo(trayBody);
- dialogForm.html($("script[data-template-name='"+type+"']").html());
var ns;
if (node._def.set.module === "node-red") {
ns = "node-red";
} else {
ns = node._def.set.id;
}
- dialogForm.find('[data-i18n]').each(function() {
- var current = $(this).attr("data-i18n");
- var keys = current.split(";");
- for (var i=0;i').prependTo(dialogForm);
+ var dialogForm = buildEditForm(tray,"dialog-form",type,ns);
prepareEditDialog(node,node._def,"node-input");
dialogForm.i18n();
},
@@ -882,7 +890,6 @@ RED.editor = (function() {
},
open: function(tray) {
var trayHeader = tray.find(".editor-tray-header");
- var trayBody = tray.find(".editor-tray-body");
var trayFooter = tray.find(".editor-tray-footer");
if (node_def.hasUsers !== false) {
@@ -890,21 +897,8 @@ RED.editor = (function() {
}
trayFooter.append('');
- var dialogForm = $('').appendTo(trayBody);
- dialogForm.html($("script[data-template-name='"+type+"']").html());
- dialogForm.find('[data-i18n]').each(function() {
- var current = $(this).attr("data-i18n");
- if (current.indexOf(":") === -1) {
- var prefix = "";
- if (current.indexOf("[")===0) {
- var parts = current.split("]");
- prefix = parts[0]+"]";
- current = parts[1];
- }
- $(this).attr("data-i18n",prefix+ns+":"+current);
- }
- });
- $('').prependTo(dialogForm);
+ var dialogForm = buildEditForm(tray,"node-config-dialog-edit-form",type,ns);
+
prepareEditDialog(editing_config_node,node_def,"node-config-input");
if (editing_config_node._def.exclusive) {
$("#node-config-dialog-scope").hide();
@@ -1338,30 +1332,7 @@ RED.editor = (function() {
if (editing_node) {
RED.sidebar.info.refresh(editing_node);
}
- var trayBody = tray.find('.editor-tray-body');
- var dialogForm = $('').appendTo(trayBody);
- dialogForm.html($("script[data-template-name='subflow-template']").html());
- var ns = "node-red";
- dialogForm.find('[data-i18n]').each(function() {
- var current = $(this).attr("data-i18n");
- var keys = current.split(";");
- for (var i=0;i').prependTo(dialogForm);
-
- dialogForm.submit(function(e) { e.preventDefault();});
+ var dialogForm = buildEditForm(tray,"dialog-form","subflow-template");
subflowEditor = RED.editor.createEditor({
id: 'subflow-input-info-editor',
mode: 'ace/mode/markdown',
@@ -1397,6 +1368,78 @@ RED.editor = (function() {
RED.tray.show(trayOptions);
}
+
+ function editExpression(options) {
+ var value = options.value;
+ var onComplete = options.complete;
+ var type = "_expression"
+ editStack.push({type:type});
+ RED.view.state(RED.state.EDITING);
+ var expressionEditor;
+
+ var trayOptions = {
+ title: getEditStackTitle(),
+ buttons: [
+ {
+ id: "node-dialog-cancel",
+ text: RED._("common.label.cancel"),
+ click: function() {
+ RED.tray.close();
+ }
+ },
+ {
+ id: "node-dialog-ok",
+ text: RED._("common.label.done"),
+ class: "primary",
+ click: function() {
+ onComplete(expressionEditor.getValue());
+ RED.tray.close();
+ }
+ }
+ ],
+ resize: function(dimensions) {
+ editTrayWidthCache[type] = dimensions.width;
+
+ var rows = $("#dialog-form>div:not(.node-text-editor-row)");
+ var editorRow = $("#dialog-form>div.node-text-editor-row");
+ var height = $("#dialog-form").height();
+ for (var i=0;i
+
+
+
diff --git a/editor/vendor/jsonata/mode-jsonata.js b/editor/vendor/jsonata/mode-jsonata.js
new file mode 100644
index 000000000..24562c536
--- /dev/null
+++ b/editor/vendor/jsonata/mode-jsonata.js
@@ -0,0 +1,129 @@
+define("ace/mode/jsonata",["require","exports","module","ace/lib/oop","ace/mode/text_highlight_rules","ace/worker/worker_client","ace/mode/text"], function(require, exports, module) {
+ "use strict";
+
+ var oop = require("../lib/oop");
+ var TextHighlightRules = require("./text_highlight_rules").TextHighlightRules;
+ var WorkerClient = require("../worker/worker_client").WorkerClient;
+
+ var JSONataHighlightRules = function() {
+
+ var keywordMapper = this.createKeywordMapper({
+ "keyword.operator":
+ "and|or|in",
+ "constant.language":
+ "null|Infinity|NaN|undefined",
+ "storage.type":
+ "function",
+ "keyword":
+ "$sum|$count|$max|$min|$average|$string|$substring|$substringBefore|"+
+ "$substringAfter|$lowercase|$uppercase|$length|$split|$join|$number|"+
+ "$boolean|$not|$map|$reduce|$keys|$lookup|$append|$exists|$spread"
+ }, "identifier");
+ this.$rules = {
+ "start" : [
+ {
+ token : "string",
+ regex : "'(?=.)",
+ next : "qstring"
+ },
+ {
+ token : "string",
+ regex : '"(?=.)',
+ next : "qqstring"
+ },
+ {
+ token : "constant.numeric", // hex
+ regex : /0(?:[xX][0-9a-fA-F]+|[bB][01]+)\b/
+ },
+ {
+ token : "constant.numeric", // float
+ regex : /[+-]?\d[\d_]*(?:(?:\.\d*)?(?:[eE][+-]?\d+)?)?\b/
+ },
+ {
+ token : keywordMapper,
+ regex : "[a-zA-Z\\$_\u00a1-\uffff][a-zA-Z\\d\\$_\u00a1-\uffff]*"
+ },
+ { token: "keyword",
+ regex: /λ/
+ },
+ {
+ token: "constant.language.boolean",
+ regex: "true|false"
+ },
+ {
+ token : "punctuation.operator",
+ regex : /[.](?![.])/
+ },
+ {
+ token : "keyword.operator",
+ regex : /\|\||<=|>=|\.\.|\*\*|!=|:=|[=<>`!$%&*+\-~\/^]/,
+ next : "start"
+ },
+ {
+ token : "punctuation.operator",
+ regex : /[?:,;.]/,
+ next : "start"
+ },
+ {
+ token : "paren.lparen",
+ regex : /[\[({]/,
+ next : "start"
+ },
+ {
+ token : "paren.rparen",
+ regex : /[\])}]/
+ }
+ ],
+ "qqstring" : [
+ {
+ token : "string",
+ regex : '"|$',
+ next : "start"
+ }, {
+ defaultToken: "string"
+ }
+ ],
+ "qstring" : [
+ {
+ token : "string",
+ regex : "'|$",
+ next : "start"
+ }, {
+ defaultToken: "string"
+ }
+ ]
+ };
+ };
+
+ oop.inherits(JSONataHighlightRules, TextHighlightRules);
+
+ var TextMode = require("./text").Mode;
+ var Mode = function() {
+ this.HighlightRules = JSONataHighlightRules;
+ };
+ oop.inherits(Mode, TextMode);
+
+
+ (function() {
+ this.createWorker = function(session) {
+ var worker = new WorkerClient(["ace"], "ace/mode/jsonata_worker", "JSONataWorker");
+ worker.attachToDocument(session.getDocument());
+
+ worker.on("annotate", function(e) {
+ session.setAnnotations(e.data);
+ });
+
+ worker.on("terminate", function() {
+ session.clearAnnotations();
+ });
+
+ return worker;
+ };
+
+
+ this.$id = "ace/mode/jsonata";
+ }).call(Mode.prototype);
+
+ exports.Mode = Mode;
+
+});
diff --git a/editor/vendor/jsonata/worker-jsonata.js b/editor/vendor/jsonata/worker-jsonata.js
new file mode 100644
index 000000000..b6803d3af
--- /dev/null
+++ b/editor/vendor/jsonata/worker-jsonata.js
@@ -0,0 +1,4233 @@
+"no use strict";
+;(function(window) {
+if (typeof window.window != "undefined" && window.document)
+ return;
+if (window.require && window.define)
+ return;
+
+if (!window.console) {
+ window.console = function() {
+ var msgs = Array.prototype.slice.call(arguments, 0);
+ postMessage({type: "log", data: msgs});
+ };
+ window.console.error =
+ window.console.warn =
+ window.console.log =
+ window.console.trace = window.console;
+}
+window.window = window;
+window.ace = window;
+
+window.onerror = function(message, file, line, col, err) {
+ postMessage({type: "error", data: {
+ message: message,
+ data: err.data,
+ file: file,
+ line: line,
+ col: col,
+ stack: err.stack
+ }});
+};
+
+window.normalizeModule = function(parentId, moduleName) {
+ // normalize plugin requires
+ if (moduleName.indexOf("!") !== -1) {
+ var chunks = moduleName.split("!");
+ return window.normalizeModule(parentId, chunks[0]) + "!" + window.normalizeModule(parentId, chunks[1]);
+ }
+ // normalize relative requires
+ if (moduleName.charAt(0) == ".") {
+ var base = parentId.split("/").slice(0, -1).join("/");
+ moduleName = (base ? base + "/" : "") + moduleName;
+
+ while (moduleName.indexOf(".") !== -1 && previous != moduleName) {
+ var previous = moduleName;
+ moduleName = moduleName.replace(/^\.\//, "").replace(/\/\.\//, "/").replace(/[^\/]+\/\.\.\//, "");
+ }
+ }
+
+ return moduleName;
+};
+
+window.require = function require(parentId, id) {
+ if (!id) {
+ id = parentId;
+ parentId = null;
+ }
+ if (!id.charAt)
+ throw new Error("worker.js require() accepts only (parentId, id) as arguments");
+
+ id = window.normalizeModule(parentId, id);
+
+ var module = window.require.modules[id];
+ if (module) {
+ if (!module.initialized) {
+ module.initialized = true;
+ module.exports = module.factory().exports;
+ }
+ return module.exports;
+ }
+
+ if (!window.require.tlns)
+ return console.log("unable to load " + id);
+
+ var path = resolveModuleId(id, window.require.tlns);
+ if (path.slice(-3) != ".js") path += ".js";
+
+ window.require.id = id;
+ window.require.modules[id] = {}; // prevent infinite loop on broken modules
+ importScripts(path);
+ return window.require(parentId, id);
+};
+function resolveModuleId(id, paths) {
+ var testPath = id, tail = "";
+ while (testPath) {
+ var alias = paths[testPath];
+ if (typeof alias == "string") {
+ return alias + tail;
+ } else if (alias) {
+ return alias.location.replace(/\/*$/, "/") + (tail || alias.main || alias.name);
+ } else if (alias === false) {
+ return "";
+ }
+ var i = testPath.lastIndexOf("/");
+ if (i === -1) break;
+ tail = testPath.substr(i) + tail;
+ testPath = testPath.slice(0, i);
+ }
+ return id;
+}
+window.require.modules = {};
+window.require.tlns = {};
+
+window.define = function(id, deps, factory) {
+ if (arguments.length == 2) {
+ factory = deps;
+ if (typeof id != "string") {
+ deps = id;
+ id = window.require.id;
+ }
+ } else if (arguments.length == 1) {
+ factory = id;
+ deps = [];
+ id = window.require.id;
+ }
+
+ if (typeof factory != "function") {
+ window.require.modules[id] = {
+ exports: factory,
+ initialized: true
+ };
+ return;
+ }
+
+ if (!deps.length)
+ // If there is no dependencies, we inject "require", "exports" and
+ // "module" as dependencies, to provide CommonJS compatibility.
+ deps = ["require", "exports", "module"];
+
+ var req = function(childId) {
+ return window.require(id, childId);
+ };
+
+ window.require.modules[id] = {
+ exports: {},
+ factory: function() {
+ var module = this;
+ var returnExports = factory.apply(this, deps.map(function(dep) {
+ switch (dep) {
+ // Because "require", "exports" and "module" aren't actual
+ // dependencies, we must handle them seperately.
+ case "require": return req;
+ case "exports": return module.exports;
+ case "module": return module;
+ // But for all other dependencies, we can just go ahead and
+ // require them.
+ default: return req(dep);
+ }
+ }));
+ if (returnExports)
+ module.exports = returnExports;
+ return module;
+ }
+ };
+};
+window.define.amd = {};
+require.tlns = {};
+window.initBaseUrls = function initBaseUrls(topLevelNamespaces) {
+ for (var i in topLevelNamespaces)
+ require.tlns[i] = topLevelNamespaces[i];
+};
+
+window.initSender = function initSender() {
+
+ var EventEmitter = window.require("ace/lib/event_emitter").EventEmitter;
+ var oop = window.require("ace/lib/oop");
+
+ var Sender = function() {};
+
+ (function() {
+
+ oop.implement(this, EventEmitter);
+
+ this.callback = function(data, callbackId) {
+ postMessage({
+ type: "call",
+ id: callbackId,
+ data: data
+ });
+ };
+
+ this.emit = function(name, data) {
+ postMessage({
+ type: "event",
+ name: name,
+ data: data
+ });
+ };
+
+ }).call(Sender.prototype);
+
+ return new Sender();
+};
+
+var main = window.main = null;
+var sender = window.sender = null;
+
+window.onmessage = function(e) {
+ var msg = e.data;
+ if (msg.event && sender) {
+ sender._signal(msg.event, msg.data);
+ }
+ else if (msg.command) {
+ if (main[msg.command])
+ main[msg.command].apply(main, msg.args);
+ else if (window[msg.command])
+ window[msg.command].apply(window, msg.args);
+ else
+ throw new Error("Unknown command:" + msg.command);
+ }
+ else if (msg.init) {
+ window.initBaseUrls(msg.tlns);
+ require("ace/lib/es5-shim");
+ sender = window.sender = window.initSender();
+ var clazz = require(msg.module)[msg.classname];
+ main = window.main = new clazz(sender);
+ }
+};
+})(this);
+
+define("ace/lib/oop",["require","exports","module"], function(require, exports, module) {
+"use strict";
+
+exports.inherits = function(ctor, superCtor) {
+ ctor.super_ = superCtor;
+ ctor.prototype = Object.create(superCtor.prototype, {
+ constructor: {
+ value: ctor,
+ enumerable: false,
+ writable: true,
+ configurable: true
+ }
+ });
+};
+
+exports.mixin = function(obj, mixin) {
+ for (var key in mixin) {
+ obj[key] = mixin[key];
+ }
+ return obj;
+};
+
+exports.implement = function(proto, mixin) {
+ exports.mixin(proto, mixin);
+};
+
+});
+
+define("ace/range",["require","exports","module"], function(require, exports, module) {
+"use strict";
+var comparePoints = function(p1, p2) {
+ return p1.row - p2.row || p1.column - p2.column;
+};
+var Range = function(startRow, startColumn, endRow, endColumn) {
+ this.start = {
+ row: startRow,
+ column: startColumn
+ };
+
+ this.end = {
+ row: endRow,
+ column: endColumn
+ };
+};
+
+(function() {
+ this.isEqual = function(range) {
+ return this.start.row === range.start.row &&
+ this.end.row === range.end.row &&
+ this.start.column === range.start.column &&
+ this.end.column === range.end.column;
+ };
+ this.toString = function() {
+ return ("Range: [" + this.start.row + "/" + this.start.column +
+ "] -> [" + this.end.row + "/" + this.end.column + "]");
+ };
+
+ this.contains = function(row, column) {
+ return this.compare(row, column) == 0;
+ };
+ this.compareRange = function(range) {
+ var cmp,
+ end = range.end,
+ start = range.start;
+
+ cmp = this.compare(end.row, end.column);
+ if (cmp == 1) {
+ cmp = this.compare(start.row, start.column);
+ if (cmp == 1) {
+ return 2;
+ } else if (cmp == 0) {
+ return 1;
+ } else {
+ return 0;
+ }
+ } else if (cmp == -1) {
+ return -2;
+ } else {
+ cmp = this.compare(start.row, start.column);
+ if (cmp == -1) {
+ return -1;
+ } else if (cmp == 1) {
+ return 42;
+ } else {
+ return 0;
+ }
+ }
+ };
+ this.comparePoint = function(p) {
+ return this.compare(p.row, p.column);
+ };
+ this.containsRange = function(range) {
+ return this.comparePoint(range.start) == 0 && this.comparePoint(range.end) == 0;
+ };
+ this.intersects = function(range) {
+ var cmp = this.compareRange(range);
+ return (cmp == -1 || cmp == 0 || cmp == 1);
+ };
+ this.isEnd = function(row, column) {
+ return this.end.row == row && this.end.column == column;
+ };
+ this.isStart = function(row, column) {
+ return this.start.row == row && this.start.column == column;
+ };
+ this.setStart = function(row, column) {
+ if (typeof row == "object") {
+ this.start.column = row.column;
+ this.start.row = row.row;
+ } else {
+ this.start.row = row;
+ this.start.column = column;
+ }
+ };
+ this.setEnd = function(row, column) {
+ if (typeof row == "object") {
+ this.end.column = row.column;
+ this.end.row = row.row;
+ } else {
+ this.end.row = row;
+ this.end.column = column;
+ }
+ };
+ this.inside = function(row, column) {
+ if (this.compare(row, column) == 0) {
+ if (this.isEnd(row, column) || this.isStart(row, column)) {
+ return false;
+ } else {
+ return true;
+ }
+ }
+ return false;
+ };
+ this.insideStart = function(row, column) {
+ if (this.compare(row, column) == 0) {
+ if (this.isEnd(row, column)) {
+ return false;
+ } else {
+ return true;
+ }
+ }
+ return false;
+ };
+ this.insideEnd = function(row, column) {
+ if (this.compare(row, column) == 0) {
+ if (this.isStart(row, column)) {
+ return false;
+ } else {
+ return true;
+ }
+ }
+ return false;
+ };
+ this.compare = function(row, column) {
+ if (!this.isMultiLine()) {
+ if (row === this.start.row) {
+ return column < this.start.column ? -1 : (column > this.end.column ? 1 : 0);
+ }
+ }
+
+ if (row < this.start.row)
+ return -1;
+
+ if (row > this.end.row)
+ return 1;
+
+ if (this.start.row === row)
+ return column >= this.start.column ? 0 : -1;
+
+ if (this.end.row === row)
+ return column <= this.end.column ? 0 : 1;
+
+ return 0;
+ };
+ this.compareStart = function(row, column) {
+ if (this.start.row == row && this.start.column == column) {
+ return -1;
+ } else {
+ return this.compare(row, column);
+ }
+ };
+ this.compareEnd = function(row, column) {
+ if (this.end.row == row && this.end.column == column) {
+ return 1;
+ } else {
+ return this.compare(row, column);
+ }
+ };
+ this.compareInside = function(row, column) {
+ if (this.end.row == row && this.end.column == column) {
+ return 1;
+ } else if (this.start.row == row && this.start.column == column) {
+ return -1;
+ } else {
+ return this.compare(row, column);
+ }
+ };
+ this.clipRows = function(firstRow, lastRow) {
+ if (this.end.row > lastRow)
+ var end = {row: lastRow + 1, column: 0};
+ else if (this.end.row < firstRow)
+ var end = {row: firstRow, column: 0};
+
+ if (this.start.row > lastRow)
+ var start = {row: lastRow + 1, column: 0};
+ else if (this.start.row < firstRow)
+ var start = {row: firstRow, column: 0};
+
+ return Range.fromPoints(start || this.start, end || this.end);
+ };
+ this.extend = function(row, column) {
+ var cmp = this.compare(row, column);
+
+ if (cmp == 0)
+ return this;
+ else if (cmp == -1)
+ var start = {row: row, column: column};
+ else
+ var end = {row: row, column: column};
+
+ return Range.fromPoints(start || this.start, end || this.end);
+ };
+
+ this.isEmpty = function() {
+ return (this.start.row === this.end.row && this.start.column === this.end.column);
+ };
+ this.isMultiLine = function() {
+ return (this.start.row !== this.end.row);
+ };
+ this.clone = function() {
+ return Range.fromPoints(this.start, this.end);
+ };
+ this.collapseRows = function() {
+ if (this.end.column == 0)
+ return new Range(this.start.row, 0, Math.max(this.start.row, this.end.row-1), 0)
+ else
+ return new Range(this.start.row, 0, this.end.row, 0)
+ };
+ this.toScreenRange = function(session) {
+ var screenPosStart = session.documentToScreenPosition(this.start);
+ var screenPosEnd = session.documentToScreenPosition(this.end);
+
+ return new Range(
+ screenPosStart.row, screenPosStart.column,
+ screenPosEnd.row, screenPosEnd.column
+ );
+ };
+ this.moveBy = function(row, column) {
+ this.start.row += row;
+ this.start.column += column;
+ this.end.row += row;
+ this.end.column += column;
+ };
+
+}).call(Range.prototype);
+Range.fromPoints = function(start, end) {
+ return new Range(start.row, start.column, end.row, end.column);
+};
+Range.comparePoints = comparePoints;
+
+Range.comparePoints = function(p1, p2) {
+ return p1.row - p2.row || p1.column - p2.column;
+};
+
+
+exports.Range = Range;
+});
+
+define("ace/apply_delta",["require","exports","module"], function(require, exports, module) {
+"use strict";
+
+function throwDeltaError(delta, errorText){
+ console.log("Invalid Delta:", delta);
+ throw "Invalid Delta: " + errorText;
+}
+
+function positionInDocument(docLines, position) {
+ return position.row >= 0 && position.row < docLines.length &&
+ position.column >= 0 && position.column <= docLines[position.row].length;
+}
+
+function validateDelta(docLines, delta) {
+ if (delta.action != "insert" && delta.action != "remove")
+ throwDeltaError(delta, "delta.action must be 'insert' or 'remove'");
+ if (!(delta.lines instanceof Array))
+ throwDeltaError(delta, "delta.lines must be an Array");
+ if (!delta.start || !delta.end)
+ throwDeltaError(delta, "delta.start/end must be an present");
+ var start = delta.start;
+ if (!positionInDocument(docLines, delta.start))
+ throwDeltaError(delta, "delta.start must be contained in document");
+ var end = delta.end;
+ if (delta.action == "remove" && !positionInDocument(docLines, end))
+ throwDeltaError(delta, "delta.end must contained in document for 'remove' actions");
+ var numRangeRows = end.row - start.row;
+ var numRangeLastLineChars = (end.column - (numRangeRows == 0 ? start.column : 0));
+ if (numRangeRows != delta.lines.length - 1 || delta.lines[numRangeRows].length != numRangeLastLineChars)
+ throwDeltaError(delta, "delta.range must match delta lines");
+}
+
+exports.applyDelta = function(docLines, delta, doNotValidate) {
+
+ var row = delta.start.row;
+ var startColumn = delta.start.column;
+ var line = docLines[row] || "";
+ switch (delta.action) {
+ case "insert":
+ var lines = delta.lines;
+ if (lines.length === 1) {
+ docLines[row] = line.substring(0, startColumn) + delta.lines[0] + line.substring(startColumn);
+ } else {
+ var args = [row, 1].concat(delta.lines);
+ docLines.splice.apply(docLines, args);
+ docLines[row] = line.substring(0, startColumn) + docLines[row];
+ docLines[row + delta.lines.length - 1] += line.substring(startColumn);
+ }
+ break;
+ case "remove":
+ var endColumn = delta.end.column;
+ var endRow = delta.end.row;
+ if (row === endRow) {
+ docLines[row] = line.substring(0, startColumn) + line.substring(endColumn);
+ } else {
+ docLines.splice(
+ row, endRow - row + 1,
+ line.substring(0, startColumn) + docLines[endRow].substring(endColumn)
+ );
+ }
+ break;
+ }
+}
+});
+
+define("ace/lib/event_emitter",["require","exports","module"], function(require, exports, module) {
+"use strict";
+
+var EventEmitter = {};
+var stopPropagation = function() { this.propagationStopped = true; };
+var preventDefault = function() { this.defaultPrevented = true; };
+
+EventEmitter._emit =
+EventEmitter._dispatchEvent = function(eventName, e) {
+ this._eventRegistry || (this._eventRegistry = {});
+ this._defaultHandlers || (this._defaultHandlers = {});
+
+ var listeners = this._eventRegistry[eventName] || [];
+ var defaultHandler = this._defaultHandlers[eventName];
+ if (!listeners.length && !defaultHandler)
+ return;
+
+ if (typeof e != "object" || !e)
+ e = {};
+
+ if (!e.type)
+ e.type = eventName;
+ if (!e.stopPropagation)
+ e.stopPropagation = stopPropagation;
+ if (!e.preventDefault)
+ e.preventDefault = preventDefault;
+
+ listeners = listeners.slice();
+ for (var i=0; i this.row)
+ return;
+
+ var point = $getTransformedPoint(delta, {row: this.row, column: this.column}, this.$insertRight);
+ this.setPosition(point.row, point.column, true);
+ };
+
+ function $pointsInOrder(point1, point2, equalPointsInOrder) {
+ var bColIsAfter = equalPointsInOrder ? point1.column <= point2.column : point1.column < point2.column;
+ return (point1.row < point2.row) || (point1.row == point2.row && bColIsAfter);
+ }
+
+ function $getTransformedPoint(delta, point, moveIfEqual) {
+ var deltaIsInsert = delta.action == "insert";
+ var deltaRowShift = (deltaIsInsert ? 1 : -1) * (delta.end.row - delta.start.row);
+ var deltaColShift = (deltaIsInsert ? 1 : -1) * (delta.end.column - delta.start.column);
+ var deltaStart = delta.start;
+ var deltaEnd = deltaIsInsert ? deltaStart : delta.end; // Collapse insert range.
+ if ($pointsInOrder(point, deltaStart, moveIfEqual)) {
+ return {
+ row: point.row,
+ column: point.column
+ };
+ }
+ if ($pointsInOrder(deltaEnd, point, !moveIfEqual)) {
+ return {
+ row: point.row + deltaRowShift,
+ column: point.column + (point.row == deltaEnd.row ? deltaColShift : 0)
+ };
+ }
+
+ return {
+ row: deltaStart.row,
+ column: deltaStart.column
+ };
+ }
+ this.setPosition = function(row, column, noClip) {
+ var pos;
+ if (noClip) {
+ pos = {
+ row: row,
+ column: column
+ };
+ } else {
+ pos = this.$clipPositionToDocument(row, column);
+ }
+
+ if (this.row == pos.row && this.column == pos.column)
+ return;
+
+ var old = {
+ row: this.row,
+ column: this.column
+ };
+
+ this.row = pos.row;
+ this.column = pos.column;
+ this._signal("change", {
+ old: old,
+ value: pos
+ });
+ };
+ this.detach = function() {
+ this.document.removeEventListener("change", this.$onChange);
+ };
+ this.attach = function(doc) {
+ this.document = doc || this.document;
+ this.document.on("change", this.$onChange);
+ };
+ this.$clipPositionToDocument = function(row, column) {
+ var pos = {};
+
+ if (row >= this.document.getLength()) {
+ pos.row = Math.max(0, this.document.getLength() - 1);
+ pos.column = this.document.getLine(pos.row).length;
+ }
+ else if (row < 0) {
+ pos.row = 0;
+ pos.column = 0;
+ }
+ else {
+ pos.row = row;
+ pos.column = Math.min(this.document.getLine(pos.row).length, Math.max(0, column));
+ }
+
+ if (column < 0)
+ pos.column = 0;
+
+ return pos;
+ };
+
+}).call(Anchor.prototype);
+
+});
+
+define("ace/document",["require","exports","module","ace/lib/oop","ace/apply_delta","ace/lib/event_emitter","ace/range","ace/anchor"], function(require, exports, module) {
+"use strict";
+
+var oop = require("./lib/oop");
+var applyDelta = require("./apply_delta").applyDelta;
+var EventEmitter = require("./lib/event_emitter").EventEmitter;
+var Range = require("./range").Range;
+var Anchor = require("./anchor").Anchor;
+
+var Document = function(textOrLines) {
+ this.$lines = [""];
+ if (textOrLines.length === 0) {
+ this.$lines = [""];
+ } else if (Array.isArray(textOrLines)) {
+ this.insertMergedLines({row: 0, column: 0}, textOrLines);
+ } else {
+ this.insert({row: 0, column:0}, textOrLines);
+ }
+};
+
+(function() {
+
+ oop.implement(this, EventEmitter);
+ this.setValue = function(text) {
+ var len = this.getLength() - 1;
+ this.remove(new Range(0, 0, len, this.getLine(len).length));
+ this.insert({row: 0, column: 0}, text);
+ };
+ this.getValue = function() {
+ return this.getAllLines().join(this.getNewLineCharacter());
+ };
+ this.createAnchor = function(row, column) {
+ return new Anchor(this, row, column);
+ };
+ if ("aaa".split(/a/).length === 0) {
+ this.$split = function(text) {
+ return text.replace(/\r\n|\r/g, "\n").split("\n");
+ };
+ } else {
+ this.$split = function(text) {
+ return text.split(/\r\n|\r|\n/);
+ };
+ }
+
+
+ this.$detectNewLine = function(text) {
+ var match = text.match(/^.*?(\r\n|\r|\n)/m);
+ this.$autoNewLine = match ? match[1] : "\n";
+ this._signal("changeNewLineMode");
+ };
+ this.getNewLineCharacter = function() {
+ switch (this.$newLineMode) {
+ case "windows":
+ return "\r\n";
+ case "unix":
+ return "\n";
+ default:
+ return this.$autoNewLine || "\n";
+ }
+ };
+
+ this.$autoNewLine = "";
+ this.$newLineMode = "auto";
+ this.setNewLineMode = function(newLineMode) {
+ if (this.$newLineMode === newLineMode)
+ return;
+
+ this.$newLineMode = newLineMode;
+ this._signal("changeNewLineMode");
+ };
+ this.getNewLineMode = function() {
+ return this.$newLineMode;
+ };
+ this.isNewLine = function(text) {
+ return (text == "\r\n" || text == "\r" || text == "\n");
+ };
+ this.getLine = function(row) {
+ return this.$lines[row] || "";
+ };
+ this.getLines = function(firstRow, lastRow) {
+ return this.$lines.slice(firstRow, lastRow + 1);
+ };
+ this.getAllLines = function() {
+ return this.getLines(0, this.getLength());
+ };
+ this.getLength = function() {
+ return this.$lines.length;
+ };
+ this.getTextRange = function(range) {
+ return this.getLinesForRange(range).join(this.getNewLineCharacter());
+ };
+ this.getLinesForRange = function(range) {
+ var lines;
+ if (range.start.row === range.end.row) {
+ lines = [this.getLine(range.start.row).substring(range.start.column, range.end.column)];
+ } else {
+ lines = this.getLines(range.start.row, range.end.row);
+ lines[0] = (lines[0] || "").substring(range.start.column);
+ var l = lines.length - 1;
+ if (range.end.row - range.start.row == l)
+ lines[l] = lines[l].substring(0, range.end.column);
+ }
+ return lines;
+ };
+ this.insertLines = function(row, lines) {
+ console.warn("Use of document.insertLines is deprecated. Use the insertFullLines method instead.");
+ return this.insertFullLines(row, lines);
+ };
+ this.removeLines = function(firstRow, lastRow) {
+ console.warn("Use of document.removeLines is deprecated. Use the removeFullLines method instead.");
+ return this.removeFullLines(firstRow, lastRow);
+ };
+ this.insertNewLine = function(position) {
+ console.warn("Use of document.insertNewLine is deprecated. Use insertMergedLines(position, ['', '']) instead.");
+ return this.insertMergedLines(position, ["", ""]);
+ };
+ this.insert = function(position, text) {
+ if (this.getLength() <= 1)
+ this.$detectNewLine(text);
+
+ return this.insertMergedLines(position, this.$split(text));
+ };
+ this.insertInLine = function(position, text) {
+ var start = this.clippedPos(position.row, position.column);
+ var end = this.pos(position.row, position.column + text.length);
+
+ this.applyDelta({
+ start: start,
+ end: end,
+ action: "insert",
+ lines: [text]
+ }, true);
+
+ return this.clonePos(end);
+ };
+
+ this.clippedPos = function(row, column) {
+ var length = this.getLength();
+ if (row === undefined) {
+ row = length;
+ } else if (row < 0) {
+ row = 0;
+ } else if (row >= length) {
+ row = length - 1;
+ column = undefined;
+ }
+ var line = this.getLine(row);
+ if (column == undefined)
+ column = line.length;
+ column = Math.min(Math.max(column, 0), line.length);
+ return {row: row, column: column};
+ };
+
+ this.clonePos = function(pos) {
+ return {row: pos.row, column: pos.column};
+ };
+
+ this.pos = function(row, column) {
+ return {row: row, column: column};
+ };
+
+ this.$clipPosition = function(position) {
+ var length = this.getLength();
+ if (position.row >= length) {
+ position.row = Math.max(0, length - 1);
+ position.column = this.getLine(length - 1).length;
+ } else {
+ position.row = Math.max(0, position.row);
+ position.column = Math.min(Math.max(position.column, 0), this.getLine(position.row).length);
+ }
+ return position;
+ };
+ this.insertFullLines = function(row, lines) {
+ row = Math.min(Math.max(row, 0), this.getLength());
+ var column = 0;
+ if (row < this.getLength()) {
+ lines = lines.concat([""]);
+ column = 0;
+ } else {
+ lines = [""].concat(lines);
+ row--;
+ column = this.$lines[row].length;
+ }
+ this.insertMergedLines({row: row, column: column}, lines);
+ };
+ this.insertMergedLines = function(position, lines) {
+ var start = this.clippedPos(position.row, position.column);
+ var end = {
+ row: start.row + lines.length - 1,
+ column: (lines.length == 1 ? start.column : 0) + lines[lines.length - 1].length
+ };
+
+ this.applyDelta({
+ start: start,
+ end: end,
+ action: "insert",
+ lines: lines
+ });
+
+ return this.clonePos(end);
+ };
+ this.remove = function(range) {
+ var start = this.clippedPos(range.start.row, range.start.column);
+ var end = this.clippedPos(range.end.row, range.end.column);
+ this.applyDelta({
+ start: start,
+ end: end,
+ action: "remove",
+ lines: this.getLinesForRange({start: start, end: end})
+ });
+ return this.clonePos(start);
+ };
+ this.removeInLine = function(row, startColumn, endColumn) {
+ var start = this.clippedPos(row, startColumn);
+ var end = this.clippedPos(row, endColumn);
+
+ this.applyDelta({
+ start: start,
+ end: end,
+ action: "remove",
+ lines: this.getLinesForRange({start: start, end: end})
+ }, true);
+
+ return this.clonePos(start);
+ };
+ this.removeFullLines = function(firstRow, lastRow) {
+ firstRow = Math.min(Math.max(0, firstRow), this.getLength() - 1);
+ lastRow = Math.min(Math.max(0, lastRow ), this.getLength() - 1);
+ var deleteFirstNewLine = lastRow == this.getLength() - 1 && firstRow > 0;
+ var deleteLastNewLine = lastRow < this.getLength() - 1;
+ var startRow = ( deleteFirstNewLine ? firstRow - 1 : firstRow );
+ var startCol = ( deleteFirstNewLine ? this.getLine(startRow).length : 0 );
+ var endRow = ( deleteLastNewLine ? lastRow + 1 : lastRow );
+ var endCol = ( deleteLastNewLine ? 0 : this.getLine(endRow).length );
+ var range = new Range(startRow, startCol, endRow, endCol);
+ var deletedLines = this.$lines.slice(firstRow, lastRow + 1);
+
+ this.applyDelta({
+ start: range.start,
+ end: range.end,
+ action: "remove",
+ lines: this.getLinesForRange(range)
+ });
+ return deletedLines;
+ };
+ this.removeNewLine = function(row) {
+ if (row < this.getLength() - 1 && row >= 0) {
+ this.applyDelta({
+ start: this.pos(row, this.getLine(row).length),
+ end: this.pos(row + 1, 0),
+ action: "remove",
+ lines: ["", ""]
+ });
+ }
+ };
+ this.replace = function(range, text) {
+ if (!(range instanceof Range))
+ range = Range.fromPoints(range.start, range.end);
+ if (text.length === 0 && range.isEmpty())
+ return range.start;
+ if (text == this.getTextRange(range))
+ return range.end;
+
+ this.remove(range);
+ var end;
+ if (text) {
+ end = this.insert(range.start, text);
+ }
+ else {
+ end = range.start;
+ }
+
+ return end;
+ };
+ this.applyDeltas = function(deltas) {
+ for (var i=0; i=0; i--) {
+ this.revertDelta(deltas[i]);
+ }
+ };
+ this.applyDelta = function(delta, doNotValidate) {
+ var isInsert = delta.action == "insert";
+ if (isInsert ? delta.lines.length <= 1 && !delta.lines[0]
+ : !Range.comparePoints(delta.start, delta.end)) {
+ return;
+ }
+
+ if (isInsert && delta.lines.length > 20000)
+ this.$splitAndapplyLargeDelta(delta, 20000);
+ applyDelta(this.$lines, delta, doNotValidate);
+ this._signal("change", delta);
+ };
+
+ this.$splitAndapplyLargeDelta = function(delta, MAX) {
+ var lines = delta.lines;
+ var l = lines.length;
+ var row = delta.start.row;
+ var column = delta.start.column;
+ var from = 0, to = 0;
+ do {
+ from = to;
+ to += MAX - 1;
+ var chunk = lines.slice(from, to);
+ if (to > l) {
+ delta.lines = chunk;
+ delta.start.row = row + from;
+ delta.start.column = column;
+ break;
+ }
+ chunk.push("");
+ this.applyDelta({
+ start: this.pos(row + from, column),
+ end: this.pos(row + to, column = 0),
+ action: delta.action,
+ lines: chunk
+ }, true);
+ } while(true);
+ };
+ this.revertDelta = function(delta) {
+ this.applyDelta({
+ start: this.clonePos(delta.start),
+ end: this.clonePos(delta.end),
+ action: (delta.action == "insert" ? "remove" : "insert"),
+ lines: delta.lines.slice()
+ });
+ };
+ this.indexToPosition = function(index, startRow) {
+ var lines = this.$lines || this.getAllLines();
+ var newlineLength = this.getNewLineCharacter().length;
+ for (var i = startRow || 0, l = lines.length; i < l; i++) {
+ index -= lines[i].length + newlineLength;
+ if (index < 0)
+ return {row: i, column: index + lines[i].length + newlineLength};
+ }
+ return {row: l-1, column: lines[l-1].length};
+ };
+ this.positionToIndex = function(pos, startRow) {
+ var lines = this.$lines || this.getAllLines();
+ var newlineLength = this.getNewLineCharacter().length;
+ var index = 0;
+ var row = Math.min(pos.row, lines.length);
+ for (var i = startRow || 0; i < row; ++i)
+ index += lines[i].length + newlineLength;
+
+ return index + pos.column;
+ };
+
+}).call(Document.prototype);
+
+exports.Document = Document;
+});
+
+define("ace/lib/lang",["require","exports","module"], function(require, exports, module) {
+"use strict";
+
+exports.last = function(a) {
+ return a[a.length - 1];
+};
+
+exports.stringReverse = function(string) {
+ return string.split("").reverse().join("");
+};
+
+exports.stringRepeat = function (string, count) {
+ var result = '';
+ while (count > 0) {
+ if (count & 1)
+ result += string;
+
+ if (count >>= 1)
+ string += string;
+ }
+ return result;
+};
+
+var trimBeginRegexp = /^\s\s*/;
+var trimEndRegexp = /\s\s*$/;
+
+exports.stringTrimLeft = function (string) {
+ return string.replace(trimBeginRegexp, '');
+};
+
+exports.stringTrimRight = function (string) {
+ return string.replace(trimEndRegexp, '');
+};
+
+exports.copyObject = function(obj) {
+ var copy = {};
+ for (var key in obj) {
+ copy[key] = obj[key];
+ }
+ return copy;
+};
+
+exports.copyArray = function(array){
+ var copy = [];
+ for (var i=0, l=array.length; i': 40,
+ '`': 80,
+ '**': 60,
+ '..': 20,
+ ':=': 10,
+ '!=': 40,
+ '<=': 40,
+ '>=': 40,
+ 'and': 30,
+ 'or': 25,
+ 'in': 40,
+ '&': 50,
+ '!': 0 // not an operator, but needed as a stop character for name tokens
+ };
+
+ var escapes = { // JSON string escape sequences - see json.org
+ '"': '"',
+ '\\': '\\',
+ '/': '/',
+ 'b': '\b',
+ 'f': '\f',
+ 'n': '\n',
+ 'r': '\r',
+ 't': '\t'
+ };
+ var tokenizer = function (path) {
+ var position = 0;
+ var length = path.length;
+
+ var create = function (type, value) {
+ var obj = {type: type, value: value, position: position};
+ return obj;
+ };
+
+ var next = function () {
+ if (position >= length) return null;
+ var currentChar = path.charAt(position);
+ while (position < length && ' \t\n\r\v'.indexOf(currentChar) > -1) {
+ position++;
+ currentChar = path.charAt(position);
+ }
+ if (currentChar === '.' && path.charAt(position + 1) === '.') {
+ position += 2;
+ return create('operator', '..');
+ }
+ if (currentChar === ':' && path.charAt(position + 1) === '=') {
+ position += 2;
+ return create('operator', ':=');
+ }
+ if (currentChar === '!' && path.charAt(position + 1) === '=') {
+ position += 2;
+ return create('operator', '!=');
+ }
+ if (currentChar === '>' && path.charAt(position + 1) === '=') {
+ position += 2;
+ return create('operator', '>=');
+ }
+ if (currentChar === '<' && path.charAt(position + 1) === '=') {
+ position += 2;
+ return create('operator', '<=');
+ }
+ if (currentChar === '*' && path.charAt(position + 1) === '*') {
+ position += 2;
+ return create('operator', '**');
+ }
+ if (operators.hasOwnProperty(currentChar)) {
+ position++;
+ return create('operator', currentChar);
+ }
+ if (currentChar === '"' || currentChar === "'") {
+ var quoteType = currentChar;
+ position++;
+ var qstr = "";
+ while (position < length) {
+ currentChar = path.charAt(position);
+ if (currentChar === '\\') { // escape sequence
+ position++;
+ currentChar = path.charAt(position);
+ if (escapes.hasOwnProperty(currentChar)) {
+ qstr += escapes[currentChar];
+ } else if (currentChar === 'u') {
+ var octets = path.substr(position + 1, 4);
+ if (/^[0-9a-fA-F]+$/.test(octets)) {
+ var codepoint = parseInt(octets, 16);
+ qstr += String.fromCharCode(codepoint);
+ position += 4;
+ } else {
+ throw {
+ message: "The escape sequence \\u must be followed by 4 hex digits at column " + position,
+ stack: (new Error()).stack,
+ position: position
+ };
+ }
+ } else {
+ throw {
+ message: 'unsupported escape sequence: \\' + currentChar + ' at column ' + position,
+ stack: (new Error()).stack,
+ position: position,
+ token: currentChar
+ };
+
+ }
+ } else if (currentChar === quoteType) {
+ position++;
+ return create('string', qstr);
+ } else {
+ qstr += currentChar;
+ }
+ position++;
+ }
+ throw {
+ message: 'no terminating quote found in string literal at column ' + position,
+ stack: (new Error()).stack,
+ position: position
+ };
+ }
+ var numregex = /^-?(0|([1-9][0-9]*))(\.[0-9]+)?([Ee][-+]?[0-9]+)?/;
+ var match = numregex.exec(path.substring(position));
+ if (match !== null) {
+ var num = parseFloat(match[0]);
+ if (!isNaN(num) && isFinite(num)) {
+ position += match[0].length;
+ return create('number', num);
+ } else {
+ throw {
+ message: 'Number out of range: ' + match[0] + ' at column ' + position,
+ stack: (new Error()).stack,
+ position: position,
+ token: match[0]
+ };
+ }
+ }
+ var i = position;
+ var ch;
+ var name;
+ for (;;) {
+ ch = path.charAt(i);
+ if (i == length || ' \t\n\r\v'.indexOf(ch) > -1 || operators.hasOwnProperty(ch)) {
+ if (path.charAt(position) === '$') {
+ name = path.substring(position + 1, i);
+ position = i;
+ return create('variable', name);
+ } else {
+ name = path.substring(position, i);
+ position = i;
+ switch (name) {
+ case 'and':
+ case 'or':
+ case 'in':
+ return create('operator', name);
+ case 'true':
+ return create('value', true);
+ case 'false':
+ return create('value', false);
+ case 'null':
+ return create('value', null);
+ default:
+ if (position == length && name === '') {
+ return null;
+ }
+ return create('name', name);
+ }
+ }
+ } else {
+ i++;
+ }
+ }
+ };
+
+ return next;
+ };
+
+ var parser = function (source) {
+ var node;
+ var lexer;
+
+ var symbol_table = {};
+
+ var base_symbol = {
+ nud: function () {
+ return this;
+ }
+ };
+
+ var symbol = function (id, bp) {
+ var s = symbol_table[id];
+ bp = bp || 0;
+ if (s) {
+ if (bp >= s.lbp) {
+ s.lbp = bp;
+ }
+ } else {
+ s = Object.create(base_symbol);
+ s.id = s.value = id;
+ s.lbp = bp;
+ symbol_table[id] = s;
+ }
+ return s;
+ };
+
+ var advance = function (id) {
+ if (id && node.id !== id) {
+ var msg;
+ if(node.id === '(end)') {
+ msg = "Syntax error: expected '" + id + "' before end of expression";
+ } else {
+ msg = "Syntax error: expected '" + id + "', got '" + node.id + "' at column " + node.position;
+ }
+ throw {
+ message: msg ,
+ stack: (new Error()).stack,
+ position: node.position,
+ token: node.id,
+ value: id
+ };
+ }
+ var next_token = lexer();
+ if (next_token === null) {
+ node = symbol_table["(end)"];
+ return node;
+ }
+ var value = next_token.value;
+ var type = next_token.type;
+ var symbol;
+ switch (type) {
+ case 'name':
+ case 'variable':
+ symbol = symbol_table["(name)"];
+ break;
+ case 'operator':
+ symbol = symbol_table[value];
+ if (!symbol) {
+ throw {
+ message: "Unknown operator: " + value + " at column " + next_token.position,
+ stack: (new Error()).stack,
+ position: next_token.position,
+ token: value
+ };
+ }
+ break;
+ case 'string':
+ case 'number':
+ case 'value':
+ type = "literal";
+ symbol = symbol_table["(literal)"];
+ break;
+ default:
+ throw {
+ message: "Unexpected token:" + value + " at column " + next_token.position,
+ stack: (new Error()).stack,
+ position: next_token.position,
+ token: value
+ };
+ }
+
+ node = Object.create(symbol);
+ node.value = value;
+ node.type = type;
+ node.position = next_token.position;
+ return node;
+ };
+ var expression = function (rbp) {
+ var left;
+ var t = node;
+ advance();
+ left = t.nud();
+ while (rbp < node.lbp) {
+ t = node;
+ advance();
+ left = t.led(left);
+ }
+ return left;
+ };
+ var infix = function (id, bp, led) {
+ var bindingPower = bp || operators[id];
+ var s = symbol(id, bindingPower);
+ s.led = led || function (left) {
+ this.lhs = left;
+ this.rhs = expression(bindingPower);
+ this.type = "binary";
+ return this;
+ };
+ return s;
+ };
+ var infixr = function (id, bp, led) {
+ var bindingPower = bp || operators[id];
+ var s = symbol(id, bindingPower);
+ s.led = led || function (left) {
+ this.lhs = left;
+ this.rhs = expression(bindingPower - 1); // subtract 1 from bindingPower for right associative operators
+ this.type = "binary";
+ return this;
+ };
+ return s;
+ };
+ var prefix = function (id, nud) {
+ var s = symbol(id);
+ s.nud = nud || function () {
+ this.expression = expression(70);
+ this.type = "unary";
+ return this;
+ };
+ return s;
+ };
+
+ symbol("(end)");
+ symbol("(name)");
+ symbol("(literal)");
+ symbol(":");
+ symbol(";");
+ symbol(",");
+ symbol(")");
+ symbol("]");
+ symbol("}");
+ symbol(".."); // range operator
+ infix("."); // field reference
+ infix("+"); // numeric addition
+ infix("-"); // numeric subtraction
+ infix("*"); // numeric multiplication
+ infix("/"); // numeric division
+ infix("%"); // numeric modulus
+ infix("="); // equality
+ infix("<"); // less than
+ infix(">"); // greater than
+ infix("!="); // not equal to
+ infix("<="); // less than or equal
+ infix(">="); // greater than or equal
+ infix("&"); // string concatenation
+ infix("and"); // Boolean AND
+ infix("or"); // Boolean OR
+ infix("in"); // is member of array
+ infixr(":="); // bind variable
+ prefix("-"); // unary numeric negation
+ prefix('*', function () {
+ this.type = "wildcard";
+ return this;
+ });
+ prefix('**', function () {
+ this.type = "descendant";
+ return this;
+ });
+ infix("(", operators['('], function (left) {
+ this.procedure = left;
+ this.type = 'function';
+ this.arguments = [];
+ if (node.id !== ')') {
+ for (;;) {
+ if (node.type === 'operator' && node.id === '?') {
+ this.type = 'partial';
+ this.arguments.push(node);
+ advance('?');
+ } else {
+ this.arguments.push(expression(0));
+ }
+ if (node.id !== ',') break;
+ advance(',');
+ }
+ }
+ advance(")");
+ if (left.type === 'name' && (left.value === 'function' || left.value === '\u03BB')) {
+ this.arguments.forEach(function (arg, index) {
+ if (arg.type !== 'variable') {
+ throw {
+ message: 'Parameter ' + (index + 1) + ' of function definition must be a variable name (start with $)',
+ stack: (new Error()).stack,
+ position: arg.position,
+ token: arg.value
+ };
+ }
+ });
+ this.type = 'lambda';
+ advance('{');
+ this.body = expression(0);
+ advance('}');
+ }
+ return this;
+ });
+ prefix("(", function () {
+ var expressions = [];
+ while (node.id !== ")") {
+ expressions.push(expression(0));
+ if (node.id !== ";") {
+ break;
+ }
+ advance(";");
+ }
+ advance(")");
+ this.type = 'block';
+ this.expressions = expressions;
+ return this;
+ });
+ prefix("{", function () {
+ var a = [];
+ if (node.id !== "}") {
+ for (;;) {
+ var n = expression(0);
+ advance(":");
+ var v = expression(0);
+ a.push([n, v]); // holds an array of name/value expression pairs
+ if (node.id !== ",") {
+ break;
+ }
+ advance(",");
+ }
+ }
+ advance("}");
+ this.lhs = a;
+ this.type = "unary";
+ return this;
+ });
+ prefix("[", function () {
+ var a = [];
+ if (node.id !== "]") {
+ for (;;) {
+ var item = expression(0);
+ if (node.id === "..") {
+ var range = {type: "binary", value: "..", position: node.position, lhs: item};
+ advance("..");
+ range.rhs = expression(0);
+ item = range;
+ }
+ a.push(item);
+ if (node.id !== ",") {
+ break;
+ }
+ advance(",");
+ }
+ }
+ advance("]");
+ this.lhs = a;
+ this.type = "unary";
+ return this;
+ });
+ infix("[", operators['['], function (left) {
+ this.lhs = left;
+ this.rhs = expression(operators[']']);
+ this.type = 'binary';
+ advance("]");
+ return this;
+ });
+ infix("{", operators['{'], function (left) {
+ this.lhs = left;
+ this.rhs = expression(operators['}']);
+ this.type = 'binary';
+ advance("}");
+ return this;
+ });
+ infix("?", operators['?'], function (left) {
+ this.type = 'condition';
+ this.condition = left;
+ this.then = expression(0);
+ if (node.id === ':') {
+ advance(":");
+ this.else = expression(0);
+ }
+ return this;
+ });
+ var tail_call_optimize = function(expr) {
+ var result;
+ if(expr.type === 'function') {
+ var thunk = {type: 'lambda', thunk: true, arguments: [], position: expr.position};
+ thunk.body = expr;
+ result = thunk;
+ } else if(expr.type === 'condition') {
+ expr.then = tail_call_optimize(expr.then);
+ expr.else = tail_call_optimize(expr.else);
+ result = expr;
+ } else if(expr.type === 'block') {
+ var length = expr.expressions.length;
+ if(length > 0) {
+ expr.expressions[length - 1] = tail_call_optimize(expr.expressions[length - 1]);
+ }
+ result = expr;
+ } else {
+ result = expr;
+ }
+ return result;
+ };
+ var post_parse = function (expr) {
+ var result = [];
+ switch (expr.type) {
+ case 'binary':
+ switch (expr.value) {
+ case '.':
+ var step = post_parse(expr.lhs);
+ if (Array.isArray(step)) {
+ Array.prototype.push.apply(result, step);
+ } else {
+ result.push(step);
+ }
+ var rest = [post_parse(expr.rhs)];
+ Array.prototype.push.apply(result, rest);
+ result.type = 'path';
+ break;
+ case '[':
+ result = post_parse(expr.lhs);
+ if (typeof result.aggregate !== 'undefined') {
+ throw {
+ message: 'A predicate cannot follow an aggregate in a step. Error at column: ' + expr.position,
+ stack: (new Error()).stack,
+ position: expr.position
+ };
+ }
+ if (typeof result.predicate === 'undefined') {
+ result.predicate = [];
+ }
+ result.predicate.push(post_parse(expr.rhs));
+ break;
+ case '{':
+ result = post_parse(expr.lhs);
+ if (typeof result.aggregate !== 'undefined') {
+ throw {
+ message: 'Each step can only have one aggregator. Error at column: ' + expr.position,
+ stack: (new Error()).stack,
+ position: expr.position
+ };
+ }
+ result.aggregate = post_parse(expr.rhs);
+ break;
+ default:
+ result = {type: expr.type, value: expr.value, position: expr.position};
+ result.lhs = post_parse(expr.lhs);
+ result.rhs = post_parse(expr.rhs);
+ }
+ break;
+ case 'unary':
+ result = {type: expr.type, value: expr.value, position: expr.position};
+ if (expr.value === '[') {
+ result.lhs = expr.lhs.map(function (item) {
+ return post_parse(item);
+ });
+ } else if (expr.value === '{') {
+ result.lhs = expr.lhs.map(function (pair) {
+ return [post_parse(pair[0]), post_parse(pair[1])];
+ });
+ } else {
+ result.expression = post_parse(expr.expression);
+ if (expr.value === '-' && result.expression.type === 'literal' && isNumeric(result.expression.value)) {
+ result = result.expression;
+ result.value = -result.value;
+ }
+ }
+ break;
+ case 'function':
+ case 'partial':
+ result = {type: expr.type, name: expr.name, value: expr.value, position: expr.position};
+ result.arguments = expr.arguments.map(function (arg) {
+ return post_parse(arg);
+ });
+ result.procedure = post_parse(expr.procedure);
+ break;
+ case 'lambda':
+ result = {type: expr.type, arguments: expr.arguments, position: expr.position};
+ var body = post_parse(expr.body);
+ result.body = tail_call_optimize(body);
+ break;
+ case 'condition':
+ result = {type: expr.type, position: expr.position};
+ result.condition = post_parse(expr.condition);
+ result.then = post_parse(expr.then);
+ if (typeof expr.else !== 'undefined') {
+ result.else = post_parse(expr.else);
+ }
+ break;
+ case 'block':
+ result = {type: expr.type, position: expr.position};
+ result.expressions = expr.expressions.map(function (item) {
+ return post_parse(item);
+ });
+ break;
+ case 'name':
+ case 'literal':
+ case 'wildcard':
+ case 'descendant':
+ case 'variable':
+ result = expr;
+ break;
+ case 'operator':
+ if (expr.value === 'and' || expr.value === 'or' || expr.value === 'in') {
+ expr.type = 'name';
+ result = post_parse(expr);
+ } else if (expr.value === '?') {
+ result = expr;
+ } else {
+ throw {
+ message: "Syntax error: " + expr.value + " at column " + expr.position,
+ stack: (new Error()).stack,
+ position: expr.position,
+ token: expr.value
+ };
+ }
+ break;
+ default:
+ var reason = "Unknown expression type: " + expr.value + " at column " + expr.position;
+ if (expr.id === '(end)') {
+ reason = "Syntax error: unexpected end of expression";
+ }
+ throw {
+ message: reason,
+ stack: (new Error()).stack,
+ position: expr.position,
+ token: expr.value
+ };
+ }
+ return result;
+ };
+
+ lexer = tokenizer(source);
+ advance();
+ var expr = expression(0);
+ if (node.id !== '(end)') {
+ throw {
+ message: "Syntax error: " + node.value + " at column " + node.position,
+ stack: (new Error()).stack,
+ position: node.position,
+ token: node.value
+ };
+ }
+ expr = post_parse(expr);
+ if (expr.type === 'name') {
+ expr = [expr];
+ expr.type = 'path';
+ }
+
+ return expr;
+ };
+ function isNumeric(n) {
+ var isNum = false;
+ if(typeof n === 'number') {
+ var num = parseFloat(n);
+ isNum = !isNaN(num);
+ if (isNum && !isFinite(num)) {
+ throw {
+ message: "Number out of range",
+ value: n,
+ stack: (new Error()).stack
+ };
+ }
+ }
+ return isNum;
+ }
+ function isArrayOfNumbers(arg) {
+ var result = false;
+ if(Array.isArray(arg)) {
+ result = (arg.filter(function(item){return !isNumeric(item);}).length == 0);
+ }
+ return result;
+ }
+ Number.isInteger = Number.isInteger || function(value) {
+ return typeof value === "number" &&
+ isFinite(value) &&
+ Math.floor(value) === value;
+ };
+ function evaluate(expr, input, environment) {
+ var result;
+
+ var entryCallback = environment.lookup('__evaluate_entry');
+ if(entryCallback) {
+ entryCallback(expr, input, environment);
+ }
+
+ switch (expr.type) {
+ case 'path':
+ result = evaluatePath(expr, input, environment);
+ break;
+ case 'binary':
+ result = evaluateBinary(expr, input, environment);
+ break;
+ case 'unary':
+ result = evaluateUnary(expr, input, environment);
+ break;
+ case 'name':
+ result = evaluateName(expr, input, environment);
+ break;
+ case 'literal':
+ result = evaluateLiteral(expr, input, environment);
+ break;
+ case 'wildcard':
+ result = evaluateWildcard(expr, input, environment);
+ break;
+ case 'descendant':
+ result = evaluateDescendants(expr, input, environment);
+ break;
+ case 'condition':
+ result = evaluateCondition(expr, input, environment);
+ break;
+ case 'block':
+ result = evaluateBlock(expr, input, environment);
+ break;
+ case 'function':
+ result = evaluateFunction(expr, input, environment);
+ break;
+ case 'variable':
+ result = evaluateVariable(expr, input, environment);
+ break;
+ case 'lambda':
+ result = evaluateLambda(expr, input, environment);
+ break;
+ case 'partial':
+ result = evaluatePartialApplication(expr, input, environment);
+ break;
+ }
+ if (expr.hasOwnProperty('predicate')) {
+ result = applyPredicates(expr.predicate, result, environment);
+ }
+ if (expr.hasOwnProperty('aggregate')) {
+ result = applyAggregate(expr.aggregate, result, environment);
+ }
+
+ var exitCallback = environment.lookup('__evaluate_exit');
+ if(exitCallback) {
+ exitCallback(expr, input, environment, result);
+ }
+
+ return result;
+ }
+ function evaluatePath(expr, input, environment) {
+ var result;
+ var inputSequence;
+ if (expr[0].type === 'variable') {
+ expr[0].absolute = true;
+ } else if(expr[0].type === 'unary' && expr[0].value === '[') {
+ input = [null];// dummy singleton sequence for first step
+ }
+ expr.forEach(function (step) {
+ var resultSequence = [];
+ result = undefined;
+ if (step.absolute === true) {
+ inputSequence = [input]; // dummy singleton sequence for first (absolute) step
+ } else if (Array.isArray(input)) {
+ inputSequence = input;
+ } else {
+ inputSequence = [input];
+ }
+ if (expr.length > 1 && step.type === 'literal') {
+ step.type = 'name';
+ }
+ if (step.value === '{') {
+ if(typeof input !== 'undefined') {
+ result = evaluateGroupExpression(step, inputSequence, environment);
+ }
+ } else {
+ inputSequence.forEach(function (item) {
+ var res = evaluate(step, item, environment);
+ if (typeof res !== 'undefined') {
+ if (Array.isArray(res)) {
+ res.forEach(function (innerRes) {
+ if (typeof innerRes !== 'undefined') {
+ resultSequence.push(innerRes);
+ }
+ });
+ } else {
+ resultSequence.push(res);
+ }
+ }
+ });
+ if (resultSequence.length == 1) {
+ result = resultSequence[0];
+ } else if (resultSequence.length > 1) {
+ result = resultSequence;
+ }
+ }
+
+ input = result;
+ });
+ return result;
+ }
+ function applyPredicates(predicates, input, environment) {
+ var result;
+ var inputSequence = input;
+
+ var results = [];
+ predicates.forEach(function (predicate) {
+ if (!Array.isArray(inputSequence)) {
+ inputSequence = [inputSequence];
+ }
+ results = [];
+ result = undefined;
+ if (predicate.type === 'literal' && isNumeric(predicate.value)) {
+ var index = predicate.value;
+ if (!Number.isInteger(index)) {
+ index = Math.floor(index);
+ }
+ if (index < 0) {
+ index = inputSequence.length + index;
+ }
+ result = inputSequence[index];
+ } else {
+ inputSequence.forEach(function (item, index) {
+ var res = evaluate(predicate, item, environment);
+ if (isNumeric(res)) {
+ res = [res];
+ }
+ if(isArrayOfNumbers(res)) {
+ res.forEach(function(ires) {
+ if (!Number.isInteger(ires)) {
+ ires = Math.floor(ires);
+ }
+ if (ires < 0) {
+ ires = inputSequence.length + ires;
+ }
+ if (ires == index) {
+ results.push(item);
+ }
+ });
+ } else if (functionBoolean(res)) { // truthy
+ results.push(item);
+ }
+ });
+ }
+ if (results.length == 1) {
+ result = results[0];
+ } else if (results.length > 1) {
+ result = results;
+ }
+ inputSequence = result;
+ });
+ return result;
+ }
+ function applyAggregate(expr, input, environment) {
+ var result = {};
+ if (Array.isArray(input)) {
+ var aggEnv = createFrame(environment);
+ aggEnv.bind('_', input[0]);
+ for (var index = 1; index < input.length; index++) {
+ var reduce = evaluate(expr, input[index], aggEnv);
+ aggEnv.bind('_', reduce);
+ }
+ result = aggEnv.lookup('_');
+ } else {
+ result = input;
+ }
+ return result;
+ }
+ function evaluateBinary(expr, input, environment) {
+ var result;
+
+ switch (expr.value) {
+ case '+':
+ case '-':
+ case '*':
+ case '/':
+ case '%':
+ result = evaluateNumericExpression(expr, input, environment);
+ break;
+ case '=':
+ case '!=':
+ case '<':
+ case '<=':
+ case '>':
+ case '>=':
+ result = evaluateComparisonExpression(expr, input, environment);
+ break;
+ case '&':
+ result = evaluateStringConcat(expr, input, environment);
+ break;
+ case 'and':
+ case 'or':
+ result = evaluateBooleanExpression(expr, input, environment);
+ break;
+ case '..':
+ result = evaluateRangeExpression(expr, input, environment);
+ break;
+ case ':=':
+ result = evaluateBindExpression(expr, input, environment);
+ break;
+ case 'in':
+ result = evaluateIncludesExpression(expr, input, environment);
+ break;
+ }
+ return result;
+ }
+ function evaluateUnary(expr, input, environment) {
+ var result;
+
+ switch (expr.value) {
+ case '-':
+ result = evaluate(expr.expression, input, environment);
+ if (isNumeric(result)) {
+ result = -result;
+ } else {
+ throw {
+ message: "Cannot negate a non-numeric value: " + result + " at column " + expr.position,
+ stack: (new Error()).stack,
+ position: expr.position,
+ token: expr.value,
+ value: result
+ };
+ }
+ break;
+ case '[':
+ result = [];
+ expr.lhs.forEach(function (item) {
+ var value = evaluate(item, input, environment);
+ if (typeof value !== 'undefined') {
+ if (item.value === '..') {
+ result = functionAppend(result, value);
+ } else {
+ result.push(value);
+ }
+ }
+ });
+ break;
+ case '{':
+ result = evaluateGroupExpression(expr, input, environment);
+ break;
+
+ }
+ return result;
+ }
+ function evaluateName(expr, input, environment) {
+ var result;
+ if (Array.isArray(input)) {
+ var results = [];
+ input.forEach(function (item) {
+ var res = evaluateName(expr, item, environment);
+ if (typeof res !== 'undefined') {
+ results.push(res);
+ }
+ });
+ if (results.length == 1) {
+ result = results[0];
+ } else if (results.length > 1) {
+ result = results;
+ }
+ } else if (input !== null && typeof input === 'object') {
+ result = input[expr.value];
+ }
+ return result;
+ }
+ function evaluateLiteral(expr) {
+ return expr.value;
+ }
+ function evaluateWildcard(expr, input) {
+ var result;
+ var results = [];
+ if (input !== null && typeof input === 'object') {
+ Object.keys(input).forEach(function (key) {
+ var value = input[key];
+ if(Array.isArray(value)) {
+ value = flatten(value);
+ results = functionAppend(results, value);
+ } else {
+ results.push(value);
+ }
+ });
+ }
+
+ if (results.length == 1) {
+ result = results[0];
+ } else if (results.length > 1) {
+ result = results;
+ }
+ return result;
+ }
+ function flatten(arg, flattened) {
+ if(typeof flattened === 'undefined') {
+ flattened = [];
+ }
+ if(Array.isArray(arg)) {
+ arg.forEach(function (item) {
+ flatten(item, flattened);
+ });
+ } else {
+ flattened.push(arg);
+ }
+ return flattened;
+ }
+ function evaluateDescendants(expr, input) {
+ var result;
+ var resultSequence = [];
+ if (typeof input !== 'undefined') {
+ recurseDescendants(input, resultSequence);
+ if (resultSequence.length == 1) {
+ result = resultSequence[0];
+ } else {
+ result = resultSequence;
+ }
+ }
+ return result;
+ }
+ function recurseDescendants(input, results) {
+ if (!Array.isArray(input)) {
+ results.push(input);
+ }
+ if (Array.isArray(input)) {
+ input.forEach(function (member) {
+ recurseDescendants(member, results);
+ });
+ } else if (input !== null && typeof input === 'object') {
+ Object.keys(input).forEach(function (key) {
+ recurseDescendants(input[key], results);
+ });
+ }
+ }
+ function evaluateNumericExpression(expr, input, environment) {
+ var result;
+
+ var lhs = evaluate(expr.lhs, input, environment);
+ var rhs = evaluate(expr.rhs, input, environment);
+
+ if (typeof lhs === 'undefined' || typeof rhs === 'undefined') {
+ return result;
+ }
+
+ if (!isNumeric(lhs)) {
+ throw {
+ message: 'LHS of ' + expr.value + ' operator must evaluate to a number at column ' + expr.position,
+ stack: (new Error()).stack,
+ position: expr.position,
+ token: expr.value,
+ value: lhs
+ };
+ }
+ if (!isNumeric(rhs)) {
+ throw {
+ message: 'RHS of ' + expr.value + ' operator must evaluate to a number at column ' + expr.position,
+ stack: (new Error()).stack,
+ position: expr.position,
+ token: expr.value,
+ value: rhs
+ };
+ }
+
+ switch (expr.value) {
+ case '+':
+ result = lhs + rhs;
+ break;
+ case '-':
+ result = lhs - rhs;
+ break;
+ case '*':
+ result = lhs * rhs;
+ break;
+ case '/':
+ result = lhs / rhs;
+ break;
+ case '%':
+ result = lhs % rhs;
+ break;
+ }
+ return result;
+ }
+ function evaluateComparisonExpression(expr, input, environment) {
+ var result;
+
+ var lhs = evaluate(expr.lhs, input, environment);
+ var rhs = evaluate(expr.rhs, input, environment);
+
+ if (typeof lhs === 'undefined' || typeof rhs === 'undefined') {
+ return false;
+ }
+
+ switch (expr.value) {
+ case '=':
+ result = lhs == rhs;
+ break;
+ case '!=':
+ result = (lhs != rhs);
+ break;
+ case '<':
+ result = lhs < rhs;
+ break;
+ case '<=':
+ result = lhs <= rhs;
+ break;
+ case '>':
+ result = lhs > rhs;
+ break;
+ case '>=':
+ result = lhs >= rhs;
+ break;
+ }
+ return result;
+ }
+ function evaluateIncludesExpression(expr, input, environment) {
+ var result = false;
+
+ var lhs = evaluate(expr.lhs, input, environment);
+ var rhs = evaluate(expr.rhs, input, environment);
+
+ if (typeof lhs === 'undefined' || typeof rhs === 'undefined') {
+ return false;
+ }
+
+ if(!Array.isArray(rhs)) {
+ rhs = [rhs];
+ }
+
+ for(var i = 0; i < rhs.length; i++) {
+ if(rhs[i] === lhs) {
+ result = true;
+ break;
+ }
+ }
+
+ return result;
+ }
+ function evaluateBooleanExpression(expr, input, environment) {
+ var result;
+
+ switch (expr.value) {
+ case 'and':
+ result = functionBoolean(evaluate(expr.lhs, input, environment)) &&
+ functionBoolean(evaluate(expr.rhs, input, environment));
+ break;
+ case 'or':
+ result = functionBoolean(evaluate(expr.lhs, input, environment)) ||
+ functionBoolean(evaluate(expr.rhs, input, environment));
+ break;
+ }
+ return result;
+ }
+ function evaluateStringConcat(expr, input, environment) {
+ var result;
+ var lhs = evaluate(expr.lhs, input, environment);
+ var rhs = evaluate(expr.rhs, input, environment);
+
+ var lstr = '';
+ var rstr = '';
+ if (typeof lhs !== 'undefined') {
+ lstr = functionString(lhs);
+ }
+ if (typeof rhs !== 'undefined') {
+ rstr = functionString(rhs);
+ }
+
+ result = lstr.concat(rstr);
+ return result;
+ }
+ function evaluateGroupExpression(expr, input, environment) {
+ var result = {};
+ var groups = {};
+ if (!Array.isArray(input)) {
+ input = [input];
+ }
+ input.forEach(function (item) {
+ expr.lhs.forEach(function (pair) {
+ var key = evaluate(pair[0], item, environment);
+ if (typeof key !== 'string') {
+ throw {
+ message: 'Key in object structure must evaluate to a string. Got: ' + key + ' at column ' + expr.position,
+ stack: (new Error()).stack,
+ position: expr.position,
+ value: key
+ };
+ }
+ var entry = {data: item, expr: pair[1]};
+ if (groups.hasOwnProperty(key)) {
+ groups[key].data = functionAppend(groups[key].data, item);
+ } else {
+ groups[key] = entry;
+ }
+ });
+ });
+ for (var key in groups) {
+ var entry = groups[key];
+ var value = evaluate(entry.expr, entry.data, environment);
+ result[key] = value;
+ }
+ return result;
+ }
+ function evaluateRangeExpression(expr, input, environment) {
+ var result;
+
+ var lhs = evaluate(expr.lhs, input, environment);
+ var rhs = evaluate(expr.rhs, input, environment);
+
+ if (typeof lhs === 'undefined' || typeof rhs === 'undefined') {
+ return result;
+ }
+
+ if (lhs > rhs) {
+ return result;
+ }
+
+ if (!Number.isInteger(lhs)) {
+ throw {
+ message: 'LHS of range operator (..) must evaluate to an integer at column ' + expr.position,
+ stack: (new Error()).stack,
+ position: expr.position,
+ token: expr.value,
+ value: lhs
+ };
+ }
+ if (!Number.isInteger(rhs)) {
+ throw {
+ message: 'RHS of range operator (..) must evaluate to an integer at column ' + expr.position,
+ stack: (new Error()).stack,
+ position: expr.position,
+ token: expr.value,
+ value: rhs
+ };
+ }
+
+ result = new Array(rhs - lhs + 1);
+ for (var item = lhs, index = 0; item <= rhs; item++, index++) {
+ result[index] = item;
+ }
+ return result;
+ }
+ function evaluateBindExpression(expr, input, environment) {
+ var value = evaluate(expr.rhs, input, environment);
+ if (expr.lhs.type !== 'variable') {
+ throw {
+ message: "Left hand side of := must be a variable name (start with $) at column " + expr.position,
+ stack: (new Error()).stack,
+ position: expr.position,
+ token: expr.value,
+ value: expr.lhs.value
+ };
+ }
+ environment.bind(expr.lhs.value, value);
+ return value;
+ }
+ function evaluateCondition(expr, input, environment) {
+ var result;
+ var condition = evaluate(expr.condition, input, environment);
+ if (functionBoolean(condition)) {
+ result = evaluate(expr.then, input, environment);
+ } else if (typeof expr.else !== 'undefined') {
+ result = evaluate(expr.else, input, environment);
+ }
+ return result;
+ }
+ function evaluateBlock(expr, input, environment) {
+ var result;
+ var frame = createFrame(environment);
+ expr.expressions.forEach(function (expression) {
+ result = evaluate(expression, input, frame);
+ });
+
+ return result;
+ }
+ function evaluateVariable(expr, input, environment) {
+ var result;
+ if (expr.value === '') {
+ result = input;
+ } else {
+ result = environment.lookup(expr.value);
+ }
+ return result;
+ }
+ function evaluateFunction(expr, input, environment) {
+ var result;
+ var evaluatedArgs = [];
+ expr.arguments.forEach(function (arg) {
+ evaluatedArgs.push(evaluate(arg, input, environment));
+ });
+ var proc = evaluate(expr.procedure, input, environment);
+
+ if (typeof proc === 'undefined' && expr.procedure.type === 'name' && environment.lookup(expr.procedure.value)) {
+ throw {
+ message: 'Attempted to invoke a non-function at column ' + expr.position + '. Did you mean \'$' + expr.procedure.value + '\'?',
+ stack: (new Error()).stack,
+ position: expr.position,
+ token: expr.procedure.value
+ };
+ }
+ try {
+ result = apply(proc, evaluatedArgs, environment, input);
+ while(typeof result === 'object' && result.lambda == true && result.thunk == true) {
+ var next = evaluate(result.body.procedure, result.input, result.environment);
+ evaluatedArgs = [];
+ result.body.arguments.forEach(function (arg) {
+ evaluatedArgs.push(evaluate(arg, result.input, result.environment));
+ });
+
+ result = apply(next, evaluatedArgs);
+ }
+ } catch (err) {
+ err.position = expr.position;
+ err.token = expr.procedure.value;
+ throw err;
+ }
+ return result;
+ }
+ function apply(proc, args, environment, self) {
+ var result;
+ if (proc && proc.lambda) {
+ result = applyProcedure(proc, args);
+ } else if (typeof proc === 'function') {
+ result = proc.apply(self, args);
+ } else {
+ throw {
+ message: 'Attempted to invoke a non-function',
+ stack: (new Error()).stack
+ };
+ }
+ return result;
+ }
+ function evaluateLambda(expr, input, environment) {
+ var procedure = {
+ lambda: true,
+ input: input,
+ environment: environment,
+ arguments: expr.arguments,
+ body: expr.body
+ };
+ if(expr.thunk == true) {
+ procedure.thunk = true;
+ }
+ return procedure;
+ }
+ function evaluatePartialApplication(expr, input, environment) {
+ var result;
+ var evaluatedArgs = [];
+ expr.arguments.forEach(function (arg) {
+ if (arg.type === 'operator' && arg.value === '?') {
+ evaluatedArgs.push(arg);
+ } else {
+ evaluatedArgs.push(evaluate(arg, input, environment));
+ }
+ });
+ var proc = evaluate(expr.procedure, input, environment);
+ if (typeof proc === 'undefined' && expr.procedure.type === 'name' && environment.lookup(expr.procedure.value)) {
+ throw {
+ message: 'Attempted to partially apply a non-function at column ' + expr.position + '. Did you mean \'$' + expr.procedure.value + '\'?',
+ stack: (new Error()).stack,
+ position: expr.position,
+ token: expr.procedure.value
+ };
+ }
+ if (proc && proc.lambda) {
+ result = partialApplyProcedure(proc, evaluatedArgs);
+ } else if (typeof proc === 'function') {
+ result = partialApplyNativeFunction(proc, evaluatedArgs);
+ } else {
+ throw {
+ message: 'Attempted to partially apply a non-function at column ' + expr.position,
+ stack: (new Error()).stack,
+ position: expr.position,
+ token: expr.procedure.value
+ };
+ }
+ return result;
+ }
+ function applyProcedure(proc, args) {
+ var result;
+ var env = createFrame(proc.environment);
+ proc.arguments.forEach(function (param, index) {
+ env.bind(param.value, args[index]);
+ });
+ if (typeof proc.body === 'function') {
+ result = applyNativeFunction(proc.body, env);
+ } else {
+ result = evaluate(proc.body, proc.input, env);
+ }
+ return result;
+ }
+ function partialApplyProcedure(proc, args) {
+ var env = createFrame(proc.environment);
+ var unboundArgs = [];
+ proc.arguments.forEach(function (param, index) {
+ var arg = args[index];
+ if (arg && arg.type === 'operator' && arg.value === '?') {
+ unboundArgs.push(param);
+ } else {
+ env.bind(param.value, arg);
+ }
+ });
+ var procedure = {
+ lambda: true,
+ input: proc.input,
+ environment: env,
+ arguments: unboundArgs,
+ body: proc.body
+ };
+ return procedure;
+ }
+ function partialApplyNativeFunction(native, args) {
+ var sigArgs = getNativeFunctionArguments(native);
+ sigArgs = sigArgs.map(function (sigArg) {
+ return '$' + sigArg.trim();
+ });
+ var body = 'function(' + sigArgs.join(', ') + '){ _ }';
+
+ var bodyAST = parser(body);
+ bodyAST.body = native;
+
+ var partial = partialApplyProcedure(bodyAST, args);
+ return partial;
+ }
+ function applyNativeFunction(proc, env) {
+ var sigArgs = getNativeFunctionArguments(proc);
+ var args = sigArgs.map(function (sigArg) {
+ return env.lookup(sigArg.trim());
+ });
+
+ var result = proc.apply(null, args);
+ return result;
+ }
+ function getNativeFunctionArguments(func) {
+ var signature = func.toString();
+ var sigParens = /\(([^\)]*)\)/.exec(signature)[1]; // the contents of the parens
+ var sigArgs = sigParens.split(',');
+ return sigArgs;
+ }
+ function isLambda(arg) {
+ var result = false;
+ if(arg && typeof arg === 'object' &&
+ arg.lambda === true &&
+ arg.hasOwnProperty('input') &&
+ arg.hasOwnProperty('arguments') &&
+ arg.hasOwnProperty('environment') &&
+ arg.hasOwnProperty('body')) {
+ result = true;
+ }
+
+ return result;
+ }
+ function functionSum(args) {
+ var total = 0;
+
+ if (arguments.length != 1) {
+ throw {
+ message: 'The sum function expects one argument',
+ stack: (new Error()).stack
+ };
+ }
+ if(typeof args === 'undefined') {
+ return undefined;
+ }
+
+ if(!Array.isArray(args)) {
+ args = [args];
+ }
+ var nonNumerics = args.filter(function(val) {return (typeof val !== 'number');});
+ if(nonNumerics.length > 0) {
+ throw {
+ message: 'Type error: argument of sum function must be an array of numbers',
+ stack: (new Error()).stack,
+ value: nonNumerics
+ };
+ }
+ args.forEach(function(num){total += num;});
+ return total;
+ }
+ function functionCount(args) {
+ if (arguments.length != 1) {
+ throw {
+ message: 'The count function expects one argument',
+ stack: (new Error()).stack
+ };
+ }
+ if(typeof args === 'undefined') {
+ return 0;
+ }
+
+ if(!Array.isArray(args)) {
+ args = [args];
+ }
+
+ return args.length;
+ }
+ function functionMax(args) {
+ var max;
+
+ if (arguments.length != 1) {
+ throw {
+ message: 'The max function expects one argument',
+ stack: (new Error()).stack
+ };
+ }
+ if(typeof args === 'undefined') {
+ return undefined;
+ }
+
+ if(!Array.isArray(args)) {
+ args = [args];
+ }
+ var nonNumerics = args.filter(function(val) {return (typeof val !== 'number');});
+ if(nonNumerics.length > 0) {
+ throw {
+ message: 'Type error: argument of max function must be an array of numbers',
+ stack: (new Error()).stack,
+ value: nonNumerics
+ };
+ }
+ max = Math.max.apply(Math, args);
+ return max;
+ }
+ function functionMin(args) {
+ var min;
+
+ if (arguments.length != 1) {
+ throw {
+ message: 'The min function expects one argument',
+ stack: (new Error()).stack
+ };
+ }
+ if(typeof args === 'undefined') {
+ return undefined;
+ }
+
+ if(!Array.isArray(args)) {
+ args = [args];
+ }
+ var nonNumerics = args.filter(function(val) {return (typeof val !== 'number');});
+ if(nonNumerics.length > 0) {
+ throw {
+ message: 'Type error: argument of min function must be an array of numbers',
+ stack: (new Error()).stack,
+ value: nonNumerics
+ };
+ }
+ min = Math.min.apply(Math, args);
+ return min;
+ }
+ function functionAverage(args) {
+ var total = 0;
+
+ if (arguments.length != 1) {
+ throw {
+ message: 'The average function expects one argument',
+ stack: (new Error()).stack
+ };
+ }
+ if(typeof args === 'undefined') {
+ return undefined;
+ }
+
+ if(!Array.isArray(args)) {
+ args = [args];
+ }
+ var nonNumerics = args.filter(function(val) {return (typeof val !== 'number');});
+ if(nonNumerics.length > 0) {
+ throw {
+ message: 'Type error: argument of average function must be an array of numbers',
+ stack: (new Error()).stack,
+ value: nonNumerics
+ };
+ }
+ args.forEach(function(num){total += num;});
+ return total/args.length;
+ }
+ function functionString(arg) {
+ var str;
+
+ if(arguments.length != 1) {
+ throw {
+ message: 'The string function expects one argument',
+ stack: (new Error()).stack
+ };
+ }
+ if(typeof arg === 'undefined') {
+ return undefined;
+ }
+
+ if (typeof arg === 'string') {
+ str = arg;
+ } else if(typeof arg === 'function' || isLambda(arg)) {
+ str = '';
+ } else if (typeof arg === 'number' && !isFinite(arg)) {
+ throw {
+ message: "Attempting to invoke string function on Infinity or NaN",
+ value: arg,
+ stack: (new Error()).stack
+ };
+ } else
+ str = JSON.stringify(arg, function (key, val) {
+ return (typeof val !== 'undefined' && val !== null && val.toPrecision && isNumeric(val)) ? Number(val.toPrecision(13)) :
+ (val && isLambda(val)) ? '' :
+ (typeof val === 'function') ? '' : val;
+ });
+ return str;
+ }
+ function functionSubstring(str, start, length) {
+ if(arguments.length != 2 && arguments.length != 3) {
+ throw {
+ message: 'The substring function expects two or three arguments',
+ stack: (new Error()).stack
+ };
+ }
+ if(typeof str === 'undefined') {
+ return undefined;
+ }
+ if(typeof str !== 'string') {
+ throw {
+ message: 'Type error: first argument of substring function must evaluate to a string',
+ stack: (new Error()).stack,
+ value: str
+ };
+ }
+
+ if(typeof start !== 'number') {
+ throw {
+ message: 'Type error: second argument of substring function must evaluate to a number',
+ stack: (new Error()).stack,
+ value: start
+ };
+ }
+
+ if(typeof length !== 'undefined' && typeof length !== 'number') {
+ throw {
+ message: 'Type error: third argument of substring function must evaluate to a number',
+ stack: (new Error()).stack,
+ value: length
+ };
+ }
+
+ return str.substr(start, length);
+ }
+ function functionSubstringBefore(str, chars) {
+ if(arguments.length != 2) {
+ throw {
+ message: 'The substringBefore function expects two arguments',
+ stack: (new Error()).stack
+ };
+ }
+ if(typeof str === 'undefined') {
+ return undefined;
+ }
+ if(typeof str !== 'string') {
+ throw {
+ message: 'Type error: first argument of substringBefore function must evaluate to a string',
+ stack: (new Error()).stack,
+ value: str
+ };
+ }
+ if(typeof chars !== 'string') {
+ throw {
+ message: 'Type error: second argument of substringBefore function must evaluate to a string',
+ stack: (new Error()).stack,
+ value: chars
+ };
+ }
+
+ var pos = str.indexOf(chars);
+ if (pos > -1) {
+ return str.substr(0, pos);
+ } else {
+ return str;
+ }
+ }
+ function functionSubstringAfter(str, chars) {
+ if(arguments.length != 2) {
+ throw {
+ message: 'The substringAfter function expects two arguments',
+ stack: (new Error()).stack
+ };
+ }
+ if(typeof str === 'undefined') {
+ return undefined;
+ }
+ if(typeof str !== 'string') {
+ throw {
+ message: 'Type error: first argument of substringAfter function must evaluate to a string',
+ stack: (new Error()).stack,
+ value: str
+ };
+ }
+ if(typeof chars !== 'string') {
+ throw {
+ message: 'Type error: second argument of substringAfter function must evaluate to a string',
+ stack: (new Error()).stack,
+ value: chars
+ };
+ }
+
+ var pos = str.indexOf(chars);
+ if (pos > -1) {
+ return str.substr(pos + chars.length);
+ } else {
+ return str;
+ }
+ }
+ function functionLowercase(str) {
+ if(arguments.length != 1) {
+ throw {
+ message: 'The lowercase function expects one argument',
+ stack: (new Error()).stack
+ };
+ }
+ if(typeof str === 'undefined') {
+ return undefined;
+ }
+ if(typeof str !== 'string') {
+ throw {
+ message: 'Type error: argument of lowercase function must evaluate to a string',
+ stack: (new Error()).stack,
+ value: str
+ };
+ }
+
+ return str.toLowerCase();
+ }
+ function functionUppercase(str) {
+ if(arguments.length != 1) {
+ throw {
+ message: 'The uppercase function expects one argument',
+ stack: (new Error()).stack
+ };
+ }
+ if(typeof str === 'undefined') {
+ return undefined;
+ }
+ if(typeof str !== 'string') {
+ throw {
+ message: 'Type error: argument of uppercase function must evaluate to a string',
+ stack: (new Error()).stack,
+ value: str
+ };
+ }
+
+ return str.toUpperCase();
+ }
+ function functionLength(str) {
+ if(arguments.length != 1) {
+ throw {
+ message: 'The length function expects one argument',
+ stack: (new Error()).stack
+ };
+ }
+ if(typeof str === 'undefined') {
+ return undefined;
+ }
+ if(typeof str !== 'string') {
+ throw {
+ message: 'Type error: argument of length function must evaluate to a string',
+ stack: (new Error()).stack,
+ value: str
+ };
+ }
+
+ return str.length;
+ }
+ function functionSplit(str, separator, limit) {
+ if(arguments.length != 2 && arguments.length != 3) {
+ throw {
+ message: 'The split function expects two or three arguments',
+ stack: (new Error()).stack
+ };
+ }
+ if(typeof str === 'undefined') {
+ return undefined;
+ }
+ if(typeof str !== 'string') {
+ throw {
+ message: 'Type error: first argument of split function must evaluate to a string',
+ stack: (new Error()).stack,
+ value: str
+ };
+ }
+ if(typeof separator !== 'string') {
+ throw {
+ message: 'Type error: second argument of split function must evaluate to a string',
+ stack: (new Error()).stack,
+ value: separator
+ };
+ }
+ if(typeof limit !== 'undefined' && (typeof limit !== 'number' || limit < 0)) {
+ throw {
+ message: 'Type error: third argument of split function must evaluate to a positive number',
+ stack: (new Error()).stack,
+ value: limit
+ };
+ }
+
+ return str.split(separator, limit);
+ }
+ function functionJoin(strs, separator) {
+ if(arguments.length != 1 && arguments.length != 2) {
+ throw {
+ message: 'The join function expects one or two arguments',
+ stack: (new Error()).stack
+ };
+ }
+ if(typeof strs === 'undefined') {
+ return undefined;
+ }
+
+ if(!Array.isArray(strs)) {
+ strs = [strs];
+ }
+ var nonStrings = strs.filter(function(val) {return (typeof val !== 'string');});
+ if(nonStrings.length > 0) {
+ throw {
+ message: 'Type error: first argument of join function must be an array of strings',
+ stack: (new Error()).stack,
+ value: nonStrings
+ };
+ }
+ if(typeof separator === 'undefined') {
+ separator = "";
+ }
+ if(typeof separator !== 'string') {
+ throw {
+ message: 'Type error: second argument of split function must evaluate to a string',
+ stack: (new Error()).stack,
+ value: separator
+ };
+ }
+
+ return strs.join(separator);
+ }
+ function functionNumber(arg) {
+ var result;
+
+ if(arguments.length != 1) {
+ throw {
+ message: 'The number function expects one argument',
+ stack: (new Error()).stack
+ };
+ }
+ if(typeof arg === 'undefined') {
+ return undefined;
+ }
+
+ if (typeof arg === 'number') {
+ result = arg;
+ } else if(typeof arg === 'string' && /^-?(0|([1-9][0-9]*))(\.[0-9]+)?([Ee][-+]?[0-9]+)?$/.test(arg) && !isNaN(parseFloat(arg)) && isFinite(arg)) {
+ result = parseFloat(arg);
+ } else {
+ throw {
+ message: "Unable to cast value to a number",
+ value: arg,
+ stack: (new Error()).stack
+ };
+ }
+ return result;
+ }
+ function functionBoolean(arg) {
+
+ if(arguments.length != 1) {
+ throw {
+ message: 'The boolean function expects one argument',
+ stack: (new Error()).stack
+ };
+ }
+ if(typeof arg === 'undefined') {
+ return undefined;
+ }
+
+ var result = false;
+ if (Array.isArray(arg)) {
+ if (arg.length == 1) {
+ result = functionBoolean(arg[0]);
+ } else if (arg.length > 1) {
+ var trues = arg.filter(function(val) {return functionBoolean(val);});
+ result = trues.length > 0;
+ }
+ } else if (typeof arg === 'string') {
+ if (arg.length > 0) {
+ result = true;
+ }
+ } else if (isNumeric(arg)) {
+ if (arg != 0) {
+ result = true;
+ }
+ } else if (arg != null && typeof arg === 'object') {
+ if (Object.keys(arg).length > 0) {
+ if (!(isLambda(arg))) {
+ result = true;
+ }
+ }
+ } else if (typeof arg === 'boolean' && arg == true) {
+ result = true;
+ }
+ return result;
+ }
+ function functionNot(arg) {
+ return !functionBoolean(arg);
+ }
+ function functionMap(func) {
+ var varargs = arguments;
+ var result = [];
+ var args = [];
+ for (var ii = 1; ii < varargs.length; ii++) {
+ if (Array.isArray(varargs[ii])) {
+ args.push(varargs[ii]);
+ } else {
+ args.push([varargs[ii]]);
+ }
+
+ }
+ if (args.length > 0) {
+ for (var i = 0; i < args[0].length; i++) {
+ var func_args = [];
+ for (var j = 0; j < func.arguments.length; j++) {
+ func_args.push(args[j][i]);
+ }
+ result.push(apply(func, func_args, null, null));
+ }
+ }
+ return result;
+ }
+ function functionFoldLeft(func, sequence, init) {
+ var result;
+
+ if (!(func.length == 2 || func.arguments.length == 2)) {
+ throw {
+ message: 'The first argument of the reduce function must be a function of arity 2',
+ stack: (new Error()).stack
+ };
+ }
+
+ if (!Array.isArray(sequence)) {
+ sequence = [sequence];
+ }
+
+ var index;
+ if (typeof init === 'undefined' && sequence.length > 0) {
+ result = sequence[0];
+ index = 1;
+ } else {
+ result = init;
+ index = 0;
+ }
+
+ while (index < sequence.length) {
+ result = apply(func, [result, sequence[index]], null, null);
+ index++;
+ }
+
+ return result;
+ }
+ function functionKeys(arg) {
+ var result = [];
+
+ if(Array.isArray(arg)) {
+ var merge = {};
+ arg.forEach(function(item) {
+ var keys = functionKeys(item);
+ if(Array.isArray(keys)) {
+ keys.forEach(function(key) {
+ merge[key] = true;
+ });
+ }
+ });
+ result = functionKeys(merge);
+ } else if(arg != null && typeof arg === 'object' && !(isLambda(arg))) {
+ result = Object.keys(arg);
+ if(result.length == 0) {
+ result = undefined;
+ }
+ } else {
+ result = undefined;
+ }
+ return result;
+ }
+ function functionLookup(object, key) {
+ var result = evaluateName({value: key}, object);
+ return result;
+ }
+ function functionAppend(arg1, arg2) {
+ if (typeof arg1 === 'undefined') {
+ return arg2;
+ }
+ if (typeof arg2 === 'undefined') {
+ return arg1;
+ }
+ if (!Array.isArray(arg1)) {
+ arg1 = [arg1];
+ }
+ if (!Array.isArray(arg2)) {
+ arg2 = [arg2];
+ }
+ Array.prototype.push.apply(arg1, arg2);
+ return arg1;
+ }
+ function functionExists(arg){
+ if (arguments.length != 1) {
+ throw {
+ message: 'The exists function expects one argument',
+ stack: (new Error()).stack
+ };
+ }
+
+ if (typeof arg === 'undefined') {
+ return false;
+ } else {
+ return true;
+ }
+ }
+ function functionSpread(arg) {
+ var result = [];
+
+ if(Array.isArray(arg)) {
+ arg.forEach(function(item) {
+ result = functionAppend(result, functionSpread(item));
+ });
+ } else if(arg != null && typeof arg === 'object' && !isLambda(arg)) {
+ for(var key in arg) {
+ var obj = {};
+ obj[key] = arg[key];
+ result.push(obj);
+ }
+ } else {
+ result = arg;
+ }
+ return result;
+ }
+ function createFrame(enclosingEnvironment) {
+ var bindings = {};
+ return {
+ bind: function (name, value) {
+ bindings[name] = value;
+ },
+ lookup: function (name) {
+ var value = bindings[name];
+ if (typeof value === 'undefined' && enclosingEnvironment) {
+ value = enclosingEnvironment.lookup(name);
+ }
+ return value;
+ }
+ };
+ }
+
+ var staticFrame = createFrame(null);
+
+ staticFrame.bind('sum', functionSum);
+ staticFrame.bind('count', functionCount);
+ staticFrame.bind('max', functionMax);
+ staticFrame.bind('min', functionMin);
+ staticFrame.bind('average', functionAverage);
+ staticFrame.bind('string', functionString);
+ staticFrame.bind('substring', functionSubstring);
+ staticFrame.bind('substringBefore', functionSubstringBefore);
+ staticFrame.bind('substringAfter', functionSubstringAfter);
+ staticFrame.bind('lowercase', functionLowercase);
+ staticFrame.bind('uppercase', functionUppercase);
+ staticFrame.bind('length', functionLength);
+ staticFrame.bind('split', functionSplit);
+ staticFrame.bind('join', functionJoin);
+ staticFrame.bind('number', functionNumber);
+ staticFrame.bind('boolean', functionBoolean);
+ staticFrame.bind('not', functionNot);
+ staticFrame.bind('map', functionMap);
+ staticFrame.bind('reduce', functionFoldLeft);
+ staticFrame.bind('keys', functionKeys);
+ staticFrame.bind('lookup', functionLookup);
+ staticFrame.bind('append', functionAppend);
+ staticFrame.bind('exists', functionExists);
+ staticFrame.bind('spread', functionSpread);
+ function jsonata(expr) {
+ var ast = parser(expr);
+ var environment = createFrame(staticFrame);
+ return {
+ evaluate: function (input, bindings) {
+ if (typeof bindings !== 'undefined') {
+ var exec_env;
+ exec_env = createFrame(environment);
+ for (var v in bindings) {
+ exec_env.bind(v, bindings[v]);
+ }
+ } else {
+ exec_env = environment;
+ }
+ exec_env.bind('$', input);
+ return evaluate(ast, input, exec_env);
+ },
+ assign: function (name, value) {
+ environment.bind(name, value);
+ }
+ };
+ }
+
+ jsonata.parser = parser;
+
+ return jsonata;
+
+ })();
+
+
+
+
+ var oop = require("../lib/oop");
+ var Mirror = require("../worker/mirror").Mirror;
+
+ var JSONataWorker = exports.JSONataWorker = function(sender) {
+ Mirror.call(this, sender);
+ this.setTimeout(200);
+ };
+
+ oop.inherits(JSONataWorker, Mirror);
+
+ (function() {
+
+ this.onUpdate = function() {
+ var value = this.doc.getValue();
+ var errors = [];
+ try {
+ if (value)
+ jsonata(value);
+ } catch (e) {
+ var pos = this.doc.indexToPosition(e.position-1);
+ errors.push({
+ row: pos.row,
+ column: pos.column,
+ text: e.message,
+ type: "error"
+ });
+ }
+ this.sender.emit("annotate", errors);
+ };
+
+ }).call(JSONataWorker.prototype);
+
+});
+
+define("ace/lib/es5-shim",["require","exports","module"], function(require, exports, module) {
+
+function Empty() {}
+
+if (!Function.prototype.bind) {
+ Function.prototype.bind = function bind(that) { // .length is 1
+ var target = this;
+ if (typeof target != "function") {
+ throw new TypeError("Function.prototype.bind called on incompatible " + target);
+ }
+ var args = slice.call(arguments, 1); // for normal call
+ var bound = function () {
+
+ if (this instanceof bound) {
+
+ var result = target.apply(
+ this,
+ args.concat(slice.call(arguments))
+ );
+ if (Object(result) === result) {
+ return result;
+ }
+ return this;
+
+ } else {
+ return target.apply(
+ that,
+ args.concat(slice.call(arguments))
+ );
+
+ }
+
+ };
+ if(target.prototype) {
+ Empty.prototype = target.prototype;
+ bound.prototype = new Empty();
+ Empty.prototype = null;
+ }
+ return bound;
+ };
+}
+var call = Function.prototype.call;
+var prototypeOfArray = Array.prototype;
+var prototypeOfObject = Object.prototype;
+var slice = prototypeOfArray.slice;
+var _toString = call.bind(prototypeOfObject.toString);
+var owns = call.bind(prototypeOfObject.hasOwnProperty);
+var defineGetter;
+var defineSetter;
+var lookupGetter;
+var lookupSetter;
+var supportsAccessors;
+if ((supportsAccessors = owns(prototypeOfObject, "__defineGetter__"))) {
+ defineGetter = call.bind(prototypeOfObject.__defineGetter__);
+ defineSetter = call.bind(prototypeOfObject.__defineSetter__);
+ lookupGetter = call.bind(prototypeOfObject.__lookupGetter__);
+ lookupSetter = call.bind(prototypeOfObject.__lookupSetter__);
+}
+if ([1,2].splice(0).length != 2) {
+ if(function() { // test IE < 9 to splice bug - see issue #138
+ function makeArray(l) {
+ var a = new Array(l+2);
+ a[0] = a[1] = 0;
+ return a;
+ }
+ var array = [], lengthBefore;
+
+ array.splice.apply(array, makeArray(20));
+ array.splice.apply(array, makeArray(26));
+
+ lengthBefore = array.length; //46
+ array.splice(5, 0, "XXX"); // add one element
+
+ lengthBefore + 1 == array.length
+
+ if (lengthBefore + 1 == array.length) {
+ return true;// has right splice implementation without bugs
+ }
+ }()) {//IE 6/7
+ var array_splice = Array.prototype.splice;
+ Array.prototype.splice = function(start, deleteCount) {
+ if (!arguments.length) {
+ return [];
+ } else {
+ return array_splice.apply(this, [
+ start === void 0 ? 0 : start,
+ deleteCount === void 0 ? (this.length - start) : deleteCount
+ ].concat(slice.call(arguments, 2)))
+ }
+ };
+ } else {//IE8
+ Array.prototype.splice = function(pos, removeCount){
+ var length = this.length;
+ if (pos > 0) {
+ if (pos > length)
+ pos = length;
+ } else if (pos == void 0) {
+ pos = 0;
+ } else if (pos < 0) {
+ pos = Math.max(length + pos, 0);
+ }
+
+ if (!(pos+removeCount < length))
+ removeCount = length - pos;
+
+ var removed = this.slice(pos, pos+removeCount);
+ var insert = slice.call(arguments, 2);
+ var add = insert.length;
+ if (pos === length) {
+ if (add) {
+ this.push.apply(this, insert);
+ }
+ } else {
+ var remove = Math.min(removeCount, length - pos);
+ var tailOldPos = pos + remove;
+ var tailNewPos = tailOldPos + add - remove;
+ var tailCount = length - tailOldPos;
+ var lengthAfterRemove = length - remove;
+
+ if (tailNewPos < tailOldPos) { // case A
+ for (var i = 0; i < tailCount; ++i) {
+ this[tailNewPos+i] = this[tailOldPos+i];
+ }
+ } else if (tailNewPos > tailOldPos) { // case B
+ for (i = tailCount; i--; ) {
+ this[tailNewPos+i] = this[tailOldPos+i];
+ }
+ } // else, add == remove (nothing to do)
+
+ if (add && pos === lengthAfterRemove) {
+ this.length = lengthAfterRemove; // truncate array
+ this.push.apply(this, insert);
+ } else {
+ this.length = lengthAfterRemove + add; // reserves space
+ for (i = 0; i < add; ++i) {
+ this[pos+i] = insert[i];
+ }
+ }
+ }
+ return removed;
+ };
+ }
+}
+if (!Array.isArray) {
+ Array.isArray = function isArray(obj) {
+ return _toString(obj) == "[object Array]";
+ };
+}
+var boxedString = Object("a"),
+ splitString = boxedString[0] != "a" || !(0 in boxedString);
+
+if (!Array.prototype.forEach) {
+ Array.prototype.forEach = function forEach(fun /*, thisp*/) {
+ var object = toObject(this),
+ self = splitString && _toString(this) == "[object String]" ?
+ this.split("") :
+ object,
+ thisp = arguments[1],
+ i = -1,
+ length = self.length >>> 0;
+ if (_toString(fun) != "[object Function]") {
+ throw new TypeError(); // TODO message
+ }
+
+ while (++i < length) {
+ if (i in self) {
+ fun.call(thisp, self[i], i, object);
+ }
+ }
+ };
+}
+if (!Array.prototype.map) {
+ Array.prototype.map = function map(fun /*, thisp*/) {
+ var object = toObject(this),
+ self = splitString && _toString(this) == "[object String]" ?
+ this.split("") :
+ object,
+ length = self.length >>> 0,
+ result = Array(length),
+ thisp = arguments[1];
+ if (_toString(fun) != "[object Function]") {
+ throw new TypeError(fun + " is not a function");
+ }
+
+ for (var i = 0; i < length; i++) {
+ if (i in self)
+ result[i] = fun.call(thisp, self[i], i, object);
+ }
+ return result;
+ };
+}
+if (!Array.prototype.filter) {
+ Array.prototype.filter = function filter(fun /*, thisp */) {
+ var object = toObject(this),
+ self = splitString && _toString(this) == "[object String]" ?
+ this.split("") :
+ object,
+ length = self.length >>> 0,
+ result = [],
+ value,
+ thisp = arguments[1];
+ if (_toString(fun) != "[object Function]") {
+ throw new TypeError(fun + " is not a function");
+ }
+
+ for (var i = 0; i < length; i++) {
+ if (i in self) {
+ value = self[i];
+ if (fun.call(thisp, value, i, object)) {
+ result.push(value);
+ }
+ }
+ }
+ return result;
+ };
+}
+if (!Array.prototype.every) {
+ Array.prototype.every = function every(fun /*, thisp */) {
+ var object = toObject(this),
+ self = splitString && _toString(this) == "[object String]" ?
+ this.split("") :
+ object,
+ length = self.length >>> 0,
+ thisp = arguments[1];
+ if (_toString(fun) != "[object Function]") {
+ throw new TypeError(fun + " is not a function");
+ }
+
+ for (var i = 0; i < length; i++) {
+ if (i in self && !fun.call(thisp, self[i], i, object)) {
+ return false;
+ }
+ }
+ return true;
+ };
+}
+if (!Array.prototype.some) {
+ Array.prototype.some = function some(fun /*, thisp */) {
+ var object = toObject(this),
+ self = splitString && _toString(this) == "[object String]" ?
+ this.split("") :
+ object,
+ length = self.length >>> 0,
+ thisp = arguments[1];
+ if (_toString(fun) != "[object Function]") {
+ throw new TypeError(fun + " is not a function");
+ }
+
+ for (var i = 0; i < length; i++) {
+ if (i in self && fun.call(thisp, self[i], i, object)) {
+ return true;
+ }
+ }
+ return false;
+ };
+}
+if (!Array.prototype.reduce) {
+ Array.prototype.reduce = function reduce(fun /*, initial*/) {
+ var object = toObject(this),
+ self = splitString && _toString(this) == "[object String]" ?
+ this.split("") :
+ object,
+ length = self.length >>> 0;
+ if (_toString(fun) != "[object Function]") {
+ throw new TypeError(fun + " is not a function");
+ }
+ if (!length && arguments.length == 1) {
+ throw new TypeError("reduce of empty array with no initial value");
+ }
+
+ var i = 0;
+ var result;
+ if (arguments.length >= 2) {
+ result = arguments[1];
+ } else {
+ do {
+ if (i in self) {
+ result = self[i++];
+ break;
+ }
+ if (++i >= length) {
+ throw new TypeError("reduce of empty array with no initial value");
+ }
+ } while (true);
+ }
+
+ for (; i < length; i++) {
+ if (i in self) {
+ result = fun.call(void 0, result, self[i], i, object);
+ }
+ }
+
+ return result;
+ };
+}
+if (!Array.prototype.reduceRight) {
+ Array.prototype.reduceRight = function reduceRight(fun /*, initial*/) {
+ var object = toObject(this),
+ self = splitString && _toString(this) == "[object String]" ?
+ this.split("") :
+ object,
+ length = self.length >>> 0;
+ if (_toString(fun) != "[object Function]") {
+ throw new TypeError(fun + " is not a function");
+ }
+ if (!length && arguments.length == 1) {
+ throw new TypeError("reduceRight of empty array with no initial value");
+ }
+
+ var result, i = length - 1;
+ if (arguments.length >= 2) {
+ result = arguments[1];
+ } else {
+ do {
+ if (i in self) {
+ result = self[i--];
+ break;
+ }
+ if (--i < 0) {
+ throw new TypeError("reduceRight of empty array with no initial value");
+ }
+ } while (true);
+ }
+
+ do {
+ if (i in this) {
+ result = fun.call(void 0, result, self[i], i, object);
+ }
+ } while (i--);
+
+ return result;
+ };
+}
+if (!Array.prototype.indexOf || ([0, 1].indexOf(1, 2) != -1)) {
+ Array.prototype.indexOf = function indexOf(sought /*, fromIndex */ ) {
+ var self = splitString && _toString(this) == "[object String]" ?
+ this.split("") :
+ toObject(this),
+ length = self.length >>> 0;
+
+ if (!length) {
+ return -1;
+ }
+
+ var i = 0;
+ if (arguments.length > 1) {
+ i = toInteger(arguments[1]);
+ }
+ i = i >= 0 ? i : Math.max(0, length + i);
+ for (; i < length; i++) {
+ if (i in self && self[i] === sought) {
+ return i;
+ }
+ }
+ return -1;
+ };
+}
+if (!Array.prototype.lastIndexOf || ([0, 1].lastIndexOf(0, -3) != -1)) {
+ Array.prototype.lastIndexOf = function lastIndexOf(sought /*, fromIndex */) {
+ var self = splitString && _toString(this) == "[object String]" ?
+ this.split("") :
+ toObject(this),
+ length = self.length >>> 0;
+
+ if (!length) {
+ return -1;
+ }
+ var i = length - 1;
+ if (arguments.length > 1) {
+ i = Math.min(i, toInteger(arguments[1]));
+ }
+ i = i >= 0 ? i : length - Math.abs(i);
+ for (; i >= 0; i--) {
+ if (i in self && sought === self[i]) {
+ return i;
+ }
+ }
+ return -1;
+ };
+}
+if (!Object.getPrototypeOf) {
+ Object.getPrototypeOf = function getPrototypeOf(object) {
+ return object.__proto__ || (
+ object.constructor ?
+ object.constructor.prototype :
+ prototypeOfObject
+ );
+ };
+}
+if (!Object.getOwnPropertyDescriptor) {
+ var ERR_NON_OBJECT = "Object.getOwnPropertyDescriptor called on a " +
+ "non-object: ";
+ Object.getOwnPropertyDescriptor = function getOwnPropertyDescriptor(object, property) {
+ if ((typeof object != "object" && typeof object != "function") || object === null)
+ throw new TypeError(ERR_NON_OBJECT + object);
+ if (!owns(object, property))
+ return;
+
+ var descriptor, getter, setter;
+ descriptor = { enumerable: true, configurable: true };
+ if (supportsAccessors) {
+ var prototype = object.__proto__;
+ object.__proto__ = prototypeOfObject;
+
+ var getter = lookupGetter(object, property);
+ var setter = lookupSetter(object, property);
+ object.__proto__ = prototype;
+
+ if (getter || setter) {
+ if (getter) descriptor.get = getter;
+ if (setter) descriptor.set = setter;
+ return descriptor;
+ }
+ }
+ descriptor.value = object[property];
+ return descriptor;
+ };
+}
+if (!Object.getOwnPropertyNames) {
+ Object.getOwnPropertyNames = function getOwnPropertyNames(object) {
+ return Object.keys(object);
+ };
+}
+if (!Object.create) {
+ var createEmpty;
+ if (Object.prototype.__proto__ === null) {
+ createEmpty = function () {
+ return { "__proto__": null };
+ };
+ } else {
+ createEmpty = function () {
+ var empty = {};
+ for (var i in empty)
+ empty[i] = null;
+ empty.constructor =
+ empty.hasOwnProperty =
+ empty.propertyIsEnumerable =
+ empty.isPrototypeOf =
+ empty.toLocaleString =
+ empty.toString =
+ empty.valueOf =
+ empty.__proto__ = null;
+ return empty;
+ }
+ }
+
+ Object.create = function create(prototype, properties) {
+ var object;
+ if (prototype === null) {
+ object = createEmpty();
+ } else {
+ if (typeof prototype != "object")
+ throw new TypeError("typeof prototype["+(typeof prototype)+"] != 'object'");
+ var Type = function () {};
+ Type.prototype = prototype;
+ object = new Type();
+ object.__proto__ = prototype;
+ }
+ if (properties !== void 0)
+ Object.defineProperties(object, properties);
+ return object;
+ };
+}
+
+function doesDefinePropertyWork(object) {
+ try {
+ Object.defineProperty(object, "sentinel", {});
+ return "sentinel" in object;
+ } catch (exception) {
+ }
+}
+if (Object.defineProperty) {
+ var definePropertyWorksOnObject = doesDefinePropertyWork({});
+ var definePropertyWorksOnDom = typeof document == "undefined" ||
+ doesDefinePropertyWork(document.createElement("div"));
+ if (!definePropertyWorksOnObject || !definePropertyWorksOnDom) {
+ var definePropertyFallback = Object.defineProperty;
+ }
+}
+
+if (!Object.defineProperty || definePropertyFallback) {
+ var ERR_NON_OBJECT_DESCRIPTOR = "Property description must be an object: ";
+ var ERR_NON_OBJECT_TARGET = "Object.defineProperty called on non-object: "
+ var ERR_ACCESSORS_NOT_SUPPORTED = "getters & setters can not be defined " +
+ "on this javascript engine";
+
+ Object.defineProperty = function defineProperty(object, property, descriptor) {
+ if ((typeof object != "object" && typeof object != "function") || object === null)
+ throw new TypeError(ERR_NON_OBJECT_TARGET + object);
+ if ((typeof descriptor != "object" && typeof descriptor != "function") || descriptor === null)
+ throw new TypeError(ERR_NON_OBJECT_DESCRIPTOR + descriptor);
+ if (definePropertyFallback) {
+ try {
+ return definePropertyFallback.call(Object, object, property, descriptor);
+ } catch (exception) {
+ }
+ }
+ if (owns(descriptor, "value")) {
+
+ if (supportsAccessors && (lookupGetter(object, property) ||
+ lookupSetter(object, property)))
+ {
+ var prototype = object.__proto__;
+ object.__proto__ = prototypeOfObject;
+ delete object[property];
+ object[property] = descriptor.value;
+ object.__proto__ = prototype;
+ } else {
+ object[property] = descriptor.value;
+ }
+ } else {
+ if (!supportsAccessors)
+ throw new TypeError(ERR_ACCESSORS_NOT_SUPPORTED);
+ if (owns(descriptor, "get"))
+ defineGetter(object, property, descriptor.get);
+ if (owns(descriptor, "set"))
+ defineSetter(object, property, descriptor.set);
+ }
+
+ return object;
+ };
+}
+if (!Object.defineProperties) {
+ Object.defineProperties = function defineProperties(object, properties) {
+ for (var property in properties) {
+ if (owns(properties, property))
+ Object.defineProperty(object, property, properties[property]);
+ }
+ return object;
+ };
+}
+if (!Object.seal) {
+ Object.seal = function seal(object) {
+ return object;
+ };
+}
+if (!Object.freeze) {
+ Object.freeze = function freeze(object) {
+ return object;
+ };
+}
+try {
+ Object.freeze(function () {});
+} catch (exception) {
+ Object.freeze = (function freeze(freezeObject) {
+ return function freeze(object) {
+ if (typeof object == "function") {
+ return object;
+ } else {
+ return freezeObject(object);
+ }
+ };
+ })(Object.freeze);
+}
+if (!Object.preventExtensions) {
+ Object.preventExtensions = function preventExtensions(object) {
+ return object;
+ };
+}
+if (!Object.isSealed) {
+ Object.isSealed = function isSealed(object) {
+ return false;
+ };
+}
+if (!Object.isFrozen) {
+ Object.isFrozen = function isFrozen(object) {
+ return false;
+ };
+}
+if (!Object.isExtensible) {
+ Object.isExtensible = function isExtensible(object) {
+ if (Object(object) === object) {
+ throw new TypeError(); // TODO message
+ }
+ var name = '';
+ while (owns(object, name)) {
+ name += '?';
+ }
+ object[name] = true;
+ var returnValue = owns(object, name);
+ delete object[name];
+ return returnValue;
+ };
+}
+if (!Object.keys) {
+ var hasDontEnumBug = true,
+ dontEnums = [
+ "toString",
+ "toLocaleString",
+ "valueOf",
+ "hasOwnProperty",
+ "isPrototypeOf",
+ "propertyIsEnumerable",
+ "constructor"
+ ],
+ dontEnumsLength = dontEnums.length;
+
+ for (var key in {"toString": null}) {
+ hasDontEnumBug = false;
+ }
+
+ Object.keys = function keys(object) {
+
+ if (
+ (typeof object != "object" && typeof object != "function") ||
+ object === null
+ ) {
+ throw new TypeError("Object.keys called on a non-object");
+ }
+
+ var keys = [];
+ for (var name in object) {
+ if (owns(object, name)) {
+ keys.push(name);
+ }
+ }
+
+ if (hasDontEnumBug) {
+ for (var i = 0, ii = dontEnumsLength; i < ii; i++) {
+ var dontEnum = dontEnums[i];
+ if (owns(object, dontEnum)) {
+ keys.push(dontEnum);
+ }
+ }
+ }
+ return keys;
+ };
+
+}
+if (!Date.now) {
+ Date.now = function now() {
+ return new Date().getTime();
+ };
+}
+var ws = "\x09\x0A\x0B\x0C\x0D\x20\xA0\u1680\u180E\u2000\u2001\u2002\u2003" +
+ "\u2004\u2005\u2006\u2007\u2008\u2009\u200A\u202F\u205F\u3000\u2028" +
+ "\u2029\uFEFF";
+if (!String.prototype.trim || ws.trim()) {
+ ws = "[" + ws + "]";
+ var trimBeginRegexp = new RegExp("^" + ws + ws + "*"),
+ trimEndRegexp = new RegExp(ws + ws + "*$");
+ String.prototype.trim = function trim() {
+ return String(this).replace(trimBeginRegexp, "").replace(trimEndRegexp, "");
+ };
+}
+
+function toInteger(n) {
+ n = +n;
+ if (n !== n) { // isNaN
+ n = 0;
+ } else if (n !== 0 && n !== (1/0) && n !== -(1/0)) {
+ n = (n > 0 || -1) * Math.floor(Math.abs(n));
+ }
+ return n;
+}
+
+function isPrimitive(input) {
+ var type = typeof input;
+ return (
+ input === null ||
+ type === "undefined" ||
+ type === "boolean" ||
+ type === "number" ||
+ type === "string"
+ );
+}
+
+function toPrimitive(input) {
+ var val, valueOf, toString;
+ if (isPrimitive(input)) {
+ return input;
+ }
+ valueOf = input.valueOf;
+ if (typeof valueOf === "function") {
+ val = valueOf.call(input);
+ if (isPrimitive(val)) {
+ return val;
+ }
+ }
+ toString = input.toString;
+ if (typeof toString === "function") {
+ val = toString.call(input);
+ if (isPrimitive(val)) {
+ return val;
+ }
+ }
+ throw new TypeError();
+}
+var toObject = function (o) {
+ if (o == null) { // this matches both null and undefined
+ throw new TypeError("can't convert "+o+" to object");
+ }
+ return Object(o);
+};
+
+});