summaryrefslogtreecommitdiff
path: root/js/Sources/CONST_m.js
diff options
context:
space:
mode:
Diffstat (limited to 'js/Sources/CONST_m.js')
-rw-r--r--js/Sources/CONST_m.js89
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;
+ }
+ }
+ }
}
}