sub wsExport {local($To) = @_; 
 local $x = ""; 
 local($i,$j); 
 if (&wsRun("getTable",$To)!=0) {return $x};
 if (&wsRun("getFields",$To)!=0) {return $x};
for($i=0;$i<scalar(@wwTab);$i++) {
 $x .= "(#T(".$To.")new:".&wsExport1($wwTab[$i]{"/#T"});;
 for($j=0;$j<scalar(@wwChp);$j++) {
  $x .= "/#T(".$wwChp[$j]."):".&wsExport1($wwTab[$i]{$wwChp[$j]});
 }
 $x .= "/#T)"."\n";
}
 return $x;
}

sub wsExport1 {local($x) = @_; 
 if ($x eq "") {return ""};
 $x =~ s/\\/\\\\/gi; $x =~ s/\n/\\n/gi; $x =~ s/\"/\\\"/gi; $x =~ s/\'/\\\'/gi;
 return $x
}

function wsExport(To) { 
 var x = ""; 
 var i,j; 
 if (wsRun("getTable",To)!=0) {return x};
 if (wsRun("getFields",To)!=0) {return x};
for(i=0;i<wwTab.length;i++) {
 x += "(#T("+To+")new:"+wsExport1(wwTab[i]["/#T"]);;
 for(j=0;j<wwChp.length;j++) {
  x += "/#T("+wwChp[j]+"):"+wsExport1(wwTab[i][wwChp[j]]);
 }
 x += "/#T)"+"\n";
}
 return x;
}

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