Context Navigation

← Previous Changeset
Next Changeset →

Changeset 2038748

Timestamp:

02/25/2019 11:02:46 AM (7 years ago)

Author:

gtanyware

Message:

Version 2.2, with gmap and showdown

Location:

easycoder/trunk

Files:

: 2 added
: 11 edited

easycoder-min.js (modified) (1 diff)
easycoder.js (modified) (57 diffs)
easycoder.php (modified) (2 diffs)
ec-rest.txt (modified) (1 diff)
plugins-sample.js (modified) (2 diffs)
plugins/browser.js (modified) (38 diffs)
plugins/ckeditor.js (modified) (3 diffs)
plugins/gmap.js (added)
plugins/json.js (modified) (15 diffs)
plugins/showdown.js (added)
plugins/ui.js (modified) (3 diffs)
readme.txt (modified) (4 diffs)
rest.php (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

easycoder/trunk/easycoder-min.js

-                      r2016526
+                      r2038748
 var $jscomp=$jscomp||{};$jscomp.scope={};$jscomp.ASSUME_ES5=!1;$jscomp.ASSUME_NO_NATIVE_MAP=!1;$jscomp.ASSUME_NO_NATIVE_SET=!1;$jscomp.defineProperty=$jscomp.ASSUME_ES5||"function"==typeof Object.defineProperties?Object.defineProperty:function(d,h,g){d!=Array.prototype&&d!=Object.prototype&&(d[h]=g.value)};$jscomp.getGlobal=function(d){return"undefined"!=typeof window&&window===d?d:"undefined"!=typeof global&&null!=global?global:d};$jscomp.global=$jscomp.getGlobal(this);$jscomp.SYMBOL_PREFIX="jscomp_symbol_";
+var $jscomp=$jscomp||{};$jscomp.scope={};$jscomp.ASSUME_ES5=!1;$jscomp.ASSUME_NO_NATIVE_MAP=!1;$jscomp.ASSUME_NO_NATIVE_SET=!1;$jscomp.defineProperty=$jscomp.ASSUME_ES5||"function"==typeof Object.defineProperties?Object.defineProperty:function(d,h,f){d!=Array.prototype&&d!=Object.prototype&&(d[h]=f.value)};$jscomp.getGlobal=function(d){return"undefined"!=typeof window&&window===d?d:"undefined"!=typeof global&&null!=global?global:d};$jscomp.global=$jscomp.getGlobal(this);$jscomp.SYMBOL_PREFIX="jscomp_symbol_";
 $jscomp.initSymbol=function(){$jscomp.initSymbol=function(){};$jscomp.global.Symbol||($jscomp.global.Symbol=$jscomp.Symbol)};$jscomp.Symbol=function(){var d=0;return function(h){return $jscomp.SYMBOL_PREFIX+(h||"")+d++}}();
 $jscomp.initSymbolIterator=function(){$jscomp.initSymbol();var d=$jscomp.global.Symbol.iterator;d||(d=$jscomp.global.Symbol.iterator=$jscomp.global.Symbol("iterator"));"function"!=typeof Array.prototype[d]&&$jscomp.defineProperty(Array.prototype,d,{configurable:!0,writable:!0,value:function(){return $jscomp.arrayIterator(this)}});$jscomp.initSymbolIterator=function(){}};$jscomp.arrayIterator=function(d){var h=0;return $jscomp.iteratorPrototype(function(){return h<d.length?{done:!1,value:d[h++]}:{done:!0}})};
 $jscomp.iteratorPrototype=function(d){$jscomp.initSymbolIterator();d={next:d};d[$jscomp.global.Symbol.iterator]=function(){return this};return d};$jscomp.makeIterator=function(d){$jscomp.initSymbolIterator();var h=d[Symbol.iterator];return h?h.call(d):$jscomp.arrayIterator(d)};$jscomp.owns=function(d,h){return Object.prototype.hasOwnProperty.call(d,h)};
 $jscomp.assign="function"==typeof Object.assign?Object.assign:function(d,h){for(var g=1;g<arguments.length;g++){var e=arguments[g];if(e)for(var b in e)$jscomp.owns(e,b)&&(d[b]=e[b])}return d};$jscomp.polyfill=function(d,h,g,e){if(h){g=$jscomp.global;d=d.split(".");for(e=0;e<d.length-1;e++){var b=d[e];b in g||(g[b]={});g=g[b]}d=d[d.length-1];e=g[d];h=h(e);h!=e&&null!=h&&$jscomp.defineProperty(g,d,{configurable:!0,writable:!0,value:h})}};
 $jscomp.polyfill("Object.assign",function(d){return d||$jscomp.assign},"es6","es3");$jscomp.iteratorFromArray=function(d,h){$jscomp.initSymbolIterator();d instanceof String&&(d+="");var g=0,e={next:function(){if(g<d.length){var b=g++;return{value:h(b,d[b]),done:!1}}e.next=function(){return{done:!0,value:void 0}};return e.next()}};e[Symbol.iterator]=function(){return e};return e};
 $jscomp.polyfill("Array.prototype.keys",function(d){return d?d:function(){return $jscomp.iteratorFromArray(this,function(d){return d})}},"es6","es3");$jscomp.checkStringArgs=function(d,h,g){if(null==d)throw new TypeError("The 'this' value for String.prototype."+g+" must not be null or undefined");if(h instanceof RegExp)throw new TypeError("First argument to String.prototype."+g+" must not be a regular expression");return d+""};
 $jscomp.polyfill("String.prototype.endsWith",function(d){return d?d:function(d,g){var e=$jscomp.checkStringArgs(this,d,"endsWith");d+="";void 0===g&&(g=e.length);g=Math.max(0,Math.min(g|0,e.length));for(var b=d.length;0<b&&0<g;)if(e[--g]!=d[--b])return!1;return 0>=b}},"es6","es3");$jscomp.polyfill("Object.is",function(d){return d?d:function(d,g){return d===g?0!==d||1/d===1/g:d!==d&&g!==g}},"es6","es3");
 $jscomp.polyfill("Array.prototype.includes",function(d){return d?d:function(d,g){var e=this;e instanceof String&&(e=String(e));var b=e.length;g=g||0;for(0>g&&(g=Math.max(g+b,0));g<b;g++){var a=e[g];if(a===d||Object.is(a,d))return!0}return!1}},"es7","es3");$jscomp.polyfill("String.prototype.includes",function(d){return d?d:function(d,g){return-1!==$jscomp.checkStringArgs(this,d,"includes").indexOf(d,g||0)}},"es6","es3");
+$jscomp.assign="function"==typeof Object.assign?Object.assign:function(d,h){for(var f=1;f<arguments.length;f++){var e=arguments[f];if(e)for(var b in e)$jscomp.owns(e,b)&&(d[b]=e[b])}return d};$jscomp.polyfill=function(d,h,f,e){if(h){f=$jscomp.global;d=d.split(".");for(e=0;e<d.length-1;e++){var b=d[e];b in f||(f[b]={});f=f[b]}d=d[d.length-1];e=f[d];h=h(e);h!=e&&null!=h&&$jscomp.defineProperty(f,d,{configurable:!0,writable:!0,value:h})}};
+$jscomp.polyfill("Object.assign",function(d){return d||$jscomp.assign},"es6","es3");$jscomp.iteratorFromArray=function(d,h){$jscomp.initSymbolIterator();d instanceof String&&(d+="");var f=0,e={next:function(){if(f<d.length){var b=f++;return{value:h(b,d[b]),done:!1}}e.next=function(){return{done:!0,value:void 0}};return e.next()}};e[Symbol.iterator]=function(){return e};return e};
+$jscomp.polyfill("Array.prototype.keys",function(d){return d?d:function(){return $jscomp.iteratorFromArray(this,function(d){return d})}},"es6","es3");$jscomp.checkStringArgs=function(d,h,f){if(null==d)throw new TypeError("The 'this' value for String.prototype."+f+" must not be null or undefined");if(h instanceof RegExp)throw new TypeError("First argument to String.prototype."+f+" must not be a regular expression");return d+""};
+$jscomp.polyfill("String.prototype.endsWith",function(d){return d?d:function(d,f){var e=$jscomp.checkStringArgs(this,d,"endsWith");d+="";void 0===f&&(f=e.length);f=Math.max(0,Math.min(f|0,e.length));for(var b=d.length;0<b&&0<f;)if(e[--f]!=d[--b])return!1;return 0>=b}},"es6","es3");$jscomp.polyfill("Object.is",function(d){return d?d:function(d,f){return d===f?0!==d||1/d===1/f:d!==d&&f!==f}},"es6","es3");
+$jscomp.polyfill("Array.prototype.includes",function(d){return d?d:function(d,f){var e=this;e instanceof String&&(e=String(e));var b=e.length;f=f||0;for(0>f&&(f=Math.max(f+b,0));f<b;f++){var a=e[f];if(a===d||Object.is(a,d))return!0}return!1}},"es7","es3");$jscomp.polyfill("String.prototype.includes",function(d){return d?d:function(d,f){return-1!==$jscomp.checkStringArgs(this,d,"includes").indexOf(d,f||0)}},"es6","es3");
 $jscomp.polyfill("Math.trunc",function(d){return d?d:function(d){d=Number(d);if(isNaN(d)||Infinity===d||-Infinity===d||0===d)return d;var h=Math.floor(Math.abs(d));return 0>d?-h:h}},"es6","es3");$jscomp.polyfill("Number.isFinite",function(d){return d?d:function(d){return"number"!==typeof d?!1:!isNaN(d)&&Infinity!==d&&-Infinity!==d}},"es6","es3");$jscomp.polyfill("Number.isInteger",function(d){return d?d:function(d){return Number.isFinite(d)?d===Math.floor(d):!1}},"es6","es3");
+$jscomp.polyfill("String.prototype.repeat",function(d){return d?d:function(d){var g=$jscomp.checkStringArgs(this,null,"repeat");if(0>d||1342177279<d)throw new RangeError("Invalid count value");d|=0;for(var e="";d;)if(d&1&&(e+=g),d>>>=1)g+=g;return e}},"es6","es3");$jscomp.stringPadding=function(d,h){d=void 0!==d?String(d):" ";return 0<h&&d?d.repeat(Math.ceil(h/d.length)).substring(0,h):""};
+$jscomp.polyfill("String.prototype.padStart",function(d){return d?d:function(d,g){var e=$jscomp.checkStringArgs(this,null,"padStart");return $jscomp.stringPadding(g,d-e.length)+e}},"es8","es3");
+(function(){function d(h,g,e){function b(c,p){if(!g[c]){if(!h[c]){var l="function"==typeof require&&require;if(!p&&l)return l(c,!0);if(a)return a(c,!0);p=Error("Cannot find module '"+c+"'");throw p.code="MODULE_NOT_FOUND",p;}p=g[c]={exports:{}};h[c][0].call(p.exports,function(a){return b(h[c][1][a]||a)},p,p.exports,d,h,g,e)}return g[c].exports}for(var a="function"==typeof require&&require,c=0;c<e.length;c++)b(e[c]);return b}return d})()({1:[function(d,h,g){var e=d("./easycoder/Main");e.timestamp=
+Date.now();console.log("EasyCoder loaded; waiting for page");window.onload=function(){console.log(Date.now()-e.timestamp+" ms: Page loaded; reset timer & start EasyCoder");e.timestamp=Date.now();e.scripts={};window.EasyCoder=e;var b=document.getElementById("easycoder-script");if(b){b.style.display="none";try{e.start(b.innerText)}catch(a){e.reportError(a)}}}},{"./easycoder/Main":6}],2:[function(d,h,g){h.exports=function(d,b,a){b=d.value.evaluate(d,b);d=d.value.evaluate(d,a);a=b.content;var c=d.content;
+b.numeric&&!d.numeric&&(a=a.toString());!b.numeric&&d.numeric&&(c=c.toString());return a>c?1:a<c?-1:0}},{}],3:[function(d,h,g){var e=Object.assign||function(a){for(var c=1;c<arguments.length;c++){var b=arguments[c],d;for(d in b)Object.prototype.hasOwnProperty.call(b,d)&&(a[d]=b[d])}return a},b=this,a={getTokens:function(){return b.tokens},addWarning:function(a){b.warnings.push(a)},warning:function(c){a.addWarning(c)},unrecognisedSymbol:function(c){a.addWarning("Unrecognised symbol '"+c+"'")},getWarnings:function(){return b.warnings},
+getIndex:function(){return b.index},next:function(a){b.index+=void 0===a?1:a},peek:function(){return b.tokens[b.index+1].token},getToken:function(){return b.index>=b.tokens.length?null:b.tokens[b.index]?b.tokens[b.index].token:null},nextToken:function(){a.next();return a.getToken()},tokenIs:function(a){return b.index>=b.tokens.length?!1:a===b.tokens[b.index].token},nextTokenIs:function(c){a.next();return a.tokenIs(c)},skip:function(c){if(b.index>=b.tokens.length)return null;a.next();a.tokenIs(c)&&
+a.next()},prev:function(){b.index--},getLino:function(){return b.index>=b.tokens.length?0:b.tokens[b.index].lino},getTarget:function(a){a=void 0===a?b.index:a;return b.tokens[a].token},getTargetPc:function(c){c=void 0===c?b.index:c;return b.symbols[a.getTarget(c)].pc},getCommandAt:function(a){return b.program[a]},isSymbol:function(c){c=void 0===c?!1:c;if(a.getTarget()in b.symbols)return!0;if(c)throw Error("Unknown symbol: '"+a.getTarget()+"'");return!1},nextIsSymbol:function(c){c=void 0===c?!1:c;
+a.next();return a.isSymbol(c)},getSymbol:function(){return b.symbols[a.getToken()]},getSymbolPc:function(){return a.getSymbol().pc},getSymbolRecord:function(){return b.program[a.getSymbolPc()]},getSymbols:function(){return b.symbols},getProgram:function(){return b.program},getPc:function(){return b.program.length},getValue:function(){return a.value.compile(a)},getNextValue:function(){a.next();return a.getValue()},getCondition:function(){return a.condition.compile(a)},constant:function(c,b){return a.value.constant(c,
+void 0===b?!1:b)},addCommand:function(a){b.program.push(e({pc:b.program.length},a))},addSymbol:function(a,l){b.symbols[a]={pc:l}},mark:function(){b.savedMark=b.index},rewind:function(){b.index=b.savedMark},completeHandler:function(){var c=a.getLino(),b=a.getPc();a.addCommand({domain:"core",keyword:"goto",lino:c,goto:0});a.compileOne();a.addCommand({domain:"core",keyword:"stop",lino:c,next:0});a.getCommandAt(b).goto=a.getPc();return!0},compileVariable:function(c,l,d,f){d=void 0===d?!1:d;f=void 0===
+f?null:f;a.next();var p=a.getLino(),m=a.getTokens()[a.getIndex()];if(b.symbols[m.token])throw Error("Duplicate variable name '"+m.token+"'");var n=a.getPc();a.next();a.addSymbol(m.token,n);c={domain:c,keyword:l,lino:p,isSymbol:!0,isValueHolder:d,name:m.token,elements:1,index:0,value:[{}],element:[],extra:f};"dom"===f&&(c.element=[]);a.addCommand(c);return c},compileToken:function(){var c=a.getToken();if(c){a.mark();for(var b=$jscomp.makeIterator(Object.keys(a.domain)),d=b.next();!d.done;d=b.next()){if((d=
+a.domain[d.value])&&(d=d.getHandler(c))&&d.compile(a))return;a.rewind()}console.log("No handler found");throw Error("I don't understand '"+c+"...'");}},compileOne:function(){var c=a.getToken();if(c){b.warnings=[];var l=b.program.length;if(c.endsWith(":")){c=c.substring(0,c.length-1);if(b.symbols[c])throw Error("Duplicate symbol: '"+c+"'");b.symbols[c]={pc:l};b.index++}else a.compileToken()}},compileFromHere:function(c){for(;b.index<b.tokens.length;){var l=b.tokens[b.index].token;if("else"===l)return b.program;
+a.compileOne();if(-1<c.indexOf(l))break}},compile:function(c){b.tokens=c;b.index=0;b.program=[];b.symbols={};b.warnings=[];a.compileFromHere([]);a.addCommand({domain:"core",keyword:"stop",lino:a.getLino(),next:0});return b.program}};h.exports=a},{}],4:[function(d,h,g){var e=Object.assign||function(b){for(var a=1;a<arguments.length;a++){var c=arguments[a],l;for(l in c)Object.prototype.hasOwnProperty.call(c,l)&&(b[l]=c[l])}return b};h.exports={compile:function(b){b.mark();for(var a=$jscomp.makeIterator(Object.keys(b.domain)),
+c=a.next();!c.done;c=a.next()){if(c=b.domain[c.value].condition.compile(b))return e({domain:name},c);b.rewind()}},test:function(b,a){return b.domain[a.domain].condition.test(b,a)}}},{}],5:[function(d,h,g){var e=this,b={Add:{compile:function(a){var c=a.getLino();a.next();var b=a.getValue();if(a.tokenIs("to"))if(a.next(),a.isSymbol()){var d=a.getSymbol();if(a.getCommandAt(d.pc).isValueHolder){if("giving"===a.peek()){d=a.getValue();a.next();var f=a.getToken();a.next();a.addCommand({domain:"core",keyword:"add",
+lino:c,value1:b,value2:d,target:f})}else d=a.getToken(),a.next(),a.addCommand({domain:"core",keyword:"add",lino:c,value1:b,target:d});return!0}a.warning("core "+e.name+": Expected value holder")}else{d=a.getValue();if(a.tokenIs("giving"))return a.next(),f=a.getToken(),a.next(),a.addCommand({domain:"core",keyword:"add",lino:c,value1:b,value2:d,target:f}),!0;a.warning("core "+e.name+': Expected "giving"')}return!1},run:function(a){var c=a[a.pc],b=c.value1,d=c.value2,f=a.getSymbolRecord(c.target);if(f.isValueHolder){var e=
+f.value[f.index];d?(a=a.getValue(d)+a.getValue(b),f.value[f.index]={type:"constant",numeric:!0,content:a}):(e.numeric||a.nonNumericValueError(c.lino),a=e.content+a.getValue(b),f.value[f.index]={type:"constant",numeric:!0,content:a})}else a.VariableDoesNotHoldAValueError(c.lino,f.name);return c.pc+1}},Alias:{compile:function(a){var c=a.getLino();a.next();if(a.isSymbol()){var b=a.getToken();a.next();if(a.tokenIs("to")&&(a.next(),a.isSymbol())){var d=a.getToken();a.next();a.addCommand({domain:"core",
+keyword:"alias",lino:c,alias:b,symbol:d});return!0}}return!1},run:function(a){var c=a[a.pc],b=a.symbols[c.alias].pc,d=a[b],f=a.getSymbolRecord(c.symbol);a[b]={pc:d.pc,domain:f.domain,keyword:f.keyword,lino:d.lino,name:d.name,alias:c.symbol};return c.pc+1}},Begin:{compile:function(a){a.next();a.compileFromHere(["end"]);return!0},run:function(a){return a[a.pc].pc+1}},Clear:{compile:function(a){var c=a.getLino();a.next();if(a.isSymbol()){var b=a.getToken();a.next();a.addCommand({domain:"core",keyword:"clear",
+lino:c,symbol:b});return!0}return!1},run:function(a){var c=a[a.pc],b=a.getSymbolRecord(c.symbol);b.isValueHolder?(a.domain[b.domain].value.put(b,{type:"boolean",content:!1}),c.numeric=!1):a.VariableDoesNotHoldAValueError(c.lino,b.name);return c.pc+1}},Close:{compile:function(a){var c=a.getLino();if(a.nextIsSymbol()){var b=a.getSymbolRecord();if("module"===b.keyword)return a.next(),a.addCommand({domain:"core",keyword:"close",lino:c,module:b.name}),!0}return!1},run:function(a){var c=a[a.pc];a=a.getSymbolRecord(c.module).program;
+a.run(a.onClose);return c.pc+1}},Debug:{compile:function(a){var c=a.getLino();if(a.nextTokenIs("program")){a.next();if(["item","pc"].includes(a.getToken())){var b=a.getNextValue();a.addCommand({domain:"core",keyword:"debug",lino:c,item:b});return!0}a.addCommand({domain:"core",keyword:"debug",lino:c,item:-1});return!0}return a.tokenIs("symbols")?(a.next(),a.addCommand({domain:"core",keyword:"debug",lino:c,item:"symbols"}),!0):a.tokenIs("symbol")?(b=a.nextToken(),a.next(),a.addCommand({domain:"core",
+keyword:"debug",lino:c,item:"symbol",name:b}),!0):a.tokenIs("step")?(a.next(),a.addCommand({domain:"core",keyword:"debug",lino:c,item:"step"}),!0):!1},run:function(a){var c=a[a.pc],b=c.item;switch(b){case "symbols":console.log("Symbols: "+JSON.stringify(a.symbols,null,2));break;case "symbol":a=a.getSymbolRecord(c.name);b=a.exporter;delete a.exporter;console.log("Symbol: "+JSON.stringify(a,null,2));a.exporter=b;break;case "step":a.debugStep=!0;break;default:0<=b.content?console.log("Debug item "+b.content+
+": "+JSON.stringify(a[b.content],null,2)):console.log("Debug program: "+JSON.stringify(a,null,2))}return c.pc+1}},Decode:{compile:function(a){var c=a.getLino();if(a.nextIsSymbol()){var b=a.getToken();a.next();a.addCommand({domain:"core",keyword:"decode",lino:c,symbol:b});return!0}return!1},run:function(a){var c=a[a.pc],b=a.getSymbolRecord(c.symbol);if(b.isValueHolder){var d=a.getValue(b.value[b.index]);b.value[b.index]={type:"constant",numeric:!1,content:a.decode(d)};c.numeric=!1}else a.VariableDoesNotHoldAValueError(c.lino,
+b.name);return c.pc+1}},Divide:{compile:function(a){var c=a.getLino();if(a.nextIsSymbol()){var b=a.getSymbol();var d=a.getCommandAt(b.pc).name}b=a.getValue();a.tokenIs("by")&&a.next();var f=a.getValue();if(a.tokenIs("giving")){a.next();if(a.isSymbol())return d=a.getSymbol(),d=a.getCommandAt(d.pc).name,a.next(),a.addCommand({domain:"core",keyword:"divide",lino:c,value1:b,value2:f,target:d}),!0;a.warning("core "+e.name+": Expected value holder")}else return void 0===d&&a.warning("core "+e.name+": No target variable given"),
+a.addCommand({domain:"core",keyword:"divide",lino:c,value2:f,target:d}),!0;return!1},run:function(a){var c=a[a.pc],b=c.value1,d=c.value2,f=a.getSymbolRecord(c.target);if(f.isValueHolder){var e=f.value[f.index];b?(a=a.getValue(b)/a.getValue(d),f.value[f.index]={type:"constant",numeric:!0,content:Math.trunc(a)}):(e.numeric||a.nonNumericValueError(c,lino),a=e.content/a.getValue(d),f.value[f.index]={type:"constant",numeric:!0,content:Math.trunc(a)})}else a.VariableDoesNotHoldAValueError(c.lino,f.name);
+return c.pc+1}},Encode:{compile:function(a){var c=a.getLino();a.next();if(a.isSymbol()){var b=a.getToken();a.next();a.addCommand({domain:"core",keyword:"encode",lino:c,symbol:b});return!0}return!1},run:function(a){var c=a[a.pc],b=a.getSymbolRecord(c.symbol);if(b.isValueHolder){var d=a.getValue(b.value[b.index]);b.value[b.index]={type:"constant",numeric:!1,content:a.encode(d)};c.numeric=!1}else a.VariableDoesNotHoldAValueError(c.lino,b.name);return c.pc+1}},End:{compile:function(a){a.next();return!0},
+run:function(){return 0}},Fork:{compile:function(a){var c=a.getLino();a.next();a.tokenIs("to")&&a.next();var b=a.getToken();a.next();a.addCommand({domain:"core",keyword:"fork",lino:c,label:b});return!0},run:function(a){var c=a[a.pc];try{a.run(a.symbols[c.label].pc)}catch(l){console.log(l.message),alert(l.message)}return c.pc+1}},Go:{compile:function(a){var c=a.getLino();a.next();a.tokenIs("to")&&a.next();var b=a.getToken();a.next();a.addCommand({domain:"core",keyword:"go",lino:c,label:b});return!0},
+run:function(a){var c=a[a.pc];if(c.label&&a.verifySymbol(c.label)){var b=a.symbols[c.label];if(b)return b.pc;a.runtimeError(c.lino,"Unknown symbol '"+c.label+"'");return 0}return c.goto}},Gosub:{compile:function(a){var c=a.getLino();a.next();a.tokenIs("to")&&a.next();var b=a.getToken();a.next();a.addCommand({domain:"core",keyword:"gosub",lino:c,label:b});return!0},run:function(a){var c=a[a.pc];if(a.verifySymbol(c.label))return a.stack.push(a.pc+1),a.symbols[c.label].pc;a.runtimeError(c.lino,"Unknown symbol '"+
+c.label+"'");return 0}},If:{compile:function(a){var c=a.getLino();a.next();var b=a.condition.compile(a),d=a.getPc();a.addCommand({domain:"core",keyword:"if",lino:c,condition:b});a.compileOne();if(!a.getToken())return a.getCommandAt(d).else=a.getPc(),!0;a.tokenIs("else")?(c=a.getPc(),a.addCommand({domain:"core",keyword:"goto",goto:0}),a.getCommandAt(d).else=a.getPc(),a.next(),a.compileOne(!0),a.getCommandAt(c).goto=a.getPc()):a.getCommandAt(d).else=a.getPc();return!0},run:function(a){var c=a[a.pc];
+return a.condition.test(a,c.condition)?c.pc+1:c.else}},Import:{compile:function(a){var c=a.imports,b=a.getProgram();c=$jscomp.makeIterator(c);for(var d=c.next();!d.done;d=c.next()){d=d.value;var f=a.nextToken(),e=d.keyword;if(f===e){if(f=a.compileVariable(d.domain,e,!0),f=b[a.getSymbols()[f.name].pc],f.element=d.element,f.exporter=d.exporter,f.exportedName=d.name,f.extra=d.extra,f.imported=!0,!a.tokenIs("and"))break}else throw Error("Mismatched import variable type for '"+d.name+"'");}return!0},run:function(a){return a[a.pc].pc+
+}},Index:{compile:function(a){var c=a.getLino();if(a.nextIsSymbol(!0)){var b=a.getToken();if(a.nextTokenIs("to")){var d=a.getNextValue();a.addCommand({domain:"core",keyword:"index",lino:c,symbol:b,value:d});return!0}}return!1},run:function(a){var c=a[a.pc],b=a.getSymbolRecord(c.symbol),d=a.getValue(c.value);d>=b.elements&&a.runtimeError(c.lino,"Array index "+d+" is out of range for '"+b.name+"'");b.index=d;b.imported&&(b.exporter.getSymbolRecord(b.exportedName).index=d);return c.pc+1}},Load:{compile:function(a){var c=
+a.getLino();a.next();if(a.tokenIs("plugin")){a.next();var b=a.getValue();a.addCommand({domain:"core",keyword:"load",lino:c,name:b});return!0}},run:function(a){var c=a[a.pc],b=a.getValue(c.name);if(a.checkPlugin(b))return c.pc+1;EasyCoder_Plugins.getLocalPlugin(a.getPluginsPath,b,a.getPlugin,a.addLocalPlugin,function(){a.run(c.pc+1)});return 0}},Module:{compile:function(a){a.compileVariable("core","module");return!0},run:function(a){a=a[a.pc];a.program=null;return a.pc+1}},Multiply:{compile:function(a){var c=
+a.getLino();a.next();if(a.isSymbol()){var b=a.getSymbol();var d=a.getCommandAt(b.pc).name}b=a.getValue();a.tokenIs("by")&&a.next();var f=a.getValue();if(a.tokenIs("giving")){a.next();if(a.isSymbol())return d=a.getSymbol(),d=a.getCommandAt(d.pc).name,a.next(),a.addCommand({domain:"core",keyword:"multiply",lino:c,value1:b,value2:f,target:d}),!0;a.warning("core multiply: Expected value holder")}else return void 0===d&&a.warning("core multiply: No target variable given"),a.addCommand({domain:"core",keyword:"multiply",
+lino:c,value2:f,target:d}),!0;return!1},run:function(a){var c=a[a.pc],b=c.value1,d=c.value2,f=a.getSymbolRecord(c.target);if(f.isValueHolder){var e=f.value[f.index];b?(a=a.getValue(b)*a.getValue(d),f.value[f.index]={type:"constant",numeric:!0,content:a}):(e.numeric||a.nonNumericValueError(c,lino),a=e.content*a.getValue(d),f.value[f.index]={type:"constant",numeric:!0,content:a})}else a.VariableDoesNotHoldAValueError(c.lino,f.name);return c.pc+1}},Negate:{compile:function(a){var c=a.getLino();a.next();
+if(a.isSymbol()){var b=a.getToken();a.next();a.addCommand({domain:"core",keyword:"negate",lino:c,symbol:b});return!0}return!1},run:function(a){var c=a[a.pc],b=a.getSymbolRecord(c.symbol);b.isValueHolder?b.value[b.index]={type:"constant",numeric:!0,content:-b.value[b.index].content}:a.VariableDoesNotHoldAValueError(c.lino,b.name);return c.pc+1}},On:{compile:function(a){var c=a.getLino(),b=a.nextToken();a.next();switch(b){case "trigger":case "close":case "restore":return a.addCommand({domain:"core",
+keyword:"on",lino:c,action:b}),a.completeHandler()}return!1},run:function(a){var c=a[a.pc];switch(c.action){case "trigger":a.onTrigger=c.pc+2;break;case "close":a.onClose=c.pc+2;break;case "restore":a.onRestore=c.pc+2;break;default:return a.runtimeError(c.lino,"Unknown action '"+c.action+"'"),0}return c.pc+1}},Print:{compile:function(a){var c=a.getLino();a.next();var b=a.getValue();a.addCommand({domain:"core",keyword:"print",lino:c,value:b});return!0},run:function(a){var c=a[a.pc];a=a.getFormattedValue(c.value);
+console.log("-> "+a);return c.pc+1}},Put:{compile:function(a){var c=a.getLino();a.next();var b=a.getValue();if(a.tokenIs("into")){a.next();if(a.isSymbol()){var d=a.getToken();a.next();a.addCommand({domain:"core",keyword:"put",lino:c,value:b,target:d});return!0}a.warning("core:put: No such variable: '"+a.getToken()+"'")}return!1},run:function(a){var c=a[a.pc],b=a.getSymbolRecord(c.target);b.isValueHolder||a.variableDoesNotHoldAValueError(c.lino,b.name);a=a.evaluate(c.value);b.value[b.index]=a;b.imported&&
+(b=b.exporter.getSymbolRecord(b.exportedName),b.value[b.index]=a);return c.pc+1}},Replace:{compile:function(a){var c=a.getLino();a.next();var b=a.getValue();if(a.tokenIs("with")){a.next();var d=a.getValue();if(a.tokenIs("in")&&(a.next(),a.isSymbol())){var f=a.getSymbolRecord();a.next();if(f.isValueHolder)return a.addCommand({domain:"core",keyword:"replace",lino:c,original:b,replacement:d,target:f.name}),!0}}return!1},run:function(a){var c=a[a.pc],b=a.getValue(c.original).split("\\r").join("\r").split("\\n").join("\n"),
+d=a.getValue(c.replacement),f=a.getSymbolRecord(c.target);a=a.getValue(f.value[f.index]).split(b).join(d);f.value[f.index]={type:"constant",numeric:!1,content:a};return c.pc+1}},Return:{compile:function(a){var c=a.getLino();a.next();a.addCommand({domain:"core",keyword:"return",lino:c});return!0},run:function(a){return a.stack.pop()}},Run:{compile:function(a){var c=a.getLino(),b=a.getNextValue(),d=[];if(a.tokenIs("with"))for(;;)if(a.nextIsSymbol(!0)){var f=a.getSymbolRecord();f.exporter=a.getProgram();
+d.push(f);a.next();if(!a.tokenIs("and"))break}if(a.tokenIs("as")&&a.nextIsSymbol(!0)){f=a.getSymbolRecord();a.next();if("module"!==f.keyword)throw Error("'"+f.name+"' is not a module");var e=f.name}a.addCommand({domain:"core",keyword:"run",lino:c,script:b,imports:d,module:e});return!0},run:function(a){a.nextPc=a.pc+1;a.runScript(a);return 0}},Script:{compile:function(a){var c=a.getLino(),b=a.nextToken();a.next();a.addCommand({domain:"core",keyword:"script",lino:c,name:b});return!0},run:function(a){var c=
+a[a.pc];a.script=c.name;EasyCoder.scripts[c.name]=a;console.log(Date.now()-EasyCoder.timestamp+" ms: Script: "+c.name);return c.pc+1}},Set:{compile:function(a){var c=a.getLino();a.next();if(a.isSymbol()){var b=a.getSymbolRecord();if(!b.isValueHolder)return!1;a.next();if(a.tokenIs("to")){a.next();for(var d=[];;){a.mark();try{d.push(a.getValue())}catch(f){a.rewind();break}}a.addCommand({domain:"core",keyword:"set",lino:c,type:"setArray",target:b.name,value:d});return!0}a.addCommand({domain:"core",keyword:"set",
+lino:c,type:"setBoolean",target:b.name});return!0}if(a.tokenIs("ready"))return a.next(),a.addCommand({domain:"core",keyword:"set",lino:c,type:"setReady"}),!0;a.tokenIs("the")&&a.next();if(a.tokenIs("elements")&&(a.next(),a.tokenIs("of"))){a.next();if(!a.isSymbol())throw Error("Unknown variable '"+a.getToken()+"'");b=a.getToken();a.next();if(a.tokenIs("to"))return a.next(),d=a.getValue(),a.addCommand({domain:"core",keyword:"set",lino:c,type:"setElements",symbol:b,value:d}),!0}if(a.tokenIs("encoding")){a.next();
+if(a.tokenIs("to"))return a.next(),b=a.getValue(),a.addCommand({domain:"core",keyword:"set",type:"encoding",lino:c,encoding:b}),!0;a.addWarning("Unknown encoding option")}return!1},run:function(a){var c=a[a.pc];switch(c.type){case "setBoolean":var b=a.getSymbolRecord(c.target);b.isValueHolder?(b.value[b.index]={type:"boolean",content:!0},c.numeric=!1):a.VariableDoesNotHoldAValueError(c.lino,b.name);break;case "setReady":a.parent.run(a.parent.nextPc);break;case "setElements":b=a.getSymbolRecord(c.symbol);
+b.elements=a.getValue(c.value);b.index=0;b.value=[];for(a=0;a<b.elements;a++)b.value.push({}),b.element.push("");break;case "setArray":a=a.getSymbolRecord(c.target);a.elements=c.value.length;a.value=c.value;break;case "encoding":a.encoding=a.getValue(c.encoding)}return c.pc+1}},Stop:{compile:function(a){var c=a.getLino();a.next();a.addCommand({domain:"core",keyword:"stop",lino:c,next:0});return!0},run:function(){return 0}},Take:{compile:function(a){var c=a.getLino();a.next();var b=a.getValue();if(a.tokenIs("from"))if(a.next(),
+a.isSymbol()){var d=a.getSymbol();if(a.getCommandAt(d.pc).isValueHolder){if("giving"===a.peek()){d=a.getValue();a.next();var f=a.getToken();a.next();a.addCommand({domain:"core",keyword:"take",lino:c,value1:b,value2:d,target:f})}else d=a.getToken(),a.next(),a.addCommand({domain:"core",keyword:"take",lino:c,value1:b,target:d});return!0}a.warning("core "+e.name+": Expected value holder")}else{d=a.getValue();if(a.tokenIs("giving"))return a.next(),f=a.getToken(),a.next(),a.addCommand({domain:"core",keyword:"take",
+lino:c,value1:b,value2:d,target:f}),!0;a.warning("core "+e.name+': Expected "giving"')}return!1},run:function(a){var c=a[a.pc],b=c.value1,d=c.value2,f=a.getSymbolRecord(c.target);if(f.isValueHolder){var e=f.value[f.index];d?(a=a.getValue(d)-a.getValue(b),f.value[f.index]={type:"constant",numeric:!0,content:a}):(e.numeric||a.nonNumericValueError(c,lino),a=a.getValue(e)-a.getValue(b),f.value[f.index]={type:"constant",numeric:!0,content:a})}else a.VariableDoesNotHoldAValueError(c.lino,f.name);return c.pc+
+}},Toggle:{compile:function(a){var c=a.getLino();a.next();if(a.isSymbol()){var b=a.getSymbolPc();a.next();a.addCommand({domain:"core",keyword:"toggle",lino:c,symbol:b});return!0}return!1},run:function(a){var c=a[a.pc],b=a[c.symbol];if(b.isValueHolder){var d=a.domain[b.domain];a=d.value.get(a,b.value[b.index]).content;d.value.put(b,{type:"boolean",content:!a})}else a.VariableDoesNotHoldAValueError(c.lino,b.name);return c.pc+1}},Trigger:{compile:function(a){var c=a.getLino();a.next();return a.tokenIs("parent")?
+(a.next(),a.addCommand({domain:"core",keyword:"trigger",lino:c,module:"parent"}),!0):a.isSymbol()&&(moduleRecord=a.getSymbolRecord(),a.next(),"module"===moduleRecord.keyword)?(h=moduleRecord.name,a.addCommand({domain:"core",keyword:"trigger",lino:c,module:h}),!0):!1},run:function(a){var c=a[a.pc];if("parent"===c.module)a.parent&&a.parent.trigger(!0);else{var b=a.getSymbolRecord(c.module);if(b.exporter){exporterRecord=b.exporter.getSymbolRecord(c.module);var d=exporterRecord.program}else d=b.program;
+d?d.trigger():a.runtimeError(c.lino,b.name+" has not been initialized")}return c.pc+1}},Variable:{compile:function(a){a.compileVariable("core","variable",!0);return!0},run:function(a){return a[a.pc].pc+1}},Wait:{compile:function(a){var c=a.getLino();a.next();var b=a.getValue(a),d=1E3;switch(a.getToken()){case "milli":case "millis":a.next();d=1;break;case "tick":case "ticks":a.next();d=10;break;case "second":case "seconds":a.next();d=1E3;break;case "minute":case "minutes":a.next(),d=6E4}a.addCommand({domain:"core",
+keyword:"wait",lino:c,value:b,multiplier:d});return!0},run:function(a){var c=a[a.pc],b=a.getValue(c.value);setTimeout(function(){a.run(c.pc+1)},b*c.multiplier);return 0}},While:{compile:function(a){var c=a.getLino();a.next();var b=a.getCondition(),d=a.getPc();a.addCommand({domain:"core",keyword:"while",lino:c,condition:b});c=a.getPc();a.addCommand({domain:"core",keyword:"goto",goto:0});a.compileOne();a.addCommand({domain:"core",keyword:"goto",goto:d});a.getCommandAt(c).goto=a.getPc();return!0},run:function(a){return a.condition.test(a,
+a[a.pc].condition)?a.pc+2:a.pc+1}},getHandler:function(a){switch(a){case "add":return b.Add;case "alias":return b.Alias;case "begin":return b.Begin;case "clear":return b.Clear;case "close":return b.Close;case "debug":return b.Debug;case "decode":return b.Decode;case "divide":return b.Divide;case "encode":return b.Encode;case "end":return b.End;case "fork":return b.Fork;case "go":case "goto":return b.Go;case "gosub":return b.Gosub;case "if":return b.If;case "import":return b.Import;case "index":return b.Index;
+case "load":return b.Load;case "module":return b.Module;case "multiply":return b.Multiply;case "negate":return b.Negate;case "on":return b.On;case "print":return b.Print;case "put":return b.Put;case "replace":return b.Replace;case "return":return b.Return;case "run":return b.Run;case "script":return b.Script;case "set":return b.Set;case "stop":return b.Stop;case "take":return b.Take;case "toggle":return b.Toggle;case "trigger":return b.Trigger;case "variable":return b.Variable;case "wait":return b.Wait;
+case "while":return b.While;default:return!1}},run:function(a){var c=a[a.pc],d=b.getHandler(c.keyword);d||a.runtimeError(c.lino,"Unknown keyword '"+c.keyword+"' in 'core' package");return d.run(a)},isNegate:function(a){return"not"===a.getToken()?(a.next(),!0):!1},value:{compile:function(a){if(a.isSymbol()){var c=a.getToken();switch(a.getSymbolRecord().keyword){case "module":return a.next(),{domain:"core",type:"module",name:c};case "variable":return a.nextTokenIs("modulo")?(a=a.getNextValue(),{domain:"core",
+type:"modulo",name:c,value:a}):{domain:"core",type:"symbol",name:c}}return null}c=a.getToken();if("true"===c)return a.next(),{domain:"core",type:"boolean",content:!0};if("false"===c)return a.next(),{domain:"core",type:"boolean",content:!1};if("random"===c)return a.next(),{domain:"core",type:"random",range:a.getValue()};if("cos"===c)return a.next(),c=a.getValue(),a.skip("radius"),a=a.getValue(),{domain:"core",type:"cos",angle_c:c,radius_c:a};if("sin"===c)return a.next(),c=a.getValue(),a.skip("radius"),
+a=a.getValue(),{domain:"core",type:"sin",angle_s:c,radius_s:a};if("tan"===c)return a.next(),c=a.getValue(),a.skip("radius"),a=a.getValue(),{domain:"core",type:"tan",angle_t:c,radius_t:a};if("empty"===c)return a.next(),{domain:"core",type:"empty"};if("now"===c)return a.next(),{domain:"core",type:"now"};if("newline"===c)return a.next(),{domain:"core",type:"newline"};if("encode"===c)return a.next(),{domain:"core",type:"encode",value:a.getValue()};if("decode"===c)return a.next(),{domain:"core",type:"decode",
+value:a.getValue()};if("lowercase"===c)return a.next(),{domain:"core",type:"lowercase",value:a.getValue()};if("element"===c){c=a.getNextValue();if(a.tokenIs("of")&&a.nextIsSymbol()){var b=a.getSymbolRecord();a.next();if("variable"===b.keyword)return{domain:"core",type:"element",element:c,symbol:b.name}}return null}if("property"===c)return c=a.getNextValue(),a.tokenIs("of")&&a.nextIsSymbol()&&(b=a.getSymbolRecord(),a.next(),"variable"===b.keyword)?{domain:"core",type:"property",property:c,symbol:b.name}:
+null;a.tokenIs("the")&&a.next();switch(a.getToken()){case "index":a.next();if(a.tokenIs("of")&&(a.next(),a.isSymbol()))return c=a.getToken(),a.next(),{domain:"core",type:"index",name:c};break;case "value":a.next();if(a.tokenIs("of"))return a.next(),{domain:"core",type:"valueOf",value:a.getValue()};break;case "length":a.next();if(a.tokenIs("of"))return a.next(),{domain:"core",type:"lengthOf",value:a.getValue()};break;case "left":a.next();c=a.getValue();if(a.tokenIs("of"))return a.next(),a=a.getValue(),
+{domain:"core",type:"left",count:c,value:a};break;case "right":a.next();c=a.getValue();if(a.tokenIs("of"))return a.next(),a=a.getValue(),{domain:"core",type:"right",count:c,value:a};break;case "position":if(a.next(),a.tokenIs("of")&&(a.next(),c=!1,a.tokenIs("the")&&(a.next(),a.tokenIs("last")&&(a.next(),c=!0)),b=a.getValue(),a.tokenIs("in")))return a.next(),a=a.getValue(),{domain:"core",type:"position",needle:b,haystack:a,last:c}}return null},get:function(a,c){switch(c.type){case "boolean":return{type:"boolean",
+numeric:!1,content:c.content};case "index":return{type:"constant",numeric:!0,content:a.getSymbolRecord(c.name).index};case "random":return a=a.evaluate(c.range),{type:"constant",numeric:!0,content:Math.floor(Math.random()*a.content)};case "cos":var b=a.getValue(c.angle_c);a=a.getValue(c.radius_c);return{type:"constant",numeric:!0,content:parseInt(Math.cos(.01745329*parseFloat(b))*a,10)};case "sin":return b=a.getValue(c.angle_s),a=a.getValue(c.radius_s),{type:"constant",numeric:!0,content:parseInt(Math.sin(.01745329*
+parseFloat(b))*a,10)};case "tan":return b=a.getValue(c.angle_t),a=a.getValue(c.radius_t),{type:"constant",numeric:!0,content:parseInt(Math.tan(.01745329*parseFloat(b))*a,10)};case "valueOf":return a=parseInt(a.getValue(c.value)),{type:"constant",numeric:!0,content:a?a:0};case "lengthOf":return{type:"constant",numeric:!0,content:a.getValue(c.value).length};case "left":return{type:"constant",numeric:!1,content:a.getValue(c.value).substr(0,a.getValue(c.count))};case "right":return b=a.getValue(c.value),
+{type:"constant",numeric:!1,content:b.substr(b.length-a.getValue(c.count))};case "position":return b=a.getValue(c.needle),a=a.getValue(c.haystack),{type:"constant",numeric:!0,content:c.last?a.lastIndexOf(b):a.indexOf(b)};case "modulo":return b=a.getSymbolRecord(c.name),a=a.evaluate(c.value),{type:"constant",numeric:!0,content:b.value[b.index].content%a.content};case "empty":return{type:"constant",numeric:!1,content:""};case "now":return{type:"constant",numeric:!0,content:Date.now()/1E3};case "newline":return{type:"constant",
+numeric:!1,content:"\n"};case "encode":return{type:"constant",numeric:!1,content:a.encode(a.getValue(c.value))};case "decode":return{type:"constant",numeric:!1,content:a.decode(a.getValue(c.value))};case "lowercase":return{type:"constant",numeric:!1,content:a.getValue(c.value).toLowerCase()};case "element":b=a.getValue(c.element);c=a.getSymbolRecord(c.symbol);var d="";try{d=JSON.parse(a.getValue(c.value[c.index]))[b]}catch(f){a.runtimeError(command.lino,"Can't parse JSON");break}return{type:"constant",
+numeric:!1,content:"object"===typeof d?JSON.stringify(d):d};case "property":b=a.getValue(c.property);c=a.getSymbolRecord(c.symbol);a=a.getValue(c.value[c.index]);c="";if("object"===typeof a)c=a[b];else try{c=JSON.parse(a)[b]}catch(f){console.log("Can't parse '"+a+"': "+f.message),c=""}return{type:"constant",numeric:Number.isInteger(c),content:c};case "module":return{type:"boolean",numeric:!1,content:a.getSymbolRecord(c.name).program}}return null},put:function(a,c){a.value[a.index]=c}},condition:{compile:function(a){if(a.tokenIs("not"))return a.next(),
+{domain:"core",type:"not",value:a.getValue()};try{var c=a.getValue();if("is"===a.getToken()){a.next();var d=b.isNegate(a);switch(a.getToken()){case "numeric":return a.next(),{domain:"core",type:"numeric",value1:c};case "even":return a.next(),{domain:"core",type:"even",value1:c};case "odd":return a.next(),{domain:"core",type:"odd",value1:c};case "greater":a.next();if(a.tokenIs("than")){a.next();var e=a.getValue();return{domain:"core",type:"greater",value1:c,value2:e,negate:d}}break;case "less":a.next();
+if(a.tokenIs("than")){a.next();var f=a.getValue();return{domain:"core",type:"less",value1:c,value2:f,negate:d}}break;default:var g=a.getValue();return{domain:"core",type:"is",value1:c,value2:g,negate:d}}}else if(c)return{domain:"core",type:"boolean",value:c}}catch(m){return program.runtimeError(command.lino,m.message),0}return null},test:function(a,c){switch(c.type){case "boolean":return a.getValue(c.value);case "numeric":return Number.isInteger(a.getValue(c.value1));case "even":return 0===a.getValue(c.value1)%
+;case "odd":return 1===a.getValue(c.value1)%2;case "is":return a=a.compare(a,c.value1,c.value2),c.negate?0!==a:0===a;case "greater":return a=a.compare(a,c.value1,c.value2),c.negate?0>=a:0<a;case "less":return a=a.compare(a,c.value1,c.value2),c.negate?0<=a:0>a;case "not":return!a.getValue(c.value)}return!1}}};h.exports=b},{}],6:[function(d,h,g){var e=this,b=d("./Tokenise"),a=d("./Compile"),c=d("./Run"),l=d("./Value"),p=d("./Condition"),f=d("./Compare"),k={domain:{core:d("./Core")},setupTracer:function(){var a=
+document.getElementById("easycoder-tracer");a&&(a.innerHTML='<div><input id="easycoder-run-button" type="button" value="Run" /><input id="easycoder-step-button" type="button" value="Step" /><div id="easycoder-tracer-content" style="border:1px solid black;padding:4px";width:100%></div>',a.style.display="none")},runtimeError:function(a,c){this.lino=a;this.reportError({message:"Line "+(0<=a?a:"")+": "+c},k.program)},nonNumericValueError:function(a){this.runtimeError(a,"Non-numeric value")},variableDoesNotHoldAValueError:function(a,
+c){this.runtimeError(a,"Variable '"+c+"' does not hold a value")},reportError:function(c,b,d){if(c.message)if(this.compiling||b){d=d?d:b.source;var e=d.tokens;d=d.scriptLines;e=this.compiling?e[a.getIndex()].lino:b[b.pc].lino;b=this.compiling?"Compile error":"Runtime error in '"+b.script+"'";b+=":\n";var f=e-5;for(f=0>f?0:f;f<e;f++){var m=(""+(f+1)).padStart(4," ");b+=m+" "+d[f].line.split("\\s").join(" ")+"\n"}b+=c.message+"\n";c=a.getWarnings();if(c.length)for(b+="Warnings:\n",c=$jscomp.makeIterator(c),
+d=c.next();!d.done;d=c.next())b+=d.value+"\n";console.log(b);alert(b);k.aborted=!0}else c="Error: "+c.message,alert(c),console.log(c);else console.log("An error occurred - origin was "+c.path[0])},getSymbolRecord:function(a){a=this[this.symbols[a].pc];return a.alias?this.getSymbolRecord(a.alias):a.exporter&&a.exporter!=this?a.exporter.getSymbolRecord(a.exportedName):a},verifySymbol:function(a){return this.symbols.hasOwnProperty(a)},encode:function(a){return l.encode(a,this.encoding)},decode:function(a){return l.decode(a,
+this.encoding)},evaluate:function(a){return l.evaluate(this,a)},getValue:function(a){return l.getValue(this,a)},getFormattedValue:function(a){a=l.getValue(this,a);return["[","{"].includes(a[0])?JSON.stringify(JSON.parse(a),null,2):a},getSimpleValue:function(a){return!0===a||!1===a?{type:"boolean",content:a}:{type:"constant",numeric:Number.isInteger(a),content:a}},run:function(a){k.program=this;c(this,a)},trigger:function(){this.onTrigger&&c(this,this.onTrigger)},addJS:function(a,c,b){var d=document.createElement("script");
+d.type="text/javascript";d.src=c+"/"+a+".js";d.onload=function(){b(a)};document.head.appendChild(d)},register:function(a){k.program=a},runScript:function(a){var c=a[a.pc],b=a.getValue(c.script),d=c.imports;a=c.module?a.getSymbolRecord(c.module):null;k.tokeniseScript(b.split("\n"),d,a,this)},close:function(){},compileScript:function(b,d,e,g){var h=b.tokens;this.compiling=!0;var m=Date.now();a.value=l;a.condition=p;a.domain=k.domain;a.imports=d;d=a.compile(h);var n=Date.now();console.log(n-k.timestamp+
+" ms: Compiled "+h.length+" tokens in "+(n-m+" ms"));this.compiling=!1;d.EasyCoder=k;d.value=l;d.condition=p;d.compare=f;d.source=b;d.run=this.run;d.runScript=this.runScript;d.evaluate=this.evaluate;d.getValue=this.getValue;d.getFormattedValue=this.getFormattedValue;d.getSimpleValue=this.getSimpleValue;d.encode=this.encode;d.decode=this.decode;d.domain=this.domain;d.trigger=this.trigger;d.addJS=this.addJS;d.checkPlugin=this.checkPlugin;d.getPlugin=this.getPlugin;d.addLocalPlugin=this.addLocalPlugin;
+d.getPluginsPath=this.getPluginsPath;d.getSymbolRecord=this.getSymbolRecord;d.verifySymbol=this.verifySymbol;d.runtimeError=this.runtimeError;d.nonNumericValueError=this.nonNumericValueError;d.variableDoesNotHoldAValueError=this.variableDoesNotHoldAValueError;d.reportError=this.reportError;d.register=this.register;d.symbols=a.getSymbols();d.encoding="ec";d.popups=[];d.stack=[];d.queue=[0];d.module=e;d.parent=g;e&&(e.program=d);this.setupTracer();c(d,0)},tokeniseScript:function(a,c,d,e){var f=Date.now();
+a=b.tokenise(a);var g=Date.now();console.log(g-k.timestamp+" ms: Tokenised "+a.scriptLines.length+" lines in "+(g-f+" ms"));try{k.compileScript(a,c,d,e)}catch(q){"stop"!==q.message&&this.reportError(q,k.program,a)}},tokenize:function(a){var c=a.split("\n");if(!e.tokenising){try{k.tokeniseScript(c)}catch(r){k.reportError(r,null,a)}e.tokenising=!0}},setPluginCount:function(a){e.plugins=[];e.pluginCount=a},checkPlugin:function(a){return k.domain[a]},getPlugin:function(a,c,b){k.domain[a]?b():(a=document.createElement("script"),
+a.type="text/javascript",a.src=c,a.onload=function(){console.log(Date.now()-k.timestamp+" ms: Plugin "+c+" loaded");b()},document.head.appendChild(a))},addGlobalPlugin:function(a,c){e.plugins.push({name:a,handler:c});e.plugins.length===e.pluginCount&&(e.plugins.forEach(function(a){k.domain[a.name]=a.handler}),k.tokenize(e.source))},addLocalPlugin:function(a,c,b){k.domain[a]=c;b()},getPluginsPath:function(){return k.pluginsPath},loadPluginJs:function(a){console.log(Date.now()-k.timestamp+" ms: Load plugins.js");
+var c=new XMLHttpRequest;c.open("GET",""+window.location.origin+a+"/easycoder/plugins.js",!0);c.onreadystatechange=function(){if(4===c.readyState)switch(c.status){case 200:var b=document.createElement("script");b.src=""+window.location.origin+a+"/easycoder/plugins.js";b.type="text/javascript";b.onload=function(){EasyCoder_Plugins.getGlobalPlugins(k.timestamp,a,k.setPluginCount,k.getPlugin,k.addGlobalPlugin)};document.head.appendChild(b);k.pluginsPath=a;break;case 404:a?k.loadPluginJs(a.slice(0,a.lastIndexOf("/"))):
+k.reportError({message:"Can't load plugins.js"},k.program,this.source)}};c.send()},start:function(a){e.source=a;a=window.location.pathname;a.endsWith("/")&&(a=a.slice(0,-1));k.loadPluginJs(a)}};h.exports=k},{"./Compare":2,"./Compile":3,"./Condition":4,"./Core":5,"./Run":7,"./Tokenise":8,"./Value":9}],7:[function(d,h,g){var e=function(b,a){var c=[],d=function(a){var c=9999;a.forEach(function(a){a=a.line;for(var b=0;b<a.length&&" "===a[b];)b++;0<b&&b<c&&(c=b)});return 0};if(c.length)c.push(a);else for(b.register(b),
+c.push(a);0<c.length&&!EasyCoder.aborted;)for(b.pc=c.shift(),b.watchdog=0,a={};;){if(1E6<b.watchdog){b.lino=b[b.pc].lino;b.reportError(Error("Program runaway intercepted.\nHave you forgotten to increment a loop counter?",b),b);break}b.watchdog++;var g=b[b.pc].domain;b.debugStep&&console.log(b.script+" "+b.pc+" "+g+":"+b[b.pc].keyword);var f=b.domain[g];if(!f){b.runtimeError(b[b.pc].lino,"Unknown domain '"+g+"'");break}b.pc=f.run(b);if(!b.pc)break;if(b.stop){b.tracing=!1;return}if(b.tracing){g=b[b.pc];
+f=b.source.scriptLines;var h=d(f),m=document.getElementById("easycoder-tracer");if(!m){b.runtimeError(g.lino,"Element 'easycoder-tracer' was not found");return}m.style.display="block";m.style.visibility="visible";var n="";if(b.tracer){if(m=document.getElementById("easycoder-tracer-content")){b.tracer.variables.forEach(function(a,c,d){var e=b.getSymbolRecord(a);if(1<e.elements)for(n+=a+": "+e.index+"/"+e.elements+": ",a=0;a<e.elements;a++){var f=e.value[a];n=f?n+(f.content+" "):n+"undefined "}else n=
+(e=e.value[e.index])?n+(a+": "+e.content):n+(a+": undefined");switch(b.tracer.alignment){case "horizontal":c<d.length-1&&(n+=", ");break;case "vertical":n+="<br>"}});n+="<hr>";for(var r="",t=5;0<t;t--)g.lino&&(r+='<input type="text" name="'+t+'"'+('value="'+f[g.lino-t].line.substr(h)+'"')+'style="width:100%;border:none;enabled:false">'),r+="<br>";m.innerHTML=n+" "+r;m.style.display="block";a.run=document.getElementById("easycoder-run-button");a.step=document.getElementById("easycoder-step-button");
+a.run.onclick=function(a){return function(){a.run.blur();b.tracing=!1;document.getElementById("easycoder-tracer-content").style.display="none";try{e(b,b.resume)}catch(q){var c="Error in run handler: "+q.message;console.log(c);alert(c)}}}(a);a.step.onclick=function(a){return function(){console.log("step");a.step.blur();b.tracing=!0;document.getElementById("easycoder-tracer-content").style.display="block";try{e(b,b.resume)}catch(q){var c="Error in step handler: "+q.message;console.log(c);alert(c)}}}(a)}b.resume=
+b.pc;b.pc=0}break}a={run:a.run,step:a.step}}};h.exports=e},{}],8:[function(d,h,g){var e={markComments:function(b){var a=b.list,c=void 0===b.index?0:b.index,d=void 0===b.inComment?!1:b.inComment,g=void 0===b.newList?[]:b.newList;if(c>=a.length)return g;var f=a[c];b=f.lino;f=f.token;var h={list:a,index:c+1,inComment:!1,newList:g.concat({lino:b,index:c,token:f})};g={list:a,index:c+1,inComment:!0,newList:g.concat({lino:b,index:c,comment:!0,token:f})};return d&&0<c&&b===a[c-1].lino?e.markComments(g):"!"===
+f.charAt(0)?e.markComments(g):e.markComments(h)},findStrings:function(b){var a=b.original,c=b.line,d=void 0===b.inComment?!1:b.inComment;b=void 0===b.inQuote?!1:b.inQuote;var g=c.charAt(0),f=b&&" "===g?"\\s":g;if(1===c.length)return f;c=c.substring(1);if("!"===g&&!b)return g+e.findStrings({original:a,line:c,inComment:!0,inQuote:!1});if("`"===g&&!d&&!b)return g+e.findStrings({original:a,line:c,inComment:d,inQuote:!0});if("`"===g&&b)return g+e.findStrings({original:a,line:c,inComment:d,inQuote:!1});
+if(!d&&!b&&!g.match(/[A-z0-9_\-+*/\- ]/)){if("'"==g||'"'==g)throw Error('Bad syntax in "'+a+'":\nStrings in EasyCoder must be enclosed in backticks.');throw Error('Unrecognised character "'+g+'" in "'+a+'".');}return f+e.findStrings({original:a,line:c,inComment:d,inQuote:b})},tokenise:function(b){b=b.map(function(a){return a.length?e.findStrings({original:a,line:a}):""}).map(function(a,b){return{lino:b+1,line:a}});var a=b.map(function(a){return a.line.trim().split(/\s+/).map(function(c,b){return{lino:a.lino,
+index:b,token:c}})});a=[].concat.apply([],a).filter(function(a){return a.token}).map(function(a){return{lino:a.lino,index:a.index,token:a.token.split("\\s").join(" ")}});a=e.markComments({list:a}).filter(function(a){return!a.comment});return{scriptLines:b,tokens:a}}};h.exports=e},{}],9:[function(d,h,g){var e={getItem:function(b){var a=b.getToken();if(!a)return null;if("true"===a)return b.next(),{type:"boolean",content:!0};if("false"===a)return b.next(),{type:"boolean",content:!1};if("`"===a.charAt(0))return b.next(),
+{type:"constant",numeric:!1,content:a.substring(1,a.length-1)};if(a[0].match(/[0-9\-]/)){var c=eval(a);if(Number.isInteger(c))return b.next(),{type:"constant",numeric:!0,content:c};throw Error("'"+a+"' is not an integer");}a=$jscomp.makeIterator(Object.keys(b.domain));for(c=a.next();!c.done;c=a.next())if(c=b.domain[c.value].value.compile(b))return c;return null},compile:function(b){var a=b.getToken(),c=b.value.getItem(b);if(!c)throw Error("Undefined value: '"+a+"'");if("cat"===b.getToken()){for(a=
+{type:"cat",numeric:!1,parts:[c]};b.tokenIs("cat");)b.next(),a.parts.push(b.value.getItem(b));return a}return c},doValue:function(b,a){switch(a.type){case "cat":return{type:"constant",numeric:!1,content:a.parts.reduce(function(a,c){return a+e.doValue(b,c).content},"")};case "boolean":case "constant":return a;case "symbol":var c=b.getSymbolRecord(a.name);return c.isValueHolder?(a=c.value[c.index])?(null===a.content&&(a.content=a.numeric?0:""),a):null:b.domain[c.domain].value.get(b,a)}return b.domain[a.domain].value.get(b,
+a)},constant:function(b,a){return{type:"constant",numeric:a,content:b}},evaluate:function(b,a){if(!a)return{type:"constant",numeric:!1,content:""};var c=e.doValue(b,a);if(c)return c;b.runtimeError(b[b.pc].lino,"Can't decode value: "+a)},getValue:function(b,a){return e.evaluate(b,a).content},encode:function(b,a){if(b)switch(a){case "ec":return b.replace(/'/g,"~sq~").replace(/"/g,"~dq~");case "url":return encodeURIComponent(b.replace(/\s/g,"+"))}return b},decode:function(b,a){if(b)switch(a){case "ec":return b.replace(/~dq~/g,
+'"').replace(/~sq~/g,"'");case "url":return decodeURIComponent(b).replace(/\+/g," ")}return b}};h.exports=e},{}]},{},[1]);
+$jscomp.polyfill("String.prototype.repeat",function(d){return d?d:function(d){var f=$jscomp.checkStringArgs(this,null,"repeat");if(0>d||1342177279<d)throw new RangeError("Invalid count value");d|=0;for(var e="";d;)if(d&1&&(e+=f),d>>>=1)f+=f;return e}},"es6","es3");$jscomp.stringPadding=function(d,h){d=void 0!==d?String(d):" ";return 0<h&&d?d.repeat(Math.ceil(h/d.length)).substring(0,h):""};
+$jscomp.polyfill("String.prototype.padStart",function(d){return d?d:function(d,f){var e=$jscomp.checkStringArgs(this,null,"padStart");return $jscomp.stringPadding(f,d-e.length)+e}},"es8","es3");
+(function(){function d(h,f,e){function b(c,m){if(!f[c]){if(!h[c]){var g="function"==typeof require&&require;if(!m&&g)return g(c,!0);if(a)return a(c,!0);m=Error("Cannot find module '"+c+"'");throw m.code="MODULE_NOT_FOUND",m;}m=f[c]={exports:{}};h[c][0].call(m.exports,function(a){return b(h[c][1][a]||a)},m,m.exports,d,h,f,e)}return f[c].exports}for(var a="function"==typeof require&&require,c=0;c<e.length;c++)b(e[c]);return b}return d})()({1:[function(d,h,f){var e=d("./easycoder/Main");e.timestamp=
+Date.now();console.log("EasyCoder loaded; waiting for page");window.onload=function(){console.log(Date.now()-e.timestamp+" ms: Page loaded; reset timer & start EasyCoder");e.timestamp=Date.now();e.scripts={};window.EasyCoder=e;var b=document.getElementById("easycoder-script");if(b){b.style.display="none";try{e.start(b.innerText)}catch(a){e.reportError(a)}}}},{"./easycoder/Main":6}],2:[function(d,h,f){h.exports=function(d,b,a){b=d.value.evaluate(d,b);d=d.value.evaluate(d,a);a=b.content;var c=d.content;
+b.numeric&&!d.numeric&&(a=a.toString());!b.numeric&&d.numeric&&(c=c.toString());b.numeric||"undefined"!==typeof a||(a="");d.numeric||"undefined"!==typeof c||(c="");return a>c?1:a<c?-1:0}},{}],3:[function(d,h,f){var e=Object.assign||function(a){for(var c=1;c<arguments.length;c++){var b=arguments[c],d;for(d in b)Object.prototype.hasOwnProperty.call(b,d)&&(a[d]=b[d])}return a},b=this,a={getTokens:function(){return b.tokens},addWarning:function(a){b.warnings.push(a)},warning:function(c){a.addWarning(c)},
+unrecognisedSymbol:function(c){a.addWarning("Unrecognised symbol '"+c+"'")},getWarnings:function(){return b.warnings},getIndex:function(){return b.index},next:function(a){b.index+=void 0===a?1:a},peek:function(){return b.tokens[b.index+1].token},getToken:function(){return b.index>=b.tokens.length?null:b.tokens[b.index]?b.tokens[b.index].token:null},nextToken:function(){a.next();return a.getToken()},tokenIs:function(a){return b.index>=b.tokens.length?!1:a===b.tokens[b.index].token},nextTokenIs:function(c){a.next();
+return a.tokenIs(c)},skip:function(c){if(b.index>=b.tokens.length)return null;a.next();a.tokenIs(c)&&a.next()},prev:function(){b.index--},getLino:function(){return b.index>=b.tokens.length?0:b.tokens[b.index].lino},getTarget:function(a){a=void 0===a?b.index:a;return b.tokens[a].token},getTargetPc:function(c){c=void 0===c?b.index:c;return b.symbols[a.getTarget(c)].pc},getCommandAt:function(a){return b.program[a]},isSymbol:function(c){c=void 0===c?!1:c;if(a.getTarget()in b.symbols)return!0;if(c)throw Error("Unknown symbol: '"+
+a.getTarget()+"'");return!1},nextIsSymbol:function(c){c=void 0===c?!1:c;a.next();return a.isSymbol(c)},getSymbol:function(){return b.symbols[a.getToken()]},getSymbolPc:function(){return a.getSymbol().pc},getSymbolRecord:function(){return b.program[a.getSymbolPc()]},getSymbols:function(){return b.symbols},getProgram:function(){return b.program},getPc:function(){return b.program.length},getValue:function(){return a.value.compile(a)},getNextValue:function(){a.next();return a.getValue()},getCondition:function(){return a.condition.compile(a)},
+constant:function(c,g){return a.value.constant(c,void 0===g?!1:g)},addCommand:function(a){b.program.push(e({pc:b.program.length},a))},addSymbol:function(a,g){b.symbols[a]={pc:g}},mark:function(){b.savedMark=b.index},rewind:function(){b.index=b.savedMark},rewindTo:function(a){b.index=a},completeHandler:function(){var c=a.getLino(),g=a.getPc();a.addCommand({domain:"core",keyword:"goto",lino:c,goto:0});a.compileOne();a.addCommand({domain:"core",keyword:"stop",lino:c,next:0});a.getCommandAt(g).goto=a.getPc();
+return!0},compileVariable:function(c,g,m,d){m=void 0===m?!1:m;d=void 0===d?null:d;a.next();var p=a.getLino(),l=a.getTokens()[a.getIndex()];if(b.symbols[l.token])throw Error("Duplicate variable name '"+l.token+"'");var n=a.getPc();a.next();a.addSymbol(l.token,n);c={domain:c,keyword:g,lino:p,isSymbol:!0,isValueHolder:m,name:l.token,elements:1,index:0,value:[{}],element:[],extra:d};"dom"===d&&(c.element=[]);a.addCommand(c);return c},compileToken:function(){var c=a.getToken();if(c){a.mark();for(var g=
+$jscomp.makeIterator(Object.keys(a.domain)),b=g.next();!b.done;b=g.next()){if((b=a.domain[b.value])&&(b=b.getHandler(c))&&b.compile(a))return;a.rewind()}console.log("No handler found");throw Error("I don't understand '"+c+"...'");}},compileOne:function(){var c=a.getToken();if(c){b.warnings=[];var g=b.program.length;if(c.endsWith(":")){c=c.substring(0,c.length-1);if(b.symbols[c])throw Error("Duplicate symbol: '"+c+"'");b.symbols[c]={pc:g};b.index++}else a.compileToken()}},compileFromHere:function(c){for(;b.index<
+b.tokens.length;){var g=b.tokens[b.index].token;if("else"===g)return b.program;a.compileOne();if(-1<c.indexOf(g))break}},compile:function(c){b.tokens=c;b.index=0;b.program=[];b.symbols={};b.warnings=[];a.compileFromHere([]);a.addCommand({domain:"core",keyword:"stop",lino:a.getLino(),next:0});return b.program}};h.exports=a},{}],4:[function(d,h,f){var e=Object.assign||function(b){for(var a=1;a<arguments.length;a++){var c=arguments[a],g;for(g in c)Object.prototype.hasOwnProperty.call(c,g)&&(b[g]=c[g])}return b};
+h.exports={compile:function(b){b.mark();for(var a=$jscomp.makeIterator(Object.keys(b.domain)),c=a.next();!c.done;c=a.next()){if(c=b.domain[c.value].condition.compile(b))return e({domain:name},c);b.rewind()}},test:function(b,a){return b.domain[a.domain].condition.test(b,a)}}},{}],5:[function(d,h,f){var e=this,b={Add:{compile:function(a){var c=a.getLino();a.next();var g=a.getValue();if(a.tokenIs("to"))if(a.next(),a.isSymbol()){var b=a.getSymbol();if(a.getCommandAt(b.pc).isValueHolder){if("giving"===
+a.peek()){b=a.getValue();a.next();var d=a.getToken();a.next();a.addCommand({domain:"core",keyword:"add",lino:c,value1:g,value2:b,target:d})}else b=a.getToken(),a.next(),a.addCommand({domain:"core",keyword:"add",lino:c,value1:g,target:b});return!0}a.warning("core "+e.name+": Expected value holder")}else{b=a.getValue();if(a.tokenIs("giving"))return a.next(),d=a.getToken(),a.next(),a.addCommand({domain:"core",keyword:"add",lino:c,value1:g,value2:b,target:d}),!0;a.warning("core "+e.name+': Expected "giving"')}return!1},
+run:function(a){var c=a[a.pc],g=c.value1,b=c.value2,d=a.getSymbolRecord(c.target);if(d.isValueHolder){var e=d.value[d.index];b?(a=a.getValue(b)+a.getValue(g),d.value[d.index]={type:"constant",numeric:!0,content:a}):(e.numeric||a.nonNumericValueError(c.lino),a=e.content+a.getValue(g),d.value[d.index]={type:"constant",numeric:!0,content:a})}else a.VariableDoesNotHoldAValueError(c.lino,d.name);return c.pc+1}},Alias:{compile:function(a){var c=a.getLino();a.next();if(a.isSymbol()){var g=a.getToken();a.next();
+if(a.tokenIs("to")&&(a.next(),a.isSymbol())){var b=a.getToken();a.next();a.addCommand({domain:"core",keyword:"alias",lino:c,alias:g,symbol:b});return!0}}return!1},run:function(a){var c=a[a.pc],g=a.symbols[c.alias].pc,b=a[g],d=a.getSymbolRecord(c.symbol);a[g]={pc:b.pc,domain:d.domain,keyword:d.keyword,lino:b.lino,name:b.name,alias:c.symbol};return c.pc+1}},Begin:{compile:function(a){a.next();a.compileFromHere(["end"]);return!0},run:function(a){return a[a.pc].pc+1}},Callback:{compile:function(a){a.compileVariable("core",
+"callback");return!0},run:function(a){return a[a.pc].pc+1}},Clear:{compile:function(a){var c=a.getLino();a.next();if(a.isSymbol()){var g=a.getSymbolRecord();if(g.isValueHolder)return g=a.getToken(),a.next(),a.addCommand({domain:"core",keyword:"clear",lino:c,symbol:g}),!0;a.warning("'Variable '"+g.name+"' does not hold a value")}return!1},run:function(a){var c=a[a.pc],g=a.getSymbolRecord(c.symbol);g.isValueHolder?(a.domain[g.domain].value.put(g,{type:"boolean",content:!1}),c.numeric=!1):a.VariableDoesNotHoldAValueError(c.lino,
+g.name);return c.pc+1}},Close:{compile:function(a){var c=a.getLino();if(a.nextIsSymbol()){var g=a.getSymbolRecord();if("module"===g.keyword)return a.next(),a.addCommand({domain:"core",keyword:"close",lino:c,module:g.name}),!0}return!1},run:function(a){var c=a[a.pc];a=a.getSymbolRecord(c.module).program;a.run(a.onClose);return c.pc+1}},Debug:{compile:function(a){var c=a.getLino();if(a.nextTokenIs("program")){a.next();if(["item","pc"].includes(a.getToken())){var g=a.getNextValue();a.addCommand({domain:"core",
+keyword:"debug",lino:c,item:g});return!0}a.addCommand({domain:"core",keyword:"debug",lino:c,item:-1});return!0}return a.tokenIs("symbols")?(a.next(),a.addCommand({domain:"core",keyword:"debug",lino:c,item:"symbols"}),!0):a.tokenIs("symbol")?(g=a.nextToken(),a.next(),a.addCommand({domain:"core",keyword:"debug",lino:c,item:"symbol",name:g}),!0):a.tokenIs("step")?(a.next(),a.addCommand({domain:"core",keyword:"debug",lino:c,item:"step"}),!0):!1},run:function(a){var c=a[a.pc],g=c.item;switch(g){case "symbols":console.log("Symbols: "+
+JSON.stringify(a.symbols,null,2));break;case "symbol":a=a.getSymbolRecord(c.name);g=a.exporter;delete a.exporter;console.log("Symbol: "+JSON.stringify(a,null,2));a.exporter=g;break;case "step":a.debugStep=!0;break;default:0<=g.content?console.log("Debug item "+g.content+": "+JSON.stringify(a[g.content],null,2)):console.log("Debug program: "+JSON.stringify(a,null,2))}return c.pc+1}},Decode:{compile:function(a){var c=a.getLino();if(a.nextIsSymbol()){var g=a.getToken();a.next();a.addCommand({domain:"core",
+keyword:"decode",lino:c,symbol:g});return!0}return!1},run:function(a){var c=a[a.pc],g=a.getSymbolRecord(c.symbol);if(g.isValueHolder){var b=a.getValue(g.value[g.index]);g.value[g.index]={type:"constant",numeric:!1,content:a.decode(b)};c.numeric=!1}else a.VariableDoesNotHoldAValueError(c.lino,g.name);return c.pc+1}},Divide:{compile:function(a){var c=a.getLino();if(a.nextIsSymbol()){var g=a.getSymbol();var b=a.getCommandAt(g.pc).name}g=a.getValue();a.tokenIs("by")&&a.next();var d=a.getValue();if(a.tokenIs("giving")){a.next();
+if(a.isSymbol())return b=a.getSymbol(),b=a.getCommandAt(b.pc).name,a.next(),a.addCommand({domain:"core",keyword:"divide",lino:c,value1:g,value2:d,target:b}),!0;a.warning("core "+e.name+": Expected value holder")}else return"undefined"===typeof b&&a.warning("core "+e.name+": No target variable given"),a.addCommand({domain:"core",keyword:"divide",lino:c,value2:d,target:b}),!0;return!1},run:function(a){var c=a[a.pc],b=c.value1,d=c.value2,e=a.getSymbolRecord(c.target);if(e.isValueHolder){var f=e.value[e.index];
+b?(a=a.getValue(b)/a.getValue(d),e.value[e.index]={type:"constant",numeric:!0,content:Math.trunc(a)}):(f.numeric||a.nonNumericValueError(c,lino),a=f.content/a.getValue(d),e.value[e.index]={type:"constant",numeric:!0,content:Math.trunc(a)})}else a.VariableDoesNotHoldAValueError(c.lino,e.name);return c.pc+1}},Encode:{compile:function(a){var c=a.getLino();a.next();if(a.isSymbol()){var b=a.getToken();a.next();a.addCommand({domain:"core",keyword:"encode",lino:c,symbol:b});return!0}return!1},run:function(a){var c=
+a[a.pc],b=a.getSymbolRecord(c.symbol);if(b.isValueHolder){var d=a.getValue(b.value[b.index]);b.value[b.index]={type:"constant",numeric:!1,content:a.encode(d)};c.numeric=!1}else a.VariableDoesNotHoldAValueError(c.lino,b.name);return c.pc+1}},End:{compile:function(a){a.next();return!0},run:function(){return 0}},Fork:{compile:function(a){var c=a.getLino();a.next();a.nextTokenIs("to")&&a.next();var b=a.getToken();a.next();a.addCommand({domain:"core",keyword:"fork",lino:c,label:b});return!0},run:function(a){var c=
+a[a.pc];try{a.run(a.symbols[c.label].pc)}catch(g){console.log(g.message),alert(g.message)}return c.pc+1}},Go:{compile:function(a){var c=a.getLino();a.nextTokenIs("to")&&a.next();var b=a.getToken();a.next();a.addCommand({domain:"core",keyword:"go",lino:c,label:b});return!0},run:function(a){var c=a[a.pc];if(c.label){if(a.verifySymbol(c.label)){var b=a.symbols[c.label];if(b)return b.pc}a.runtimeError(c.lino,"Unknown symbol '"+c.label+"'");return 0}return c.goto}},Gosub:{compile:function(a){var c=a.getLino();
+a.nextTokenIs("to")&&a.next();var b=a.getToken();a.next();a.addCommand({domain:"core",keyword:"gosub",lino:c,label:b});return!0},run:function(a){var c=a[a.pc];if(a.verifySymbol(c.label))return a.stack.push(a.pc+1),a.symbols[c.label].pc;a.runtimeError(c.lino,"Unknown symbol '"+c.label+"'");return 0}},If:{compile:function(a){var c=a.getLino();a.next();var b=a.condition.compile(a),d=a.getPc();a.addCommand({domain:"core",keyword:"if",lino:c,condition:b});a.compileOne();if(!a.getToken())return a.getCommandAt(d).else=
+a.getPc(),!0;a.tokenIs("else")?(c=a.getPc(),a.addCommand({domain:"core",keyword:"goto",goto:0}),a.getCommandAt(d).else=a.getPc(),a.next(),a.compileOne(!0),a.getCommandAt(c).goto=a.getPc()):a.getCommandAt(d).else=a.getPc();return!0},run:function(a){var c=a[a.pc];return a.condition.test(a,c.condition)?c.pc+1:c.else}},Import:{compile:function(a){var c=a.imports,b=a.getProgram();c=$jscomp.makeIterator(c);for(var d=c.next();!d.done;d=c.next()){d=d.value;var e=a.nextToken(),f=d.keyword;if(e===f){if(e=a.compileVariable(d.domain,
+f,!0),e=b[a.getSymbols()[e.name].pc],e.element=d.element,e.exporter=d.exporter,e.exportedName=d.name,e.extra=d.extra,e.imported=!0,!a.tokenIs("and"))break}else throw Error("Mismatched import variable type for '"+d.name+"'");}if(a.tokenIs("and"))throw Error("Imports do not match exports");return!0},run:function(a){return a[a.pc].pc+1}},Index:{compile:function(a){var c=a.getLino();if(a.nextIsSymbol(!0)){var b=a.getToken();if(a.nextTokenIs("to")){var d=a.getNextValue();a.addCommand({domain:"core",keyword:"index",
+lino:c,symbol:b,value:d});return!0}}return!1},run:function(a){var c=a[a.pc],b=a.getSymbolRecord(c.symbol),d=a.getValue(c.value);d>=b.elements&&a.runtimeError(c.lino,"Array index "+d+" is out of range for '"+b.name+"'");b.index=d;b.imported&&(b.exporter.getSymbolRecord(b.exportedName).index=d);return c.pc+1}},Load:{compile:function(a){var c=a.getLino();switch(a.nextToken()){case "plugin":var b=a.getNextValue();a.addCommand({domain:"core",keyword:"load",lino:c,name:b});return!0}return!1},run:function(a){var c=
+a[a.pc],b=a.getValue(c.name);switch(c.keyword){case "load":if(a.checkPlugin(b))return c.pc+1;EasyCoder_Plugins.getLocalPlugin(a.getPluginsPath,b,a.getPlugin,a.addLocalPlugin,function(){a.run(c.pc+1)});return 0}}},Module:{compile:function(a){a.compileVariable("core","module");return!0},run:function(a){a=a[a.pc];a.program=null;return a.pc+1}},Multiply:{compile:function(a){var c=a.getLino();a.next();if(a.isSymbol()){var b=a.getSymbol();var d=a.getCommandAt(b.pc).name}b=a.getValue();a.tokenIs("by")&&
+a.next();var e=a.getValue();if(a.tokenIs("giving")){a.next();if(a.isSymbol())return d=a.getSymbol(),d=a.getCommandAt(d.pc).name,a.next(),a.addCommand({domain:"core",keyword:"multiply",lino:c,value1:b,value2:e,target:d}),!0;a.warning("core multiply: Expected value holder")}else return"undefined"===typeof d&&a.warning("core multiply: No target variable given"),a.addCommand({domain:"core",keyword:"multiply",lino:c,value2:e,target:d}),!0;return!1},run:function(a){var c=a[a.pc],b=c.value1,d=c.value2,e=
+a.getSymbolRecord(c.target);if(e.isValueHolder){var f=e.value[e.index];b?(a=a.getValue(b)*a.getValue(d),e.value[e.index]={type:"constant",numeric:!0,content:a}):(f.numeric||a.nonNumericValueError(c,lino),a=f.content*a.getValue(d),e.value[e.index]={type:"constant",numeric:!0,content:a})}else a.VariableDoesNotHoldAValueError(c.lino,e.name);return c.pc+1}},Negate:{compile:function(a){var c=a.getLino();a.next();if(a.isSymbol()){var b=a.getToken();a.next();a.addCommand({domain:"core",keyword:"negate",
+lino:c,symbol:b});return!0}return!1},run:function(a){var c=a[a.pc],b=a.getSymbolRecord(c.symbol);b.isValueHolder?b.value[b.index]={type:"constant",numeric:!0,content:-b.value[b.index].content}:a.VariableDoesNotHoldAValueError(c.lino,b.name);return c.pc+1}},On:{compile:function(a){var c=a.getLino(),b=a.nextToken();switch(b){case "trigger":case "close":case "restore":case "message":return a.next(),a.addCommand({domain:"core",keyword:"on",lino:c,action:b}),a.completeHandler()}return a.isSymbol()&&(b=
+a.getSymbolRecord(),"callback"===b.keyword)?(a.next(),a.addCommand({domain:"core",keyword:"on",lino:c,action:b.name}),a.completeHandler()):!1},run:function(a){var c=a[a.pc],b=c.pc+2;switch(c.action){case "trigger":a.onTrigger=b;break;case "close":a.onClose=b;break;case "restore":a.onRestore=b;break;case "message":a.onMessage=b;break;default:var d=a.getSymbolRecord(c.action);if(d)d.cb=b;else return a.runtimeError(c.lino,"Unknown action '"+c.action+"'"),0}return c.pc+1}},Print:{compile:function(a){var c=
+a.getLino();a.next();var b=a.getValue();a.addCommand({domain:"core",keyword:"print",lino:c,value:b});return!0},run:function(a){var c=a[a.pc];a=a.getFormattedValue(c.value);console.log("-> "+a);return c.pc+1}},Put:{compile:function(a){var c=a.getLino();a.next();var b=a.getValue();if(a.tokenIs("into")){a.next();if(a.isSymbol()){var d=a.getToken();a.next();a.addCommand({domain:"core",keyword:"put",lino:c,value:b,target:d});return!0}a.warning("core:put: No such variable: '"+a.getToken()+"'")}return!1},
+run:function(a){var c=a[a.pc],b=a.getSymbolRecord(c.target);b.isValueHolder||a.variableDoesNotHoldAValueError(c.lino,b.name);a=a.evaluate(c.value);b.value[b.index]=a;b.imported&&(b=b.exporter.getSymbolRecord(b.exportedName),b.value[b.index]=a);return c.pc+1}},Replace:{compile:function(a){var c=a.getLino();a.next();var b=a.getValue();if(a.tokenIs("with")){a.next();var d=a.getValue();if(a.tokenIs("in")&&(a.next(),a.isSymbol())){var e=a.getSymbolRecord();a.next();if(e.isValueHolder)return a.addCommand({domain:"core",
+keyword:"replace",lino:c,original:b,replacement:d,target:e.name}),!0}}return!1},run:function(a){var c=a[a.pc],b=a.getValue(c.original),d=a.getValue(c.replacement),e=a.getSymbolRecord(c.target);a=a.getValue(e.value[e.index]).split(b).join(d);e.value[e.index]={type:"constant",numeric:!1,content:a};return c.pc+1}},Return:{compile:function(a){var c=a.getLino();a.next();a.addCommand({domain:"core",keyword:"return",lino:c});return!0},run:function(a){return a.stack.pop()}},Run:{compile:function(a){var c=
+a.getLino(),b=a.getNextValue(),d=[];if(a.tokenIs("with"))for(;;)if(a.nextIsSymbol(!0)){var e=a.getSymbolRecord();e.exporter=a.getProgram();d.push(e);a.next();if(!a.tokenIs("and"))break}if(a.tokenIs("as")&&a.nextIsSymbol(!0)){e=a.getSymbolRecord();a.next();if("module"!==e.keyword)throw Error("'"+e.name+"' is not a module");var f=e.name}a.addCommand({domain:"core",keyword:"run",lino:c,script:b,imports:d,module:f});return!0},run:function(a){a.nextPc=a.pc+1;a.runScript(a);return 0}},Script:{compile:function(a){var c=
+a.getLino(),b=a.nextToken();a.next();a.addCommand({domain:"core",keyword:"script",lino:c,name:b});return!0},run:function(a){var c=a[a.pc];a.script=c.name;EasyCoder.scripts[c.name]=a;console.log(Date.now()-EasyCoder.timestamp+" ms: Script: "+c.name);return c.pc+1}},Send:{compile:function(a){var c=a.getLino(),b=a.getNextValue();if(a.tokenIs("to")){if(a.nextTokenIs("parent"))var d="parent";else if(a.isSymbol){d=a.getSymbolRecord();if("module"!==d.keyword)throw Error("'"+d.name+"' is not a module");d=
+d.name}a.next();a.addCommand({domain:"core",keyword:"send",lino:c,message:b,recipient:d})}return!0},run:function(a){var c=a[a.pc],b=a.getValue(c.message);if("parent"===c.recipient){var d=a.parent;d&&a.parent.onMessage&&(d.message=b,d.run(d.onMessage))}else a=a.getSymbolRecord(c.recipient),a.program.message=b,a.program.run(a.program.onMessage);return c.pc+1}},Set:{compile:function(a){var c=a.getLino();if(a.nextIsSymbol()){var b=a.getSymbolRecord();if(!b.isValueHolder)return!1;if(a.nextTokenIs("to")){a.next();
+for(var d=[];;){a.mark();try{d.push(a.getValue())}catch(k){a.rewind();break}}a.addCommand({domain:"core",keyword:"set",lino:c,request:"setArray",target:b.name,value:d});return!0}a.addCommand({domain:"core",keyword:"set",lino:c,request:"setBoolean",target:b.name});return!0}if(a.tokenIs("ready"))return a.next(),a.addCommand({domain:"core",keyword:"set",lino:c,request:"setReady"}),!0;if(a.tokenIs("property")&&(b=a.getNextValue(),a.tokenIs("of")&&a.nextIsSymbol()&&(d=a.getSymbolRecord(),"variable"===
+d.keyword&&a.nextTokenIs("to")))){var e=a.getNextValue();a.addCommand({domain:"core",keyword:"set",lino:c,request:"setProperty",target:d.name,name:b,value:e});return!0}a.tokenIs("the")&&a.next();if(a.tokenIs("elements")&&(a.next(),a.tokenIs("of"))){a.next();if(!a.isSymbol())throw Error("Unknown variable '"+a.getToken()+"'");b=a.getToken();a.next();if(a.tokenIs("to"))return a.next(),d=a.getValue(),a.addCommand({domain:"core",keyword:"set",lino:c,request:"setElements",symbol:b,value:d}),!0}if(a.tokenIs("encoding")){if(a.nextTokenIs("to"))return b=
+a.getNextValue(),a.addCommand({domain:"core",keyword:"set",request:"encoding",lino:c,encoding:b}),!0;a.addWarning("Unknown encoding option");return!1}return a.tokenIs("payload")&&a.nextTokenIs("of")&&a.nextIsSymbol()&&(b=a.getSymbolRecord(),"callback"===b.keyword&&a.nextTokenIs("to"))?(d=a.getNextValue(),a.addCommand({domain:"core",keyword:"set",request:"setPayload",lino:c,callback:b.name,payload:d}),!0):!1},run:function(a){var c=a[a.pc];switch(c.request){case "setBoolean":var b=a.getSymbolRecord(c.target);
+b.isValueHolder?(b.value[b.index]={type:"boolean",content:!0},c.numeric=!1):a.VariableDoesNotHoldAValueError(c.lino,b.name);break;case "setReady":a.parent.run(a.parent.nextPc);break;case "setElements":b=a.getSymbolRecord(c.symbol);b.elements=a.getValue(c.value);b.index=0;b.value=[];b.element=[];for(a=0;a<b.elements;a++)b.value.push({}),b.element.push({});break;case "setArray":b=a.getSymbolRecord(c.target);b.elements=c.value.length;b.value=c.value;break;case "encoding":a.encoding=a.getValue(c.encoding);
+break;case "setProperty":b=a.getSymbolRecord(c.target);var d=a.getValue(b.value[b.index]);d||(d="{}");var e="";try{e=JSON.parse(d)}catch(k){return a.runtimeError(c.lino,"Can't parse "+b.name),0}d=a.getValue(c.name);if(a=a.evaluate(c.value))e[d]="boolean"===a.type?a.content:a.numeric?a.content:'{"'===a.content.substr(0,2)?JSON.parse(a.content):a.content.split('"').join('\\"'),b.value[b.index]={type:"constant",numeric:!1,content:JSON.stringify(e)};break;case "setPayload":a.getSymbolRecord(c.callback).payload=
+a.getValue(c.payload)}return c.pc+1}},Stop:{compile:function(a){var c=a.getLino();a.next();a.addCommand({domain:"core",keyword:"stop",lino:c,next:0});return!0},run:function(){return 0}},Take:{compile:function(a){var c=a.getLino();a.next();var b=a.getValue();if(a.tokenIs("from"))if(a.next(),a.isSymbol()){var d=a.getSymbol();if(a.getCommandAt(d.pc).isValueHolder){if("giving"===a.peek()){d=a.getValue();a.next();var f=a.getToken();a.next();a.addCommand({domain:"core",keyword:"take",lino:c,value1:b,value2:d,
+target:f})}else d=a.getToken(),a.next(),a.addCommand({domain:"core",keyword:"take",lino:c,value1:b,target:d});return!0}a.warning("core "+e.name+": Expected value holder")}else{d=a.getValue();if(a.tokenIs("giving"))return a.next(),f=a.getToken(),a.next(),a.addCommand({domain:"core",keyword:"take",lino:c,value1:b,value2:d,target:f}),!0;a.warning("core "+e.name+': Expected "giving"')}return!1},run:function(a){var c=a[a.pc],b=c.value1,d=c.value2,e=a.getSymbolRecord(c.target);if(e.isValueHolder){var f=
+e.value[e.index];d?(a=a.getValue(d)-a.getValue(b),e.value[e.index]={type:"constant",numeric:!0,content:a}):(f.numeric||a.nonNumericValueError(c,lino),a=a.getValue(f)-a.getValue(b),e.value[e.index]={type:"constant",numeric:!0,content:a})}else a.VariableDoesNotHoldAValueError(c.lino,e.name);return c.pc+1}},Toggle:{compile:function(a){var c=a.getLino();a.next();if(a.isSymbol()){var b=a.getSymbolPc();a.next();a.addCommand({domain:"core",keyword:"toggle",lino:c,symbol:b});return!0}return!1},run:function(a){var c=
+a[a.pc],b=a[c.symbol];if(b.isValueHolder){var d=a.domain[b.domain];a=d.value.get(a,b.value[b.index]).content;d.value.put(b,{type:"boolean",content:!a})}else a.VariableDoesNotHoldAValueError(c.lino,b.name);return c.pc+1}},Trigger:{compile:function(a){var c=a.getLino();a.next();return a.tokenIs("parent")?(a.next(),a.addCommand({domain:"core",keyword:"trigger",lino:c,module:"parent"}),!0):a.isSymbol()&&(moduleRecord=a.getSymbolRecord(),a.next(),"module"===moduleRecord.keyword)?(h=moduleRecord.name,a.addCommand({domain:"core",
+keyword:"trigger",lino:c,module:h}),!0):!1},run:function(a){var c=a[a.pc];if("parent"===c.module)a.parent&&a.parent.trigger(!0);else{var b=a.getSymbolRecord(c.module);if(b.exporter){exporterRecord=b.exporter.getSymbolRecord(c.module);var d=exporterRecord.program}else d=b.program;d?d.trigger():a.runtimeError(c.lino,b.name+" has not been initialized")}return c.pc+1}},Variable:{compile:function(a){a.compileVariable("core","variable",!0);return!0},run:function(a){return a[a.pc].pc+1}},Wait:{compile:function(a){var c=
+a.getLino();a.next();var b=a.getValue(a),d=1E3;switch(a.getToken()){case "milli":case "millis":a.next();d=1;break;case "tick":case "ticks":a.next();d=10;break;case "second":case "seconds":a.next();d=1E3;break;case "minute":case "minutes":a.next(),d=6E4}a.addCommand({domain:"core",keyword:"wait",lino:c,value:b,multiplier:d});return!0},run:function(a){var c=a[a.pc],b=a.getValue(c.value);setTimeout(function(){a.run(c.pc+1)},b*c.multiplier);return 0}},While:{compile:function(a){var c=a.getLino();a.next();
+var b=a.getCondition(),d=a.getPc();a.addCommand({domain:"core",keyword:"while",lino:c,condition:b});c=a.getPc();a.addCommand({domain:"core",keyword:"goto",goto:0});a.compileOne();a.addCommand({domain:"core",keyword:"goto",goto:d});a.getCommandAt(c).goto=a.getPc();return!0},run:function(a){return a.condition.test(a,a[a.pc].condition)?a.pc+2:a.pc+1}},getHandler:function(a){switch(a){case "add":return b.Add;case "alias":return b.Alias;case "begin":return b.Begin;case "callback":return b.Callback;case "clear":return b.Clear;
+case "close":return b.Close;case "debug":return b.Debug;case "decode":return b.Decode;case "divide":return b.Divide;case "encode":return b.Encode;case "end":return b.End;case "fork":return b.Fork;case "go":case "goto":return b.Go;case "gosub":return b.Gosub;case "if":return b.If;case "import":return b.Import;case "index":return b.Index;case "load":return b.Load;case "module":return b.Module;case "multiply":return b.Multiply;case "negate":return b.Negate;case "on":return b.On;case "print":return b.Print;
+case "put":return b.Put;case "replace":return b.Replace;case "return":return b.Return;case "run":return b.Run;case "script":return b.Script;case "send":return b.Send;case "set":return b.Set;case "stop":return b.Stop;case "take":return b.Take;case "toggle":return b.Toggle;case "trigger":return b.Trigger;case "variable":return b.Variable;case "wait":return b.Wait;case "while":return b.While;default:return!1}},run:function(a){var c=a[a.pc],d=b.getHandler(c.keyword);d||a.runtimeError(c.lino,"Unknown keyword '"+
+c.keyword+"' in 'core' package");return d.run(a)},isNegate:function(a){return"not"===a.getToken()?(a.next(),!0):!1},value:{compile:function(a){if(a.isSymbol()){var c=a.getToken();switch(a.getSymbolRecord().keyword){case "module":return a.next(),{domain:"core",type:"module",name:c};case "variable":return a.nextTokenIs("modulo")?(a=a.getNextValue(),{domain:"core",type:"modulo",name:c,value:a}):{domain:"core",type:"symbol",name:c}}return null}c=a.getToken();if("true"===c)return a.next(),{domain:"core",
+type:"boolean",content:!0};if("false"===c)return a.next(),{domain:"core",type:"boolean",content:!1};if("random"===c)return a.next(),{domain:"core",type:"random",range:a.getValue()};if("cos"===c)return a.next(),c=a.getValue(),a.skip("radius"),a=a.getValue(),{domain:"core",type:"cos",angle_c:c,radius_c:a};if("sin"===c)return a.next(),c=a.getValue(),a.skip("radius"),a=a.getValue(),{domain:"core",type:"sin",angle_s:c,radius_s:a};if("tan"===c)return a.next(),c=a.getValue(),a.skip("radius"),a=a.getValue(),
+{domain:"core",type:"tan",angle_t:c,radius_t:a};if("empty"===c)return a.next(),{domain:"core",type:"empty"};if("now"===c)return a.next(),{domain:"core",type:"now"};if("newline"===c)return a.next(),{domain:"core",type:"newline"};if("break"===c)return a.next(),{domain:"core",type:"break"};if("encode"===c)return a.next(),{domain:"core",type:"encode",value:a.getValue()};if("decode"===c)return a.next(),{domain:"core",type:"decode",value:a.getValue()};if("lowercase"===c)return a.next(),{domain:"core",type:"lowercase",
+value:a.getValue()};if("element"===c){c=a.getNextValue();if(a.tokenIs("of")&&a.nextIsSymbol()){var b=a.getSymbolRecord();a.next();if("variable"===b.keyword)return{domain:"core",type:"element",element:c,symbol:b.name}}return null}if("property"===c)return c=a.getNextValue(),a.tokenIs("of")&&a.nextIsSymbol()&&(b=a.getSymbolRecord(),a.next(),"variable"===b.keyword)?{domain:"core",type:"property",property:c,symbol:b.name}:null;a.tokenIs("the")&&a.next();c=a.getToken();switch(c){case "elements":case "index":if(a.nextTokenIs("of")&&
+a.nextIsSymbol())return b=a.getToken(),a.next(),{domain:"core",type:c,name:b};break;case "value":if(a.nextTokenIs("of"))return a.next(),{domain:"core",type:"valueOf",value:a.getValue()};break;case "length":if(a.nextTokenIs("of"))return a.next(),{domain:"core",type:"lengthOf",value:a.getValue()};break;case "left":case "right":b=a.getNextValue();if(a.tokenIs("of"))return a=a.getNextValue(),{domain:"core",type:c,count:b,value:a};break;case "from":b=a.getNextValue();var d=a.tokenIs("to")?a.getNextValue():
+null;if(a.tokenIs("of"))return a=a.getNextValue(),{domain:"core",type:c,from:b,to:d,value:a};break;case "position":if(a.nextTokenIs("of")&&(c=!1,a.nextTokenIs("the")&&a.nextTokenIs("last")&&(a.next(),c=!0),b=a.getValue(),a.tokenIs("in")))return a=a.getNextValue(),{domain:"core",type:"position",needle:b,haystack:a,last:c};break;case "payload":if(a.nextTokenIs("of")&&a.nextIsSymbol()&&(c=a.getSymbolRecord(),"callback"===c.keyword))return a.next(),{domain:"core",type:"payload",callback:c.name};break;
+case "message":case "error":return a.next(),{domain:"core",type:c}}return null},get:function(a,c){switch(c.type){case "boolean":return{type:"boolean",numeric:!1,content:c.content};case "elements":return{type:"constant",numeric:!0,content:a.getSymbolRecord(c.name).elements};case "index":return{type:"constant",numeric:!0,content:a.getSymbolRecord(c.name).index};case "random":return a=a.evaluate(c.range),{type:"constant",numeric:!0,content:Math.floor(Math.random()*a.content)};case "cos":var b=a.getValue(c.angle_c);
+a=a.getValue(c.radius_c);return{type:"constant",numeric:!0,content:parseInt(Math.cos(.01745329*parseFloat(b))*a,10)};case "sin":return b=a.getValue(c.angle_s),a=a.getValue(c.radius_s),{type:"constant",numeric:!0,content:parseInt(Math.sin(.01745329*parseFloat(b))*a,10)};case "tan":return b=a.getValue(c.angle_t),a=a.getValue(c.radius_t),{type:"constant",numeric:!0,content:parseInt(Math.tan(.01745329*parseFloat(b))*a,10)};case "valueOf":return a=parseInt(a.getValue(c.value)),{type:"constant",numeric:!0,
+content:a?a:0};case "lengthOf":return{type:"constant",numeric:!0,content:a.getValue(c.value).length};case "left":return{type:"constant",numeric:!1,content:a.getValue(c.value).substr(0,a.getValue(c.count))};case "right":return{type:"constant",numeric:!1,content:a.getValue(c.value).substr(rstr.length-a.getValue(c.count))};case "from":b=a.getValue(c.from);var d=c.to?a.getVaue(c.to):null;a=a.getValue(c.value);return{type:"constant",numeric:!1,content:d?a.substr(b,d):a.substr(b)};case "position":return b=
+a.getValue(c.needle),a=a.getValue(c.haystack),{type:"constant",numeric:!0,content:c.last?a.lastIndexOf(b):a.indexOf(b)};case "payload":return{type:"constant",numeric:!1,content:a.getSymbolRecord(c.callback).payload};case "modulo":return b=a.getSymbolRecord(c.name),a=a.evaluate(c.value),{type:"constant",numeric:!0,content:b.value[b.index].content%a.content};case "empty":return{type:"constant",numeric:!1,content:""};case "now":return{type:"constant",numeric:!0,content:Date.now()/1E3};case "newline":return{type:"constant",
+numeric:!1,content:"\n"};case "break":return{type:"constant",numeric:!1,content:"<br />"};case "encode":return{type:"constant",numeric:!1,content:a.encode(a.getValue(c.value))};case "decode":return{type:"constant",numeric:!1,content:a.decode(a.getValue(c.value))};case "lowercase":return{type:"constant",numeric:!1,content:a.getValue(c.value).toLowerCase()};case "element":b=a.getValue(c.element);c=a.getSymbolRecord(c.symbol);d="";try{d=JSON.parse(a.getValue(c.value[c.index]))[b]}catch(p){a.runtimeError(command.lino,
+"Can't parse JSON");break}return{type:"constant",numeric:!1,content:"object"===typeof d?JSON.stringify(d):d};case "property":b=a.getValue(c.property);c=a.getSymbolRecord(c.symbol);a=a.getValue(c.value[c.index]);c="";if(b&&a)if("object"===typeof a)c=a[b];else if("{"===a.charAt(0))try{c=JSON.parse(a)[b]}catch(p){console.log("Can't parse '"+a+"': "+p.message)}return{type:"constant",numeric:Number.isInteger(c),content:"object"===typeof c?JSON.stringify(c):c};case "module":return{type:"boolean",numeric:!1,
+content:a.getSymbolRecord(c.name).program};case "message":return c=a.message,{type:"constant",numeric:!1,content:c};case "error":return c=a.errorMessage,{type:"constant",numeric:!1,content:c}}return null},put:function(a,c){a.value[a.index]=c}},condition:{compile:function(a){if(a.tokenIs("not"))return a.next(),{domain:"core",type:"not",value:a.getValue()};try{var c=a.getValue();if("is"===a.getToken()){a.next();var d=b.isNegate(a);switch(a.getToken()){case "numeric":return a.next(),{domain:"core",type:"numeric",
+value1:c};case "even":return a.next(),{domain:"core",type:"even",value1:c};case "odd":return a.next(),{domain:"core",type:"odd",value1:c};case "greater":a.next();if(a.tokenIs("than")){a.next();var e=a.getValue();return{domain:"core",type:"greater",value1:c,value2:e,negate:d}}break;case "less":a.next();if(a.tokenIs("than")){a.next();var f=a.getValue();return{domain:"core",type:"less",value1:c,value2:f,negate:d}}break;default:var h=a.getValue();return{domain:"core",type:"is",value1:c,value2:h,negate:d}}}else if(c)return{domain:"core",
+type:"boolean",value:c}}catch(l){return a.warning("Can't get a value"),0}return null},test:function(a,c){switch(c.type){case "boolean":return a.getValue(c.value);case "numeric":return Number.isInteger(a.getValue(c.value1));case "even":return 0===a.getValue(c.value1)%2;case "odd":return 1===a.getValue(c.value1)%2;case "is":return a=a.compare(a,c.value1,c.value2),c.negate?0!==a:0===a;case "greater":return a=a.compare(a,c.value1,c.value2),c.negate?0>=a:0<a;case "less":return a=a.compare(a,c.value1,c.value2),
+c.negate?0<=a:0>a;case "not":return!a.getValue(c.value)}return!1}}};h.exports=b},{}],6:[function(d,h,f){var e=this,b=d("./Tokenise"),a=d("./Compile"),c=d("./Run"),g=d("./Value"),m=d("./Condition"),p=d("./Compare"),k={domain:{core:d("./Core")},setupTracer:function(){var a=document.getElementById("easycoder-tracer");a&&(a.innerHTML='<div><input id="easycoder-run-button" type="button" value="Run" /><input id="easycoder-step-button" type="button" value="Step" /><div id="easycoder-tracer-content" style="border:1px solid black;padding:4px";width:100%></div>',
+a.style.display="none")},runtimeError:function(a,c){this.lino=a;this.reportError({message:"Line "+(0<=a?a:"")+": "+c},k.program)},nonNumericValueError:function(a){this.runtimeError(a,"Non-numeric value")},variableDoesNotHoldAValueError:function(a,c){this.runtimeError(a,"Variable '"+c+"' does not hold a value")},reportError:function(c,b,d){if(c.message)if(this.compiling||b){d=d?d:b.source;var e=d.tokens;d=d.scriptLines;e=this.compiling?e[a.getIndex()].lino:b[b.pc].lino;b=this.compiling?"Compile error":
+"Runtime error in '"+b.script+"'";b+=":\n";var g=e-5;for(g=0>g?0:g;g<e;g++){var l=(""+(g+1)).padStart(4," ");b+=l+" "+d[g].line.split("\\s").join(" ")+"\n"}b+=c.message+"\n";c=a.getWarnings();if(c.length)for(b+="Warnings:\n",c=$jscomp.makeIterator(c),d=c.next();!d.done;d=c.next())b+=d.value+"\n";console.log(b);alert(b);k.aborted=!0}else c="Error: "+c.message,alert(c),console.log(c);else console.log("An error occurred - origin was "+c.path[0])},getSymbolRecord:function(a){a=this[this.symbols[a].pc];
+return a.alias?this.getSymbolRecord(a.alias):a.exporter&&a.exporter!=this?a.exporter.getSymbolRecord(a.exportedName):a},verifySymbol:function(a){return this.symbols.hasOwnProperty(a)},encode:function(a){return g.encode(a,this.encoding)},decode:function(a){return g.decode(a,this.encoding)},evaluate:function(a){return g.evaluate(this,a)},getValue:function(a){return g.getValue(this,a)},getFormattedValue:function(a){a=g.evaluate(this,a);return a.numeric?a.content:'{"'===a.content.substr(0,2)||"["===a.content.charAt(0)?
+JSON.stringify(JSON.parse(a.content),null,2):a.content},getSimpleValue:function(a){return!0===a||!1===a?{type:"boolean",content:a}:{type:"constant",numeric:Number.isInteger(a),content:a}},run:function(a){a&&(k.program=this,c(this,a))},trigger:function(){this.onTrigger&&c(this,this.onTrigger)},register:function(a){k.program=a},require:function(a,c,b){a=document.createElement("script");a.type="text/javascript";a.src=c;a.onload=function(){console.log(Date.now()-k.timestamp+" ms: Library "+c+" loaded");
+b()};document.head.appendChild(a)},isUndefined:function(a){return"undefined"===typeof a},runScript:function(a){var c=a[a.pc],b=a.getValue(c.script),d=c.imports;a=c.module?a.getSymbolRecord(c.module):null;k.tokeniseScript(b.split("\n"),d,a,this)},close:function(){},compileScript:function(c,b,d,e){var f=c.tokens;this.compiling=!0;var h=Date.now();a.value=g;a.condition=m;a.domain=k.domain;a.imports=b;b=a.compile(f);var l=Date.now();console.log(l-k.timestamp+" ms: Compiled "+f.length+" tokens in "+(l-
+h+" ms"));this.compiling=!1;b.EasyCoder=k;b.value=g;b.condition=m;b.compare=p;b.source=c;b.run=this.run;b.runScript=this.runScript;b.evaluate=this.evaluate;b.getValue=this.getValue;b.getFormattedValue=this.getFormattedValue;b.getSimpleValue=this.getSimpleValue;b.encode=this.encode;b.decode=this.decode;b.domain=this.domain;b.trigger=this.trigger;b.require=this.require;b.isUndefined=this.isUndefined;b.checkPlugin=this.checkPlugin;b.getPlugin=this.getPlugin;b.addLocalPlugin=this.addLocalPlugin;b.getPluginsPath=
+this.getPluginsPath;b.getSymbolRecord=this.getSymbolRecord;b.verifySymbol=this.verifySymbol;b.runtimeError=this.runtimeError;b.nonNumericValueError=this.nonNumericValueError;b.variableDoesNotHoldAValueError=this.variableDoesNotHoldAValueError;b.reportError=this.reportError;b.register=this.register;b.symbols=a.getSymbols();b.encoding="ec";b.popups=[];b.stack=[];b.queue=[0];b.module=d;b.parent=e;d&&(d.program=b);return b},tokeniseScript:function(a,d,e,g){var f=null,h=Date.now();a=b.tokenise(a);var l=
+Date.now();console.log(l-k.timestamp+" ms: Tokenised "+a.scriptLines.length+" lines in "+(l-h+" ms"));try{f=k.compileScript(a,d,e,g)}catch(u){"stop"!==u.message&&this.reportError(u,k.program,a)}this.setupTracer();f&&c(f,0)},tokenize:function(a){var b=a.split("\n");if(!e.tokenising){try{k.tokeniseScript(b)}catch(q){k.reportError(q,null,a)}e.tokenising=!0}},setPluginCount:function(a){e.plugins=[];e.pluginCount=a},checkPlugin:function(a){return k.domain[a]},getPlugin:function(a,b,c){k.domain[a]?c():
+(a=document.createElement("script"),a.type="text/javascript",a.src=b,a.onload=function(){console.log(Date.now()-k.timestamp+" ms: Plugin "+b+" loaded");c()},document.head.appendChild(a))},addGlobalPlugin:function(a,b){e.plugins.push({name:a,handler:b});e.plugins.length===e.pluginCount&&(e.plugins.forEach(function(a){k.domain[a.name]=a.handler}),k.tokenize(e.source))},addLocalPlugin:function(a,b,c){k.domain[a]=b;c()},getPluginsPath:function(){return k.pluginsPath},loadPluginJs:function(a){console.log(Date.now()-
+k.timestamp+" ms: Load "+a+"/easycoder/plugins.js");var b=document.createElement("script");b.src=""+window.location.origin+a+"/easycoder/plugins.js";b.type="text/javascript";b.onload=function(){EasyCoder_Plugins.getGlobalPlugins(k.timestamp,a,k.setPluginCount,k.getPlugin,k.addGlobalPlugin)};b.onerror=function(){a?k.loadPluginJs(a.slice(0,a.lastIndexOf("/"))):k.reportError({message:"Can't load plugins.js"},k.program,e.source)};document.head.appendChild(b);k.pluginsPath=a},start:function(a){e.source=
+a;a=window.location.pathname;a.endsWith("/")&&(a=a.slice(0,-1));k.loadPluginJs(a)}};h.exports=k},{"./Compare":2,"./Compile":3,"./Condition":4,"./Core":5,"./Run":7,"./Tokenise":8,"./Value":9}],7:[function(d,h,f){var e=function(b,a){var c=[],d=function(a){var b=9999;a.forEach(function(a){a=a.line;for(var c=0;c<a.length&&" "===a[c];)c++;0<c&&c<b&&(b=c)});return 0};if(c.length)c.push(a);else for(b.register(b),c.push(a);0<c.length&&!EasyCoder.aborted;)for(b.pc=c.shift(),b.watchdog=0,a={};;){if(1E6<b.watchdog){b.lino=
+b[b.pc].lino;b.reportError(Error("Program runaway intercepted.\nHave you forgotten to increment a loop counter?",b),b);break}b.watchdog++;var f=b[b.pc].domain;b.debugStep&&console.log(b.script+" "+b.pc+" "+f+":"+b[b.pc].keyword);var h=b.domain[f];if(!h){b.runtimeError(b[b.pc].lino,"Unknown domain '"+f+"'");break}b.pc=h.run(b);if(!b.pc)break;if(b.stop){b.tracing=!1;return}if(b.tracing){f=b[b.pc];h=b.source.scriptLines;var k=d(h),l=document.getElementById("easycoder-tracer");if(!l){b.runtimeError(f.lino,
+"Element 'easycoder-tracer' was not found");return}l.style.display="block";l.style.visibility="visible";var n="";if(b.tracer){if(l=document.getElementById("easycoder-tracer-content")){b.tracer.variables.forEach(function(a,c,d){var e=b.getSymbolRecord(a);if(1<e.elements)for(n+=a+": "+e.index+"/"+e.elements+": ",a=0;a<e.elements;a++){var g=e.value[a];n=g?n+(g.content+" "):n+"undefined "}else n=(e=e.value[e.index])?n+(a+": "+e.content):n+(a+": undefined");switch(b.tracer.alignment){case "horizontal":c<
+d.length-1&&(n+=", ");break;case "vertical":n+="<br>"}});n+="<hr>";for(var q="",r=5;0<r;r--)f.lino&&(q+='<input type="text" name="'+r+'"'+('value="'+h[f.lino-r].line.substr(k)+'"')+'style="width:100%;border:none;enabled:false">'),q+="<br>";l.innerHTML=n+" "+q;l.style.display="block";a.run=document.getElementById("easycoder-run-button");a.step=document.getElementById("easycoder-step-button");a.run.onclick=function(a){return function(){a.run.blur();b.tracing=!1;document.getElementById("easycoder-tracer-content").style.display=
+"none";try{e(b,b.resume)}catch(t){var c="Error in run handler: "+t.message;console.log(c);alert(c)}}}(a);a.step.onclick=function(a){return function(){console.log("step");a.step.blur();b.tracing=!0;document.getElementById("easycoder-tracer-content").style.display="block";try{e(b,b.resume)}catch(t){var c="Error in step handler: "+t.message;console.log(c);alert(c)}}}(a)}b.resume=b.pc;b.pc=0}break}a={run:a.run,step:a.step}}};h.exports=e},{}],8:[function(d,h,f){var e={markComments:function(b){var a=b.list,
+c=void 0===b.index?0:b.index,d=void 0===b.inComment?!1:b.inComment,f=void 0===b.newList?[]:b.newList;if(c>=a.length)return f;var h=a[c];b=h.lino;h=h.token;var k={list:a,index:c+1,inComment:!1,newList:f.concat({lino:b,index:c,token:h})};f={list:a,index:c+1,inComment:!0,newList:f.concat({lino:b,index:c,comment:!0,token:h})};return d&&0<c&&b===a[c-1].lino?e.markComments(f):"!"===h.charAt(0)?e.markComments(f):e.markComments(k)},findStrings:function(b){var a=b.original,c=b.line,d=void 0===b.inComment?
+!1:b.inComment;b=void 0===b.inQuote?!1:b.inQuote;var f=c.charAt(0),h=b&&[" ","\\t"].includes(f)?"\\s":f;if(1===c.length)return h;c=c.substring(1);if("!"===f&&!b)return f+e.findStrings({original:a,line:c,inComment:!0,inQuote:!1});if("`"===f&&!d&&!b)return f+e.findStrings({original:a,line:c,inComment:d,inQuote:!0});if("`"===f&&b)return f+e.findStrings({original:a,line:c,inComment:d,inQuote:!1});if(!d&&!b&&!f.match(/[A-z0-9_\-+*/\- \t]/)){if(["'",'"'].includes(f))throw Error('Bad syntax in "'+a+'":\nStrings in EasyCoder must be enclosed in backticks.');
+throw Error('Unrecognised character "'+f+'" in "'+a+'".');}return h+e.findStrings({original:a,line:c,inComment:d,inQuote:b})},tokenise:function(b){b=b.map(function(a){var b=a.trim();return b.length?e.findStrings({original:a,line:b}):""}).map(function(a,b){return{lino:b+1,line:a}});var a=b.map(function(a){return a.line.trim().split(/\s+/).map(function(b,c){return{lino:a.lino,index:c,token:b}})});a=[].concat.apply([],a).filter(function(a){return a.token}).map(function(a){return{lino:a.lino,index:a.index,
+token:a.token.split("\\s").join(" ")}});a=e.markComments({list:a}).filter(function(a){return!a.comment});return{scriptLines:b,tokens:a}}};h.exports=e},{}],9:[function(d,h,f){var e={getItem:function(b){var a=b.getToken();if(!a)return null;if("true"===a)return b.next(),{type:"boolean",content:!0};if("false"===a)return b.next(),{type:"boolean",content:!1};if("`"===a.charAt(0))return b.next(),{type:"constant",numeric:!1,content:a.substring(1,a.length-1)};if(a.charAt(0).match(/[0-9-]/)){var c=eval(a);
+if(Number.isInteger(c))return b.next(),{type:"constant",numeric:!0,content:c};throw Error("'"+a+"' is not an integer");}a=b.getIndex();c=$jscomp.makeIterator(Object.keys(b.domain));for(var d=c.next();!d.done;d=c.next())if(d=d.value,b.rewindTo(a),d=b.domain[d].value.compile(b))return d;return null},compile:function(b){var a=b.getToken(),c=e.getItem(b);if(!c)throw Error("Undefined value: '"+a+"'");if("cat"===b.getToken()){for(a={type:"cat",numeric:!1,parts:[c]};b.tokenIs("cat");)b.next(),a.parts.push(b.value.getItem(b));
+return a}return c},doValue:function(b,a){switch(a.type){case "cat":return{type:"constant",numeric:!1,content:a.parts.reduce(function(a,c){return a+e.doValue(b,c).content},"")};case "boolean":case "constant":return a;case "symbol":var c=b.getSymbolRecord(a.name);if(c.isValueHolder){if(a=c.value[c.index]){c=a.content;if(null===c||"undefined"===typeof c)a.content=a.numeric?0:"";return a}return null}return b.domain[c.domain].value.get(b,a)}return b.domain[a.domain].value.get(b,a)},constant:function(b,
+a){return{type:"constant",numeric:a,content:b}},evaluate:function(b,a){if(!a)return{type:"constant",numeric:!1,content:""};var c=e.doValue(b,a);if(c)return c;b.runtimeError(b[b.pc].lino,"Can't decode value: "+a)},getValue:function(b,a){return e.evaluate(b,a).content},encode:function(b,a){if(b)switch(a){case "ec":return b.replace(/'/g,"~sq~").replace(/"/g,"~dq~").replace(/\n/g,"%0a").replace(/\r/g,"%0d");case "url":return encodeURIComponent(b.replace(/\s/g,"+"));case "sanitize":return b.normalize("NFD").replace(/[\u0300-\u036f]/g,
+"")}return b},decode:function(b,a){if(b)switch(a){case "ec":return b.replace(/~dq~/g,'"').replace(/~sq~/g,"'").replace(/%0a/g,"\n").replace(/%0d/g,"\r");case "url":return decodeURIComponent(b).replace(/\+/g," ")}return b}};h.exports=e},{}]},{},[1]);

easycoder/trunk/easycoder.js

-                      r2016526
+                      r2038748
 // EasyCoder
 const EasyCoder = require('./easycoder/Main');
+const EasyCoder = require(`./easycoder/Main`);
 EasyCoder.timestamp = Date.now();
 …
 window.onload = function () {
   console.log(`${Date.now() - EasyCoder.timestamp} ms: Page loaded; reset timer & start EasyCoder`);
   EasyCoder.timestamp = Date.now();
   EasyCoder.scripts = {};
   window.EasyCoder = EasyCoder;
   const script = document.getElementById('easycoder-script');
   if (script) {
     script.style.display = 'none';
     try {
       EasyCoder.start(script.innerText);
     } catch (err) {
       EasyCoder.reportError(err);
+    }
+  }
+    console.log(`${Date.now() - EasyCoder.timestamp} ms: Page loaded; reset timer & start EasyCoder`);
+    EasyCoder.timestamp = Date.now();
+    EasyCoder.scripts = {};
+    window.EasyCoder = EasyCoder;
+    const script = document.getElementById(`easycoder-script`);
+    if (script) {
+        script.style.display = `none`;
+        try {
+            EasyCoder.start(script.innerText);
+        } catch (err) {
+            EasyCoder.reportError(err);
+        }
+    }
 };
 },{"./easycoder/Main":6}],2:[function(require,module,exports){
 …
         v2 = v2.toString();
+    }
+    if (!val1.numeric && typeof v1 === `undefined`) {
+        v1 = ``;
+    }
+    if (!val2.numeric && typeof v2 === `undefined`) {
+        v2 = ``;
+    }
     if (v1 > v2) {
         return 1;
 …
     rewind: () => {
         _this.index = _this.savedMark;
+    },
+    rewindTo: index => {
+        _this.index = index;
     },
 …
             return;
+        }
         //      console.log(`Compile keyword '${keyword}'`);
+        // console.log(`Compile keyword '${keyword}'`);
         _this.warnings = [];
         const pc = _this.program.length;
 …
     },
