N/A

var windowVar

function runExport() {
 var x = "";
// x += getVar("<nom de la table>","<variable de la table>")
 return x;
}

function readVar(nom) {
 return eval(windowVar+"."+nom)
}

function writeVar(nom,type) {
 var T0 = readVar(nom);
 if (typeof(T0)=="string") {return "/#:"+writeVar1(T0)}
 var x,k;
 x = ''; for(k=0;k<T0.length;k++) {x += writeVar(nom+'['+k.toString()+']',type);}
 return "/#("+type+x+"/#)";
}

function writeVar1(x) {
 if (x=="") {return ""};
 x = x.replace(/\/\#/gi,"\\\/\\\#"); x = x.replace(/\r\n/gi,"\n"); x = x.replace(/\r/gi,"\n");
 return x
}

function getVar(To,x0) {
 var T0 = readVar(x0);
 if (typeof(T0)=="undefined") {return ""};
 var k,i,nom,Tparm,y0,y,j;
 var x = "";
 for(k=1;k<T0.length;k++) {
  nom = T0[k]; y0 = ";"+T0[0];
  x += "/#:"+nom;
  if (y0.indexOf(";"+nom+",")==-1) {
   x += getVarINT(nom,"0",[]);
  } else {while (y0.indexOf(";"+nom+",")!=-1) {
   j = y0.indexOf(";"+nom+","); y0 = y0.substr(j);
   j = y0.indexOf(";",2); y = y0.substr(0,j); y0 = y0.substr(j);
   y = y.substr(nom.length+2);
   if (y=="1") {x += getVarINT(nom,"1",[]); continue};
   x += "/#("+y; Tparm = y.split(/,/);
  Fin: {
   for(i=0;i<Tparm.length;i++) {if (readVar(Tparm[i]).length==0) {break Fin}}
   x += getVarINT(nom,"0",Tparm);}
   x += "/#)";
  }}
 }
 return "/#("+To+x+"/#)";
}

function getVarINT(nom,type,Tparm) {
 if (Tparm.length==0) {return writeVar(nom,type)}
 var k,T0,T;
 var x = "";
 T0 = readVar(Tparm[0]); T = Tparm.slice(1);
 for(k=0;k<T0.length;k++) {
  if (T.length!=0) {x += "/#("+type}
  x += getVarINT(nom+'['+uneval(T0[k])+']',type,T);
  if (T.length!=0) {x += "/#)"}
 }
 return x;
}

function uneval(x) {
 if (x=="") {return "\"\""};
 x = x.replace(/\\/gi,"\\\\");
 x = x.replace(/\n/gi,"\\n"); x = x.replace(/\"/gi,"\\\""); x = x.replace(/\'/gi,"\\\'");
 return "\""+x+"\"";
}