var Nil=null, Undefined=undefined; var True=true, False=false;  var SERVER=(typeof window)=="undefined"; function stop(errno) { if (SERVER) process.exit(errno); else nofunc(); } var ERRLI=-1,ERRCOL=-1; function errlicolSet(LI,COL) { ERRLI=LI,ERRCOL=COL; } function error(msg) { if (ERRLI>0) msg+="; LI="+ERRLI.toString(); if (ERRCOL>0) msg+="; COL="+ERRCOL.toString(); (SERVER?console.log:alert)(msg); stop(1); }  function prototype(X) { var RES=Object.getPrototypeOf(X); if (RES==Nil) return Object.prototype; return RES; } function constructor(X) { return prototype(X).constructor; } function isa0(O,C,REC) { if (isNil(O)) return False; if (constructor(O)==C) return True; if (isUndefined(REC)) REC=True; if (!REC || constructor(O)==Object) return False; return isa0(prototype(O),C,REC); } function eqNil(O) { return O===Nil; } function isDefined(O) { return O!==Undefined; } function isUndefined(O) { return O===Undefined; } function isNil(O) { return isUndefined(O) || O==BoxedUndefined || eqNil(O) || O==BoxedNil; } function isSymbol(O) { return isa0(O,Symbol); } function isBoolean(O) { return isa0(O,Boolean); } function isNumber(O) { return isa0(O,Number); } function isString(O) { return isa0(O,String); } function isNumStr(O) { return isNumber(O) || strIsNum(O); } function isAtom(O) { return isNil(O) || isSymbol(O) || isBoolean(O) || isNumber(O) || isString(O); } function isArray(O) { return isa0(O,Array); } function isFunction(O) { return isa0(O,Function); }  var _SY={}; function sy(S) { if (isString(S)) { _SY[S]=1;return Symbol.for(S); } else if (isSymbol(S)) return Symbol.keyFor(S); else error("sy"); } function syExists(S) { return isDefined(_SY[S]); }  var CharNatNone=0,CharNatUnknown=CharNatNone, CharNatAlf=1,CharNatQuote=2,CharNatDQuote=3, CharNatOmg=4,CharNatDigit=5,CharNatBlank=6 var CharNat=[]; function asc(c) { return c.charCodeAt(0)&255; } function chr(i) { return String.fromCharCode(i); } function charnat(c) { return CharNat[asc(c)]; } function charnatSet(c,n) { return CharNat[asc(c)]=n; } function charIsAlpha(C) { return charnat(C)==CharNatAlf; } function charIsOmg(C) { return charnat(C)==CharNatOmg; } function charIsDigit(C) { return charnat(C)==CharNatDigit; } function charIsBlank(C) { return charnat(C)==CharNatBlank; } function charIsUnknown(C) { return charnat(C)==CharNatUnknown; } function charIs(C,N) { return charnat(C)==N; } function strIs(S,N) { if (!isString(S)) return False; for (var I=0;I<length(S);I++) if (!charIs(S[I],N)) return False; return True; } function strIsAlpha(S) {  return strIs(S,CharNatAlf); } function strIsOmg(S) { return strIs(S,CharNatOmg); } function strIsNum(S) { return strIs(S,CharNatDigit); } function strIsBlank(S) { return strIs(S,CharNatBlank); } function charsInit() { var i; for (i=0;i<256;i++) CharNat[i]=CharNatNone; for (i=0;i<=126;i++) CharNat[i]=CharNatOmg; for (i=asc('A');i<=asc('Z');i++) CharNat[i]=CharNatAlf; for (i=asc('a');i<=asc('z');i++) CharNat[i]=CharNatAlf; CharNat[225]=CharNatAlf;  CharNat[224]=CharNatAlf;  CharNat[226]=CharNatAlf;  CharNat[228]=CharNatAlf;  CharNat[233]=CharNatAlf;  CharNat[232]=CharNatAlf;  CharNat[234]=CharNatAlf;  CharNat[237]=CharNatAlf;  CharNat[236]=CharNatAlf;  CharNat[238]=CharNatAlf;  CharNat[243]=CharNatAlf;  CharNat[242]=CharNatAlf;  CharNat[244]=CharNatAlf;  CharNat[246]=CharNatAlf;  CharNat[250]=CharNatAlf;  CharNat[249]=CharNatAlf;  CharNat[251]=CharNatAlf;  CharNat[252]=CharNatAlf;  CharNat[241]=CharNatAlf;  CharNat[133]=CharNatAlf;  CharNat[150]=CharNatAlf;  CharNat[asc('"')]=CharNatDQuote; CharNat[asc('\'')]=CharNatQuote;  CharNat[asc('_')]=CharNatAlf; CharNat[asc('$')]=CharNatAlf; for (i=asc('0');i<=asc('9');i++) CharNat[i]=CharNatDigit; CharNat[asc("\t")]=CharNatBlank; CharNat[asc(" ")]=CharNatBlank; CharNat[asc("\n")]=CharNatBlank; CharNat[asc("\r")]=CharNatBlank; }  function trim(s,chars,left,right) { if (chars==undefined) chars=" "; if (left==undefined) left=true; if (right==undefined) right=true; var res="",a=s.split(""),i; if (left) { i=0; while (i<a.length && chars.indexOf(a[i])!=-1) { a[i]=null; i++; } } if (right) { i=a.length-1; while (i>=0 && chars.indexOf(a[i])!=-1) { a[i]=null; i--; } } for (i=0;i<a.length;i++) if (a[i]!=null) res+=a[i]; return res; } function startsWith(s,i,pref) { if (s.length-i<pref.length) return false; else { return substring(s,i,pref.length)==pref; } } function endsWith(s,suff) { if (s.length<suff.length) return false; else { return substring(s,s.length-suff.length,s.length)==suff; } } function strFind(s,ss) { for (var i=0;i<s.length;i++) { if (startsWith(substring(s,i,s.length),0,ss)) return i; } return -1; } function strMatch(S,PATTERN) { var A=PATTERN.split("*"); if (length(A)==1) return S==PATTERN; if (length(A)==2) { if (A[0]=="" && A[1]=="") return True; if (A[0]=="") return endsWith(S,A[1]); if (A[1]=="") return startsWith(S,0,A[0]); if (length(A[0])>length(S) || length(A[1])>length(S)) return False; return startsWith(S,0,A[0]) && endsWith(substring(S,length(A[0]),length(S)),A[1]); } if (length(A)==3) { if (A[0]=="" && A[1]=="" && A[2]=="") return True; if (A[0]=="" && A[1]!="" && A[2]=="") return strFind(S,A[1])!=-1; } error("strMatch"); } function substring(S,I0,I1) { return S.substring(I0,I1); } function splitTrim(s,chars) { var a=s.split(chars); for (var i=0;i<a.length;i++) a[i]=trim(a[i]," \r\n",true,true); return a; } function splitOnce(S,SEP,DFLT) { var A=splitTrim(S,SEP),RES=[DFLT[0],DFLT[1]]; if (length(A)==0) error("splitOnce"); if (length(A)==1) if (isUndefined(DFLT[0])) RES[0]=S; else RES[1]=S; else { RES[0]=A[0]; RES[1]=substring(S,length(A[0])+length(SEP),length(S)); } return RES; } function replaceAll(s,s1,s2) { var s0; do { s0=s; s=s.replace(s1,s2); } while (s!=s0); return s; } function lcase(s) { return s.toLowerCase(); } function ucase(s) { return s.toUpperCase(); } function count(S,CHARS,I0,ATBEG) { var RES=0; if (isUndefined(I0)) I0=0; for (var i=I0;i<length(S);i++) { var FOUND=False; for (var j=0;j<length(CHARS);j++) { if (CHARS=="" || S[i]==CHARS[j]) { RES++;FOUND=True;break; } } if (!FOUND && ATBEG) break; } return RES; } function explode(S) { if (!isUndefined(S) && !isString(S)) error("explode"); var RES=[]; if (isDefined(S)) for (var I=0;I<length(S);I++) RES[I]=S[I]; return RES; } function implode(A) { if (isString(A)) return A; if (!isArray(A)) error("implode"); var RES=""; for (var I=0;I<length(A);I++) RES+=A[I];  return RES; }  function arrayN(N,VAL) { var A=[]; while (N--) A.push(VAL); return A; } function length(o) { if (isString(o) || isArray(o)) return o.length; else if (isAtom(o)) return 0; else return Object.getOwnPropertyNames(o).length; } function empty(st) { return length(st)==0; } function last(st) {  if (empty(st)) return null; return st[st.length-1]; } function contains(a,o,weak) { if (isString(a)) return strFind(a,o)!=-1; else if (isArray(a)) { for (var i=0;i<a.length;i++) if (weak?a[i]==o:a[i]===o) return true; } else out(display(a)),error("contains"); return false; } function containsVal(a,o) { return contains(a,o,True); } function index(a,o) { for (var i=0;i<a.length;i++) if (a[i]===o) return i; return -1; } function find(a,o,data) { for (var i=0;i<a.length;i++) { if (!data && o(a[i]) || data && (isNil(o)?a[i]===o:a[i]==o)) return a[i]; } return Undefined; } function arrayToDict(a) { var d={}; for (var i=0;i<a.length;i++) if (a[i]!=null) d[a[i][0]]=a[i][1]; return d; } function splice(t,i,ndel,t2) { t.splice.apply(t,[i,ndel].concat(t2)); }  function strEscape(s) { var res=""; for (var i=0;i<s.length;i++) { var c=s[i]; if (c=='"') c="\\\""; if (c=='\n') c="\\n"; res+=c; } return res; } var displaying=[],display_mode="cooked"; function displayMode(mode) { display_mode=mode; } function display(o) {  var res=null; if (isUndefined(o)) res="Undefined"; else if (isNil(o)) res="Nil"; else if (isBoolean(o)) res=o.toString(); else if (isNumber(o)) res=o.toString(); else if (isString(o)) {  res=o; if (display_mode=="cooked") res='"'+strEscape(o)+'"'; } else if (isFunction(o)) res="<JSFunc>"; else if (contains(displaying,o)) res="^^"; else if (isArray(o)) { displaying.push(o); res="["; for (var i=0;i<o.length;i++) { if (i>0) res+="|"; res+=display(o[i]); } res+="]"; displaying.pop(); } else { displaying.push(o); res="{"; var first=true; for (var val in o) { if (!first) res+="|"; else first=false; if (val!="parent") { res+=val+"="+display(o[val]); } } res+="}"; displaying.pop(); } return res; }  var origin; if (SERVER) origin=global; else origin=window;  function basicsInit() { charsInit(); }   function fileExists(fname) { if (SERVER) return fs.existsSync(fname); else return httpSend("GET","http://localhost:8080/fileExists?"+fname);  } function fileIsDir(fname) { var fd=fs.openSync(fname,"r"); var stats=fs.fstatSync(fd); return stats.isDirectory(); } function fileRead(fname,encoding) { if (SERVER) { if (!fileExists(fname)) error("File not found: "+fname); var RES=fs.readFileSync(fname,"latin1"); RES=Buffer.from(RES,"latin1").toString("utf8");  return RES; } else return httpSend("GET","http://localhost:8080/"+fname);  } function filePath(fname) { return path.dirname(fname); } function fileName0(fname) { var a=fname.split("/"); return a[length(a)-1]; } function fileName(fname) { var a=fname.split("."); return fileName0(a[0]);  } function fileExt(fname) { var a=fname.split("."); return length(a)>1?a[length(a)-1]:Undefined; } function fileWrite(fname,str) { try { fs.writeFileSync(fname,str,"latin1");  } catch (err) { error("Can't write file: "+fname); } } function fileDelete(fname) { fs.unlinkSync(fname); }  function dirCreate(fname) { try { fs.mkdirSync(fname); } catch (err) { error("Can't create directory: "+fname); } } function vfileCreate(fname,isDir,parent,val) {  return {"fname":fname,"isDir":isDir,isModified:false,"val":val, "parent":parent}; } _READ={}; function fileReadSet(ext,readFunc) { _READ[ext]=readFunc; } function dirRead(fname,mask) { function fileRead(fname) { var dir=path.dirname(fname)+"/"; fname=path.basename(fname); var val=""; var readFunc=_READ[fileExt(fname)]; if (readFunc!=undefined) { val=readFunc(dir+fname); val=replaceAll(val,"\r\n","\n"); } return val; } var predir=path.dirname(fname)+"/"; fname=path.basename(fname); var d=vfileCreate(fname,true,null,{}); var dir=fname; if (predir!="") dir=predir+"/"+fname; var a=fs.readdirSync(dir); for (var i=0;i<a.length;i++) { var b=fileIsDir(dir+"/"+a[i]); if (b) { d.val[a[i]]=dirRead(dir+"/"+a[i],mask); d.val[a[i]].parent=d; } else { d.val[a[i]]=vfileCreate(a[i],b,d,null); if (mask==undefined || endsWith(a[i],mask)) d.val[a[i]].val=fileRead(dir+"/"+a[i]); } } return d; } function foreach_vfile(d,func) { for (var fname in d.val) { var f=d.val[fname]; if (f.isDir) foreach_vfile(f,func); else func(f); } func(d); } function vfilePathname(vf) { var a=[]; do { a.push(vf.fname); vf=vf.parent; } while (vf!=null); return replaceAll(path.normalize(a.reverse().join("/")),"\\","/"); } function isChildPath(p,parent) { p=path.normalize(p); parent=path.normalize(parent); if (parent[0]=="." && p[0]!='/') p="./"+p;  return startsWith(p,parent); }  function urlParse(U) { var RES; if (SERVER) RES=url.parse(U); else RES=document.createElement('a'),RES.href=U; return RES; }  var ColorNone ="0", ColorBright ="1", ColorNoBright ="22", ColorUnderscore ="4", ColorNoUnderscore ="24", ColorBlink ="5", ColorNoBlink ="25", ColorReverse ="7", ColorNoReverse ="27"; var ColorBlack ="30", ColorRed ="31", ColorGreen ="32", ColorBrown ="33", ColorBlue ="34", ColorMagenta ="35", ColorCyan ="36", ColorWhite ="37", ColorGrey ="b30", ColorBrightRed ="b31", ColorBrightGreen ="b32", ColorYellow ="b33", ColorBrightBlue ="b34", ColorBrightMagenta ="b35", ColorBrightCyan ="b36", ColorBrightWhite ="b37"; ColorBgBlack ="40", ColorBgRed ="41", ColorBgGreen ="42", ColorBgBrown ="43", ColorBgBlue ="44", ColorBgMagenta ="45", ColorBgCyan ="46", ColorBgWhite ="47"; var HTMLColor={};  HTMLColor[ColorBlack]="#000000",HTMLColor[ColorRed]="#FF0000"; HTMLColor[ColorGreen]="#00FF00",HTMLColor[ColorBrown]="#800080"; HTMLColor[ColorBlue]="#000080",HTMLColor[ColorMagenta]="#008080"; HTMLColor[ColorCyan]="#0000FF",HTMLColor[ColorWhite]="#808080"; function htmlEscapeChars(html) { var res=""; for (var i=0;i<html.length;i++) { var c=html[i]; if (c=='<') c="&lt;"; if (c=='>') c="&gt;"; if (c=='&') c="&amp;"; res+=c; } return res; } function htmlEscapeBlanks(html) { var res=""; for (var i=0;i<html.length;i++) { var c=html[i]; if (c=='\n') c="<br>"; if (c==' ') c="<span style=\"white-space:pre-wrap;\"> </span>";  res+=c; } return res; } var OUTS=Nil; function startOutS() { OUTS=""; } function stopOutS() { OUTS=Nil; } function getOutS() { return OUTS; } function _out0(S) { if (!isString(S)) { console.log("<"+display(S)+">");error("out0"); } if (OUTS==Nil) if (SERVER) process.stdout.write(S); else document.write(S); else OUTS+=S;  } function out0(S) { return _out0(S); } function _out(S) { if (SERVER || OUTS!=Nil) out0(S); else out0(htmlEscapeBlanks(htmlEscapeChars(S))); } function out(O) { return _out(O); } function outd(O) { out(display(O)); } function br(s) { out0("<br>"); } function hr(s) { out0("<hr>"); } function esc(C) { if (SERVER) return "\x1b["+C+"m"; else { C=HTMLColor[C]; return C==undefined?"":"</font><font color=\""+C+"\">";  } } function color(C) { if (C[0]=="b") out0(esc(ColorBright)),C=substring(C,1,length(C)); else out0(esc(ColorNoBright)); out0(esc(C)); } function cr() { out("\n"); } function spc(N,C) { var RES=""; if (isUndefined(C)) C=" "; while (N--) RES+=C; return RES; } function indent(N) { while (N--) out(" "); } var OUTINDENT=0; function outIndent() { indent(OUTINDENT); } function outIndentInc(N) { OUTINDENT+=N; } function crIndent() { cr(); outIndent(); } function consoleInit() { ColorBlue=env("TERM")=="cygwin"?"37":"34";  ColorWhite=env("TERM")=="cygwin"?"34":"37"; }  function env(VAR) { if (SERVER) return process.env[VAR]; else return ""; }  function argvRemove(argv,j) { splice(argv,j,1,[]); }  var fs,path,url; function filesInit() { if (SERVER) { fs=require('fs'); path=require('path'); url=require('url'); } consoleInit(); }   function setprop(O,NAME,VAL,E,W,C) { if (!isString(NAME)) error("setprop"); if (isUndefined(E)) E=False; if (isUndefined(W)) W=False; if (isUndefined(C)) C=False; Object.defineProperty(O,NAME,{ "value": VAL, "enumerable": E, "writable": W, "configurable": C }); } var getPrototypeOf=Object.getPrototypeOf || function (O) {  return O.__proto__;  } var setPrototypeOf=Object.setPrototypeOf || function (O,PROTO) {  O.__proto__=PROTO; return O; } function hasPrototype(O,P) { O=getPrototypeOf(O); while (O!=Nil) { if (O==P) return True; O=getPrototypeOf(O); } return False; }  var SymbolType=Symbol("type"); function _mtypeOf() { var OBJ=this; if (!isNil(this.typeOf)) OBJ=prototype(this); return OBJ[SymbolType]; } function jsprotoCreate(JSPROTO,TYPE,JSPARENT) { var CLASS=Object; if (!isNil(JSPARENT)) CLASS=JSPARENT.constructor; var RES=JSPROTO; if (JSPROTO==Nil) RES=(class extends CLASS {}).prototype; RES[SymbolType]=TYPE; setprop(RES,"typeOf",_mtypeOf); setprop(RES,"init0",function () {},False,True);  return RES; } function jsprotoIsAtom(PROTO) { return PROTO==Symbol.prototype || PROTO==Boolean.prototype || PROTO==Number.prototype || PROTO==String.prototype; } function jsprotoInheritsAtom(PROTO) { if (PROTO==Nil) return False; if (jsprotoIsAtom(PROTO)) return True; return jsprotoInheritsAtom(Object.getPrototypeOf(PROTO)); } function _createObject(CONT) { var RES=new this.JSPROTO.constructor(); if (!isUndefined(CONT)) { if (!isContainer(CONT)) error("_createObject"); CONT.store(RES); } RES.init0(); return RES; } function _consObject(JSPROTO,VAL,CONT) { if (!isUndefined(VAL) && constructor(VAL)!=Object && constructor(VAL)!=Array) { if (!isContainer(VAL) || !isUndefined(CONT)) error("_consObject"); CONT=VAL; VAL=Undefined; } var RES=({ "_":_createObject, "JSPROTO":JSPROTO })._(CONT); RES.init(); if (isDefined(VAL)) Object.assign(RES,VAL);  return RES; } function _createAtom(VAL,CONT) { var RES=new this.JSPROTO.constructor(VAL); if (!isUndefined(CONT)) CONT.store(RES); RES.init0(); return RES; } function _consAtom(JSPROTO,VAL,CONT) {  var RES=({ "_":_createAtom, "JSPROTO":JSPROTO })._(VAL,CONT); RES.init(); return RES; } var TYPEPROTO=jsprotoCreate(Nil,Nil); setprop(TYPEPROTO,"init0",function () { this.NAME=Nil; this.PARENT=Nil; this.JSPROTO=Nil; this.ATTRS=[]; setprop(this,"create",_createObject,False,True); }); var TYPES={}; var type=function (CONS,O) { var PARENT=Nil; if (!isNil(O)) PARENT=O.PARENT; var JSPARENT=Nil; if (PARENT!=Nil) JSPARENT=PARENT.JSPROTO; var JSPROTO=Nil; if (CONS==type) JSPROTO=TYPEPROTO; else if (!isNil(O) && !isNil(O.JSPROTO)) JSPROTO=O.JSPROTO; if (isNil(CONS) || CONS!=type) JSPROTO=jsprotoCreate(JSPROTO,CONS,JSPARENT); var CREATE=jsprotoInheritsAtom(JSPROTO) ?_createAtom :_createObject; if (isNil(CONS)) { CONS=CREATE==_createObject ?function (VAL,CONT) { return _consObject(JSPROTO,VAL,CONT); } :function (VAL,CONT) { return _consAtom(JSPROTO,VAL,CONT); }; } JSPROTO[SymbolType]=CONS; Object.setPrototypeOf(CONS,TYPEPROTO); CONS.init0(); CONS.PARENT=PARENT; CONS.JSPROTO=JSPROTO; if (!isNil(O)) { if (!isNil(O.NAME)) { CONS.NAME=O.NAME; TYPES[O.NAME]=CONS; } CONS.ATTRS=[]; if (!isArray(O.ATTRS)) { if (!isNil(O.ATTRS)) error("type::ATTRS"); } else if (!empty(O.ATTRS)) CONS.setAttrs(O.ATTRS);  for (var N in O) if (N!="NAME" && N!="PARENT" && N!="JSPROTO" && N!="ATTRS") CONS[N]=O[N]; } delete CONS.name;  if (!empty(CONS.ATTRS)) { setprop(CONS.JSPROTO,"init0",function () { for (var I=0;I<length(CONS.ATTRS);I++) { var VAL0=CONS.ATTRS[I].VAL0; if (isBoxed(VAL0)) { var VAL1={}; if (isArray(VAL0)) VAL1=[]; Object.assign(VAL1,VAL0); VAL0=VAL1; } if (CONS.ATTRS[I].QUALIF.has("v>")) this.setv(CONS.ATTRS[I].NAME,VAL0);  else if (CONS.ATTRS[I].QUALIF.has("v")) this[CONS.ATTRS[I].NAME]=VAL0; } }, False,True); } setprop(CONS,"create",CREATE,False,True); return CONS; } var obj=type(function (VAL,CONT) {  if (!isUndefined(VAL) && constructor(VAL)!=Object) { if (!isContainer(VAL)) { if (constructor(VAL)==Array && isDefined(tree)) return tree(VAL,CONT); } else { if (!isUndefined(CONT)) error("obj.cons"); CONT=VAL; VAL=Undefined; } } var RES=obj.create(CONT); if (isDefined(VAL)) Object.assign(RES,VAL);  return RES; }, { "NAME":"obj", "PARENT":Nil, "JSPROTO":Object.prototype, "ATTRS":[] }); type=type(type, { "NAME":"type", "PARENT":obj, "ATTRS":[] }); setprop(type,"create",function () { error("type.create"); }); setprop(type,"getByName",function (NAME) { return TYPES[NAME]; }); function isType(O) { return isa(O,type); } setprop(TYPEPROTO,"setMethod",function (NAME,FUNC) { setprop(this.JSPROTO,NAME,FUNC,False,True); }, False,True); obj.setMethod("init",function () {}); type.setMethod("name",function () { return this.NAME; }); type.setMethod("parent",function () { return this.PARENT; }); type.setMethod("inherits",function (T) { var P=this.parent(); if (!isType(T) || P==Nil) return False; if (P==T) return True; else return P.inherits(T); }); type.setMethod("method",function (NAME) { var FUNC=this.JSPROTO[NAME];  return isFunction(FUNC)?FUNC:Undefined; }); type.setMethod("super",function (NAME) { return this.parent().method(NAME); }); obj.setMethod("super",function (NAME,...PARMS) { var M=typeOf(this).super(NAME); if (isNil(M)) error("super::method "+NAME+" doesn't exists in class "+typeOf(this).parent().name()); return M.apply(this,PARMS); });  var nil=type(function (VAL) { var RES=boxit(VAL); if (!isNil(RES.valueOf())) error("nil"); return RES; }, { "NAME":"nil", "PARENT":obj, "ATTRS":[] }); var BoxedNil=nil.create(),BoxedUndefined=nil.create(); nil.setMethod("valueOf",function () { if (this==BoxedUndefined) return Undefined; if (this==BoxedNil) return Nil; error("nil.valueOf"); }); function isUnboxed(O) { if (O==Nil) return True; return isAtom(O) && O.valueOf()===O; } function isBoxed(O) { if (O==Nil) return False; return !isUnboxed(O); } function boxed(O) { if (O==Nil) return boxit(O); if (isUnboxed(O)) return Object(O); return O; } function boxit(O) { if (isUndefined(O)) return BoxedUndefined; if (eqNil(O)) return BoxedNil; return O; } function typeOf(O) { O=boxit(O); if (!isFunction(O.typeOf)) return obj; return O.typeOf(); }  var symb=type(function (S) { return Symbol(S); }, { "NAME":"symb", "PARENT":obj, "JSPROTO":Symbol.prototype, "ATTRS":[] }); var bool=type(function (B,CONT) { return bool.create(B,CONT); }, { "NAME":"bool", "PARENT":obj, "JSPROTO":Boolean.prototype, "ATTRS":[] }); var num=type(function (N,CONT) { return num.create(N,CONT); }, { "NAME":"num", "PARENT":obj, "JSPROTO":Number.prototype, "ATTRS":[] }); var str=type(function (S,CONT) { return str.create(S,CONT); }, { "NAME":"str", "PARENT":obj, "JSPROTO":String.prototype, "ATTRS":[] }); var array=type(function (VAL) {  if (isString(VAL)) return explode(VAL); var RES=[]; if (isDefined(VAL)) Object.assign(RES,VAL);  return RES; }, { "NAME":"array", "PARENT":obj, "JSPROTO":Array.prototype, "ATTRS":[] }); type.setMethod("isAtom",function (STRICT) { if (STRICT) return this==nil || this==symb || this==bool || this==num || this==str; else return this.isAtom(True) || this.inherits(nil) || this.inherits(symb) || this.inherits(bool) || this.inherits(num) || this.inherits(str); }); type.setMethod("root",function () { if (this.isAtom(True)) return this; else if (this.parent()==Nil) return obj; else return this.parent().root(); });  var set=type(function (VAL) { if (isUndefined(VAL)) VAL=[]; return set.create(implode(VAL));  }, { "NAME":"set", "PARENT":str, "ATTRS":[], "ELEMS":Undefined }); function isSet(O) { return isa(O,set); } set.setMethod("contains",function (ELTS) {  if (!isString(ELTS)) error("set.contains"); ;  for (var I=0;I<length(ELTS);I++) if (!contains(this,ELTS[I])) return False; return True; }); set.setMethod("has",set.method("contains")); set.setMethod("inter",function (S) { ;  var A=[]; for (var I=0;I<length(this);I++) if (contains(S,this[I])) A.push(this[I]); return typeOf(this)(A); }); set.setMethod("union",function (S) { ;  var A=explode(S); for (var I=0;I<length(this);I++) if (!contains(A,this[I])) A.push(this[I]); return typeOf(this)(A); }); set.setMethod("minus",function (S) { ;  var A=[]; for (var I=0;I<length(this);I++) if (!contains(S,this[I])) A.push(this[I]); return typeOf(this)(A); }); setprop(set,"parse",function (S) {  error("set.parse"); }); set.setMethod("serialize",function (VAL) {  error("set.serialize"); }); function tset(NAME,ELEMS) {  if (!isArray(ELEMS)) error("tset"); return RES=type(function (VAL) { if (isUndefined(VAL)) VAL=[]; return type.getByName(NAME).create(implode(VAL));  }, { "NAME":NAME, "PARENT":set, "ATTRS":[], "ELEMS":ELEMS }); }  var qualif=tset("qualif",[ "v",  "c",  "i",  "p",  "a",  "*",  "!",  ">",  "l"  ]); function isQualif(O) { return isa(O,qualif); } var addr=type(function (NAME,TYPE,QUALIF,VAL0) { if (isUndefined(TYPE)) return addr.obj(NAME); else { var RES=addr.create(); RES.init(NAME,TYPE,QUALIF,VAL0); return RES; } }, { "NAME":"addr", "PARENT":obj, "ATTRS":[] }); addr.setMethod("init",function (NAME,TYPE,QUALIF,VAL0) { if (isUndefined(TYPE)) TYPE=str; if (isString(QUALIF)) QUALIF=qualif(QUALIF); else if (!isQualif(QUALIF)) error("addr.init"); Object.assign(this,{ "NAME":NAME, "TYPE":TYPE, "QUALIF":QUALIF, "VAL0":VAL0 }); }); setprop(addr,"obj",function (S) {  S=trim(S," ",True,True); var A=splitOnce(S," ",["v",Undefined]); var Q=qualif(A[0]); if (Q.inter("vci")=="") Q=Q.union("v"); A=splitOnce(A[1],"=",[Undefined,Undefined]); var VAL0=eval("(function () { return "+A[1]+"; })()");  A=splitOnce(A[0],":",[Undefined,"obj"]); var NAME=A[0],TYPE=type.getByName(A[1]); return addr(NAME,TYPE,Q,VAL0); }); function isAddr(O) { return isa(O,addr); }  type.setMethod("attr",function (NAME) { return find(this.ATTRS,function (O) { return O.NAME==NAME; }); }); addr.setMethod("has",function (Q) { return this.QUALIF.has(Q); }); type.setMethod("attrHas",function (NAME,Q) { var A=this.attr(NAME); return isDefined(A) && A.has(Q); }); type.setMethod("setAttr",function (A) { if (isString(A)) A=addr(A); if (!isAddr(A)) error("setAttr"); if (!isNil(this.attr(A.NAME))) error("type.setAttr"); this.ATTRS.push(A); if (A.QUALIF.has("c")) { setprop(this.JSPROTO,A.NAME,A.VAL0,False,True); } }); type.setMethod("attrs",function () { return this.ATTRS; }); type.setMethod("setAttrs",function (L) { for (var I=0;I<length(L);I++) this.setAttr(L[I]); }); type.setAttrs(["NAME","PARENT","JSPROTO","ATTRS"]); addr.setAttrs(["NAME","TYPE","QUALIF","VAL0"]);  var func=type(function () { return func.create(); }, { "NAME":"func", "PARENT":obj, "JSPROTO":Function.prototype, "ATTRS":[] }); setprop(TYPEPROTO,"setMethod",function (NAME,FUNC) { if (!isFunction(FUNC)) error("setMethod"); this.setAttr(addr(NAME,func,"c",FUNC)); });   function isObject(O) { return isBoxed(O); } setprop(obj,"getById",function (ID) { error("obj.getById(!Yet)"); });  var create=obj;  function isa(O,T) { return typeOf(O)==T || typeOf(O).inherits(T); } obj.setMethod("equalAttrs",function (O) { var RES=True; for (var N in O) if (this[N]!=O[N]) RES=False; return RES; }); obj.setMethod("setAttrs",function (O,NOSLOTS) { if (isUndefined(NOSLOTS)) NOSLOTS={}; var RES=False; if (!isUndefined(O)) for (var N in O) if (isUndefined(NOSLOTS[N])) { if (this[N]!=O[N]) { this[N]=O[N]; RES=True; } } return RES; }); var oflags=tset("oflags",[ "d"  ]); var MEMORY; function memory() { return MEMORY; } function copy(O,MODE,CONT) { if (isContainer(MODE)) { if (!isUndefined(CONT)) error("copy"); CONT=MODE; MODE=Undefined; } if (isUndefined(CONT)) CONT=MEMORY; return CONT.copy(O,MODE); } function move(O,MODE,CONT) { if (isContainer(MODE)) { if (!isUndefined(CONT)) error("move"); CONT=MODE; MODE=Undefined; } if (isUndefined(CONT)) CONT=MEMORY; return CONT.move(O,MODE); } function parse(S,CONT) { return parsef(S,CONT); } function serialize(O,MODE) { if (isUndefined(MODE)) MODE="full"; if (!contains(["full","flat*","flat"],MODE)) error("serialize"); var FMT=[["*",MODE=="flat*"?"flat":MODE,[]]]; if (MODE=="flat") { sfinit(); serializefBis(O,"flat",[]); return sfresult(); } else return serializef(O,FMT); } function isDeleted(O) { return O.hasFlags("d"); } obj.setMethod("delete",function (MODE) {  if (isUndefined(MODE)) MODE="flat"; if (isUnboxed(this)) return; var ISARR=isArray(this); for (var N of sfattrs(this)) { var VAL=this[N],PO=True; if (!(ISARR && isNumStr(N))) PO=typeOf(this).attrHas(N,">"); if (isBoxed(VAL) && MODE=="flat" && !PO) error("delete(!PO)::"+N); if (isBoxed(VAL) && (MODE=="full" || PO)) { VAL.delete(MODE); } } this.addFlags("d"); }); setprop(obj,"delete",function (O,MODE) { if (isUnboxed(O)) O.delete(MODE); });  function tree(A,CONT) { if (isAtom(A) || constructor(A)!=Array && !isTemplate(A) || length(A)<1 || !isType(A[0])) return A; var O=length(A)==1?{}:A[1]; if (constructor(O)!=Object) error("tree(1)"); O.$=[]; for (var I=2;I<length(A);I++) O.$.push(tree(A[I],CONT));  var RES=A[0](O,CONT); if (!isArray(RES["$"]) && length(A)>2) error("tree(2)"); return RES; }   function range(O,MIN,MAX,LI,COL) { return { "OBJ":O,"MIN":MIN,"MAX":MAX,"NAT":Nil,"LI":LI,"COL":COL }; } function rangeBOF(RG) { return RG.MIN==0; } function rangeEOF(RG) { return RG.MIN>=length(RG.OBJ); } function rangeValue(RG) { return substring(RG.OBJ,RG.MIN,RG.MAX); }  function lexerReadString(S,i,C) { while (i<length(S)) { if (S[i]=='\\') i++; else if (S[i]==C) break; i++; } if (i>=length(S)) error("lexerReadString"); return i; } function lexerReadUntil(S,i,C1,C2,STRICT) { if (STRICT==Undefined) STRICT=True; while (i<length(S)) { if (S[i]==C1 && (C2==-1 || i+1<length(S) && S[i+1]==C2)) break; i++; } if (STRICT && i>=length(S)) error("lexerReadUntil"); return i; } function lexerRead(S,i,N1,N2) { while (i<length(S) && (charIs(S[i],N1) || charIs(S[i],N2))) { if (TOKENIZECOMMENTS && S[i]=="/" && i+1<length(S) && (S[i+1]=="*" || S[i+1]=="/")) break; i++; } return i; } var TokenNatNone=0, TokenNatIdf=1, TokenNatStr=2,TokenNatNum=3, TokenNatOpn=4, TokenNatSpc=5,TokenNatComment=6; function charnatToToknat(N) { var RES=TokenNatNone; switch (N) { case CharNatAlf : RES=TokenNatIdf; break; case CharNatOmg : RES=TokenNatOpn; break; case CharNatDigit: RES=TokenNatNum; break; case CharNatBlank: RES=TokenNatSpc; break; default: out(display(N)),error("toknat"); } return RES; } function lexerLiColNext(RG) { var LI=RG.LI,COL=RG.COL, S=RG.OBJ,i; if (RG.MIN<length(S)) for (i=RG.MIN;i<RG.MAX;i++) { if (S[i]=="\n") LI+=1,COL=1; else COL+=1; } return [LI,COL]; } var TOKOPS={},TOKENIZECOMMENTS=True;  function lexerNext(RG) {  var S=RG.OBJ; var i0,i=RG.MAX; var BEG,END,LI,COL; var LICOL=lexerLiColNext(RG); LI=LICOL[0]; COL=LICOL[1]; var NAT=TokenNatNone; if (i<length(S)) { BEG=END=-1; if (i>=0 && (S[i]=='\"' || charIs("'",CharNatQuote) && S[i]=='\'')) { i0=i; i=lexerReadString(S,i+1,S[i]); BEG=i0,END=i+1; NAT=TokenNatStr; } else if (TOKENIZECOMMENTS && i>=0 && i+1<length(S) && S[i]=='/' && S[i+1]=='*') { i0=i; i=lexerReadUntil(S,i+2,'*','/'); BEG=i0,END=i+2; NAT=TokenNatComment; } else if (TOKENIZECOMMENTS && i>=0 && i+1<length(S) && S[i]=='/' && S[i+1]=='/') { i0=i; i=lexerReadUntil(S,i+2,"\n",-1,False); BEG=i0,END=i+(i>=length(S)?0:1); NAT=TokenNatComment; } else { var j; j=lexerRead(S,i,charnat(S[i]),charIs(S[i],CharNatAlf)?CharNatDigit:-1);  BEG=i,END=j;  NAT=charnatToToknat(charnat(S[i])); } if (BEG==-1) error("lexerNext"); RG.MIN=BEG; RG.MAX=END; } else { RG.MIN=RG.MAX=length(S); } RG.NAT=NAT; RG.LI=LI; RG.COL=COL; ERRLI=LI; ERRCOL=COL; S=rangeValue(RG); if (RG.NAT==TokenNatOpn) { var N=length(S),TOK=S; while (N>0) { TOK=substring(S,0,N); if (TOKOPS[TOK]!=Undefined) break; N--; } if (N>0 && N!=length(S)) RG.MAX=RG.MIN+N; } return NAT; } function lexerStart(TEXT) { ERRLI=ERRCOL=1; var RG=range(TEXT,0,0,1,1); lexerNext(RG); return RG; } function lexerEOF(RG) { return rangeEOF(RG); } function tokenize(SRC,KEEP) { var RES=[], RG=lexerStart(SRC); while (!lexerEOF(RG)) { if (KEEP || RG.NAT!=TokenNatSpc && RG.NAT!=TokenNatComment) RES.push(rangeValue(RG)); lexerNext(RG); } return RES; }  var PRIOR={},POSTFIX={},MULTI={}; function tokenizeStart(TOKSPEC) { var T=splitTrim(TOKSPEC," "), P=-1; for (var I in T) { if (T[I]==";;") P--; else { var OP=T[I],POST=False; if (OP[length(OP)-1]=="_") POST=True,OP=substring(OP,0,length(OP)-1); var OP0=OP; if (OP[0]=="_") OP=substring(OP,1,length(OP)); TOKOPS[OP]=1; PRIOR[OP0]=P; POSTFIX[OP0]=POST; } } }  function tokenizeInit() {}  var _SERIALIZING=[], SERIALIZEINDENT=0, SERIALIZING=False; function prettyBis(O,MODE,SKIN,INDENT) { if (INDENT==Undefined) INDENT=False; var OSERIALIZING=SERIALIZING; if (isFunction(MODE)) return MODE(O); if (isType(O)) return O.NAME;  if (isNil(O)) return "Nil"; if (isUndefined(O)) return "Undef"; if (isBoolean(O)) return O?"True":"False"; if (isNumber(O)) return O.toString(); if (isSymbol(O)) return isUndefined(sy(O))?O.toString():sy(O); if (isString(O)) return '"'+strEscape(O)+'"'; if (isFunction(O)) return '<Func>'; if (contains(_SERIALIZING,O)) { if (isFunction(O.getId)) return "@"+O.getId(); else return "@^^"; } SERIALIZING=True; var RES=""; if (MODE=="name") { if (isArray(O)) RES="[...]"; else { var NAME=O.NAME; if (!isUndefined(NAME)) RES=NAME; else RES="{...}"; } } else { function incIndent(N) { SERIALIZEINDENT+=N; OUTINDENT=SERIALIZEINDENT; } if (isArray(O)) { _SERIALIZING.push(O); RES+="["; if (INDENT) incIndent(2); for (var I=0;I<length(O);I++) { if (I>0) RES+=","; if (INDENT) RES+="\n"+spc(SERIALIZEINDENT); RES+=prettyBis(O[I],MODE,SKIN); } if (INDENT) incIndent(-2); RES+="]";  } else { _SERIALIZING.push(O); var TYPE=typeOf(O),PATTERN=Nil; RES+=(TYPE==obj?"":TYPE.NAME)+"{"; if (SKIN!=Undefined) { var SKINT=SKIN[TYPE.NAME]; if (isUndefined(SKINT)) SKINT=SKIN["*"]; if (SKINT!=Undefined) { if (MODE==Undefined) MODE=SKINT["default"]; if (MODE!=Undefined) PATTERN=SKINT[MODE]; } } if (MODE==Undefined) MODE="short";  if (isNil(PATTERN)) PATTERN={"*":["av","full"]}; if (INDENT) incIndent(2); var FIRST=True; for (var NAME of Object.getOwnPropertyNames(O)) { var MODE2=Undefined; if (PATTERN.hasOwnProperty(NAME)) MODE2=PATTERN[NAME]; if (MODE2==Undefined) MODE2=PATTERN["*"]; if (MODE2!=Undefined && !contains(MODE2[0],"-")) { var SA=contains(MODE2[0],"a"), SV=contains(MODE2[0],"v"); if (!FIRST && (SA||SV)) RES+=","; if (SA||SV) if (INDENT) RES+="\n"+spc(SERIALIZEINDENT); if (SA||SV) FIRST=False; if (SA) RES+=isSymbol(NAME)?pretty(NAME):NAME; if (SA&&SV) RES+="="; if (SV) { var VAL; if (NAME=="caller" || NAME=="callee" || NAME=="arguments") VAL="<Forbidden>"; else VAL=O[NAME]; RES+=prettyBis(VAL,MODE2[1],SKIN,contains(MODE2[0],"i")); } } } if (INDENT) incIndent(-2); RES+="}";  } } SERIALIZING=OSERIALIZING; return RES; } function pretty(O,MODE,SKIN) {  if (!SERIALIZING) _SERIALIZING=[]; if (isUndefined(MODE)) MODE="short"; var RES=prettyBis(O,MODE,SKIN); if (!SERIALIZING) _SERIALIZING=[]; return RES; }   var _SFID,_SFOBJ; function sfid(HIDDEN) { HIDDEN=isDefined(HIDDEN); return (HIDDEN?chr(1):chr(2))+_SFID++; } function sfisHiddenId(ID) { if (!isNumber(ID) && !isString(ID)) outd(ID),cr(),error("sfisHiddenId"); return ID[0]==chr(1); } function sfisLocId(ID) { if (!isNumber(ID) && !isString(ID)) error("sfisLocId"); return ID[0]==chr(1) || ID[0]==chr(2); } function sffetch(ID) { return _SFOBJ[ID]; } function sfstore(O,HIDDEN) { if (isUnboxed(O)) return; var ID=O[SymbolId]; if (isUndefined(ID)) ID=sfid(HIDDEN); else if (isDefined(sffetch(ID))) return; O[SymbolId]=ID; _SFOBJ[ID]=O; } function sfrelease() { for (N in _SFOBJ) { if (sfisLocId(N)) delete sffetch(N)[SymbolId]; } } function sfinit() { _SFID=0; _SFOBJ={}; _SFOUT=[]; _SFDONE={}; _SFFIRST=True; _SFINDENT=0; }  var _SFSymbElt="ELT"+chr(2),_SFLANG; function parsefList(L,I,STOP,CONT) {         var N=length(L),FOUND=False,TYPE=array,RES=[],VAR=Undefined,ELT=Nil,TYNAME; function omg(S) { if (S=="(") return _SFLANG=="lisp"?S:"{"; if (S==")") return _SFLANG=="lisp"?S:"}"; if (S=="=") return _SFLANG=="lisp"?S:":"; error("omg"); } if (STOP==omg(")")) { TYPE=obj; var OBJ0=False; if (_SFLANG=="json" && L[I]=="{") I++,OBJ0=True; else if (I<N && strIsAlpha(L[I]) && (I+1>=N || I+1<N && L[I+1]!=omg("="))) { if (L[I]=="type") TYNAME=L[I]; else TYPE=type.getByName(L[I]); I++; } if (isUndefined(TYPE)) error("parsefList(1)-->"+I+" "+L[I]); if (_SFLANG=="json" && !OBJ0) if (L[I]!="{") error("parsefList(2)"); else I++; RES=obj({});  } function parseval(VAR,VAL,TYELT) { if (isUndefined(TYELT)) TYELT=obj; if (!empty(TYPE.attrs())) { var A=TYPE.attr(VAR); if (A!=Nil) TYELT=A.TYPE; } if (TYELT==obj) { if (length(VAL)>=2 && VAL[0]=='"' && VAL[length(VAL)-1]=='"') TYELT=str; else ;  } if (TYELT==bool) { if (VAL=="True") VAL=True; else if (VAL=="False") VAL=False; else error("parseval(1)"); } else if (TYELT==num) { ;  VAL=JSON.parse(VAL); } else if (TYELT==str) VAL=substring(VAL,1,length(VAL)-1); else ; return VAL; } function pushvar(VAL) { if (isString(VAR)) if (syExists(VAR)) VAR=sy(VAR); if (strIsOmg(VAR)) error("pushvar(0)-->"+VAR); if (strIsOmg(VAL)) error("pushvar(1)-->"+VAL); if (STOP==omg(")")) { if (VAR==_SFSymbElt) ELT.push(VAL); else { var TYELT; if (VAR==sy("+o")) TYELT=num; VAL=parseval(VAR,VAL,TYELT); if (VAR==sy("+o")) RES.setId(VAL); else RES[VAR]=VAL; } VAR=Undefined; } else RES.push(VAL); } var FIRST=True; while (I<N) { if (L[I]==STOP && (STOP==omg(")") || STOP=="]")) { FOUND=True,I++; break; } else { if (STOP==omg(")")) { if (_SFLANG=="json" && !FIRST) if (L[I]!=",") error("parsefList(3)"); else I++; else FIRST=False; if (I+1>=N || L[I+1]!=omg("=")) { VAR=_SFSymbElt; if (ELT==Nil) ELT=[]; } else { VAR=L[I]; I+=2; if (I>=N || L[I]==omg(")") || L[I]=="]") error("parsefList::Nothing after '='"); } } if ((_SFLANG=="lisp" && L[I]==omg("(")) || (_SFLANG=="json" && L[I]==omg("(")) || (_SFLANG=="json" && L[I+1]==omg("(")) || L[I]=="[") { var A=parsefList(L,I+(_SFLANG=="lisp"?1:0),L[I]=="["?"]":omg(")"),CONT); pushvar(A[0]); I=A[1]; } else pushvar(L[I]),I++; } } if (ELT!=Nil) VAR="$",pushvar(ELT); if (STOP!=omg(")") && STOP!="]" && FOUND) error("parsefList::STOP(1)"); if ((STOP==omg(")") || STOP=="]") && !FOUND) error("parsefList::STOP(2)<"+STOP+">"); if (TYNAME=="type") RES.PARENT=type.getByName(RES.PARENT),RES=type(Nil,RES); else if (TYPE!=obj && TYPE!=array) {  RES=TYPE(RES); if (!isNil(CONT)) CONT.store(RES,RES.getId()); } return [RES,I]; } function parsef(S,CONT,LANG) { if (isString(CONT)) LANG=CONT,CONT=Undefined; if (isUndefined(LANG)) LANG="json"; _SFLANG=LANG; if (LANG!="lisp" && LANG!="json") error("parsef(0)"); parsefStart(); var RES=parsefList(tokenize(S),0,"",CONT)[0]; RES=linkf(RES,CONT); return RES; } function parsefStart() { charsInit(); charnatSet("#",CharNatAlf); charnatSet("+",CharNatAlf); charnatSet("%",CharNatAlf); tokenizeStart("( ) [ ] { } = : ,"); }  var _SFOUT,_SFDONE,_SFFIRST,_SFINDENT; function sfout(S) { _SFOUT.push(S); return S; } function sfresult() { return _SFOUT.join(""); } function sfattrs(O) { return RES=Object.getOwnPropertyNames(O).concat(Object.getOwnPropertySymbols(O)).filter(function (X) { return X!=SymbolUp && X!=SymbolCont && X!="TO" }); } function serializefBis(O,MODE,MODES) {     var ISFIRST,SKIPSPC,SFSDONE; function sfslot(N,SMODE) { if (isUndefined(SMODE)) SMODE={}; if (O.hasOwnProperty(N) && !(N==sy("+o") && sfisHiddenId(O[N]))) { if (!SKIPSPC) { if (_SFLANG=="json" && !ISFIRST) sfout(","); if (isDefined(SMODE["nl"])) sfout("\n"+spc(_SFINDENT)); else if (_SFLANG=="lisp") sfout(" "); } SKIPSPC=False; sfout(isSymbol(N)?sy(N):N),sfout(_SFLANG=="lisp"?"=":":"); if (N==sy("+o")) sfout(O[N]); else serializefBis(O[N],MODE=="flat"?"symb":MODE,MODES); ISFIRST=False; SFSDONE[N]=1; } } if (isNil(O)) return sfout("Nil"); if (isUndefined(O)) return sfout("Undef"); if (isBoolean(O)) return sfout(O?"True":"False"); if (isNumber(O)) return sfout(O.toString()); if (isString(O)) return sfout('"'+strEscape(O)+'"');  if (isFunction(O)) return sfout('<Func>'); if (isArray(O)) { ISFIRST=True; sfout("["); for (var I=0;I<length(O);I++) { if (ISFIRST) ISFIRST=False; else sfout(_SFLANG=="lisp"?" ":","); serializefBis(O[I],MODE=="flat"?"symb":MODE,MODES); } sfout("]"); } else { if (typeOf(O).root()!=obj) out(pretty(O)),cr(),error("serializefBis(1)"); if (MODE=="symb" && isUndefined(O[SymbolId])) error("serializefBis(undef ID)"); if (isDefined(_SFDONE[O[SymbolId]]) || MODE=="symb") return sfout("#"+O[SymbolId]); sfstore(O,True); if (_SFLANG=="lisp") sfout("("); if (typeOf(O)!=obj) sfout(typeOf(O).name()); else SKIPSPC=True; if (_SFLANG=="json") sfout("{"),SKIPSPC=True; _SFINDENT+=2; SFSDONE={}; ISFIRST=True; for (var I=0;I<length(MODES);I++) sfslot(MODES[I][0],MODES[I][1]); for (var N of sfattrs(O)) if (isUndefined(SFSDONE[N])) sfslot(N,{});  if (_SFLANG=="lisp") sfout(")"); else sfout("}"); _SFINDENT-=2; if (isDefined(O[SymbolId])) _SFDONE[O[SymbolId]]=O; } } function serializefAllOfType(O,TYPE,MODE,MODES,SETID) {  if (isUndefined(SETID)) SETID=False; if (isAtom(O) || isFunction(O)) return; if (isArray(O)) { for (var I=0;I<length(O);I++) { serializefAllOfType(O[I],TYPE,MODE,MODES,SETID); } } else if (typeOf(O).root()==obj) { if (SETID) sfstore(O); for (var N of sfattrs(O)) { if (!isAtom(O[N]) && !isArray(O[N]) && MODE!="full") sfstore(O[N]); } if (!_SFDONE[O[SymbolId]] && (TYPE=="*" || typeOf(O)==TYPE)) { if (_SFFIRST) _SFFIRST=False; else sfout("\n") serializefBis(O,MODE,MODES); } for (var N of sfattrs(O)) { serializefAllOfType(O[N],TYPE,MODE,MODES,True); } } else error("serializeAllOfType(1)"); } function serializef(O,FMT,LANG) { if (isAtom(O)) return JSON.stringify(O); sfinit(); if (isUndefined(LANG)) LANG="json"; _SFLANG=LANG; if (LANG!="lisp" && LANG!="json") error("serializef(0)"); for (var I=0;I<length(FMT);I++) { var F=FMT[I],TYPE="*"; if (F[0]!="*") TYPE=type.getByName(F[0]); if (isUndefined(TYPE)) error("serializef(1)"); serializefAllOfType(O,TYPE,F[1],F[2]); } serializefAllOfType(O,"*","full",[]); sfrelease(); return sfresult(); }   function linkf(O,CONT) { return O; }   var APIDefault={}; var api=type(Nil, { "NAME":"api", "PARENT":obj, "ATTRS":[] }); function isApi(O) { return isa(O,api); }  var server=type(function (PORT,API) { var RES=server.create(); RES.IDSRV=server.LASTIDSRV++; server.SRV.push(RES); if (isNumber(PORT)) { RES.CATEG="l";  if (isUndefined(API) || typeOf(API)==obj) API=api(API); if (!isApi(API)) error("server.cons(1)"); RES.ADDR="0.0.0.0"; RES.PORT=PORT; RES.API=API; setPrototypeOf(API,APIDefault);   } else if (PORT=="c") { if (!isNumber(API)) error("server.cons(2)"); RES.CATEG="c";  RES.IDSRVPARENT=API; } else { var URL=PORT; if (!isString(URL) || !isUndefined(API)) error("server.cons(3)"); RES.CATEG="r";   var URLO=urlParse(URL); RES.HREF=URL; RES.ADDR=URLO.hostname; RES.PORT=JSON.parse(URLO.port); var CLI=RES.call("_connect",[]); RES.IDCLI=CLI.IDSRV; } return RES; }, { "NAME":"server", "PARENT":obj, "ATTRS":["IDSRV=0","IDCLI","IDSRVPARENT", "CATEG=''","PORT=0", "ADDR=''","HREF=''", "API={}","_RUNNING=Nil", "CONT=[]"] }); server.SRV=[]; server.LASTIDSRV=0;  setprop(server,"getById",function (ID) { return server.SRV[ID]; }); function isServer(O) { return isa(O,server); } function isLocal(O) { return isServer(O) && O.CATEG=="l"; } function isRemote(O) { return isServer(O) && O.CATEG=="r"; } function isClient(O) { return isServer(O) && O.CATEG=="c"; }  setprop(server,"find",function (ADDR,PORT,IDCLI) { var RES=Nil; for (var I in server.SRV) { var SRV2=server.SRV[I]; if (SRV2.ADDR==ADDR && SRV2.PORT==PORT && SRV2.IDSRV==IDCLI) { if (RES!=Nil) error("server.find");  RES=SRV2; } } return RES; });  function _connect() { if (isNil(server.currentServer())) error("_connect"); var RES=server("c",server.currentServer().IDSRV); RES.ADDR=_REQLOG.ADDR.address; RES.PORT=_REQLOG.ADDR.port; return { "IDSRV":RES.IDSRV }; } server.setMethod("close",function () { if (this.CATEG=="r") this.call("_close",[]);  else if (this.CATEG=="c") {  var DONE=False; for (var I in server.SRV) if (server.SRV[I]==this) { if (DONE) error("server.close");  splice(server.SRV,I,1,[]); DONE=True; } } }); function _close() { var SRV=server.currentClient(); SRV.close(); return True; }  server.setMethod("call",function (FNAME,PARMS,CALLBACK) { var RES=Nil; if (isLocal(this)) {  var F=this.API[FNAME]; if (isFunction(F)) { RES=F.apply(Nil,PARMS); } } else if (isRemote(this)) { PARMS.unshift(this.IDCLI); RES=this.send("POST","",JSON.stringify([FNAME,PARMS]),CALLBACK); } else error("server.call"); return RES; }); server.setMethod("send",function (METHOD,PARMS,DATA,CALLBACK) { var REQ,RES=null, ASYNC=isDefined(CALLBACK); function ret(RES) { if (RES!=null && REQ.getResponseHeader("Content-Type")=="application/json") RES=JSON.parse(RES); return RES; } if (!isRemote(this)) error("server.send(!remote)"); if (SERVER) { if (!ASYNC) error("server.send(SERVER)");  } else { REQ=new XMLHttpRequest(); REQ.open(METHOD,this.HREF+(PARMS!=Nil && PARMS!=""?"?"+PARMS:""),ASYNC); REQ.setRequestHeader("Content-Type","application/x-www-form-urlencoded"); REQ.setRequestHeader("Accept","application/json");  REQ.onreadystatechange=function() { if (REQ.readyState==4) { if (REQ.status==200) { RES=REQ.responseText; if (ASYNC) CALLBACK(ret(RES)); } } } } if (METHOD!="GET" && !isUndefined(DATA)) DATA=JSON.stringify(DATA); else DATA=null; if (SERVER) ;  else REQ.send(DATA); if (ASYNC) return null; else return ret(RES); });  var _REQLOG=Nil,_CURSRV=Nil; setprop(server,"currentClient",function () {  if (isNil(_REQLOG)) return Nil; var SRV=server.find(_REQLOG.ADDR.address,_REQLOG.ADDR.port,_REQLOG.IDCLI); if (!isClient(SRV)) error("server.currentClient"); return SRV; }); setprop(server,"currentServer",function () {  return _CURSRV; });  var http=Undefined; server.setMethod("start",function () { var REQNO=0; function req(REQ) { var PARMS=urlParse(REQ.url); return { "METHOD":REQ.method, "PATHNAME":PARMS.pathname,"QUERY":PARMS.query, "ADDR":REQ.socket.address(),"RADDR":REQ.socket.remoteAddress, "ACCEPT":REQ.headers.accept,"REFERER":REQ.headers.referer, "IDCLI":-1 }; } function log(NO,REQ,BODY,ERR,ANSW) { out(REQ.METHOD+"<#"+NO+"><"+ REQ.ADDR.address+":"+REQ.ADDR.port+"::"+ REQ.IDCLI+" "+REQ.PATHNAME+" "+REQ.QUERY+">"); if (REQ.METHOD=="GET") out("[]"); else out(BODY.toString()); cr(),out("["+JSON.stringify(ERR)+"]=> "); if (REQ.METHOD=="GET") out("..."); else out(ANSW); cr(),cr(); } var THIS=this; function handler(REQ,ANSW) { var REQLOG=_REQLOG=req(REQ); _CURSRV=THIS; function ret(ERR,CTYPE,MSG,RES) { if (CTYPE=="application/json") RES=isUndefined(RES)?"null":JSON.stringify(RES); var SRES=RES; if (length(SRES)>80) SRES=substring(RES,0,80)+" ..."; log(REQNO++,REQLOG,MSG,ERR,SRES); ANSW.writeHead(ERR, {'Content-Type': CTYPE, 'Access-Control-Allow-Origin': '*'  });  ANSW.write(RES); ANSW.end("\n"); _REQLOG=_CURSRV=Nil; } if (endsWith(REQLOG.PATHNAME,".jix")) {  if (REQ.method=="POST") { var MSG="",ISOBJ=false; REQ.on('data', function (DATA) { if (ISOBJ) error("serverCreate(multipart obj)"); else { if (typeOf(DATA)==str) MSG+=DATA; else { MSG=DATA; ISOBJ=true; } } }); REQ.on('end',function () { if (ISOBJ) MSG=JSON.parse(MSG.toString()); var PARMS=JSON.parse(MSG); REQLOG.IDCLI=PARMS[1].shift(); var RES=THIS.call(PARMS[0],PARMS[1]);  ret(200,"application/json",MSG,RES); }); } else if (REQ.method=="GET") { ret(200,"application/json","",{ _type:"error", MSG:"RPCs must be POST"}); } } else { fs.readFile(__dirname+'/'+REQLOG.PATHNAME,'utf-8',function(ERR,DATA) { ;  if (ERR) { ret(404,"text/html","",'<h1>Page Not Found</h1>'); } else { ret(200,"text/html","",DATA); } }); } } if (!isNil(this._RUNNING)) error("server.start"); var SRV=http.createServer(handler); this._RUNNING=SRV; SRV.on('connection', function (SOCK) { SOCK.unref(); }); SRV.listen(this.PORT,"0.0.0.0");  }); server.setMethod("stop",function () { if (isNil(this._RUNNING)) error("server.stop"); this._RUNNING.close(); this._RUNNING=Nil; });  server.setMethod("attach",function (CONT) { if (!isContainer(CONT) || isDefined(CONT.SRV)) error("server.attach"); this.CONT[CONT.IDCONT]=CONT; CONT.SRV=this; }); server.setMethod("container",function (NAME,FOP) { if (FOP) { var CONT=this.container(NAME); if (isNil(CONT)) { CONT=container(NAME,this); } return CONT; } else return find(this.CONT,function (X) { return isDefined(X) && X.NAME==NAME }); }); function _fetchconts() { return RES=server.currentClient().containers(True).map(function (C) { return {"NAME":C.NAME}; }); } server.setMethod("containers",function (FETCH) { if (FETCH) { if (isLocal(this)) ; else if (isRemote(this)) { var L=this.call("_fetchconts",[]); for (var C of L) { this.container(C.NAME,True); } } else if (isClient(this)) { var SRV=server.getById(this.IDSRVPARENT); for (var C of SRV.containers()) { if (isString(C.NAME) && C.NAME!="") { this.container(C.NAME,True); } } } return this.containers(); } else return this.CONT.filter(function (X) { return isDefined(X); }); });  function _grep(NAME,Q) { var CONT=server.getById(server.currentClient().IDSRVPARENT).container(NAME); if (isNil(CONT)) error("_grep"); return serialize(CONT.query(Q),"flat*"); }  function _syncobjs(NAME,S) { var CONT=server.getById(server.currentClient().IDSRVPARENT).container(NAME); if (isNil(CONT)) error("_syncobjs"); parse(S,CONT); return True; }  function _srvls() { var T={ "l":"LOC", "r":"REM", "c":"CLI" }; function cls(CONT) { outd(CONT.IDCONT),out(" "); outd(CONT.SRV.IDSRV),out(" ["); outd(CONT.NAME),out(";"); outd(CONT.FNAME),out("]"); } function ls(SRV) { out(T[SRV.CATEG]), out(" "),outd(SRV.IDSRV); out(" "),outd(SRV.IDCLI); out(" "),outd(SRV.HREF); out(" "),outd(SRV.ADDR); out(" "),outd(SRV.PORT); for (var C of SRV.containers()) cr(),out("  "),cls(C); } for (var I in server.SRV) ls(server.SRV[I]),cr(); return Nil; }  function serversInit() { if (SERVER) { http=require('http'); APIDefault={ "_connect": _connect, "_close": _close, "_srvls": _srvls, "_fetchconts": _fetchconts, "_grep": _grep, "_syncobjs": _syncobjs }; } }   function csvparseObjVals(S) { var A=tokenize(S,True); if (length(A)==0) error("csvparseObjVals"); var EXP="v",I=0,RES=[]; while (I<length(A)) { if (EXP=="v") { var VAL=""; while (I<length(A) && A[I]!=",") VAL+=A[I],I++; RES.push(VAL); EXP="s"; } else { if (A[I]!=",") out(A[I]),error("csvparseObjVals(2)"); I++; EXP="v"; if (I>=length(A)) RES.push(""); } } return RES; } function csvparseObj(S,TYPE,SLOT,CONT) { var A=csvparseObjVals(S),O={}; if (length(A)!=length(SLOT)) out(display(A)),cr(),out(display(SLOT)),cr(),error("csvparse"); for (var I=0;I<length(A);I++) { var VAL=A[I]; if (length(VAL)>1 && VAL[0]=='"' && VAL[length(VAL)-1]=='"') VAL=trim(VAL,'"',True,True); O[SLOT[I]]=VAL; } return TYPE(O,CONT); } function csvparsef(S,CONT,TYPE) { csvparsefStart(); var A=splitTrim(S,"\n"),RES=[]; if (length(A)==0) error("csvparsef"); var SLOT=splitTrim(A[0],","), TYNAME; for (var I=0;I<length(SLOT);I++) {  if (I==0) { var A2=splitTrim(SLOT[0],"||"); if (length(A2)>1) TYNAME=A2[0],SLOT[0]=A2[1]; } SLOT[I]=splitTrim(SLOT[I],":")[0]; } if (isType(CONT)) TYPE=CONT,CONT=Undefined; if (isDefined(TYNAME) && isUndefined(TYPE)) { TYPE=type(Nil,{ NAME:TYNAME, PARENT:obj, ATTRS:SLOT }); } if (isUndefined(TYPE)) error("csvparsef(2)"); for (var I=1;I<length(A);I++) { if (length(A[I])==0) continue; RES.push(csvparseObj(A[I],TYPE,SLOT,CONT)); } return RES; } function csvparsefStart() { charsInit(); charnatSet("'",CharNatAlf); charnatSet("(",CharNatAlf);  charnatSet(")",CharNatAlf); charnatSet("[",CharNatAlf); charnatSet("]",CharNatAlf); charnatSet("?",CharNatAlf); charnatSet(".",CharNatAlf); charnatSet(";",CharNatAlf);  charnatSet("!",CharNatAlf);  tokenizeStart(","); TOKENIZECOMMENTS=False; }   var container=type(function (NAME,FNAME,CATEG,SRV) { var RES=container.create(); RES.IDCONT=container.LASTIDCONT++; if (isString(NAME) && isString(FNAME)) {  if (!isString(CATEG)) SRV=CATEG,CATEG=FNAME,FNAME=NAME,NAME=Undefined; RES.load(FNAME,CATEG); } else if (isContainer(NAME) || isContainer(FNAME)) {  var CONT=FNAME; if (isContainer(NAME)) CONT=NAME,NAME=Undefined,SRV=FNAME; else { if (!isString(NAME)) error("container.cons(1)"); SRV=CATEG; } RES.setParent(CONT); error("container.derived(!Yet)"); } else if (isUndefined(NAME) || isString(NAME) || isServer(NAME)) {  if (isServer(NAME)) SRV=NAME; else { SRV=FNAME; } } else error("container.cons(2)"); RES.NAME=NAME; if (!isUndefined(SRV)) { if (!isServer(SRV)) error("container.cons(3)"); SRV.attach(RES); } return RES; }, { "NAME":"container", "PARENT":obj, "ATTRS":["SRV", "IDCONT","PARENT", "NAME","FNAME=''", "LASTID=0", "$={}"] }); container.LASTIDCONT=0;  function isContainer(O) { return isa(O,container); } container.setMethod("getById",function (ID) { return this.$[ID]; }); container.setMethod("parent",function () { return this.PARENT; }); container.setMethod("setParent",function (CONT) { if (!isContainer(CONT)) error("setParent"); this.PARENT=CONT; });  var SymbolCont=sy("^$"), SymbolId=sy("+o"), SymbolFlags=sy("%"), SymbolUp=sy("^"); obj.setMethod("containerOf",function () { return this[SymbolCont]; }); obj.setMethod("setContainerOf",function (CONT) { if (!isContainer(CONT)) error("setContainerOf"); if (this.containerOf()) error("setContainerOf(2)"); this[SymbolCont]=CONT; CONT.$[this.getId()]=this; }); obj.setMethod("getId",function () { return this[SymbolId]; }); obj.setMethod("setId",function (ID) { var CONT=this.containerOf(),ID0=this.getId(); if (ID0 && !isNil(CONT)) { delete CONT.$[ID0]; } this[SymbolId]=ID; if (ID0 && !isNil(CONT)) { if (!isUndefined(CONT.$[ID])) error("obj.setId"); CONT.$[ID]=this; } }); obj.setMethod("flags",function () { var F=this[SymbolFlags]; if (isNil(F)) return set(""); else return F; }); obj.setMethod("hasFlags",function (F) { return this.flags().has(F); }); obj.setMethod("setFlags",function (FLAGS) { if (isString(FLAGS)) FLAGS=oflags(FLAGS); this[SymbolFlags]=FLAGS; if (this[SymbolFlags]=="") delete this[SymbolFlags]; }); obj.setMethod("addFlags",function (FLAGS) { if (isUndefined(this.flags())) this.setFlags(FLAGS); else this.setFlags(this.flags().union(FLAGS)); }); obj.setMethod("delFlags",function (FLAGS) { if (isDefined(this.flags())) this.setFlags(this.flags().minus(FLAGS)); }); obj.setMethod("up",function (CLOSEST,FULLREF) { var UP=this[SymbolUp]; if (UP) { if (!CLOSEST && isArray(UP[0]) && isNumStr(UP[1])) { var UP2=UP[0].up(True,True),A; if (isDefined(UP2) && isDefined(A=typeOf(UP2[0]).attr(UP2[1])) && A.has("*>")) return FULLREF?[UP2[0],UP2[1],UP[1]]:UP2[0]; } if (!FULLREF) return UP[0]; } return UP; }); obj.setMethod("upa",function () { var UP=this.up(True,True); if (isUndefined(UP)) return Undefined; var A=typeOf(UP[0]).attr(UP[1]); return A; }); obj.setMethod("multiA",function () {  if (!isArray(this)) return Undefined; var A=this.upa(); return isDefined(A) && A.has("*")?A:Undefined; }); obj.setMethod("setUp",function (NEWUP,NAME) { if (!isUndefined(NEWUP) && !isObject(NEWUP)) error("setUp(1)"); var UP=this.up(True,True); if (!isUndefined(UP)) { if (UP[0][UP[1]]!=this) error("setUp(2)"); UP[0][UP[1]]=Undefined;  } if (isUndefined(NEWUP)) this[SymbolUp]=Undefined; else this[SymbolUp]=[NEWUP,NAME]; }); obj.setMethod("detach",function () { this.setUp(Undefined); }); container.setMethod("newId",function () { return this.LASTID++;  }); container.setMethod("store",function (O,ID,UP,UPNAME) { if (isUndefined(ID)) ID=this.newId(); O.setId(ID); O.setUp(UP,UPNAME); O.setContainerOf(this); });  obj.setMethod("getv",function (NAME) { return this[NAME]; }); obj.setMethod("setv",function (NAME,VAL) {  if (!isString(NAME) && !isNumber(NAME)) error("setv::"+NAME);  if (this[NAME]==VAL) return; var A=typeOf(this).attr(NAME), MA=this.multiA(), NUM=isNumStr(NAME), SAMECONT=isUnboxed(VAL) || this.containerOf()==VAL.containerOf(); if (NUM && isDefined(MA) && MA.has(">") || isDefined(A) && A.has(">")) {  if (NUM && SAMECONT && isDefined(MA) && MA.has("!") || isDefined(A) && A.has("!")) {  if (isBoxed(this[NAME])) this[NAME].detach(); } else { if (isBoxed(VAL) && (!SAMECONT || isDefined(VAL.up()))) VAL=copy(VAL,this.containerOf()); } if (isBoxed(VAL)) VAL.setUp(this,NAME); } this[NAME]=VAL; }); obj.setMethod("remove",function (NAME,N) { function rm(A,I) { var VAL=A[I]; if (isBoxed(VAL) && VAL.up(True)==A) VAL.detach(); } if (isArray(this) && isNumStr(NAME)) { if (isUndefined(N)) N=1; if (NAME<0 || NAME>=length(this) || NAME+N>length(this)) error("obj.remove"); var M=N; while (M--) { rm(this,NAME); this.splice0(NAME,1); } for (var I=NAME;I<length(this);I++) { var VAL=this[I],UP; if (isBoxed(VAL)) UP=VAL.up(True,True); if (isDefined(UP)) UP[1]-=N; } } else { rm(this,NAME); delete this[NAME]; } }); obj.setMethod("cut",function (NAME,N) {  var NDEF=True,RES=[]; if (isUndefined(N)) N=1,NDEF=False; if (isArray(this) && isNumStr(NAME)) { if (NAME<0 || NAME>=length(this) || NAME+N>length(this)) error("obj.cut"); for (var I=NAME;I<NAME+N;I++) RES.push(this[NAME]); } else RES.push(this[NAME]); this.remove(NAME,N); return NDEF?RES:RES[0]; }); array.setMethod("insert",function (I,...VAL) {  if (!isNumStr(I)) error("array.insert"); for (var J=0;J<length(VAL);J++) this.splice0(I,0,Undefined); var N=length(VAL); for (var J=I+N;J<length(this);J++) { var UP=this[J].up(True,True); if (isDefined(UP)) UP[1]+=N; } for (var J=0;J<length(VAL);J++) this.setv(I+J,VAL[J]); }); array.setMethod("push0",array.method("push")); array.setMethod("push",function (VAL) { var A=this.upa(); if (isUndefined(A)) return this.push0(VAL); this.insert(length(this),VAL); return VAL; }); array.setMethod("splice0",array.method("splice")); array.setMethod("splice",function (I,N,...VAL) { var A=this.upa(); if (isUndefined(A)) return this.splice0(I,N,...VAL); var RES=this.cut(I,N); this.insert(I,...VAL); return RES; }); obj.setMethod("first",function () { if (isArray(this)) return this[0]; else { if (!this.$) error("obj.first"); return this.$[0]; } }); obj.setMethod("last",function () { if (isArray(this)) return this[length(this)-1]; else { if (!this.$) error("obj.last"); return this.$[length(this.$)-1]; } }); obj.setMethod("prev",function () { error("obj.prev (!Yet)"); }); obj.setMethod("next",function () { var UP=this.up(True,True); if (!UP || !isArray(UP[0])) return Undefined; return UP[0][UP[1]+1];  });  container.setMethod("copy",function (O,MODE) {  if (isUndefined(MODE)) MODE="flat"; var T=typeOf(O); function cons(O,CONT) { if (T.root()==obj) return T(CONT); else return T(O,CONT); } if (isUnboxed(O)) return O; var ISARR=isArray(O); var RES=cons(O,this); for (var N of sfattrs(O)) { var VAL=O[N],PO=True; if (!(ISARR && isNumStr(N))) PO=T.attrHas(N,">"); var VAL2=VAL; if (isBoxed(VAL) && MODE=="flat" && !PO) error("copy(!PO)::"+N);  if (isBoxed(VAL) && (MODE=="full" || PO)) { VAL2=this.copy(VAL,MODE); if (isArray(VAL2) && PO) { for (var I=0;I<length(VAL2);I++) { var ELT=VAL2[I]; if (isBoxed(ELT)) ELT.setUp(VAL2,N); } } } RES.setv(N,VAL2); } return RES; }); container.setMethod("move",function (O,MODE) { var RES=this.copy(O,MODE); O.delete(MODE); return RES; });  container.setMethod("load",function (FNAME,CATEG) {  if (!isNil(this.FNAME) && this.FNAME!="") error("container.load"); this.FNAME=FNAME+"."+CATEG; var S=fileRead(this.FNAME); if (CATEG=="db") { parsef(S,this,"lisp"); } else if (CATEG=="csv") { csvparsef(S,this); } else error("container.load(2)"); }); container.setMethod("save",function () {  if (isNil(this.FNAME)) error("container.save"); var L=[]; for (N in this.$) L.push(this.$[N]); var S; if (fileExt(this.FNAME)=="db") { var S=serializef(L,[],"lisp"); } else error("container.save(2)"); fileWrite(this.FNAME,S+"\n"); });  var query=type(function (VARS,OBJ) { var RES=query.create(); if (isUndefined(OBJ)) OBJ=VARS,VARS=Undefined; if (isUndefined(VARS)) VARS=["*"]; if (!isObject(OBJ)) error("query"); RES.VARS=VARS; RES.QUERY=OBJ; return RES; }, { "NAME":"query", "PARENT":obj, "ATTRS":["VARS=[]","QUERY={}"] }); function isQuery(O) { return isa(O,query); }  query.setMethod("match",function (O,Q) { if (isAtom(O)) { if (!isString(O)) O=str(O); if (!isString(Q)) error("query.match::str"); return strMatch(O,Q); } if (!isObject(O)) return False; var RES=True; for (VAR in this.QUERY) { if (!this.match(O[VAR],this.QUERY[VAR])) RES=False; } return RES; }); container.setMethod("query",function (VARS,QUERY,FETCH) { if (typeOf(VARS)==obj || isQuery(VARS)) { FETCH=QUERY; QUERY=VARS; VARS=Undefined; } if (!isQuery(QUERY)) { QUERY=query(VARS,QUERY); } if (FETCH && isRemote(this.SRV)) { var S=this.SRV.call("_grep",[this.NAME,QUERY.QUERY]); return parse(S,this); } else { var L=[]; for (var ID in this.$) { var O=this.$[ID]; if (QUERY.match(O)) L.push(O); } return L; } });  function isModified(O) { return O.hasFlags("m"); } obj.setMethod("setModified",function (B) { if (isUndefined(B) || B) this.addFlags("m"); else this.delFlags("m"); }); container.setMethod("sync",function (L,FORCE) { if (isUndefined(L)) L=this.$; else if (typeOf(L)!=array) { if (isAtom(L)) FORCE=L,L=this.$; else L=[L]; } if (isUndefined(FORCE)) FORCE=False; if (isRemote(this.SRV)) { if (!FORCE) L=L.filter(isModified); for (var O of L) O.setModified(False); var PARMS=[this.NAME,serialize(L,"flat*")]; return this.SRV.call("_syncobjs",PARMS);  } else if (isClient(this.SRV)) error("container.sync(Client !Yet)"); else if (isLocal(this.SRV)) error("container.sync(Local !Yet)"); else error("container.sync"); });  function containersInit() { MEMORY=container("memory"); setprop(MEMORY,"store",function () {}); }   function test1() { parsefStart(); var S="(56abcd1234 [befghij \"abcd\\\\\"])", RG=lexerStart(S); while (!lexerEOF(RG)) { out("<"+rangeValue(RG)+">"),cr(); out(display([RG.MIN,RG.MAX,RG.NAT,RG.LI,RG.COL])),cr(); lexerNext(RG); } out("---\n"); var A=tokenize(S); out(display(A)),cr(); out("---\n");  A=tokenize(S);  var person=type(Nil,{ NAME:"person" }); var O=person({ "NAME":"Smith", "FNAME":"John", "AGE":43 }); out(pretty(O,"short")),cr(); out("---\n"); type(Nil,{ NAME:"range" }); var O=parsef('range{+o:"id1",A:1,B:2,C,D,E,F:{}}{Z:1}');  out(pretty(O)),cr(); out("---\n"); out(serializef(O,[["range","flat", [["ID"],["A"],["B"],["F"],["$",{"nl":1}]] ], ["*","full",[]]],"json")),out("_"),cr(); out("---\n"); out(pretty(O)),cr(); }  function test2() { var C=container("C1"), person=type(Nil,{ NAME:"person", ATTRS:["NAME=''","FNAME","AGE=0","> YEARS=[]"] }),  P=person({ NAME:"Smith", FNAME:"John", AGE:23, YEARS:[{ A:123 },{ B:456 }] });  out(pretty(P)),cr(); var P2=copy(P,C); out(pretty(P2)),cr(); out(pretty(P2.YEARS[0])),cr(); P2.delete(); out(pretty(P2)),cr(); }  var SK={ "song":{ "short":{ "Title":["av",""], "Authors":["av",""], "Year":["av",""]  } }, "*":{ "short":{ "+o":["av",""], "NAME":["av",""] } } }; function test3() { var C=container("C1"); C.load("./Songs","db"); SK["song"]["short"][SymbolCont]=["-",""]; SK["song"]["short"][SymbolId]=["av",""]; out(pretty(C.$[0],"short",SK)),cr();  }  function test4() { var S=fileRead("./Songs.csv"), C=container("C1");  C.load("./Songs","csv"); out(pretty(C.$[0],"short",SK)),cr(); out("---\n"); var L=C.query({ Year:"*5" }); for (var I=0;I<length(L);I++) { out(pretty(L[I],"short",SK)),cr(); } }  function test5() { var person=type(Nil,{ NAME:"person", ATTRS:["Name","FName","Age"] }), song=type(Nil,{ NAME:"song", ATTRS:["Title","Year","$=[]"] }), P1=person({ "Name":"Smith", "FName":"John", "Age":23 }), P2=person({ "Name":"Dupont", "FName":"Georges", "Age":27 }), S=song({ Title:"Imagine", Year:1981, $:[P1,P2] }); out(serialize(S)),cr(); var S2=tree([song,{Title:"A"},[person,{Name:"B"}],[person,{Name:"C"}]]) out(serialize(S2)),cr(); }  function tests() { test1(); out("---\n"); test2(); out("---\n"); test3(); out("---\n"); test4(); out("---\n"); test5(); }  var jix={ isUndefined: isUndefined, type: type, boxit: boxit, parse: parse, serialize: serialize, memory: memory, out: out, cr: cr, pretty: pretty, api: api, server: server, container: container, test1: test1, tests: tests, init: function() {  basicsInit(); filesInit(); serversInit(); containersInit(); } };  module.exports=jix; jix.init();