-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)

-}