3 // Copyright (C) INRIA - METALAU Project <scicos@inria.fr>
5 // This program is free software; you can redistribute it and/or modify
6 // it under the terms of the GNU General Public License as published by
7 // the Free Software Foundation; either version 2 of the License, or
8 // (at your option) any later version.
10 // This program is distributed in the hope that it will be useful,
11 // but WITHOUT ANY WARRANTY; without even the implied warranty of
12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 // GNU General Public License for more details.
15 // You should have received a copy of the GNU General Public License
16 // along with this program; if not, write to the Free Software
17 // Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
19 // See the file ../license.txt
22 function sim=scicos_sim(v1,v2,v3,v4,v5,..
24 v11,v12,v13,v14,v15,..
25 v16,v17,v18,v19,v20,..
26 v21,v22,v23,v24,v25,..
27 v26,v27,v28,v29,v30,..
28 v31,v32,v33,v34,v35,..
30 if exists("funs","local")==0 then funs=[],end
31 if exists("xptr","local")==0 then xptr=[],end
32 if exists("zptr","local")==0 then zptr=[],end
33 if exists("ozptr","local")==0 then ozptr=[],end
34 if exists("zcptr","local")==0 then zcptr=[],end
35 if exists("inpptr","local")==0 then inpptr=[],end
36 if exists("outptr","local")==0 then outptr=[],end
37 if exists("inplnk","local")==0 then inplnk=[],end
38 if exists("outlnk","local")==0 then outlnk=[],end
39 if exists("rpar","local")==0 then rpar=[],end
40 if exists("rpptr","local")==0 then rpptr=[],end
41 if exists("ipar","local")==0 then ipar=[],end
42 if exists("ipptr","local")==0 then ipptr=[],end
43 if exists("opar","local")==0 then opar=list(),end
44 if exists("opptr","local")==0 then opptr=[],end
45 if exists("clkptr","local")==0 then clkptr=[],end
46 if exists("ordptr","local")==0 then ordptr=[],end
47 if exists("execlk","local")==0 then execlk=[],end
48 if exists("ordclk","local")==0 then ordclk=[],end
49 if exists("cord","local")==0 then cord=[],end
50 if exists("oord","local")==0 then oord=[],end
51 if exists("zord","local")==0 then zord=[],end
52 if exists("critev","local")==0 then critev=[],end
53 if exists("nb","local")==0 then nb=[],end
54 if exists("ztyp","local")==0 then ztyp=[],end
55 if exists("nblk","local")==0 then nblk=[],end
56 if exists("ndcblk","local")==0 then ndcblk=[],end
57 if exists("subscr","local")==0 then subscr=[],end
58 if exists("funtyp","local")==0 then funtyp=[],end
59 if exists("iord","local")==0 then iord=[],end
60 if exists("labels","local")==0 then labels=[],end
61 if exists("modptr","local")==0 then modptr=[],end
62 sim=tlist(["scs","funs","xptr","zptr","ozptr",..
63 "zcptr","inpptr","outptr","inplnk","outlnk","rpar",..
64 "rpptr","ipar","ipptr","opar","opptr",..
65 "clkptr","ordptr","execlk","ordclk","cord","oord","zord",..
66 "critev","nb","ztyp","nblk","ndcblk","subscr","funtyp",..
67 "iord","labels","modptr"],..
68 funs,xptr,zptr,ozptr,zcptr,inpptr,..
69 outptr,inplnk,outlnk,rpar,rpptr,ipar,ipptr,..
70 opar,opptr,clkptr,ordptr,..
71 execlk,ordclk,cord,oord,zord,..
72 critev,nb,ztyp,nblk,ndcblk,..
73 subscr,funtyp,iord,labels,modptr)