1 files changed, 33 insertions, 30 deletions

diff --git a/js/Sources/READC_f.js b/js/Sources/READC_f.js
index 010bffb1..b7d8b64f 100644
--- a/js/Sources/READC_f.js
+++ b/js/Sources/READC_f.js
@@ -1,19 +1,19 @@
 /* autogenerated from "macros/Sources/READC_f.sci" */
 function READC_f() {
     READC_f.prototype.define = function READC_f() {
-        frmt = "d  ";
-        fname = "foo";
-        lunit = 0;
+        var frmt = "d  ";
+        var fname = "foo";
+        var lunit = 0;
         this.N = 20;
         this.M = 1;
-        rpar = [];
-        tmask = 0;
+        var rpar = [];
+        var tmask = 0;
         this.swap = 0;
         this.offset = 1;
         this.outmask = 1;
-        ievt = 0;
-        nout = size(this.outmask,"*");
-        ipar = [[length(fname)],[this._str2code[frmt-1]],[ievt],[this.N],[this.M],[this.swap],[this.offset],[this._str2code[fname-1]],[tmask],[this.outmask]];
+        var ievt = 0;
+        var nout = size(this.outmask,"*");
+        var ipar = [[length(fname)],[this._str2code[frmt-1]],[ievt],[this.N],[this.M],[this.swap],[this.offset],[this._str2code[fname-1]],[tmask],[this.outmask]];
         this.model = scicos_model();
         this.model.sim = list(new ScilabString(["readc"]), new ScilabDouble([2]));
         this.model.out = new ScilabDouble([nout]);
@@ -24,8 +24,8 @@ function READC_f() {
         this.model.blocktype = new ScilabString(["d"]);
         this.model.firing = new ScilabDouble([-1]);
         this.model.dep_ut = [false,false];
-        exprs = [["[]"],[sci2exp(this.outmask)],[fname],[frmt],[string(this.M)],[string(this.N)],[string(this.offset)],[string(this.swap)]];
-        gr_i = [];
+        var exprs = [["[]"],[sci2exp(this.outmask)],[fname],[frmt],[string(this.M)],[string(this.N)],[string(this.offset)],[string(this.swap)]];
+        var gr_i = [];
         this.x = standard_define([4,2],this.model,exprs,gr_i);
         return new BasicBlock(this.x);
     }
@@ -56,16 +56,16 @@ function READC_f() {
         this.swap = parseFloat(arguments[0]["swap"])
         this.x = arg1;
         this.model = this.x.model;
-        graphics = arg1.graphics;
-        exprs = graphics.exprs;
-        out = this.model.out;
-        dstate = this.model.dstate;
-        ipar = this.model.ipar;
-        imask = 9+ipar[1-1];
-        tmask = ipar[imask-1];
-        lunit = dstate[3-1];
-        fname = exprs[3-1];
-        frmt = exprs[4-1];
+        var graphics = arg1.graphics;
+        var exprs = graphics.exprs;
+        var out = this.model.out;
+        var dstate = this.model.dstate;
+        var ipar = this.model.ipar;
+        var imask = 9+ipar[1-1];
+        var tmask = ipar[imask-1];
+        var lunit = dstate[3-1];
+        var fname = exprs[3-1];
+        var frmt = exprs[4-1];
         while (true) {
             [ok,this.tmask1,this.outmask,this.fname1,this.frmt1,this.M,this.N,this.offset,this.swap,exprs] = scicos_getvalue([[msprintf("Set %s block parameters","READC_f")],[" "],["Read from C binary file"]],["Time Record Selection","Outputs Record Selection","Input File Name","Input Format","Record Size","Buffer Size","Initial Record Index","Swap Mode (0:No, 1:Yes)"],list("vec",-1,"vec",-1,"str",1,"str",1,"vec",1,"vec",1,"vec",1,"vec",1),exprs);
             if (!ok) {
@@ -73,8 +73,8 @@ function READC_f() {
             }
             this.fname1 = pathconvert(stripblanks(this.fname1),false,true);
             this.frmt1 = stripblanks(this.frmt1);
-            fmts = ["s","l","d","f","c","us","ul","uc","ull","uls","ubl","ubs","dl","fl","ll","sl","db","fb","lb","sb"];
-            nout = size(this.outmask,"*");
+            var fmts = ["s","l","d","f","c","us","ul","uc","ull","uls","ubl","ubs","dl","fl","ll","sl","db","fb","lb","sb"];
+            var nout = size(this.outmask,"*");
             if (prod(size(this.tmask1))>1) {
                 block_parameter_error(msprintf("Wrong value for \'%s\' parameter.","Time Record Selection"),"Must be a scalar or an empty matrix.");
             } else if (and(this.frmt1!=fmts)) {
@@ -105,15 +105,18 @@ function READC_f() {
                 block_parameter_error(msprintf("Wrong value for \'%s\' parameter: %d.","Initial Record Index",this.offset),"Strictly positive integer expected.");
             } else {
                 if (this.tmask1==[]) {
-                    ievt = 0;
+                    var ievt = 0;
                     this.tmask1 = 0;
-                    outpt = [];
+                    var outpt = [];
                 } else {
-                    ievt = 1;
-                    outpt = 1;
+                    var ievt = 1;
+                    var outpt = 1;
                 }
-                out = size(this.outmask,"*");
-                [this.model,graphics,ok] = check_io(this.model,graphics,[],out,1,outpt);
+                var out = size(this.outmask,"*");
+                var tmpvar0 = check_io(this.model,graphics,[],out,1,outpt)
+                this.model = tmpvar0[0]
+                var graphics = tmpvar0[1]
+                var ok = tmpvar0[2];
                 this.frmt1 = part(this.frmt1,1,3);
                 if (ok) {
                     if (ievt==0) {
@@ -121,9 +124,9 @@ function READC_f() {
                     } else {
                         this.model.firing = new ScilabDouble([0]);
                     }
-                    ipar = [[length(this.fname1)],[this._str2code[this.frmt1-1]],[ievt],[this.N],[this.M],[this.swap],[this.offset],[this._str2code[this.fname1-1]],[this.tmask1],[this.outmask.slice()]];
+                    var ipar = [[length(this.fname1)],[this._str2code[this.frmt1-1]],[ievt],[this.N],[this.M],[this.swap],[this.offset],[this._str2code[this.fname1-1]],[this.tmask1],[this.outmask.slice()]];
                     if (prod(size(dstate))!=(this.N*this.M)+3) {
-                        dstate = [[-1],[-1],[lunit],[zeros(this.N*this.M,1)]];
+                        var dstate = [[-1],[-1],[lunit],[zeros(this.N*this.M,1)]];
                     }
                     this.model.dstate = new ScilabDouble(dstate);
                     this.model.ipar = new ScilabDouble(ipar);