support ScilabBoolean, ScilabDouble, ScilabString

1 files changed, 21 insertions, 21 deletions

diff --git a/js/Misc/fortran_block.js b/js/Misc/fortran_block.js
index 39673360..e1653c52 100644
--- a/js/Misc/fortran_block.js
+++ b/js/Misc/fortran_block.js
@@ -1,23 +1,23 @@
 /* autogenerated from "macros/Misc/fortran_block.sci" */
 function fortran_block() {
     fortran_block.prototype.define = function fortran_block() {
-        model = scicos_model();
-        model.sim = list(" ",1001);
-        model.in1 = 1;
-        model.out = 1;
-        model.evtin = [];
-        model.evtout = [];
-        model.state = [];
-        model.dstate = [];
-        model.rpar = [];
-        model.ipar = 0;
-        model.blocktype = "c";
-        model.firing = [];
-        model.dep_ut = [true,false];
+        this.model = scicos_model();
+        this.model.sim = list(" ",1001);
+        this.model.in1 = new ScilabDouble(1);
+        this.model.out = new ScilabDouble(1);
+        this.model.evtin = [];
+        this.model.evtout = [];
+        this.model.state = [];
+        this.model.dstate = [];
+        this.model.rpar = [];
+        this.model.ipar = new ScilabDouble(0);
+        this.model.blocktype = new ScilabString("c");
+        this.model.firing = [];
+        this.model.dep_ut = [true,false];
         this.funam = "forty";
-        label = list([[sci2exp(model.in1)],[sci2exp(model.out)],[strcat(sci2exp(model.rpar))],[this.funam]],list([]));
+        label = list([[sci2exp(this.model.in1)],[sci2exp(this.model.out)],[strcat(sci2exp(this.model.rpar))],[this.funam]],list([]));
         gr_i = [];
-        this.x = standard_define([4,2],model,label,gr_i);
+        this.x = standard_define([4,2],this.model,label,gr_i);
         return new BasicBlock(this.x);
     }
     fortran_block.prototype.details = function fortran_block() {
@@ -39,7 +39,7 @@ function fortran_block() {
         this.funam = arguments[0]["funam"]
         this.lab = arguments[0]["lab"]
         this.x = arg1;
-        model = arg1.model;
+        this.model = arg1.model;
         graphics = arg1.graphics;
         label = graphics.exprs;
         while (true) {
@@ -57,19 +57,19 @@ function fortran_block() {
             this.o = int(this.o.slice());
             no = size(this.o,1);
             tt = label[2-1];
-            if (model.sim[1-1]!=this.funam||size(model.in1,"*")!=size(this.i,"*")||size(model.out,"*")!=size(this.o,"*")) {
+            if (this.model.sim[1-1]!=this.funam||size(this.model.in1,"*")!=size(this.i,"*")||size(this.model.out,"*")!=size(this.o,"*")) {
                 tt = [];
             }
             [ok,tt] = FORTR(this.funam,tt,this.i,this.o);
             if (!ok) {
                 break;
             }
-            [model,graphics,ok] = check_io(model,graphics,this.i,this.o,[],[]);
+            [model,graphics,ok] = check_io(this.model,graphics,this.i,this.o,[],[]);
             if (ok) {
-                model.sim[1-1] = this.funam;
-                model.rpar = this.rpar;
+                this.model.sim[('1', 'double')] = new ScilabString(this.funam);
+                this.model.rpar = this.rpar;
                 label[2-1] = tt;
-                this.x.model = model;
+                this.x.model = this.model;
                 graphics.exprs = label;
                 this.x.graphics = graphics;
                 break;