diff options
Diffstat (limited to 'js/Sources/CONST_m.js')
-rw-r--r-- | js/Sources/CONST_m.js | 89 |
1 files changed, 45 insertions, 44 deletions
diff --git a/js/Sources/CONST_m.js b/js/Sources/CONST_m.js index 471e09ff..ac1e84ce 100644 --- a/js/Sources/CONST_m.js +++ b/js/Sources/CONST_m.js @@ -14,59 +14,60 @@ function CONST_m() { model.dep_ut = [false,false]; exprs = sci2exp(C); gr_i = []; - x = standard_define([2,2],model,exprs,gr_i); + this.x = standard_define([2,2],model,exprs,gr_i); } CONST_m.prototype.details = function CONST_m() { + return this.x; } CONST_m.prototype.get = function CONST_m() { } CONST_m.prototype.set = function CONST_m() { - x = arg1; + this.x = arg1; graphics = arg1.graphics; exprs = graphics.exprs; model = arg1.model; while (true) { - [ok,C,exprs] = scicos_getvalue([[msprintf(gettext("Set %s block parameters"),"CONST_m")],[" "],[gettext("Constant value generator")],[" "]],gettext("Constant Value"),list("vec",-1),exprs); - if (!ok) { -break; -} - nout = size(C); - if (find(nout==0)!=[]) { -block_parameter_error(msprintf(gettext("Wrong size for \'%s\' parameter"),gettext("Constant Value")),gettext("Constant value must have at least one element.")); - } else { - model.sim = list("cstblk4_m",4); - model.opar = list(C); - if ((this.type[C-1]==1)) { - if (isreal(C)) { - ot = 1; - } else { - ot = 2; -} - } else if ((typeof(C)=="int32")) { - ot = 3; - } else if ((typeof(C)=="int16")) { - ot = 4; - } else if ((typeof(C)=="int8")) { - ot = 5; - } else if ((typeof(C)=="uint32")) { - ot = 6; - } else if ((typeof(C)=="uint16")) { - ot = 7; - } else if ((typeof(C)=="uint8")) { - ot = 8; - } else { -block_parameter_error(msprintf(gettext("Wrong type for \'%s\' parameter"),gettext("Constant Value")),gettext("Value type must be a numeric type (double, complex, int, int8, ...).")); - ok = false; -} - if (ok) { - model.rpar = []; - [model,graphics,ok] = set_io(model,graphics,list(),list(nout,ot),[],[]); - graphics.exprs = exprs; - x.graphics = graphics; - x.model = model; -break; -} -} -} + [ok,C,exprs] = scicos_getvalue([[msprintf(gettext("Set %s block parameters"),"CONST_m")],[" "],[gettext("Constant value generator")],[" "]],gettext("Constant Value"),list("vec",-1),exprs); + if (!ok) { + break; + } + nout = size(C); + if (find(nout==0)!=[]) { + block_parameter_error(msprintf(gettext("Wrong size for \'%s\' parameter"),gettext("Constant Value")),gettext("Constant value must have at least one element.")); + } else { + model.sim = list("cstblk4_m",4); + model.opar = list(C); + if ((this.type[C-1]==1)) { + if (isreal(C)) { + ot = 1; + } else { + ot = 2; + } + } else if ((typeof(C)=="int32")) { + ot = 3; + } else if ((typeof(C)=="int16")) { + ot = 4; + } else if ((typeof(C)=="int8")) { + ot = 5; + } else if ((typeof(C)=="uint32")) { + ot = 6; + } else if ((typeof(C)=="uint16")) { + ot = 7; + } else if ((typeof(C)=="uint8")) { + ot = 8; + } else { + block_parameter_error(msprintf(gettext("Wrong type for \'%s\' parameter"),gettext("Constant Value")),gettext("Value type must be a numeric type (double, complex, int, int8, ...).")); + ok = false; + } + if (ok) { + model.rpar = []; + [model,graphics,ok] = set_io(model,graphics,list(),list(nout,ot),[],[]); + graphics.exprs = exprs; + this.x.graphics = graphics; + this.x.model = model; + break; + } + } + } } } |