Minor Changes

1 files changed, 46 insertions, 0 deletions

diff --git a/history/data_structures/READC_f.js b/history/data_structures/READC_f.js
new file mode 100644
index 0000000..cc406db
--- /dev/null
+++ b/history/data_structures/READC_f.js
@@ -0,0 +1,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)
+}