Xcos-Scicos: indent some files before modification
[scilab.git] / scilab / modules / scicos / macros / scicos_scicos / scicos_model.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 model=scicos_model(v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15,v16,...
23     v17,v18,v19,v20,v21,v22,v23,v24,v25,v26)
24
25     //initialisation de model mlist
26     if exists("sim","local")==0 then sim="",end
27     if exists("in","local")==0 then in=[],end
28     if exists("in2","local")==0 then in2=[],end
29     if exists("intyp","local")==0 then intyp=1,end
30     if exists("out","local")==0 then out=[],end
31     if exists("out2","local")==0 then out2=[],end
32     if exists("outtyp","local")==0 then outtyp=1,end
33     if exists("evtin","local")==0 then evtin=[],end
34     if exists("evtout","local")==0 then evtout=[],end
35     if exists("state","local")==0 then state=[],end
36     if exists("dstate","local")==0 then dstate=[],end
37     if exists("odstate","local")==0 then odstate=list(),end
38     if exists("opar","local")==0 then opar=list(),end
39     if exists("rpar","local")==0 then rpar=[],end
40     if exists("ipar","local")==0 then ipar=[],end
41     if exists("blocktype","local")==0 then blocktype="c",end
42     if exists("firing","local")==0 then firing=[],end
43     if exists("dep_ut","local")==0 then dep_ut=[%f %f],end
44     if exists("label","local")==0 then label="",end
45     if exists("nzcross","local")==0 then nzcross=0,end
46     if exists("nmode","local")==0 then nmode=0,end
47     if exists("equations","local")==0 then equations=list(),end
48
49     model=mlist(["model","sim","in","in2","intyp","out","out2","outtyp",...
50     "evtin","evtout","state","dstate","odstate","rpar","ipar","opar",...
51     "blocktype","firing","dep_ut","label","nzcross",..
52     "nmode","equations"],..
53     sim,in,in2,intyp,out,out2,outtyp,evtin,evtout,state,dstate,odstate,..
54     rpar,ipar,opar,blocktype,firing,dep_ut,label,nzcross,nmode,equations)
55 endfunction
56