Xcos-Scicos: indent some files before modification
[scilab.git] / scilab / modules / scicos / macros / scicos_scicos / scicos_sim.sci
1 //  Scicos
2 //
3 //  Copyright (C) INRIA - METALAU Project <scicos@inria.fr>
4 //
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.
9 //
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.
14 //
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.
18 //
19 // See the file ../license.txt
20 //
21
22 function sim=scicos_sim(v1,v2,v3,v4,v5,..
23     v6,v7,v8,v9,v10,..
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,..
29     v36,v37,v38,v39,v40)
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)
74 endfunction
75