+    Callback: {
+        compile: compiler => {
+            compiler.compileVariable(`core`, `callback`);
+            return true;
+        },
+        run: program => {
+            return program[program.pc].pc + 1;
+        }
+    },
     Clear: {
 …
             compiler.next();
             if (compiler.isSymbol()) {
+                const symbol = compiler.getToken();
+                compiler.next();
+                compiler.addCommand({
+                    domain: `core`,
+                    keyword: `clear`,
+                    lino,
+                    symbol
+                });
+                return true;
+                const symbolRecord = compiler.getSymbolRecord();
+                if (symbolRecord.isValueHolder) {
+                    const symbol = compiler.getToken();
+                    compiler.next();
+                    compiler.addCommand({
+                        domain: `core`,
+                        keyword: `clear`,
+                        lino,
+                        symbol
+                    });
+                    return true;
+                }
+                compiler.warning(`'Variable '${symbolRecord.name}' does not hold a value`);
+            }
             return false;
 …
             } else {
                 // Here we should already have the target.
                 if (target === undefined) {
+                if (typeof target === `undefined`) {
                     compiler.warning(`core ${_this.name}: No target variable given`);
+                }
 …
             const lino = compiler.getLino();
             compiler.next();
             if (compiler.tokenIs(`to`)) {
+            if (compiler.nextTokenIs(`to`)) {
                 compiler.next();
+            }
 …
         compile: compiler => {
             const lino = compiler.getLino();
+            compiler.next();
+            if (compiler.tokenIs(`to`)) {
+            if (compiler.nextTokenIs(`to`)) {
                 compiler.next();
+            }
 …
                         return pc.pc;
+                    }
                     program.runtimeError(command.lino, `Unknown symbol '${command.label}'`);
                     return 0;
+                }
+                }
+                program.runtimeError(command.lino, `Unknown symbol '${command.label}'`);
+                return 0;
+            }
             return command.goto;
 …
         compile: compiler => {
             const lino = compiler.getLino();
+            compiler.next();
+            if (compiler.tokenIs(`to`)) {
+            if (compiler.nextTokenIs(`to`)) {
                 compiler.next();
+            }
 …
+                }
+            }
+            if (compiler.tokenIs(`and`)) {
+                throw new Error(`Imports do not match exports`);
+            }
             return true;
         },
 …
         compile: compiler => {
             const lino = compiler.getLino();
+            compiler.next();
+            if (compiler.tokenIs(`plugin`)) {
+                compiler.next();
+                const name = compiler.getValue();
+                compiler.addCommand({
+                    domain: `core`,
+                    keyword: `load`,
+                    lino,
+                    name
+                });
+                return true;
+            }
+            const type = compiler.nextToken();
+            switch (type) {
+                case `plugin`:
+                    const name = compiler.getNextValue();
+                    compiler.addCommand({
+                        domain: `core`,
+                        keyword: `load`,
+                        lino,
+                        name
+                    });
+                    return true;
+            }
+            return false;
         },
 …
             const command = program[program.pc];
             const name = program.getValue(command.name);
