Scicos: Deprecates not used macros
[scilab.git] / scilab / modules / scicos / macros / scicos_scicos / genmac.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., 675 Mass Ave, Cambridge, MA 02139, USA.
18 //
19 // See the file ../license.txt
20 //
21
22 function mac=genmac(tt,nin,nout)
23   // any old scicos macros, will be removed on 5.4.0
24   warnobsolete(scilabRemovedVersion="5.4.0")
25
26 [txt1,txt0,txt2,txt3,txt4,txt5,txt6]=tt(1:7)
27 mac=null()
28 //    [y,  x,  z,  tvec,xd]=func(flag,nevprt,t,x,z,rpar,ipar,u)
29 blank='  '
30 // if txt2_1<>' ' then
31 //  txt2=[txt2;
32 //      'if n_evi<>0 then'
33 //         blank(ones(txt2_1))+txt2_1
34 //      'end']
35 //end
36 semi=';'
37
38
39 txt1=blank(ones(txt1))+txt1+semi(ones(txt1))
40 txt2=blank(ones(txt2))+txt2+semi(ones(txt2))
41 txt3=blank(ones(txt3))+txt3+semi(ones(txt3))
42 txt4=blank(ones(txt4))+txt4+semi(ones(txt4))
43 txt5=blank(ones(txt5))+txt5+semi(ones(txt5))
44 txt6=blank(ones(txt6))+txt6+semi(ones(txt6))
45
46 u='u'
47 if nin>0 then
48   get_u=blank+'['+strcat(u(ones(1,nin))+string(1:nin),',')+']=u(:)'
49 else
50   get_u=[]
51 end
52 y='y'
53 set_y=blank+'y=list('+strcat(y(ones(1,nout))+string(1:nout),',')+')'
54 mac_txt=[
55     get_u
56     'select %_flag';
57     'case 0 then';
58        txt0
59     '  t_evo=[]';  
60     '  y=list()';
61     'case 1 then';
62        txt1
63     '  t_evo=[]';
64     '  xd=[]';
65        set_y;
66     'case 2 then';
67        txt2
68     '  y=list()';
69     '  t_evo=[]';
70     '  xd=[]';
71     'case 3 then';
72        txt3
73     '  xd=[]';
74     '  y=list()';
75     'case 4 then';
76        txt4
77     '  y=list()';
78     '  t_evo=[]';
79     '  xd=[]';
80     'case 5 then';
81        txt5
82     '  y=list()';
83     '  t_evo=[]';
84     '  xd=[]';
85     'case 6 then';
86        txt6
87     '  t_evo=[]';
88     '  xd=[]';
89        set_y
90     'end';]
91
92 deff('[y,x,z,t_evo,xd]=mac(%_flag,n_evi,t,x,z,rpar,ipar,u)',mac_txt)
93 endfunction