diff options
author | Chhavi | 2016-07-05 17:39:24 +0000 |
---|---|---|
committer | Chhavi | 2016-07-05 17:39:24 +0000 |
commit | 00c18ee1a093d1fb91eb4091e4875b915fb04e3b (patch) | |
tree | 787840e9b8ac2d06de245eacce0c8989e5e75e9a /data_structures_correct | |
parent | cd101c3cff725f092fb7e2a3f97d8a759e33f19f (diff) | |
download | xcos-on-web-00c18ee1a093d1fb91eb4091e4875b915fb04e3b.tar.gz xcos-on-web-00c18ee1a093d1fb91eb4091e4875b915fb04e3b.tar.bz2 xcos-on-web-00c18ee1a093d1fb91eb4091e4875b915fb04e3b.zip |
RFILE_f
Diffstat (limited to 'data_structures_correct')
-rw-r--r-- | data_structures_correct/RFILE_f.js | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/data_structures_correct/RFILE_f.js b/data_structures_correct/RFILE_f.js new file mode 100644 index 0000000..f0d79e7 --- /dev/null +++ b/data_structures_correct/RFILE_f.js @@ -0,0 +1,36 @@ +function RFILE_f() { + + RFILE_f.prototype.define = function RFILE_f() { + this.out = 1; + this.nout = this.out; + this.frmt = "(7(e10.3,1x))"; + this.fname = "foo"; + this.lunit = 0; + this.N = 2; + this.rpar = []; + this.tmask = 0; + this.outmask = 1; + + var ipar = new ScilabDouble([this.fname.length], [this.frmt.length], [0], [this.N], ..._str2code(this.fname), ..._str2code(this.frmt), [this.tmask], [this.outmask]); + + var dstate = new ScilabDouble([1], [1], [this.lunit], ...zeros((this.nout) * this.N, 1)); + + var model = scicos_model(); + model.sim = new ScilabString(["readf"]); + model.out = new ScilabDouble([this.nout]); + model.evtin = new ScilabDouble([1]); + model.dstate = dstate; + model.ipar = ipar; + model.blocktype = new ScilabString(["d"]); + model.dep_ut = new ScilabBoolean([false, false]); + + var exprs = new ScilabString([sci2exp([])], [sci2exp(this.outmask)], [this.fname], [this.frmt], [this.N], [this.out]); + + var gr_i = new ScilabString(["xstringb(orig(1),orig(2),\"RFILE_f\",sz(1),sz(2));"]); + this.x = new standard_define(new ScilabDouble([3, 2]), model, exprs, gr_i); + return new BasicBlock(this.x); + } + RFILE_f.prototype.details = function RFILE_f() { + return this.x; + } +} |