+            if (program.checkPlugin(name)) {
+                return command.pc + 1;
+            }
+            EasyCoder_Plugins.getLocalPlugin(program.getPluginsPath, name, program.getPlugin, program.addLocalPlugin, function () {
+                program.run(command.pc + 1);
+            });
+            return 0;
+            switch (command.keyword) {
+                case `load`:
+                    if (program.checkPlugin(name)) {
+                        return command.pc + 1;
+                    }
+                    EasyCoder_Plugins.getLocalPlugin(program.getPluginsPath, name, program.getPlugin, program.addLocalPlugin, function () {
+                        program.run(command.pc + 1);
+                    });
+                    return 0;
+            }
+        }
     },
 …
             } else {
                 // Here we should already have the target.
                 if (target === undefined) {
+                if (typeof target === `undefined`) {
                     compiler.warning(`core multiply: No target variable given`);
+                }
 …
             const lino = compiler.getLino();
             const action = compiler.nextToken();
-            compiler.next();
             switch (action) {
                 case `trigger`:
                 case `close`:
                 case `restore`:
+                case `message`:
+                    compiler.next();
                     compiler.addCommand({
                         domain: `core`,
 …
                     return compiler.completeHandler();
+            }
+            if (compiler.isSymbol()) {
+                const symbolRecord = compiler.getSymbolRecord();
+                if (symbolRecord.keyword === `callback`) {
+                    compiler.next();
+                    compiler.addCommand({
+                        domain: `core`,
+                        keyword: `on`,
+                        lino,
+                        action: symbolRecord.name
+                    });
+                    return compiler.completeHandler();
+                }
+            }
             return false;
         },
 …
         run: program => {
             const command = program[program.pc];
+            const cb = command.pc + 2;
             switch (command.action) {
                 case `trigger`:
                     program.onTrigger = command.pc + 2;
+                    program.onTrigger = cb;
                     break;
                 case `close`:
                     program.onClose = command.pc + 2;
+                    program.onClose = cb;
                     break;
                 case `restore`:
+                    program.onRestore = command.pc + 2;
+                    program.onRestore = cb;
+                    break;
+                case `message`:
+                    program.onMessage = cb;
                     break;
                 default:
+                    program.runtimeError(command.lino, `Unknown action '${command.action}'`);
+                    return 0;
+                    const callbacklRecord = program.getSymbolRecord(command.action);
+                    if (callbacklRecord) {
+                        callbacklRecord.cb = cb;
+                    } else {
+                        program.runtimeError(command.lino, `Unknown action '${command.action}'`);
+                        return 0;
+                    }
+            }
             return command.pc + 1;
 …
             const command = program[program.pc];
             const original = program.getValue(command.original);
             const org = original.split(`\\r`).join(`\r`).split(`\\n`).join(`\n`);
+            // const org = original.split(`\\r`).join(`\r`).split(`\\n`).join(`\n`);
             const replacement = program.getValue(command.replacement);
             const target = program.getSymbolRecord(command.target);
             const value = program.getValue(target.value[target.index]);
             const content = value.split(org).join(replacement);
+            const content = value.split(original).join(replacement);
             target.value[target.index] = {
                 type: `constant`,
 …
     },
+    Send: {
+        compile: compiler => {
+            const lino = compiler.getLino();
+            const message = compiler.getNextValue();
+            var recipient;
+            if (compiler.tokenIs(`to`)) {
+                if (compiler.nextTokenIs(`parent`)) {
+                    recipient = `parent`;
+                } else if (compiler.isSymbol) {
+                    const moduleRecord = compiler.getSymbolRecord();
+                    if (moduleRecord.keyword !== `module`) {
+                        throw new Error(`'${moduleRecord.name}' is not a module`);
+                    }
+                    recipient = moduleRecord.name;
+                }
+                compiler.next();
+                compiler.addCommand({
+                    domain: `core`,
+                    keyword: `send`,
+                    lino,
+                    message,
+                    recipient
+                });
+            }
+            return true;
+        },
+        run: program => {
+            const command = program[program.pc];
+            const message = program.getValue(command.message);
+            if (command.recipient === `parent`) {
+                const parent = program.parent;
+                if (parent) {
+                    const onMessage = program.parent.onMessage;
+                    if (onMessage) {
+                        parent.message = message;
+                        parent.run(parent.onMessage);
+                    }
+                }
+            } else {
+                const recipient = program.getSymbolRecord(command.recipient);
+                recipient.program.message = message;
+                recipient.program.run(recipient.program.onMessage);
+            }
+            return command.pc + 1;
+        }
+    },
     Set: {
         compile: compiler => {
             const lino = compiler.getLino();
+            compiler.next();
+            if (compiler.isSymbol()) {
+            if (compiler.nextIsSymbol()) {
                 const targetRecord = compiler.getSymbolRecord();
                 if (!targetRecord.isValueHolder) {
                     return false;
+                }
+                compiler.next();
+                if (compiler.tokenIs(`to`)) {
+                if (compiler.nextTokenIs(`to`)) {
                     compiler.next();
                     const value = [];
 …
                         keyword: `set`,
                         lino,
                         type: `setArray`,
+                        request: `setArray`,
                         target: targetRecord.name,
                         value
 …
                     keyword: `set`,
                     lino,
                     type: `setBoolean`,
+                    request: `setBoolean`,
                     target: targetRecord.name
                 });
 …
                     keyword: `set`,
                     lino,
                     type: `setReady`
+                    request: `setReady`
                 });
                 return true;
+            }
+            if (compiler.tokenIs(`property`)) {
+                const name = compiler.getNextValue();
+                if (compiler.tokenIs(`of`)) {
+                    if (compiler.nextIsSymbol()) {
+                        const targetRecord = compiler.getSymbolRecord();
+                        if (targetRecord.keyword === `variable`) {
+                            if (compiler.nextTokenIs(`to`)) {
+                                const value = compiler.getNextValue();
+                                compiler.addCommand({
+                                    domain: `core`,
+                                    keyword: `set`,
+                                    lino,
+                                    request: `setProperty`,
+                                    target: targetRecord.name,
+                                    name,
+                                    value
+                                });
+                                return true;
+                            }
+                        }
+                    }
+                }
+            }
             if (compiler.tokenIs(`the`)) {
 …
                             keyword: `set`,
                             lino,
                             type: `setElements`,
+                            request: `setElements`,
                             symbol,
                             value
 …
+            }
             if (compiler.tokenIs(`encoding`)) {
+                compiler.next();
+                if (compiler.tokenIs(`to`)) {
+                    compiler.next();
+                    const encoding = compiler.getValue();
+                if (compiler.nextTokenIs(`to`)) {
+                    const encoding = compiler.getNextValue();
                     compiler.addCommand({
                         domain: `core`,
                         keyword: `set`,
                         type: `encoding`,
+                        request: `encoding`,
                         lino,
                         encoding
 …
                 return false;
+            }
+            if (compiler.tokenIs(`payload`)) {
+                if (compiler.nextTokenIs(`of`)) {
+                    if (compiler.nextIsSymbol()) {
+                        const callbackRecord = compiler.getSymbolRecord();
+                        if (callbackRecord.keyword === `callback`) {
+                            if (compiler.nextTokenIs(`to`)) {
+                                const payload = compiler.getNextValue();
+                                compiler.addCommand({
+                                    domain: `core`,
+                                    keyword: `set`,
+                                    request: `setPayload`,
+                                    lino,
+                                    callback: callbackRecord.name,
+                                    payload
+                                });
+                                return true;
+                            }
+                        }
+                    }
+                }
+            }
             return false;
         },
         run: program => {
+            let targetRecord;
             const command = program[program.pc];
             switch (command.type) {
+            switch (command.request) {
                 case `setBoolean`:
                     const target = program.getSymbolRecord(command.target);
 …
                     symbol.index = 0;
                     symbol.value = [];
+                    symbol.element = [];
                     for (var n = 0; n < symbol.elements; n++) {
                         symbol.value.push({});
                         symbol.element.push(``);
+                        symbol.element.push({});
+                    }
                     break;
                 case `setArray`:
                     const targetRecord = program.getSymbolRecord(command.target);
+                    targetRecord = program.getSymbolRecord(command.target);
                     targetRecord.elements = command.value.length;
                     targetRecord.value = command.value;
 …
                 case `encoding`:
                     program.encoding = program.getValue(command.encoding);
+                    break;
+                case `setProperty`:
+                    targetRecord = program.getSymbolRecord(command.target);
+                    let targetValue = program.getValue(targetRecord.value[targetRecord.index]);
+                    if (!targetValue) {
+                        targetValue = `{}`;
+                    }
+                    let targetJSON = ``;
+                    try {
+                        targetJSON = JSON.parse(targetValue);
+                    } catch (err) {
+                        program.runtimeError(command.lino, `Can't parse ${targetRecord.name}`);
+                        return 0;
+                    }
+                    const itemName = program.getValue(command.name);
+                    const itemValue = program.evaluate(command.value);
+                    if (itemValue) {
+                        if (itemValue.type === `boolean`) {
+                            targetJSON[itemName] = itemValue.content;
+                        } else {
+                            targetJSON[itemName] = itemValue.numeric ? itemValue.content : itemValue.content.substr(0, 2) === `{"` ? JSON.parse(itemValue.content) : itemValue.content.split(`"`).join(`\\"`);
+                        }
+                        targetRecord.value[targetRecord.index] = {
+                            type: `constant`,
+                            numeric: false,
+                            content: JSON.stringify(targetJSON)
+                        };
+                    }
+                    break;
+                case `setPayload`:
+                    program.getSymbolRecord(command.callback).payload = program.getValue(command.payload);
                     break;
                 default:
 …
             case `begin`:
                 return EasyCoder_Core.Begin;
+            case `callback`:
+                return EasyCoder_Core.Callback;
             case `clear`:
                 return EasyCoder_Core.Clear;
 …
             case `script`:
                 return EasyCoder_Core.Script;
+            case `send`:
+                return EasyCoder_Core.Send;
             case `set`:
                 return EasyCoder_Core.Set;
 …
                 };
+            }
+            if (token === `break`) {
+                compiler.next();
+                return {
+                    domain: `core`,
+                    type: `break`
+                };
+            }
             if (token === `encode`) {
                 compiler.next();
 …
                 compiler.next();
+            }
+            switch (compiler.getToken()) {
+            const type = compiler.getToken();
+            switch (type) {
+                case `elements`:
                 case `index`:
+                    compiler.next();
+                    if (compiler.tokenIs(`of`)) {
+                        compiler.next();
+                        if (compiler.isSymbol()) {
+                    if (compiler.nextTokenIs(`of`)) {
+                        if (compiler.nextIsSymbol()) {
                             const name = compiler.getToken();
                             compiler.next();
                             return {
                                 domain: `core`,
                                 type: `index`,
+                                type,
                                 name
                             };
 …
                     break;
                 case `value`:
+                    compiler.next();
+                    if (compiler.tokenIs(`of`)) {
+                    if (compiler.nextTokenIs(`of`)) {
                         compiler.next();
                         const value = compiler.getValue();
 …
                     break;
                 case `length`:
+                    compiler.next();
+                    if (compiler.tokenIs(`of`)) {
+                    if (compiler.nextTokenIs(`of`)) {
                         compiler.next();
                         const value = compiler.getValue();
 …
                     break;
                 case `left`:
                     compiler.next();
                     const leftCount = compiler.getValue();
+                case `right`:
+                    const count = compiler.getNextValue();
                     if (compiler.tokenIs(`of`)) {
+                        compiler.next();
+                        const leftValue = compiler.getValue();
+                        const value = compiler.getNextValue();
                         return {
                             domain: `core`,
                             type: `left`,
                             count: leftCount,
                             value: leftValue
+                            type,
+                            count,
+                            value
                         };
+                    }
                     break;
                 case `right`:
                     compiler.next();
                     const rightCount = compiler.getValue();
+                case `from`:
+                    const from = compiler.getNextValue();
+                    const to = compiler.tokenIs(`to`) ? compiler.getNextValue() : null;
                     if (compiler.tokenIs(`of`)) {
+                        compiler.next();
+                        const rightValue = compiler.getValue();
+                        const value = compiler.getNextValue();
                         return {
                             domain: `core`,
+                            type: `right`,
+                            count: rightCount,
+                            value: rightValue
+                            type,
+                            from,
+                            to,
+                            value
                         };
+                    }
                     break;
                 case `position`:
+                    compiler.next();
+                    if (compiler.tokenIs(`of`)) {
+                        compiler.next();
+                    if (compiler.nextTokenIs(`of`)) {
                         var last = false;
+                        if (compiler.tokenIs(`the`)) {
+                            compiler.next();
+                            if (compiler.tokenIs(`last`)) {
+                        if (compiler.nextTokenIs(`the`)) {
+                            if (compiler.nextTokenIs(`last`)) {
                                 compiler.next();
                                 last = true;
 …
                         const needle = compiler.getValue();
                         if (compiler.tokenIs(`in`)) {
+                            compiler.next();
+                            const haystack = compiler.getValue();
+                            const haystack = compiler.getNextValue();
                             return {
                                 domain: `core`,
 …
+                    }
                     break;
+                case `payload`:
+                    if (compiler.nextTokenIs(`of`)) {
+                        if (compiler.nextIsSymbol()) {
+                            const callbackRecord = compiler.getSymbolRecord();
+                            if (callbackRecord.keyword === `callback`) {
+                                compiler.next();
+                                return {
+                                    domain: `core`,
+                                    type: `payload`,
+                                    callback: callbackRecord.name
+                                };
+                            }
+                        }
+                    }
+                    break;
+                case `message`:
+                case `error`:
+                    compiler.next();
+                    return {
+                        domain: `core`,
+                        type
+                    };
+            }
             return null;
 …
                         numeric: false,
                         content: value.content
+                    };
+                case `elements`:
+                    return {
+                        type: `constant`,
+                        numeric: true,
+                        content: program.getSymbolRecord(value.name).elements
                     };
                 case `index`:
 …
                     };
                 case `right`:
-                    const rstr = program.getValue(value.value);
                     return {
                         type: `constant`,
                         numeric: false,
+                        content: rstr.substr(rstr.length - program.getValue(value.count))
+                        content: program.getValue(value.value).substr(rstr.length - program.getValue(value.count))
+                    };
+                case `from`:
+                    const from = program.getValue(value.from);
+                    const to = value.to ? program.getVaue(value.to) : null;
+                    const fstr = program.getValue(value.value);
+                    return {
+                        type: `constant`,
+                        numeric: false,
+                        content: to ? fstr.substr(from, to) : fstr.substr(from)
                     };
                 case `position`:
 …
                         numeric: true,
                         content: value.last ? haystack.lastIndexOf(needle) : haystack.indexOf(needle)
+                    };
+                case `payload`:
+                    return {
+                        type: `constant`,
+                        numeric: false,
+                        content: program.getSymbolRecord(value.callback).payload
                     };
                 case `modulo`:
 …
                         numeric: false,
                         content: `\n`
+                    };
+                case `break`:
+                    return {
+                        type: `constant`,
+                        numeric: false,
+                        content: `<br />`
                     };
                 case `encode`:
 …
                     const propertyContent = program.getValue(propertyRecord.value[propertyRecord.index]);
                     var content = ``;
+                    if (typeof propertyContent === `object`) {
+                        content = propertyContent[property];
+                    } else {
+                        try {
+                            content = JSON.parse(propertyContent)[property];
+                        } catch (err) {
+                            console.log(`Can't parse '${propertyContent}': ${err.message}`);
+                            content = ``;
+                    if (property && propertyContent) {
+                        if (typeof propertyContent === `object`) {
+                            content = propertyContent[property];
+                        } else if (propertyContent.charAt(0) === `{`) {
+                            try {
+                                content = JSON.parse(propertyContent)[property];
+                            } catch (err) {
+                                console.log(`Can't parse '${propertyContent}': ${err.message}`);
+                            }
+                        }
+                    }
 …
                         type: `constant`,
                         numeric: Number.isInteger(content),
                         content
+                        content: typeof content === `object` ? JSON.stringify(content) : content
                     };
                 case `module`:
 …
                         numeric: false,
                         content: module.program
+                    };
+                case `message`:
+                    content = program.message;
+                    return {
+                        type: `constant`,
+                        numeric: false,
+                        content
+                    };
+                case `error`:
+                    content = program.errorMessage;
+                    return {
+                        type: `constant`,
+                        numeric: false,
+                        content
                     };
+            }
 …
+                }
             } catch (err) {
                 program.runtimeError(command.lino, err.message);
+                compiler.warning(`Can't get a value`);
                 return 0;
+            }
 …
     getFormattedValue: function (value) {
+        const v = EasyCoder_Value.getValue(this, value);
+        if ([`[`, `{`].includes(v[0])) {
+            return JSON.stringify(JSON.parse(v), null, 2);
+        }
+        return v;
+        const v = EasyCoder_Value.evaluate(this, value);
+        if (v.numeric) {
+            return v.content;
+        }
+        if (v.content.substr(0, 2) === `{"` || v.content.charAt(0) === `[`) {
+            return JSON.stringify(JSON.parse(v.content), null, 2);
+        }
+        return v.content;
     },
 …
     run: function (pc) {
+        EasyCoder.program = this;
+        EasyCoder_Run(this, pc);
+        if (pc) {
+            EasyCoder.program = this;
+            EasyCoder_Run(this, pc);
+        }
     },
 …
     },
+    addJS: function (name, path, loaded) {
+    register: program => {
+        EasyCoder.program = program;
+    },
+    require: (program, src, cb) => {
         const script = document.createElement(`script`);
         script.type = `text/javascript`;
         script.src = `${path}/${name}.js`;
+        script.src = src;
         script.onload = function () {
+            loaded(name);
+            console.log(`${Date.now() - EasyCoder.timestamp} ms: Library ${src} loaded`);
+            cb();
         };
         document.head.appendChild(script);
     },
     register: program => {
         EasyCoder.program = program;
+    isUndefined: item => {
+        return typeof item === `undefined`;
     },
 …
         program.domain = this.domain;
         program.trigger = this.trigger;
+        program.addJS = this.addJS;
+        program.require = this.require;
+        program.isUndefined = this.isUndefined;
         program.checkPlugin = this.checkPlugin;
         program.getPlugin = this.getPlugin;
 …
             module.program = program;
+        }
+        this.setupTracer();
+        //    console.log('Run the script');
+        EasyCoder_Run(program, 0);
+        //  console.log('Program: '+ JSON.stringify(program, null, 2));
+        return program;
     },
     tokeniseScript: function (file, imports, module, parent) {
         //  console.log('Tokenise script: ');
+        let program = null;
         const startTokenise = Date.now();
         const source = EasyCoder_Tokenise.tokenise(file);
 …
         //  console.log('Source: ' + JSON.stringify(source, null, 2));
         try {
             EasyCoder.compileScript(source, imports, module, parent);
+            program = EasyCoder.compileScript(source, imports, module, parent);
         } catch (err) {
             if (err.message !== `stop`) {
                 this.reportError(err, EasyCoder.program, source);
+            }
+        }
+        this.setupTracer();
+        //    console.log('Run the script');
+        if (program) {
+            //  console.log('Program: '+ JSON.stringify(program, null, 2));
+            EasyCoder_Run(program, 0);
+        }
     },
 …
     },
+    loadPluginJs: pathname => {
+        console.log(`${Date.now() - EasyCoder.timestamp} ms: Load plugins.js`);
+        const fullPath = `${window.location.origin}${pathname}/easycoder/plugins.js`;
+        const ajax = new XMLHttpRequest();
+        ajax.open(`GET`, fullPath, true);
+        ajax.onreadystatechange = function () {
+            if (ajax.readyState === 4) {
+                switch (ajax.status) {
+                    case 200:
+                        const script = document.createElement(`script`);
+                        script.src = `${window.location.origin}${pathname}/easycoder/plugins.js`;
+                        script.type = `text/javascript`;
+                        script.onload = function () {
+                            EasyCoder_Plugins.getGlobalPlugins(EasyCoder.timestamp, pathname, EasyCoder.setPluginCount, EasyCoder.getPlugin, EasyCoder.addGlobalPlugin);
+                        };
+                        document.head.appendChild(script);
+                        EasyCoder.pluginsPath = pathname;
+                        break;
+                    case 404:
+                        if (pathname) {
+                            EasyCoder.loadPluginJs(pathname.slice(0, pathname.lastIndexOf(`/`)));
+                        } else {
+                            EasyCoder.reportError({
+                                message: `Can't load plugins.js`
+                            }, EasyCoder.program, this.source);
+                        }
+                        break;
+                }
+            }
+    loadPluginJs: path => {
+        console.log(`${Date.now() - EasyCoder.timestamp} ms: Load ${path}/easycoder/plugins.js`);
+        const script = document.createElement(`script`);
+        script.src = `${window.location.origin}${path}/easycoder/plugins.js`;
+        script.type = `text/javascript`;
+        script.onload = function () {
+            EasyCoder_Plugins.getGlobalPlugins(EasyCoder.timestamp, path, EasyCoder.setPluginCount, EasyCoder.getPlugin, EasyCoder.addGlobalPlugin);
         };
+        ajax.send();
+        script.onerror = () => {
+            if (path) {
+                EasyCoder.loadPluginJs(path.slice(0, path.lastIndexOf(`/`)));
+            } else {
+                EasyCoder.reportError({
+                    message: `Can't load plugins.js`
+                }, EasyCoder.program, _this.source);
+            }
+        };
+        document.head.appendChild(script);
+        EasyCoder.pluginsPath = path;
     },
 …
     }) => {
         const c = line.charAt(0);
         const ch = inQuote && c === ` ` ? `\\s` : c;
+        const ch = inQuote && [` `, `\\t`].includes(c) ? `\\s` : c;
         if (line.length === 1) {
             return ch;
 …
                 return c + EasyCoder_Tokenise.findStrings({ original, line: tail, inComment, inQuote: false });
+            }
             if (!inComment && !inQuote && !c.match(/[A-z0-9_\-+*/\- ]/)) {
                 if (c == `'` || c == `"`) {
+            if (!inComment && !inQuote && !c.match(/[A-z0-9_\-+*/\- \t]/)) {
+                if ([`'`, `"`].includes(c)) {
                     throw new Error(`Bad syntax in "${original}":\nStrings in EasyCoder must be enclosed in backticks.`);
                 } else {
 …
         // Convert quoted spaces to \\s
+        const markedSpaces = file.map(line => {
+        const markedSpaces = file.map(original => {
+            const line = original.trim();
             if (line.length) {
                 return EasyCoder_Tokenise.findStrings({ original: line, line });
+                return EasyCoder_Tokenise.findStrings({ original, line });
+            }
             return ``;
 …
 const EasyCoder_Value = {
+  getItem: compiler => {
+    const token = compiler.getToken();
+    if (!token) {
+      return null;
+    }
+    // Check for a boolean
+    if (token === 'true') {
+      compiler.next();
+      return {
+        type: 'boolean',
+        content: true
+      };
+    }
+    if (token === 'false') {
+      compiler.next();
+      return {
+        type: 'boolean',
+        content: false
+      };
+    }
+    // Check for a string constant
+    if (token.charAt(0) === '`') {
+      compiler.next();
+      const value = {
+        type: 'constant',
+        numeric: false,
+        content: token.substring(1, token.length - 1)
+      };
+      return value;
+    }
+    // Check for a numeric constant
+    if (token[0].match(/[0-9\-]/)) {
+      const val = eval(token);
+      if (Number.isInteger(val)) {
+        compiler.next();
+        const value = {
+          type: 'constant',
+          numeric: true,
+          content: val
+        };
+        return value;
+      } else {
+        throw new Error(`'${token}' is not an integer`);
+      }
+    }
+    // See if any of the domains can handle it
+    for (const name of Object.keys(compiler.domain)) {
+      const handler = compiler.domain[name];
+      const code = handler.value.compile(compiler);
+      if (code) {
+        return code;
+      }
+    }
+    return null;
+  },
+  compile: compiler => {
+    const token = compiler.getToken();
+    const item = compiler.value.getItem(compiler);
+    if (!item) {
+      throw new Error(`Undefined value: '${token}'`);
+    }
+    if (compiler.getToken() === 'cat') {
+      const value = {
+        type: 'cat',
+        numeric: false,
+        parts: [item]
+      };
+      while (compiler.tokenIs('cat')) {
+        compiler.next();
+        value.parts.push(compiler.value.getItem(compiler));
+      }
+      return value;
+    }
+    return item;
+  },
+  // runtime
+  doValue: (program, value) => {
+    //  console.log('Value:doValue:value: '+JSON.stringify(value,null,2));
+    // See if it's a constant string, a variable or something else
+    const type = value.type;
+    switch (type) {
+      case 'cat':
+        return {
+          type: 'constant',
+          numeric: false,
+          content: value.parts.reduce(function (acc, part) {
+            return acc + EasyCoder_Value.doValue(program, part).content;
+          }, '')
+        };
+      case 'boolean':
+      case 'constant':
+        return value;
+      case 'symbol':
+        const symbol = program.getSymbolRecord(value.name);
+        if (symbol.isValueHolder) {
+          const symbolValue = symbol.value[symbol.index];
+          if (symbolValue) {
+            const v = symbolValue.content;
+            if (v === null) {
+              symbolValue.content = symbolValue.numeric ? 0 : '';
+            }
+            return symbolValue;
+          } else {
+            return null;
+          }
+        } else {
+          const handler = program.domain[symbol.domain].value;
+          return handler.get(program, value);
+        }
+        break;
+      default:
+        break;
+    }
+    // Call the given domain to handle a value
+    const handler = program.domain[value.domain].value;
+    return handler.get(program, value);
+  },
+  constant: (content, numeric) => {
+    return {
+      type: 'constant',
+      numeric,
+      content
+    };
+  },
+  // runtime
+  evaluate: (program, value) => {
+    if (!value) {
+      return {
+        type: 'constant',
+        numeric: false,
+        content: ''
+      };
+    }
+    const result = EasyCoder_Value.doValue(program, value);
+    if (result) {
+      return result;
+    }
+    program.runtimeError(program[program.pc].lino, 'Can\'t decode value: ' + value);
+  },
+  getValue: (program, value) => {
+    return EasyCoder_Value.evaluate(program, value).content;
+  },
+  // tools
+  encode: (value, encoding) => {
+    if (value) {
+      switch (encoding) {
+        case 'ec':
+          return value.replace(/\'/g, "~sq~").replace(/\"/g, '~dq~');
+        case 'url':
+          return encodeURIComponent(value.replace(/\s/g, '+'));
+      }
+    }
+    return value;
+  },
+  decode: (value, encoding) => {
+    if (value) {
+      switch (encoding) {
+        case 'ec':
+          return value.replace(/~dq~/g, '"').replace(/~sq~/g, "'");
+        case 'url':
+          const decoded = decodeURIComponent(value);
+          return decoded.replace(/\+/g, ' ');
+      }
+    }
+    return value;
+  }
+    getItem: compiler => {
+        const token = compiler.getToken();
+        if (!token) {
+            return null;
+        }
+        // Check for a boolean
+        if (token === `true`) {
+            compiler.next();
+            return {
+                type: `boolean`,
+                content: true
+            };
+        }
+        if (token === `false`) {
+            compiler.next();
+            return {
+                type: `boolean`,
+                content: false
+            };
+        }
+        // Check for a string constant
+        if (token.charAt(0) === `\``) {
+            compiler.next();
+            const value = {
+                type: `constant`,
+                numeric: false,
+                content: token.substring(1, token.length - 1)
+            };
+            return value;
+        }
+        // Check for a numeric constant
+        if (token.charAt(0).match(/[0-9-]/)) {
+            const val = eval(token);
+            if (Number.isInteger(val)) {
+                compiler.next();
+                const value = {
+                    type: `constant`,
+                    numeric: true,
+                    content: val
+                };
+                return value;
+            } else {
+                throw new Error(`'${token}' is not an integer`);
+            }
+        }
+        // See if any of the domains can handle it
+        const index = compiler.getIndex();
+        for (const name of Object.keys(compiler.domain)) {
+            compiler.rewindTo(index);
+            const handler = compiler.domain[name];
+            const code = handler.value.compile(compiler);
+            if (code) {
+                return code;
+            }
+        }
+        return null;
+    },
+    compile: compiler => {
+        const token = compiler.getToken();
+        const item = EasyCoder_Value.getItem(compiler);
+        if (!item) {
+            throw new Error(`Undefined value: '${token}'`);
+        }
+        if (compiler.getToken() === `cat`) {
+            const value = {
+                type: `cat`,
+                numeric: false,
+                parts: [item]
+            };
+            while (compiler.tokenIs(`cat`)) {
+                compiler.next();
+                value.parts.push(compiler.value.getItem(compiler));
+            }
+            return value;
+        }
+        return item;
+    },
+    // runtime
+    doValue: (program, value) => {
+        //  console.log('Value:doValue:value: '+JSON.stringify(value,null,2));
+        // See if it's a constant string, a variable or something else
+        const type = value.type;
+        switch (type) {
+            case `cat`:
+                return {
+                    type: `constant`,
+                    numeric: false,
+                    content: value.parts.reduce(function (acc, part) {
+                        return acc + EasyCoder_Value.doValue(program, part).content;
+                    }, ``)
+                };
+            case `boolean`:
+            case `constant`:
+                return value;
+            case `symbol`:
+                const symbol = program.getSymbolRecord(value.name);
+                if (symbol.isValueHolder) {
+                    const symbolValue = symbol.value[symbol.index];
+                    if (symbolValue) {
+                        const v = symbolValue.content;
+                        if (v === null || typeof v === `undefined`) {
+                            symbolValue.content = symbolValue.numeric ? 0 : ``;
+                        }
+                        return symbolValue;
+                    } else {
+                        return null;
+                    }
+                } else {
+                    const handler = program.domain[symbol.domain].value;
+                    return handler.get(program, value);
+                }
+            default:
+                break;
+        }
+        // Call the given domain to handle a value
+        const handler = program.domain[value.domain].value;
+        return handler.get(program, value);
+    },
+    constant: (content, numeric) => {
+        return {
+            type: `constant`,
+            numeric,
+            content
+        };
+    },
+    // runtime
+    evaluate: (program, value) => {
+        if (!value) {
+            return {
+                type: `constant`,
+                numeric: false,
+                content: ``
+            };
+        }
+        const result = EasyCoder_Value.doValue(program, value);
+        if (result) {
+            return result;
+        }
+        program.runtimeError(program[program.pc].lino, `Can't decode value: ` + value);
+    },
+    getValue: (program, value) => {
+        return EasyCoder_Value.evaluate(program, value).content;
+    },
+    // tools
+    encode: (value, encoding) => {
+        if (value) {
+            switch (encoding) {
+                case `ec`:
+                    return value.replace(/'/g, `~sq~`).replace(/"/g, `~dq~`).replace(/\n/g, `%0a`).replace(/\r/g, `%0d`);
+                case `url`:
+                    return encodeURIComponent(value.replace(/\s/g, `+`));
+                case `sanitize`:
+                    return value.normalize(`NFD`).replace(/[\u0300-\u036f]/g, ``);
+            }
+        }
+        return value;
+    },
+    decode: (value, encoding) => {
+        if (value) {
+            switch (encoding) {
+                case `ec`:
+                    return value.replace(/~dq~/g, `"`).replace(/~sq~/g, `'`).replace(/%0a/g, `\n`).replace(/%0d/g, `\r`);
+                case `url`:
+                    const decoded = decodeURIComponent(value);
+                    return decoded.replace(/\+/g, ` `);
+            }
+        }
+        return value;
+    }
 };

easycoder/trunk/easycoder.php

-                      r2016526
+                      r2038748
   * Plugin URI: https://easycoder.software
   * Description: Control the appearance and behavior of your posts and pages by embedding simple English-like scripts, without the need to learn JavaScript.
   * Version: 2.1.9
+  * Version: 2.2.0
   * Author: EasyCoder Software
   * Author URI: https://easycoder.software
 …
   function easycoder_enqueue_script() {
     wp_enqueue_script('easycoder_script', plugin_dir_url( __FILE__ )
             . 'easycoder-min.js', array(), '2.1.9');
+            . 'easycoder-min.js', array(), '2.2.0');
+  }

easycoder/trunk/ec-rest.txt

r1990067	r2038748
22	22	# You can create a hash value using this URL:
23	23	# {Your website}/wp-content/plugins/easycoder/rest.php/_hash/{password}
24		password=~~$2y$10$VtzWvsaY4qRfZHKnbkvuyO9xmZ9SgK68FrTCWe9HUW6hrX3kXKpPO~~
	24	password={encrypted password}

easycoder/trunk/plugins-sample.js

-                      r2016526
+                      r2038748
      * This lets you add a plugin before launching a script, using the 'plugin' command.
      * You must provide a case for every plugin you will be adding;
      * use 'ckeditor' as the pattern to follow.
+     * use any one of them as the pattern to follow.
      */
 …
                 });
             break;
+        case `ui`:
+            getPlugin(name,
+                `${window.location.origin}${path()}/wp-content/plugins/easycoder/plugins/ui.js`,
+                function() {
+                    addPlugin(name, EasyCoder_UI, callback);
+                });
+            break;
+        case `gmap`:
+            getPlugin(name,
+                `${window.location.origin}${path()}/wp-content/plugins/easycoder/plugins/gmap.js`,
+                function() {
+                    addPlugin(name, EasyCoder_GMap, callback);
+                });
+            break;
+        case `showdown`:
+            getPlugin(name,
+                `${window.location.origin}${path()}/wp-content/plugins/easycoder/plugins/showdown.js`,
+                function() {
+                    addPlugin(name, EasyCoder_Showdown, callback);
+                });
+            break;
+        }
+    }

easycoder/trunk/plugins/browser.js

-                      r2016526
+                      r2038748
     },
+    Clear: {
+        compile: (compiler) => {
+            const lino = compiler.getLino();
+            if (compiler.nextIsSymbol()) {
+                const symbolRecord = compiler.getSymbolRecord();
+                if (symbolRecord.extra === `dom`) {
+                    compiler.next();
+                    compiler.addCommand({
+                        domain: `browser`,
+                        keyword: `clear`,
+                        lino,
+                        name: symbolRecord.name
+                    });
+                    return true;
+                }
+            }
+            return false;
+        },
+        run: (program) => {
+            const command = program[program.pc];
+            const targetRecord = program.getSymbolRecord(command.name);
+            const target = targetRecord.element[targetRecord.index];
+            target.innerHTML = ``;
+            return command.pc + 1;
+        }
+    },
     Create: {
 …
                 break;
             default:
                 var parent;
+                let parent;
                 if (command.parent === `body`) {
                     parent = document.body;
 …
                     const parentRecord = program.getSymbolRecord(command.parent);
                     if (!parentRecord.element[parentRecord.index]) {
+                        parentRecord.element[parentRecord.index] =
+                                document.getElementById(parentRecord.value[parentRecord.index].content);
+                        program.runtimeError(command.pc, `Element ${parentRecord.name} does not exist.`);
+                    }
                     parent = parentRecord.element[parentRecord.index];
 …
                 break;
             case `getStorage`:
+                const value = window.localStorage.getItem(program.getValue(command.key));
+                let value = window.localStorage.getItem(program.getValue(command.key));
+                if (typeof value === `undefined`) {
+                    value = null;
+                }
                 targetRecord.value[targetRecord.index] = {
                     type: `constant`,
 …
             case `replace`:
                 compiler.next();
                 var url = ``;
                 var state = ``;
+                let url = ``;
+                let state = ``;
                 while (true) {
                     const token = compiler.getToken();
 …
+            }
             const command = program[program.pc];
             var state = program.getValue(command.state);
+            let state = program.getValue(command.state);
             if (!state) {
+                state = `{}`;
+            }
+            state = JSON.parse(state);
+            state.script = program.script;
+            state = JSON.stringify(state);
+                state = `{"script":"${program.script}"}`;
+            }
             const url = program.getValue(command.url);
             switch (command.type) {
 …
         compile: (compiler) => {
             const lino = compiler.getLino();
             var newWindow = false;
+            let newWindow = false;
             if (compiler.nextTokenIs(`new`)) {
                 newWindow = true;
 …
             if (compiler.nextTokenIs(`to`)) {
                 const to = compiler.getNextValue();
                 var subject = ``;
                 var body = ``;
+                let subject = ``;
+                let body = ``;
                 if (compiler.tokenIs(`subject`)) {
                     subject = compiler.getNextValue();
 …
             if (command.subject) {
                 window.location.href = `mailto:${program.getValue(command.to)}` +
                     `?subject=${program.getValue(command.subject)}&body=${program.getValue(command.body)}`;
+                    `?subject=${program.getValue(command.subject)}&body=${encodeURIComponent(program.getValue(command.body))}`;
             } else {
                 window.location.href = `mailto:${program.getValue(command.to)}`;
 …
                 const changeItem = program.getSymbolRecord(command.symbol);
                 if (changeItem.keyword === `select`) {
+                    const cssId = changeItem.value[changeItem.index].content;
+                    if (cssId) {
+                        const target = document.getElementById(cssId);
+                        target.targetPc = command.pc + 2;
+                        target.addEventListener(`change`, function () {
+                            try {
+                                program.run(target.targetPc);
+                            } catch (err) {
+                                console.log(err.message);
+                                alert(err.message);
+                            }
+                            return false;
+                        });
+                    }
+                    const target = changeItem.element[changeItem.index];
+                    target.targetPc = command.pc + 2;
+                    target.addEventListener(`change`, function () {
+                        try {
+                            program.run(target.targetPc);
+                        } catch (err) {
+                            console.log(err.message);
+                            alert(err.message);
+                        }
+                        return false;
+                    });
+                }
                 break;
             case `click`:
                 const targetRecord = program.getSymbolRecord(command.symbol);
+                targetRecord.element.forEach(function (element, index) {
+                    var target = targetRecord.element[index];
+                targetRecord.element.forEach(function (target, index) {
                     target.targetRecord = targetRecord;
                     target.targetIndex = index;
 …
                 const interceptClickEvent = (e) => {
                     EasyCoder.timestamp = Date.now();
                     var target = e.target || e.srcElement;
                     var href = ``;
+                    let target = e.target || e.srcElement;
+                    let href = ``;
                     while (target.parentNode) {
                         if (target.tagName === `A`) {
 …
                     while (target.parentNode) {
                         if (target.id.indexOf(`ec-`) === 0) {
                             var id = target.id.slice(3);
                             var pos = id.indexOf(`-`);
+                            let id = target.id.slice(3);
+                            let pos = id.indexOf(`-`);
                             program.varName = id.slice(0, pos);
                             id = id.slice(pos + 1);
 …
                 break;
             case `swipe`:
                 var xDown;
+                let xDown;
                 const getTouches = (evt) => {
                     return evt.touches || // browser API
 …
                 break;
             case `key`:
+                if (typeof document.onKeyListeners === `undefined`) {
+                    document.onKeyListeners = [];
+                }
+                if (!document.onKeyListeners.includes(program)) {
+                    document.onKeyListeners.push(program);
+                }
                 program.onKeyPc = command.pc + 2;
                 document.onkeypress = function (event) {
+                    program.key = event.key;
+                    try {
+                        setTimeout(function () {
+                            program.run(program.onKeyPc);
+                        }, 1);
+                    } catch (err) {
+                        console.log(`Error: ${err.message}`);
+                    for (const program of document.onKeyListeners) {
+                        program.key = event.key;
+                        try {
+                            setTimeout(function () {
+                                program.run(program.onKeyPc);
+                            }, 1);
+                        } catch (err) {
+                            console.log(`Error: ${err.message}`);
+                        }
+                    }
                     return true;
 …
+                }
             } else {
                 var token = compiler.getToken();
+                let token = compiler.getToken();
                 if (token === `the`) {
                     token = compiler.nextToken();
+                }
                 if (token === `title`) {
+                    compiler.skip(`to`);
+                    const value = compiler.getValue();
+                    compiler.addCommand({
+                        domain: `browser`,
+                        keyword: `set`,
+                        lino,
+                        type: `setTitle`,
+                        value
+                    });
+                    return true;
+                    if (compiler.nextTokenIs(`to`)) {
+                        const value = compiler.getNextValue();
+                        compiler.addCommand({
+                            domain: `browser`,
+                            keyword: `set`,
+                            lino,
+                            type: `setTitle`,
+                            value
+                        });
+                        return true;
+                    }
                 } else if (token === `content`) {
                     if (compiler.nextTokenIs(`of`)) {
 …
                         if (compiler.nextIsSymbol(true)) {
                             const symbolRecord = compiler.getSymbolRecord();
-                            // if (symbolRecord.domain !== 'browser') {
-                            //   return false;
-                            // }
                             const symbolName = symbolRecord.name;
                             compiler.next();
                             var attributeValue = {
+                            let attributeValue = {
                                 type: `boolean`,
                                 content: true
 …
                         if (compiler.nextIsSymbol()) {
                             const symbolRecord = compiler.getSymbolRecord();
                             symbolName = symbolRecord.name;
+                            const symbolName = symbolRecord.name;
                             if (symbolRecord.extra !== `dom`) {
                                 compiler.warning(`'${symbolName}' is not a DOM type`);
 …
+                    }
                     const styleName = compiler.getValue();
                     var type = `setStyle`;
                     var symbolName = ``;
+                    let type = `setStyle`;
+                    let symbolName = ``;
                     if (compiler.tokenIs(`of`)) {
                         if (compiler.nextToken() === `body`) {
 …
+                        }
+                    }
+                } else if (token === `default`) {
+                    if (compiler.nextTokenIs(`of`)) {
+                        if (compiler.nextIsSymbol()) {
+                            const symbolRecord = compiler.getSymbolRecord();
+                            if (symbolRecord.keyword === `select`) {
+                                if (compiler.nextTokenIs(`to`)) {
+                                    const value = compiler.getNextValue();
+                                    compiler.addCommand({
+                                        domain: `browser`,
+                                        keyword: `set`,
+                                        lino,
+                                        type: `setDefault`,
+                                        name: symbolRecord.name,
+                                        value
+                                    });
+                                    return true;
+                                }
+                            }
+                        }
+                    }
+                }
+            }
 …
         run: (program) => {
             const command = program[program.pc];
             var symbol;
             var value;
             var targetVar;
             var target;
             var targetId;
             var cssId;
+            let symbol;
+            let value;
+            let targetVar;
+            let target;
+            let targetId;
+            let cssId;
             switch (command.type) {
             case `setContentVar`:
 …
                 document.title = program.getValue(command.value);
                 break;
+            case `setDefault`:
+                const selectRecord = program.getSymbolRecord(command.name);
+                value = program.getValue(command.value);
+                const element = selectRecord.element[selectRecord.index];
+                for (let n = 0; n < element.options.length; n++) {
+                    if (element.options[n].value === value) {
+                        element.selectedIndex = n;
+                        break;
+                    }
+                }
+                break;
             default:
                 break;
 …
                     compiler.next();
+                }
                 var alignment = `horizontal`;
+                let alignment = `horizontal`;
                 if (compiler.tokenIs(`horizontal`) || compiler.tokenIs(`vertical`)) {
                     alignment = compiler.getToken();
 …
                     const percent = Math.round((event.loaded / event.total) * 100);
                     setProgress(percent);
                     setStatus(`${Math.round(percent)}% uploaded...please wait`);
+                    setStatus(`${Math.round(percent)}%...`);
                 }, false);
                 ajax.addEventListener(`load`, function (event) {
 …
                             break;
                         default:
                             var error = ``;
+                            let error = ``;
                             try {
                                 error = JSON.parse(this.responseText ? this.responseText : `{}`);
 …
         case `button`:
             return EasyCoder_Browser.BUTTON;
+        case `clear`:
+            return EasyCoder_Browser.Clear;
         case `create`:
             return EasyCoder_Browser.Create;
 …
             if (compiler.isSymbol()) {
                 const symbolRecord = compiler.getSymbolRecord();
+                if (compiler.nextTokenIs(`is`)) {
+                    if (compiler.nextTokenIs(`defined`)) {
+                        if (symbolRecord.extra === `dom`) {
+                            compiler.next();
+                            return {
+                                domain: `browser`,
+                                type: `defined`,
+                                value: symbolRecord.name
+                            };
+                        }
+                        return null;
+                    } else {
+                        compiler.prev();
+                    }
+                }
                 switch (symbolRecord.keyword) {
                 case `file`:
                 case `input`:
                 case `select`:
                     compiler.next();
+                case `textarea`:
                     return {
                         domain: `browser`,
 …
+            }
             var token = compiler.getToken();
+            let token = compiler.getToken();
             if (token === `mobile`) {
                 compiler.next();
 …
+            }
             if (token === `attribute`) {
+                compiler.next();
+                const attribute = compiler.getValue();
+                const attribute = compiler.getNextValue();
                 if (compiler.tokenIs(`of`)) {
                     compiler.next();
 …
+            }
             if (token === `confirm`) {
+                compiler.next();
+                const text = compiler.getValue();
+                const text = compiler.getNextValue();
                 return {
                     domain: `browser`,
                     type: `confirm`,
+                    text,
+                    pre
+                    text
                 };
+            }
             if (token === `prompt`) {
+                compiler.next();
+                const text = compiler.getValue();
+                const text = compiler.getNextValue();
                 if (compiler.tokenIs(`with`)) {
                     const pre = compiler.getNextValue();
 …
+            }
             if ([`width`, `height`].includes(token)) {
+                compiler.next();
+                if (compiler.tokenIs(`of`)) {
+                    compiler.next();
+                    if (compiler.isSymbol()) {
+                if (compiler.nextTokenIs(`of`)) {
+                    if (compiler.nextIsSymbol()) {
                         const symbol = compiler.getSymbolRecord();
                         compiler.next();
 …
         get: (program, value) => {
+            var symbolRecord;
+            var element;
+            var target;
+            let symbolRecord;
+            let element;
+            let target;
+            let content;
             switch (value.type) {
             case `file`:
             case `input`:
             case `select`:
+            case `textarea`:
                 symbolRecord = program.getSymbolRecord(value.value);
                 target = symbolRecord.element[symbolRecord.index];
 …
                     numeric: false,
                     content: target.value
+                };
+            case `defined`:
+                symbolRecord = program.getSymbolRecord(value.value);
+                return {
+                    domain: `browser`,
+                    type: `boolean`,
+                    content: typeof symbolRecord.element[symbolRecord.index] !== `undefined`
                 };
             case `mobile`:
 …
                 symbolRecord = program.getSymbolRecord(value.symbol);
                 target = symbolRecord.element[symbolRecord.index];
-                var content;
                 switch (symbolRecord.keyword) {
                 case `input`:
                 case `textarea`:
                     content = target.value;
+                    break;
+                case `pre`:
+                    content = target.innerHTML;
                     break;
                 default:
 …
         compile: (compiler) => {
-            console.log(`Browser:compile`);
             if (compiler.tokenIs(`confirm`)) {
                 compiler.next();
 …
                     value
                 };
+            } else if (compiler.tokenIs(`element`)) {
+                if (compiler.nextIsSymbol()) {
+                    const symbolRecord = compiler.getSymbolRecord();
+                    if (symbolRecord.extra === `dom`) {
+                        if (compiler.nextTokenIs(`has`)) {
+                            if (compiler.nextTokenIs(`the`)) {
+                                compiler.next();
+                            }
+                            if (compiler.tokenIs(`focus`)) {
+                                compiler.next();
+                                return {
+                                    domain: `browser`,
+                                    type: `focus`,
+                                    element: symbolRecord.name
+                                };
+                            }
+                        }
+                    }
+                }
+            }
             return null;
 …
             case `confirm`:
                 return confirm(program.getValue(condition.value));
+            case `focus`:
+                const elementRecord = program.getSymbolRecord(condition.element);
+                return elementRecord.element[elementRecord.index] === document.activeElement;
+            }
+        }
 …
 };
 var scrollPosition = 0;
+let scrollPosition = 0;
 window.addEventListener(`scroll`, function () {
 …
     const state = JSON.parse(event.state);
     const program = window.EasyCoder.scripts[state.script];
+    if (program.onRestore) {
+        program.run(program.onRestore);
+    if (program) {
+        if (program.onRestore) {
+            program.run(program.onRestore);
+        }
+    } else {
+        console.log(`No script property in window state object`);
+    }
 };

easycoder/trunk/plugins/ckeditor.js

-                      r2016526
+                      r2038748
                 editor = program.getSymbolRecord(command.editor);
                 editor.editor =
             CKEDITOR.appendTo(editor.element[editor.index].id, {
                 height: 400
             });
+                CKEDITOR.appendTo(editor.element[editor.index].id, {
+                    height: 400
+                });
                 break;
             case `close`:
 …
                 return 0;
             case `reset`:
                 for (name in CKEDITOR.instances) {
+                for (const name in CKEDITOR.instances) {
                     CKEDITOR.instances[name].destroy();
+                }
 …
     value: {
         compile: (compiler) => {
+        compile: () => {
             return null;
         },
         get: (program, value) => {}
+        get: () => {}
     },
     condition: {
         compile: (compiler) => {},
         test: (program, condition) => {}
+        compile: () => {},
+        test: () => {}
+    }
 };

easycoder/trunk/plugins/json.js

-                      r2016526
+                      r2038748
             case `set`:
                 compiler.next();
-                if (compiler.tokenIs(`property`)) {
-                    const name = compiler.getNextValue();
-                    if (compiler.tokenIs(`of`)) {
-                        if (compiler.nextIsSymbol()) {
-                            const targetRecord = compiler.getSymbolRecord();
-                            if (targetRecord.keyword === `variable`) {
-                                if (compiler.nextTokenIs(`to`)) {
-                                    const value = compiler.getNextValue();
-                                    compiler.addCommand({
-                                        domain: `json`,
-                                        keyword: `json`,
-                                        lino,
-                                        request: `setProperty`,
-                                        target: targetRecord.name,
-                                        name,
-                                        value
-                                    });
-                                    return true;
+                                }
+                            }
+                        }
+                    }
-                    return null;
+                }
                 if (compiler.isSymbol()) {
                     const targetRecord = compiler.getSymbolRecord();
 …
+                }
                 const item = program.getValue(command.item);
                 if (itemData[item] === `undefined`) {
+                if (typeof itemData[item] === `undefined`) {
                     program.runtimeError(command.lino, `No such property '${item}'`);
+                }
 …
                     numeric: false,
                     content
-                };
-                break;
-            case `setProperty`:
-                targetRecord = program.getSymbolRecord(command.target);
-                const targetValue = targetRecord.value[targetRecord.index];
-                var targetItem = ``;
-                try {
-                    targetItem = JSON.parse(program.getValue(targetValue));
-                } catch (err) {
-                    program.runtimeError(command.lino, `Can't parse JSON`);
-                    return 0;
+                }
-                const itemName = program.getValue(command.name);
-                const itemValue = program.evaluate(command.value);
-                //targetItem[itemName] = itemValue.content;
-                if (itemValue.type === `boolean`) {
-                    targetItem[itemName] = itemValue.content;
-                } else {
-                    targetItem[itemName] = itemValue.numeric ? itemValue.content :
-                        itemValue.content.split(`"`).join(`\\"`);
+                }
-                targetRecord.value[targetRecord.index] = {
-                    type: `constant`,
-                    numeric: false,
-                    content: JSON.stringify(targetItem)
                 };
                 break;
 …
                 // The target is assumed to be a SELECT
                 targetRecord = program.getSymbolRecord(command.target);
                 const target = document.getElementById(targetRecord.value[targetRecord.index].content);
+                const target = targetRecord.element[targetRecord.index];
                 target.options.length = 0;
                 // Get the name of the display field
 …
                         if (compiler.nextTokenIs(`from`)) {
                             const url = compiler.getNextValue();
+                            var onError = null;
+                            if (compiler.tokenIs(`or`)) {
+                                compiler.next();
+                                onError = compiler.getPc() + 1;
+                                compiler.completeHandler();
+                            }
                             compiler.addCommand({
                                 domain: `json`,
 …
                                 request: `get`,
                                 target: targetRecord.name,
+                                url
+                                url,
+                                onError
                             });
                             return true;
 …
+                }
                 const url = compiler.getValue();
+                onError = null;
+                if (compiler.tokenIs(`or`)) {
+                    compiler.next();
+                    onError = compiler.getPc() + 1;
+                    compiler.completeHandler();
+                }
                 compiler.addCommand({
                     domain: `json`,
 …
                     request: `post`,
                     value,
+                    url
+                    url,
+                    onError
                 });
                 return true;
 …
                         if (command.request === `get`) {
                             var content = this.responseText;
                             if (![`[`, `{`].includes(content[0])) {
+                            if (![`[`, `{`].includes(content.charAt(0))) {
                                 content = program.decode(content);
+                            }
 …
                         break;
                     default:
+                        const error = this.responseText;
+                        try {
+                        if (command.onError) {
+                            program.errorMessage = this.responseText;
+                            program.run(command.onError);
+                        } else {
+                            const error = this.responseText;
                             program.runtimeError(command.lino, error);
-                        } catch (err) {
-                            program.reportError(err, program);
+                        }
                         break;
 …
             case `post`:
                 const value = program.getValue(command.value);
                 console.log(`POST ${value} to ${path}`);
+                console.log(`POST to ${path}`);
                 ajax.open(`POST`, path);
                 if (value[0] === `{`) {
+                if (value.charAt(0) === `{` || !isNaN(value)) {
                     ajax.setRequestHeader(`Content-Type`, `application/json; charset=UTF-8`);
                     //            console.log(`value=${value}`);
                     ajax.send(value);
+                    ajax.send(value.charAt(0) === `{` ? value : value.toString());
                 } else {
                     ajax.setRequestHeader(`Content-Type`, `application/text; charset=UTF-8`);
                     console.log(`value=${program.encode(value)}`);
+                    // console.log(`value=${program.encode(value)}`);
                     ajax.send(program.encode(value));
+                }
 …
+            }
             if (compiler.tokenIs(`json`)) {
+                if ([`size`, `count`].includes(compiler.nextToken())) {
+                const type = compiler.nextToken();
+                if ([`size`, `count`, `keys`].includes(type)) {
                     compiler.skip(`of`);
                     if (compiler.isSymbol()) {
 …
                             return {
                                 domain: `json`,
                                 type: `size`,
+                                type,
                                 name: target.name
                             };
+                        }
+                    }
+                } else if (type === `index`) {
+                    if (compiler.nextTokenIs(`of`)) {
+                        const item = compiler.getNextValue();
+                        if (compiler.tokenIs(`in`)) {
+                            const list = compiler.getNextValue();
+                            return {
+                                domain: `json`,
+                                type,
+                                item,
+                                list
+                            };
+                        }
+                    }
+                }
+            }
 …
         get: (program, value) => {
+            let symbolRecord;
+            let data;
+            let content;
             switch (value.type) {
             case `size`:
+                const symbolRecord = program.getSymbolRecord(value.name);
+                const data = program.getValue(symbolRecord.value[symbolRecord.index]);
+                var array = [];
+            case `count`:
+                symbolRecord = program.getSymbolRecord(value.name);
+                data = program.getValue(symbolRecord.value[symbolRecord.index]);
+                let array;
                 try {
                     array = JSON.parse(data);
                 } catch (err) {
+                    program.runtimeError(0, `Can't parse JSON`);
+                    return 0;
+                    array = [];
+                }
                 return {
 …
                     numeric: true,
                     content: array.length
+                };
+            case `keys`:
+                symbolRecord = program.getSymbolRecord(value.name);
+                data = program.getValue(symbolRecord.value[symbolRecord.index]);
+                content = data ? JSON.stringify(Object.keys(JSON.parse(data)).sort()) : `[]`;
+                return {
+                    type: `constant`,
+                    numeric: false,
+                    content
+                };
+            case `index`:
+                const item = program.getValue(value.item);
+                const list = JSON.parse(program.getValue(value.list));
+                content = list.findIndex(function(value) {
+                    return value === item;
+                });
+                return {
+                    type: `constant`,
+                    numeric: true,
+                    content
                 };
+            }

easycoder/trunk/plugins/ui.js

-                      r2016526
+                      r2038748
+                        }
+                    }
-                } else if (type === `navigator`) {
-                    if (compiler.nextTokenIs(`in`)) {
-                        if (compiler.nextIsSymbol()) {
-                            const symbolRecord = compiler.getSymbolRecord();
-                            compiler.next();
-                            if (symbolRecord.keyword === `div`) {
-                                compiler.addCommand({
-                                    domain: `ui`,
-                                    keyword: `create`,
-                                    lino,
-                                    type,
-                                    parent: symbolRecord.name
-                                });
-                                return true;
+                            }
+                        }
+                    }
+                }
+            }
 …
                     EasyCoder_UI.renderDate(this.dateRecord);
                 };
-                break;
-            case `navigator`:
                 break;
+            }
 …
                 const dateRecord = program.getSymbolRecord(command.date);
                 dateRecord.timestamp = program.getValue(command.timestamp) * 1000;
                 EasyCoder_UI.renderDate(this.dateRecord);
+                EasyCoder_UI.renderDate(dateRecord);
                 break;
+            }

easycoder/trunk/readme.txt

-                      r2016526
+                      r2038748
 Requires at least: 4.4
 Requires PHP: 5.2
 Tested up to: 5.0
+Tested up to: 5.1
 Stable tag: trunk
 License: GPLv2 or later
 …
 * Retrieve content from web services using REST and JSON
 * Draw and animate simple graphics
+* Create a Google Map, put markers on it and interct with the map and the markers
+* Include the CKEditor rich text editor in your pages
+* Include the Showdown markdown converter in your pages
 *EasyCoder* provides a simple syntax to do all these things, at about the same level of complexity and readability as SQL or Excel macros. It's a full programming language, though, capable of making complex logical decisions.
 …
 *EasyCoder* scripts are embedded in your page or post, inside a special "preformatted" tag. When the page loads, *EasyCoder* looks for this element then compiles and runs the script it contains. When it interacts with HTML elements it attaches their IDs to its own variables, so your HTML and its controlling script are in the same file.
 The *EasyCoder* core module is currently about 47k bytes in its minimised form and it downloads its own plugin modules from a growing library. Its performance is good because it precompiles scripts - a process that takes only tens of milliseconds - and the compiled code for each command is only a thin wrapper around the corresponding JavaScript functionality.
+The *EasyCoder* core module is currently about 50k bytes in its minimised form and it downloads its own plugin modules from a growing library. Its performance is good because it precompiles scripts - a process that takes only tens of milliseconds - and the compiled code for each command is only a thin wrapper around the corresponding JavaScript functionality.
 When *EasyCoder* detects an error, either in compilation or at runtime, it opens a popup window with a friendly error message that tries to tell you what went wrong and where in the script it happened.
 …
 == Changelog ==
+= 2.2.0 25-feb-2019 =
+* New plugins: gmap and showdown.
 = 2.1.9 21-jan-2019 =

easycoder/trunk/rest.php

-                      r2016526
+                      r2038748
 <?php
+    // REST server
+    // This small REST server gives you the ability to manage tables
+    // in your site database. WordPress provides a full set of API endpoints
+    // for its own functions but if you need extra tables or extra features
+    // you have to write your own. This server provides you with access to
+    // your own tables as long as they fit a specified format. It also lets you
+    // add an extension of your own to handle special needs.
+    //
+    // Don't modify this file; it will be overwritten on the next upgrade
+    // of EasyCoder. Instead, use the extension script, a skeleton for which
+    // was set up when you first installed EasyCoder, at
+    // {root of your WordPress installation}/easycoder/rest-local.php.
+    date_default_timezone_set('Europe/London');
+    logger(substr($_SERVER['PATH_INFO'], 1));
+    $request = explode("/", substr($_SERVER['PATH_INFO'], 1));
+    $table = array_shift($request);
+    $method = $_SERVER['REQUEST_METHOD'];
+    // The properties file is best kept above the site root to prevent access by browsers.
+    // For WordPress, that's 4 levels up from our current location, the 'plugins/easycoder' folder.
+    $props = array();
+    $filename = '../../../../' . $_SERVER['HTTP_HOST'] . '.txt';
+    if (file_exists($filename)) {
+        $file = fopen($filename, 'r');
+        while (!feof($file)) {
+            $ss = trim(fgets($file));
+            if (!$ss || substr($ss, 0, 1) == '#') {
+                continue;
+            }
+            $ss = explode('=', $ss, 2);
+            if (count($ss) > 1) {
+                $props[$ss[0]] = $ss[1];
+            }
+        }
+        fclose($file);
+    }
+    // First, the commands that don't require a database connection.
+    switch ($method) {
+        case 'GET':
+            switch ($table) {
+            case '_list':
+                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/_list
+                // List the contents of a directory
+                if (count($request)) {
+                    $path = '/' . str_replace('~', '/', $request[0]);
+                }
+                // Start at the resources folder
+                $path = "../../../resources$path";
+                $files = scandir($path);
+                print '[';
+                // First list all the directories
+                $flag = false;
+                foreach ($files as $file) {
+                    if (strpos($file, '.') !== 0) {
+                        if (is_dir("$path/$file")) {
+                            if ($flag) {
+                                print ',';
+                            } else {
+                                $flag = true;
+                            }
+                            print "{\"name\":\"$file\",\"type\":\"dir\"}";
+                        }
+                    }
+                }
+                // Now do the ordinary files
+                foreach ($files as $file) {
+                    if (strpos($file, '.') !== 0) {
+                        if (!is_dir("$path/$file")) {
+                            if ($flag) {
+                                print ',';
+                            } else {
+                                $flag = true;
+                            }
+                            $ext = substr($file, strrpos($file, '.') + 1);
+                            $type = $ext;
+                            switch (strtolower($ext)) {
+                            case 'jpg':
+                            case 'png':
+                            case 'gif':
+                                $type = 'img';
+                                break;
+                            }
+                            print "{\"name\":\"$file\",\"type\":\"$type\"}";
+                        }
+                    }
+                }
+                print ']';
+                exit;
+            case '_hash':
+                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/_hash/{value-to-hash}
+                print password_hash($request[0], PASSWORD_DEFAULT);
+                exit;
+            case '_verify':
+                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/_verify/{value-to-verify}
+                print password_verify($request[0], $props['password']) ? 'yes' : 'no';
+                exit;
+            }
+            break;
+        case 'POST':
+            switch ($table) {
+                case '_mkdir':
+                    // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/_mkdir
+                    header("Content-Type: application/text");
+                    $path = stripslashes(file_get_contents("php://input"));
+                    mkdir($path);
+                    exit;
+                case '_upload':
+                    // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/_upload
+                    // Upload a file (an image) to the current directory
+                    $path = $_POST['path'];
+                    $fileName = $_FILES['source']['name'];
+                    $tempName = $_FILES['source']['tmp_name'];
+                    $fileType = $_FILES['source']['type'];
+                    $fileSize = $_FILES['source']['size'];
+                    $fileError = $_FILES['source']['error'];
+                    if (!move_uploaded_file($tempName, "$path/$fileName")) {
+                        unlink($tempName);
+                        http_response_code(400);
+                        print "Failed to upload $fileName to $path.<br />tempName: $tempName<br />fileType: $fileType<br />fileSize:$fileSize<br />fileError: $fileError";
+                    } else {
+                        print "File $fileName uploaded successfully to $path/$filenName";
+                    }
+                    exit;
+                case '_delete':
+                    // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/_delete
+                    header("Content-Type: application/text");
+                    $path = stripslashes(file_get_contents("php://input"));
+                    if (is_dir($path)) {
+                        rmdir($path);
+                    } else {
+                        unlink($path);
+                    }
+                    exit;
+            }
+            break;
+    }
+    // Most further commands require use of the database.
+    $conn = mysqli_connect($props['sqlhost'], $props['sqluser'],
+        $props['sqlpassword'], $props['sqldatabase']);
+    if (!$conn)
+    {
+        http_response_code(404);
+        die("Failed to connect to MySQL: " . mysqli_connect_error());
+    }
+    mysqli_set_charset($conn,'utf8');
+    if (!count($request)) {
+        http_response_code(400);
+        print "{\"message\":\"Incomplete REST query: ".substr($_SERVER['PATH_INFO'], 1).".\"}";
+        exit;
+    }
+    // You can have a custom extension that deals with special requests.
+    // These all have '_' as the table name.
+    switch ($method) {
+        case 'GET':
+            if ($table == '_') {
+                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/_/{request-and-arguments}
+                include '../../../easycoder/rest-local.php';
+                get_local($conn, $request);
+                return;
+            } else {
+                // Use the handler below
+                get($conn, $table, $request);
+            }
+            break;
+        case 'POST':
+            if ($table == '_') {
+                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/_/{request-and-arguments}
+                include '../../../easycoder/rest-local.php';
+                post_local($conn, $request);
+                return;
+            } else {
+                // Use the handler below
+                post($conn, $table, $request);
+            }
+            break;
+        default:
+            http_response_code(400);
+            break;
+    }
+    mysqli_close();
+    exit;
+    /////////////////////////////////////////////////////////////////////////
+    // All the other commands deal with tables having a specific format, with the following fields:
+    //
+    // id int(11)
+    // name varchar(40)
+    // value text
+    // ts int(11)
+    //
+    // GET
+    function get($conn, $table, $request) {
+        $action = $request[0];
+        switch ($action) {
+            case 'count':
+                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/table/count
+                // Return the number of items in the table
+                $result = $conn->query("SELECT id from $table");
+                //print "{\"count\":".mysqli_num_rows($result)."}";
+                print mysqli_num_rows($result);
+                break;
+            case 'list':
+                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/table/list/{offset}/{count}
+                // List items by ID, with optional offset & count, defaulting to 0 & 10
+                switch (count($request)) {
+                    case 2:
+                        $offset = 0;
+                        $count = $request[1];
+                        break;
+                    case 3:
+                        $offset = $request[1];
+                        $count = $request[2];
+                        break;
+                    default:
+                        $offset = 0;
+                        $count = 10;
+                        break;
+                }
+                $result = $conn->query("SELECT id FROM $table LIMIT $offset, $count");
+                $response = '[';
+                while ($row = mysqli_fetch_object($result)) {
+                    if ($response != '[') {
+                        $response .= ',';
+                    }
+                    $response .= $row->id;
+                }
+                $response .= ']';
+                print $response;
+                break;
+            case 'names':
+                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/table/names/{offset}/{count}
+                // List items by name in ascending alphabetical order,
+                // with optional offset & count, defaulting to 0 & 10
+                switch (count($request)) {
+                    case 2:
+                        $offset = 0;
+                        $count = $request[1];
+                        break;
+                    case 3:
+                        $offset = $request[1];
+                        $count = $request[2];
+                        break;
+                    default:
+                        $offset = 0;
+                        $count = 10;
+                        break;
+                }
+                $result = $conn->query("SELECT name FROM $table ORDER BY name LIMIT $offset, $count");
+                $response = '[';
+                while ($row = mysqli_fetch_object($result)) {
+                    if ($response != '[') {
+                        $response .= ',';
+                    }
+                    $response .= "\"$row->name\"";
+                }
+                $response .= ']';
+                print $response;
+                break;
+            case 'id':
+                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/table/id/{id}
+                // Get a record given its id
+                if (count($request) < 2) {
+                    http_response_code(400);
+                    print "Incomplete REST query.";
+                    exit;
+                }
+                $id = $request[1];
+                $result = $conn->query("SELECT value FROM $table WHERE id='$id'");
+                if ($row = mysqli_fetch_object($result)) {
+                    print $row->value;
+                } else {
+                    http_response_code(404);
+                    print "Cannot get item id '$id' as it does not exist.";
+                }
+                break;
+            case 'name':
+                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/table/name/{name}
+                // Get a record given its name
+                if (count($request) < 2) {
+                    http_response_code(400);
+                    print "Incomplete REST query.";
+                    exit;
+                }
+                $name = $request[1];
+                $result = $conn->query("SELECT value FROM $table WHERE name='$name'");
+                if ($row = mysqli_fetch_object($result)) {
+                    print $row->value;
+                } else {
+                    http_response_code(404);
+                    print "Cannot get item named '$name' as it does not exist.";
+                }
+                break;
+            default:
+                http_response_code(404);
+                print "I don't understand this request.";
+                break;
+            }
+    }
+    /////////////////////////////////////////////////////////////////////////
+    // POST
+    function post($conn, $table, $request) {
+        $ts = time();
+        $action = $request[0];
+        switch ($action) {
+            case 'set':
+                // Set the value of a record
+                if (count($request) > 2) {
+                    switch ($request[1]) {
+                        case 'id':
+                            // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/table/id/{id}
+                            // Set by id. The record must already exist
+                            header("Content-Type: application/text");
+                            $value = stripslashes(file_get_contents("php://input"));
+                            $id = $request[2];
+                            // See if there's an item with this id
+                            $result = $conn->query("SELECT id FROM $table WHERE id=$id");
+                            if (mysqli_fetch_object($result)) {
+                                // It exists, so update it
+                                $value = urldecode($value);
+                                logger("UPDATE $table SET value='$value',ts=$ts WHERE id=$id");
+                                query($conn, "UPDATE $table SET value='$value',ts=$ts WHERE id=$id");
+                            } else {
+                                // Not found
+                                http_response_code(404);
+                                logger("{\"code\":\"404\",\"message\":\"Cannot set record $id of $table.\"}");
+                                print "{\"message\":\"Cannot set record $id of $table.\"}";
+                            }
+                            break;
+                        case 'name':
+                            // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/table/name/{name}
+                            // Set by name. If the record does not exist, add it
+                            header("Content-Type: application/text");
+                            $value = stripslashes(file_get_contents("php://input"));
+                            $name = $request[2];
+                            // See if there's an item with this name
+                            $result = $conn->query("SELECT id FROM $table WHERE name='$name'");
+                            if (mysqli_fetch_object($result)) {
+                                // It exists, so update it
+                                query($conn, "UPDATE $table SET value='$value',ts=$ts WHERE name='$name'");
+                            } else {
+                                // Add a new item
+                                query($conn, "INSERT INTO $table (name,value,ts) VALUES ('$name','$value','$ts')");
+                                http_response_code(201);
+                            }
+                            break;
+                        default:
+                            http_response_code(400);
+                            print "{\"message\":\"Value '".$request[1]."' should be 'id' or 'name'.\"}";
+                            break;
+                    }
+                } else {
+                    http_response_code(400);
+                    print "{\"message\":\"Incomplete REST query.\"}";
+                }
+                break;
+            case 'delete':
+                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/table/delete/{id}
+                // Or: .../rest.php/table/delete/{name}
+                // Delete a record, by id or by name
+                if (count($request) > 1) {
+                    $item = $request[1];
+                    if (is_int($item)) {
+                        // Delete the requested id
+                        query($conn, "DELETE FROM $table WHERE id=$id");
+                    } else {
+                        // Delete the named item
+                        query($conn, "DELETE FROM $table WHERE name='$item'");
+                    }
+                }
+                break;
+            case 'rename':
+                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/table/rename
+                // Rename a record
+                $value = $_POST['value'];
+                $id = $_POST['id'];
+                if (!$id && count($request) > 1) {
+                    $id = $request[1];
+                }
+                if ($id) {
+                    query($conn, "UPDATE $table SET name='$name',value='$value' WHERE id=$id");
+                } else {
+                    $name = $_POST['name'];
+                    $newname = $_POST['newname'];
+                    // See if there's a data item with the new name
+                    $result = $conn->query("SELECT id FROM $table WHERE name='$newname'");
+                    if ($row = mysqli_fetch_object($result)) {
+                        // Conflict
+                        http_response_code(409);
+                        print "{\"message\":\"Cannot rename item '$name' to '$newname' as it already exists.\"}";
+                    } else {
+                        // See if there's a data item with this name
+                        $result = $conn->query("SELECT id FROM $table WHERE name='$name'");
+                        if ($row = mysqli_fetch_object($result)) {
+                            // There's a data item to rename
+                            $id = $row->id;
+                            query($conn, "UPDATE $table SET name='$newname',value='$value' WHERE id=$id");
+                        } else {
+                            // Not found
+                            http_response_code(404);
+                            print "{\"message\":\"Cannot rename item '$name' as it does not exist.\"}";
+                        }
+                    }
+                }
+                break;
+            default:
+                http_response_code(404);
+                print "{\"message\":\"Unrecognised action '$action' requested.\"}";
+                break;
+        }
+    }
+    /////////////////////////////////////////////////////////////////////////
+    // Do an SQL query
+    function query($conn, $sql)
+    {
+        $result = mysqli_query($conn, $sql);
+        if (!$result) {
+            http_response_code(404);
+            logger('Error: '.mysqli_error($conn));
+            die('Error: '.mysqli_error($conn));
+        }
+        mysqli_free_result($result);
+        return $result;
+    }
+    ////////////////////////////////////////////////////////////////////////////
+    // Log a message.
+    function logger($message)
+    {
+        $timestamp = time();
+        $date = date("Y/m/d H:i", $timestamp);
+        if (!file_exists("log")) mkdir("log");
+        $file = "log/".date("Y", $timestamp);
+        if (!file_exists($file)) mkdir($file);
+        $file.= "/".date("Ymd", $timestamp).".txt";
+        $fp = fopen($file, "a+") or die("Can't open $file");
+        fwrite($fp, "$date: $message\n");
+        fclose($fp);
+    }
+        // REST server
+        // This small REST server gives you the ability to manage tables
+        // in your site database. WordPress provides a full set of API endpoints
+        // for its own functions but if you need extra tables or extra features
+        // you have to write your own. This server provides you with access to
+        // your own tables as long as they fit a specified format. It also lets you
+        // add an extension of your own to handle special needs.
+        //
+        // Don't modify this file; it will be overwritten on the next upgrade
+        // of EasyCoder. Instead, use the extension script, a skeleton for which
+        // was set up when you first installed EasyCoder, at
+        // {root of your WordPress installation}/easycoder/rest-local.php.
+        date_default_timezone_set('Europe/London');
+        logger(substr($_SERVER['PATH_INFO'], 1));
+        $request = explode("/", substr($_SERVER['PATH_INFO'], 1));
+        $table = array_shift($request);
+        $method = $_SERVER['REQUEST_METHOD'];
+        // The properties file is best kept above the site root to prevent access by browsers.
+        // For WordPress, that's 4 levels up from our current location, the 'plugins/easycoder' folder.
+        $props = array();
+        $filename = '../../../../' . $_SERVER['HTTP_HOST'] . '.txt';
+        if (file_exists($filename)) {
+                $file = fopen($filename, 'r');
+                while (!feof($file)) {
+                        $ss = trim(fgets($file));
+                        if (!$ss || substr($ss, 0, 1) == '#') {
+                                continue;
+                        }
+                        $ss = explode('=', $ss, 2);
+                        if (count($ss) > 1) {
+                                $props[$ss[0]] = $ss[1];
+                        }
+                }
+                fclose($file);
+        }
+        // First, the commands that don't require a database connection.
+        switch ($method) {
+                case 'GET':
+                        switch ($table) {
+                        case '_list':
+                                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/_list/[{path}]
+                                // List the contents of a directory
+                                if (count($request)) {
+                                        $path = '/' . str_replace('~', '/', $request[0]);
+                                }
+                                // Start at the resources folder
+                                $path = "../../../resources$path";
+                                $files = scandir($path);
+                                print '[';
+                                // First list all the directories
+                                $flag = false;
+                                foreach ($files as $file) {
+                                        if (strpos($file, '.') !== 0) {
+                                                if (is_dir("$path/$file")) {
+                                                        if ($flag) {
+                                                                print ',';
+                                                        } else {
+                                                                $flag = true;
+                                                        }
+                                                        print "{\"name\":\"$file\",\"type\":\"dir\"}";
+                                                }
+                                        }
+                                }
+                                // Now do the ordinary files
+                                foreach ($files as $file) {
+                                        if (strpos($file, '.') !== 0) {
+                                                if (!is_dir("$path/$file")) {
+                                                        if ($flag) {
+                                                                print ',';
+                                                        } else {
+                                                                $flag = true;
+                                                        }
+                                                        $ext = substr($file, strrpos($file, '.') + 1);
+                                                        $type = $ext;
+                                                        switch (strtolower($ext)) {
+                                                        case 'jpg':
+                                                        case 'png':
+                                                        case 'gif':
+                                                                $type = 'img';
+                                                                break;
+                                                        }
+                                                        print "{\"name\":\"$file\",\"type\":\"$type\"}";
+                                                }
+                                        }
+                                }
+                                print ']';
+                                exit;
+                        case '_hash':
+                                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/_hash/{value-to-hash}
+                                print password_hash($request[0], PASSWORD_DEFAULT);
+                                exit;
+                        case '_verify':
+                                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/_verify/{value-to-verify}
+                                print password_verify($request[0], $props['password']) ? 'yes' : 'no';
+                                exit;
+                        case '_validate':
+                                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/_validate/{value-to-validate}/{encrypted-value}
+                                print password_verify($request[0], str_replace('~', '/', $request[1])) ? 'yes' : 'no';
+                                exit;
+                        case '_load':
+                                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/_load/{path}
+                                $path = '../../../resources/' . str_replace('~', '/', $request[0]);
+                                print file_get_contents($path);
+                                exit;
+                        break;
+                    }
+                case 'POST':
+                        switch ($table) {
+                                case '_mkdir':
+                                        // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/_mkdir
+                                        header("Content-Type: application/text");
+                                        $path = stripslashes(file_get_contents("php://input"));
+                                        logger("Create directory $path");
+                                        mkdir($path);
+                                        exit;
+                                case '_upload':
+                                        // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/_upload
+                                        // Upload a file (an image) to the current directory
+                                        $path = $_POST['path'];
+                                        $fileName = $_FILES['source']['name'];
+                                        $tempName = $_FILES['source']['tmp_name'];
+                                        $fileType = $_FILES['source']['type'];
+                                        $fileSize = $_FILES['source']['size'];
+                                        $fileError = $_FILES['source']['error'];
+                                        if (!move_uploaded_file($tempName, "$path/$fileName")) {
+                                                unlink($tempName);
+                                                http_response_code(400);
+                                                logger("Failed to upload $fileName to $path.\ntempName: $tempName\nfileType: $fileType\nfileSize:$fileSize\nfileError: $fileError");
+                                        } else {
+                                                logger("File $fileName uploaded successfully to $path/$fileName");
+                                                $size = getimagesize("$path/$fileName");
+                                                logger("$path/$fileName: width:".$size[0].", height:".$size[1]);
+                                                if ($size[0] > 1024) {
+                                                        logger("mogrify -resize 1024x1024 $path/$fileName");
+                                                        system("mogrify -resize 1024x1024 $path/$fileName");
+                                                }
+                                        }
+                                        exit;
+                                case '_delete':
+                                        // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/_delete
+                                        header("Content-Type: application/text");
+                                        $path = stripslashes(file_get_contents("php://input"));
+                                        if (is_dir($path)) {
+                                                rmdir($path);
+                                        } else {
+                                                unlink($path);
+                                        }
+                                        exit;
+                                case '_email':
+                                        // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/_email
+                                        header("Content-Type: application/text");
+                                        $value = stripslashes(file_get_contents("php://input"));
+                                        $json = json_decode($value);
+                                        $from = $json->from;
+                                        $to = $json->to;
+                                        $subject = $json->subject;
+                                        $message = $json->message;
+                                        $headers = "MIME-Version: 1.0\r\n";
+                                        $headers .= "Content-Type: text/html; charset=ISO-8859-1\r\n";
+                                        $headers .= "From: $from\r\n";
+                                        mail($to, $subject, $message, "$headers\r\n");
+                                        print "$headers\r\n$message";
+                                        exit;
+                                case '_save':
+                                        // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/_save/{path}
+                                        $path = '../../../resources/' . str_replace('~', '/', $request[0]);
+                                        $p = strrpos($path, '/');
+                                        $dir = substr($path, 0, $p);
+                                        mkdir($dir, 0777, true);
+                                        header("Content-Type: application/text");
+                                        $content = stripslashes(file_get_contents("php://input"));
+                                        $p = strrpos($path, '.');
+                                        $root = substr($path, 0, $p);
+                                        $ext = substr($path, $p);
+                                        $backup = "$root-bak$ext";
+                                        unlink($backup);
+                                        copy($path, $backup);
+                                        file_put_contents($path, $content);
+                                        exit;
+                        }
+                        break;
+        }
+        // Most further commands require use of the database.
+        $conn = mysqli_connect($props['sqlhost'], $props['sqluser'],
+                $props['sqlpassword'], $props['sqldatabase']);
+        if (!$conn)
+        {
+                http_response_code(404);
+                die("Failed to connect to MySQL: " . mysqli_connect_error());
+        }
+        mysqli_set_charset($conn,'utf8');
+        if (!count($request)) {
+                http_response_code(400);
+                print "{\"message\":\"Incomplete REST query: ".substr($_SERVER['PATH_INFO'], 1).".\"}";
+                exit;
+        }
+        // You can have a custom extension that deals with special requests.
+        // These all have '_' as the table name.
+        switch ($method) {
+                case 'GET':
+                        if ($table == '_') {
+                                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/_/{request-and-arguments}
+                                include '../../../easycoder/rest-local.php';
+                                get_local($conn, $request);
+                                return;
+                        } else {
+                                // Use the handler below
+                                get($conn, $table, $request);
+                        }
+                        break;
+                case 'POST':
+                        if ($table == '_') {
+                                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/_/{request-and-arguments}
+                                include '../../../easycoder/rest-local.php';
+                                post_local($conn, $request);
+                                return;
+                        } else {
+                                // Use the handler below
+                                post($conn, $table, $request);
+                        }
+                        break;
+                default:
+                        http_response_code(400);
+                        break;
+        }
+        mysqli_close();
+        exit;
+        /////////////////////////////////////////////////////////////////////////
+        // All the other commands deal with tables having a specific format, with the following fields:
+        //
+        // id int(11)
+        // name varchar(40)
+        // value text
+        // ts int(11)
+        //
+        // GET
+        function get($conn, $table, $request) {
+                $action = $request[0];
+                switch ($action) {
+                        case 'count':
+                                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/table/count
+                                // Return the number of items in the table
+                                $result = $conn->query("SELECT id from $table");
+                                //print "{\"count\":".mysqli_num_rows($result)."}";
+                                print mysqli_num_rows($result);
+                                mysqli_free_result($result);
+                                break;
+                        case 'list':
+                                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/{table}/list/{offset}/{count}
+                                // List items by ID, with optional offset & count, defaulting to 0 & 10
+                                switch (count($request)) {
+                                        case 2:
+                                                $offset = 0;
+                                                $count = $request[1];
+                                                break;
+                                        case 3:
+                                                $offset = $request[1];
+                                                $count = $request[2];
+                                                break;
+                                        default:
+                                                $offset = 0;
+                                                $count = 10;
+                                                break;
+                                }
+                                $result = $conn->query("SELECT id FROM $table LIMIT $offset, $count");
+                                $response = '[';
+                                while ($row = mysqli_fetch_object($result)) {
+                                        if ($response != '[') {
+                                                $response .= ',';
+                                        }
+                                        $response .= $row->id;
+                                }
+                                mysqli_free_result($result);
+                                $response .= ']';
+                                print $response;
+                                break;
+                        case 'names':
+                                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/{table}/names/{offset}/{count}
+                                // List items by name in ascending alphabetical order,
+                                // with optional offset & count, defaulting to 0 & 10
+                                switch (count($request)) {
+                                        case 2:
+                                                $offset = 0;
+                                                $count = $request[1];
+                                                break;
+                                        case 3:
+                                                $offset = $request[1];
+                                                $count = $request[2];
+                                                break;
+                                        default:
+                                                $offset = 0;
+                                                $count = 10;
+                                                break;
+                                }
+                                $result = $conn->query("SELECT name FROM $table ORDER BY name LIMIT $offset, $count");
+                                $response = '[';
+                                while ($row = mysqli_fetch_object($result)) {
+                                        if ($response != '[') {
+                                                $response .= ',';
+                                        }
+                                        $response .= "\"$row->name\"";
+                                }
+                                mysqli_free_result($result);
+                                $response .= ']';
+                                print $response;
+                                break;
+                        case 'id':
+                                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/{table}/id/{id}
+                                // Get a record given its id
+                                if (count($request) < 2) {
+                                        http_response_code(400);
+                                        print "Incomplete REST query.";
+                                        exit;
+                                }
+                                $id = $request[1];
+                                $result = $conn->query("SELECT value FROM $table WHERE id='$id'");
+                                if ($row = mysqli_fetch_object($result)) {
+                                        print $row->value;
+                                } else {
+                                        http_response_code(404);
+                                        print "Cannot get item id '$id' as it does not exist.";
+                                }
+                                mysqli_free_result($result);
+                break;
+                        case 'name':
+                        case 'query':
+                                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/{table}/name/{name}
+                                // Get a record given its name
+                                if (count($request) < 2) {
+                                                http_response_code(400);
+                                                print "Incomplete REST query.";
+                                                exit;
+                                }
+                                $name = $request[1];
+                                $result = $conn->query("SELECT value FROM $table WHERE name='$name'");
+                                if ($row = mysqli_fetch_object($result)) {
+                                        print $row->value;
+                                } else if ($action == 'name') {
+                                        http_response_code(404);
+                                        print "Cannot get item named '$name' as it does not exist.";
+                                }
+                break;
+                        default:
+                                http_response_code(404);
+                                print "I don't understand this request.";
+                                break;
+                        }
+        }
+        /////////////////////////////////////////////////////////////////////////
+        // POST
+        function post($conn, $table, $request) {
+                $ts = time();
+                $action = $request[0];
+                switch ($action) {
+                        case 'set':
+                                // Set the value of a record
+                                if (count($request) > 2) {
+                                        switch ($request[1]) {
+                                                case 'id':
+                                                        // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/{table}/id/{id}
+                                                        // Set by id. The record must already exist
+                                                        header("Content-Type: application/text");
+                                                        $value = stripslashes(file_get_contents("php://input"));
+                                                        $id = $request[2];
+                                                        // See if there's an item with this id
+                                                        $result = $conn->query("SELECT id FROM $table WHERE id=$id");
+                                                        if (mysqli_fetch_object($result)) {
+                                                                // It exists, so update it
+                                                                $value = urldecode($value);
+                                                                logger("UPDATE $table SET value='$value',ts=$ts WHERE id=$id");
+                                                                query($conn, "UPDATE $table SET value='$value',ts=$ts WHERE id=$id");
+                                                        } else {
+                                                                // Not found
+                                                                http_response_code(404);
+                                                                logger("{\"code\":\"404\",\"message\":\"Cannot set record $id of $table.\"}");
+                                                                print "{\"message\":\"Cannot set record $id of $table.\"}";
+                                                        }
+                            mysqli_free_result($result);
+                            break;
+                                                case 'name':
+                                                        // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/{table}/name/{name}
+                                                        // Set by name. If the record does not exist, add it
+                                                        header("Content-Type: application/text");
+                                                        $value = stripslashes(file_get_contents("php://input"));
+                                                        $name = $request[2];
+                                                        // See if there's an item with this name
+                                                        $result = $conn->query("SELECT id FROM $table WHERE name='$name'");
+                                                        if (mysqli_fetch_object($result)) {
+                                                                // It exists, so update it
+                                                                query($conn, "UPDATE $table SET value='$value',ts=$ts WHERE name='$name'");
+                                                        } else {
+                                                                // Add a new item
+                                                                query($conn, "INSERT INTO $table (name,value,ts) VALUES ('$name','$value','$ts')");
+                                                                http_response_code(201);
+                                                        }
+                            mysqli_free_result($result);
+                            break;
+                                                default:
+                                                        http_response_code(400);
+                                                        print "{\"message\":\"Value '".$request[1]."' should be 'id' or 'name'.\"}";
+                                                        break;
+                                        }
+                                } else {
+                                        http_response_code(400);
+                                        print "{\"message\":\"Incomplete REST query.\"}";
+                                }
+                                break;
+                        case 'delete':
+                                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/{table}/delete/{id}
+                                // Or: .../rest.php/table/delete/{name}
+                                // Delete a record, by id or by name
+                                if (count($request) > 1) {
+                                        $item = $request[1];
+                                        if (is_int($item)) {
+                                                // Delete the requested id
+                                                query($conn, "DELETE FROM $table WHERE id=$id");
+                                        } else {
+                                                // Delete the named item
+                                                query($conn, "DELETE FROM $table WHERE name='$item'");
+                                        }
+                                }
+                                break;
+                        case 'rename':
+                                // Endpoint: {site root}/wp-content/plugins/easycoder/rest.php/{table}/rename
+                                // Rename a record
+                                $value = $_POST['value'];
+                                $id = $_POST['id'];
+                                if (!$id && count($request) > 1) {
+                                        $id = $request[1];
+                                }
+                                if ($id) {
+                                        query($conn, "UPDATE $table SET name='$name',value='$value' WHERE id=$id");
+                                } else {
+                                        $name = $_POST['name'];
+                                        $newname = $_POST['newname'];
+                                        // See if there's a data item with the new name
+                                        $result = $conn->query("SELECT id FROM $table WHERE name='$newname'");
+                                        if ($row = mysqli_fetch_object($result)) {
+                                                // Conflict
+                                                http_response_code(409);
+                                                print "{\"message\":\"Cannot rename item '$name' to '$newname' as it already exists.\"}";
+                                        } else {
+                                                // See if there's a data item with this name
+                                                $result = $conn->query("SELECT id FROM $table WHERE name='$name'");
+                                                if ($row = mysqli_fetch_object($result)) {
+                                                        // There's a data item to rename
+                                                        $id = $row->id;
+                                                        query($conn, "UPDATE $table SET name='$newname',value='$value' WHERE id=$id");
+                                                } else {
+                                                        // Not found
+                                                        http_response_code(404);
+                                                        print "{\"message\":\"Cannot rename item '$name' as it does not exist.\"}";
+                                                }
+                                        }
+                    mysqli_free_result($result);
+                                }
+                break;
+                        default:
+                                http_response_code(404);
+                                print "{\"message\":\"Unrecognised action '$action' requested.\"}";
+                                break;
+                }
+        }
+        /////////////////////////////////////////////////////////////////////////
+        // Do an SQL query
+        function query($conn, $sql)
+        {
+                $result = mysqli_query($conn, $sql);
+                if (!$result) {
+                        http_response_code(404);
+                        logger('Error: '.mysqli_error($conn));
+                        die('Error: '.mysqli_error($conn));
+                }
+                return $result;
+        }
+        ////////////////////////////////////////////////////////////////////////////
+        // Log a message.
+        function logger($message)
+        {
+                $timestamp = time();
+                $date = date("Y/m/d H:i", $timestamp);
+                if (!file_exists("log")) mkdir("log");
+                $file = "log/".date("Y", $timestamp);
+                if (!file_exists($file)) mkdir($file);
+                $file.= "/".date("Ymd", $timestamp).".txt";
+                $fp = fopen($file, "a+") or die("Can't open $file");
+                fwrite($fp, "$date: $message\n");
+                fclose($fp);
+        }
 ?>

Note: See TracChangeset for help on using the changeset viewer.

Trac UI Preferences

Plugin Directory