local(@wwBuf); 

sub wsFile {local($x,$To,$nom,$cas,$IN) = @_; 
 local($nomFic); 
if (($x ne "begin")&&($x ne "end")) {
 if (($x eq "check")&&($To eq "User")&&($nom eq "")) {return 0}
 if (($nomFic=&getFile($To,$nom,$cas)) eq "") {return 1}
}
if($x eq "check"){
}elsif($x eq "size"){
 (-e $nomFic) || return 1; $$IN = (-s $nomFic);
}elsif($x eq "write"){
 open(F1,">>".$nomFic) || return 1; print F1 $$IN; close(F1);
}elsif($x eq "read"){
 open(F1,"<".$nomFic) || return 1; $$IN .= join("",<F1>); close(F1);
}elsif($x eq "begin"){
 @wwBuf = (); 
}elsif($x eq "end"){
 local($k); 
for($k=0;$k<scalar(@wwBuf);$k++) {
 open(F1,">>".$wwBuf[$k][0]) || return $k+1; print F1 $wwBuf[$k][1]; close(F1);
}; 
}elsif($x eq "buffer"){
 @{$wwBuf[scalar(@wwBuf)]} = ($nomFic,$$IN); 
}
 return 0;
}

var wwBuf; 

function wsFile(x,To,nom,cas,IN) { 
 var nomFic; 
if ((x!="begin")&&(x!="end")) {
 if ((x=="check")&&(To=="User")&&(nom=="")) {return 0}
 if ((nomFic=getFile(To,nom,cas))=="") {return 1}
}
switch(x) {
case "check":
 break;
case "size":
 if (typeof(eval(nomFic))=="undefined") {return 1}; IN[0] = eval(nomFic).length; break; 
case "write":
 if (typeof(eval(nomFic))=="undefined") {return 1}; eval(nomFic+" += IN[0]"); break; 
case "read":
 if (typeof(eval(nomFic))=="undefined") {return 1}; IN[0] += eval(nomFic); break; 
case "begin":
 wwBuf = []; break;
case "end":
 var k; 
for(k=0;k<wwBuf.length;k++) {
 if (typeof(eval(wwBuf[k][0]))=="undefined") {return k+1}; eval(wwBuf[k][0]+" += wwBuf[k][1]"); 
}; break;
case "buffer":
 wwBuf[wwBuf.length] = Array(nomFic,IN[0]); break;
}
 return 0;
}