add return value from scicos_getvalue to global vars

1 files changed, 17 insertions, 17 deletions

diff --git a/js/Sources/READAU_f.js b/js/Sources/READAU_f.js
index e7f87a08..27f1bc2c 100644
--- a/js/Sources/READAU_f.js
+++ b/js/Sources/READAU_f.js
@@ -4,10 +4,10 @@ function READAU_f() {
         frmt = "uc ";
         fname = "test.au";
         lunit = 0;
-        N = 20;
+        this.N = 20;
         M = 1;
         tmask = [];
-        swap = 0;
+        this.swap = 0;
         offset = 1;
         outmask = 1;
         ievt = 0;
@@ -16,11 +16,11 @@ function READAU_f() {
         model.sim = list("readau",2);
         model.out = nout;
         model.evtin = 1;
-        model.dstate = [[1],[1],[lunit],[zeros(N*M,1)]];
-        model.ipar = [[length(fname)],[this._str2code[frmt-1]],[ievt],[N],[M],[swap],[offset],[this._str2code[fname-1]],[tmask],[outmask]];
+        model.dstate = [[1],[1],[lunit],[zeros(this.N*M,1)]];
+        model.ipar = [[length(fname)],[this._str2code[frmt-1]],[ievt],[this.N],[M],[this.swap],[offset],[this._str2code[fname-1]],[tmask],[outmask]];
         model.blocktype = "d";
         model.dep_ut = [false,false];
-        exprs = [[fname],[string(N)],[string(swap)]];
+        exprs = [[fname],[string(this.N)],[string(this.swap)]];
         gr_i = [];
         this.x = standard_define([5,2],model,exprs,gr_i);
         return new BasicBlock(this.x);
@@ -43,7 +43,7 @@ function READAU_f() {
         lunit = dstate[3-1];
         fname = exprs[1-1];
         while (true) {
-            [ok,fname1,N,swap,exprs] = scicos_getvalue([[msprintf(gettext("Set %s block parameters"),"READAU_f")],[" "],[gettext("(Read Audio File)")],[" "],[gettext("Read is done on a binary \'.au\' file")]],[[gettext("Input File Name")],[gettext("Buffer size")],[gettext("Swap Mode (0:No, 1:Yes)")]],list("str",1,"vec",1,"vec",1),exprs);
+            [ok,this.fname1,this.N,this.swap,exprs] = scicos_getvalue([[msprintf(gettext("Set %s block parameters"),"READAU_f")],[" "],[gettext("(Read Audio File)")],[" "],[gettext("Read is done on a binary \'.au\' file")]],[[gettext("Input File Name")],[gettext("Buffer size")],[gettext("Swap Mode (0:No, 1:Yes)")]],list("str",1,"vec",1,"vec",1),exprs);
             tmask1 = [];
             outmask = 1;
             frmt1 = "uc";
@@ -52,25 +52,25 @@ function READAU_f() {
             if (!ok) {
                 break;
             }
-            fname1 = stripblanks(fname1);
+            this.fname1 = stripblanks(this.fname1);
             frmt1 = stripblanks(frmt1);
-            if (this.alreadyran&&fname1!=fname) {
+            if (this.alreadyran&&this.fname1!=fname) {
                 block_parameter_error(gettext("Simulation running !!! You cannot modify Input file name"),gettext("End current simulation first."));
-            } else if (fname1=="") {
+            } else if (this.fname1=="") {
                 block_parameter_error(msprintf(gettext("Wrong value for \'%s\' parameter."),gettext("Input File Name")),gettext("You must provide a filename."));
-            } else if (N<1) {
-                block_parameter_error(msprintf(gettext("Wrong value for \'%s\' parameter: %d."),gettext("Buffer size"),N),msprintf(gettext("Must be greater than %d."),1));
-            } else if (this.alreadyran&&(N!=ipar[6-1])) {
+            } else if (this.N<1) {
+                block_parameter_error(msprintf(gettext("Wrong value for \'%s\' parameter: %d."),gettext("Buffer size"),this.N),msprintf(gettext("Must be greater than %d."),1));
+            } else if (this.alreadyran&&(this.N!=ipar[6-1])) {
                 block_parameter_error(msprintf(gettext("You cannot modify \'%s\' when running."),gettext("Buffer Size")),gettext("End current simulation first."));
-            } else if (swap!=0&&swap!=1) {
-                block_parameter_error(msprintf(gettext("Wrong value for \'%s\' parameter: %d."),gettext("Swap Mode"),swap),msprintf(gettext("Must be in the interval %s."),"[0, 1]"));
+            } else if (this.swap!=0&&this.swap!=1) {
+                block_parameter_error(msprintf(gettext("Wrong value for \'%s\' parameter: %d."),gettext("Swap Mode"),this.swap),msprintf(gettext("Must be in the interval %s."),"[0, 1]"));
             } else {
                 [model,graphics,ok] = check_io(model,graphics,[],1,1,[]);
                 frmt1 = part(frmt1,1,3);
                 if (ok) {
-                    ipar = [[length(fname1)],[this._str2code[frmt1-1]],[0],[N],[M],[swap],[offset,this._str2code[fname1-1]],[tmask1,outmask.slice()]];
-                    if (prod(size(dstate))!=(N*M)+3) {
-                        dstate = [[-1],[-1],[lunit],[zeros(N*M,1)]];
+                    ipar = [[length(this.fname1)],[this._str2code[frmt1-1]],[0],[this.N],[M],[this.swap],[offset,this._str2code[this.fname1-1]],[tmask1,outmask.slice()]];
+                    if (prod(size(dstate))!=(this.N*M)+3) {
+                        dstate = [[-1],[-1],[lunit],[zeros(this.N*M,1)]];
                     }
                     model.dstate = dstate;
                     model.ipar = ipar;