diff options
Diffstat (limited to 'js/Sinks/WFILE_f.js')
| -rw-r--r-- | js/Sinks/WFILE_f.js | 52 |
1 files changed, 26 insertions, 26 deletions
diff --git a/js/Sinks/WFILE_f.js b/js/Sinks/WFILE_f.js index 05259e11..2fa50583 100644 --- a/js/Sinks/WFILE_f.js +++ b/js/Sinks/WFILE_f.js @@ -1,21 +1,21 @@ /* autogenerated from "macros/Sinks/WFILE_f.sci" */ function WFILE_f() { WFILE_f.prototype.define = function WFILE_f() { - in1 = 1; - nin = sum(in1); + this.in1 = 1; + nin = sum(this.in1); frmt = "(7(e10.3,1x))"; fname = "foo"; lunit = 0; - N = 2; + this.N = 2; model = scicos_model(); model.sim = "writef"; - model.in1 = in1; + model.in1 = this.in1; model.evtin = 1; - model.dstate = [[-1],[lunit],[zeros((nin+1)*N,1)]]; - model.ipar = [[length(fname)],[length(frmt)],[0],[N],[this._str2code[fname-1]],[this._str2code[frmt-1]]]; + model.dstate = [[-1],[lunit],[zeros((nin+1)*this.N,1)]]; + model.ipar = [[length(fname)],[length(frmt)],[0],[this.N],[this._str2code[fname-1]],[this._str2code[frmt-1]]]; model.blocktype = "d"; model.dep_ut = [true,false]; - exprs = [[sci2exp(in1)],[fname],[frmt],[string(N)]]; + exprs = [[sci2exp(this.in1)],[fname],[frmt],[string(this.N)]]; gr_i = []; this.x = standard_define([3,2],model,exprs,gr_i); return new BasicBlock(this.x); @@ -40,43 +40,43 @@ function WFILE_f() { fname = exprs[2-1]; frmt = exprs[3-1]; while (true) { - [ok,in1,fname1,frmt1,N,exprs] = scicos_getvalue([[msprintf(gettext("Set %s block parameters"),"WFILE_f")],[" "],[gettext("Write to output file")],[" "],[gettext("Write is done on:")],[gettext(" - A binary file if no format given")],[gettext(" - A formatted text file if a format (Fortran type) is given")]],[[gettext("Input Size")],[gettext("Output File Name")],[gettext("Output Format")],[gettext("Buffer Size")]],list("vec",1,"str",1,"str",1,"vec",1),exprs); + [ok,this.in1,this.fname1,this.frmt1,this.N,exprs] = scicos_getvalue([[msprintf(gettext("Set %s block parameters"),"WFILE_f")],[" "],[gettext("Write to output file")],[" "],[gettext("Write is done on:")],[gettext(" - A binary file if no format given")],[gettext(" - A formatted text file if a format (Fortran type) is given")]],[[gettext("Input Size")],[gettext("Output File Name")],[gettext("Output Format")],[gettext("Buffer Size")]],list("vec",1,"str",1,"str",1,"vec",1),exprs); if (!ok) { break; } - in1 = int(in1); - nin = in1; - fname1 = pathconvert(stripblanks(fname1),false,true); - frmt1 = stripblanks(frmt1); - if (lunit>0&&min(length(frmt),1)!=min(length(frmt1),1)) { + this.in1 = int(this.in1); + nin = this.in1; + this.fname1 = pathconvert(stripblanks(this.fname1),false,true); + this.frmt1 = stripblanks(this.frmt1); + if (lunit>0&&min(length(frmt),1)!=min(length(this.frmt1),1)) { block_parameter_error(gettext("Simulation running !!! You cannot switch<br />between formatted and unformatted when running"),gettext("End current simulation first.")); ok = false; - } else if (lunit>0&&fname1!=fname) { + } else if (lunit>0&&this.fname1!=fname) { block_parameter_error(gettext("You cannot modify \'Output File Name\' when running."),gettext("End current simulation first.")); ok = false; - } else if (fname1=="") { + } else if (this.fname1=="") { block_parameter_error(gettext("Wrong value for \'Output File Name\' parameter"),gettext("You must provide a filename.")); ok = false; - } else if (fileparts(fname1)!="") { - [pa,fn,ex] = fileparts(fname1); + } else if (fileparts(this.fname1)!="") { + [pa,fn,ex] = fileparts(this.fname1); if (!this.isdir[pa-1]) { block_parameter_error(msprintf(gettext("Wrong value for \'%s\' parameter."),gettext("Output File Name")),msprintf(gettext("Directory \'%s\' does not exist"),pa)); ok = false; } - } else if (frmt1!=""&&(part(frmt1,1)!="("||part(frmt1,length(frmt1))!=")")) { - block_parameter_error(msprintf(gettext("Wrong value for \'%s\' parameter: %s."),gettext("Input Format"),frmt1),gettext("You must enclose the format\'s string between parentheses.")); + } else if (this.frmt1!=""&&(part(this.frmt1,1)!="("||part(this.frmt1,length(this.frmt1))!=")")) { + block_parameter_error(msprintf(gettext("Wrong value for \'%s\' parameter: %s."),gettext("Input Format"),this.frmt1),gettext("You must enclose the format\'s string between parentheses.")); ok = false; - } else if (N<2) { - block_parameter_error(msprintf(gettext("Wrong value for \'%s\' parameter: %d."),gettext("Buffer Size"),N),gettext("Must be greater than 1.")); + } else if (this.N<2) { + block_parameter_error(msprintf(gettext("Wrong value for \'%s\' parameter: %d."),gettext("Buffer Size"),this.N),gettext("Must be greater than 1.")); ok = false; - } else if (in1<=0) { - block_parameter_error(msprintf(gettext("Wrong value for \'%s\' parameter: %d."),gettext("Input Size"),in1),gettext("Strictly positive integer expected.")); + } else if (this.in1<=0) { + block_parameter_error(msprintf(gettext("Wrong value for \'%s\' parameter: %d."),gettext("Input Size"),this.in1),gettext("Strictly positive integer expected.")); ok = false; } if (ok) { - ipar = [[length(fname1)],[length(frmt1)],[0],[N],[this._str2code[fname1-1]],[this._str2code[frmt1-1]]]; - if (prod(size(dstate))!=(nin+1)*N+2) { - dstate = [[-1],[lunit],[zeros((nin+1)*N,1)]]; + ipar = [[length(this.fname1)],[length(this.frmt1)],[0],[this.N],[this._str2code[this.fname1-1]],[this._str2code[this.frmt1-1]]]; + if (prod(size(dstate))!=(nin+1)*this.N+2) { + dstate = [[-1],[lunit],[zeros((nin+1)*this.N,1)]]; } model.in1 = nin; model.dstate = dstate; |