1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
function READC_f () {
var frmt = "d, ";
var fname = "foo";
var lunit = 0;
var N = 20;
var M = 1;
var rpar = [];
var tmask = 0;
var swap = 0;
var offset = 1;
var outmask = 1;
var ievt = 0;
var nout = size(outmask,"*");
var ipar = [[,length(fname)],[,_str2code(frmt)],[,ievt],[,N],[,M],[,swap],[offset],[,_str2code(fname)],[,tmask],[,outmask,]];
var model = scicos_model();
model.sim=list(new ScilabString(["readc"]),new ScilabDouble([2]));
model.out=nout;
model.evtin = new ScilabDouble([1]);
model.evtout = new ScilabDouble();
model.dstate = new ScilabDouble([1],[,1],[,lunit],[,zeros(N*M,1)]);
model.ipar = new ScilabDouble([,length(fname)],[,_str2code(frmt)],[,ievt],[,N],[,M],[,swap],[,offset],[_str2code(fname)],[,tmask],[,outmask,]);
model.blocktype = new ScilabString(["d"]);
model.firing = new ScilabDouble([-1]);
model.dep_ut = new ScilabBoolean([false,false]);
var exprs = [[,"[]"],[,sci2exp(outmask)],[,fname],[,frmt],[,string(M)],[,string(N)],[,string(offset)],[string(swap),]];
var gr_i = [];
this.x=new standard_define(new ScilabDouble([4,2]),model,exprs,gr_i);
return new BasicBlock(this.x)
}
|
