Reorganization
[scilab.git] / scilab / util / genmacros.sce
1 //------------------------------------
2 // Allan CORNET INRIA 2005
3 //------------------------------------
4 // build minimals macros for use genlib
5 // use only for macros/util directory
6 //------------------------------------
7 clear all;
8 mode(-1);
9 //------------------------------------
10 function RemoveMinimalMacros()
11   SCI=getenv('SCI');
12   MSDOS=(getos()=='Windows')
13   if MSDOS then
14     CurrentDir=pwd();
15     chdir(SCI+'/modules/functions/macros');
16     unix('if EXIST ""'+'genlib.bin'+'"" del /F ""'+'genlib.bin'+'""');
17     chdir(SCI+'/modules/fileio/macros');
18     unix('if EXIST ""'+'fileparts.bin'+'"" del /F ""'+'fileparts.bin'+'""');
19     chdir(SCI+'/modules/core/macros');
20     unix('if EXIST ""'+'getshell.bin'+'"" del /F ""'+'getshell.bin'+'""');
21     chdir(SCI+'/modules/fileio/macros');
22     unix('if EXIST ""'+'pathconvert.bin'+'"" del /F ""'+'pathconvert.bin'+'""');
23     chdir(SCI+'/modules/string/macros');
24     unix('if EXIST ""'+'stripblanks.bin'+'"" del /F ""'+'stripblanks.bin'+'""');
25     chdir(SCI+'/modules/fileio/macros');
26     unix('if EXIST ""'+'listfiles.bin'+'"" del /F ""'+'listfiles.bin'+'""');
27     chdir(SCI+'/modules/io/macros');
28     unix('if EXIST ""'+'unix_g.bin'+'"" del /F ""'+'unix_g.bin'+'""');
29     chdir(SCI+'/modules/core/macros');
30     unix('if EXIST ""'+'OS_Version.bin'+'"" del /F ""'+'OS_Version.bin'+'""');
31     chdir(SCI+'/modules/fileio/macros');
32     unix('if EXIST ""'+'isdir.bin'+'"" del /F ""'+'isdir.bin'+'""');
33     unix('if EXIST ""'+'basename.bin'+'"" del /F ""'+'basename.bin'+'""');
34     chdir(SCI+'/modules/fileio/macros');
35     unix('if EXIST ""'+'mputl.bin'+'"" del /F ""'+'mputl.bin'+'""');
36     chdir(SCI+'/modules/overloading/macros');
37     unix('if EXIST ""'+'%c_a_c.bin'+'"" del /F ""'+'%c_a_c.bin'+'""');
38     chdir(CurrentDir);
39   else
40     unix('rm -f '+SCI+'/modules/functions/macros/genlib.bin');
41     unix('rm -f '+SCI+'/modules/fileio/macros/fileparts.bin');
42     unix('rm -f '+SCI+'/modules/core/macros/getshell.bin');
43     unix('rm -f '+SCI+'/modules/fileio/macros/pathconvert.bin');
44     unix('rm -f '+SCI+'/modules/string/macros/stripblanks.bin');
45     unix('rm -f '+SCI+'/modules/fileio/macros/listfiles.bin');
46     unix('rm -f '+SCI+'/modules/io/macros/unix_g.bin');
47     unix('rm -f '+SCI+'/modules/core/macros/OS_Version.bin');
48     unix('rm -f '+SCI+'/modules/fileio/macros/isdir.bin');
49     unix('rm -f '+SCI+'/modules/overloading/macros/%c_a_c.bin');
50     unix('rm -f '+SCI+'/modules/fileio/macros/basename.bin');
51     unix('rm -f '+SCI+'/modules/fileio/macros/mputl.bin');
52   end
53   clear MSDOS;
54   clear SCI;
55 endfunction
56 //------------------------------------
57 function BuildMinimalMacros()
58   MSDOS=(getos()=='Windows');
59   LineToDo='';
60   startline='';
61   endline='';
62   if MSDOS then
63     LineToDo='/bin/scilex -ns -nwni -f cmd.sce';
64     startline='echo ';
65     endline='>cmd.sce';
66   else
67     LineToDo='/bin/scilab -ns -nwni -f cmd.sce';
68     startline='echo ""';
69     endline='"">cmd.sce';
70   end
71   
72   SCI=getenv('SCI');
73   scilabstart="SCI=getenv(''SCI'');MSDOS=(getos()==''Windows'');TMPDIR=getenv(''TMPDIR'');"
74   scilabquit='clear;quit;'
75   
76   cmd=scilabstart+'getf(SCI+''/modules/core/macros/OS_Version.sci'');save(SCI+''/modules/core/macros/OS_Version.bin'');'+scilabquit
77   unix(startline+cmd+endline);
78   unix(SCI+LineToDo);
79
80   cmd=scilabstart+'getf(SCI+''/modules/fileio/macros/mputl.sci'');save(SCI+''/modules/fileio/macros/mputl.bin'');'+scilabquit;
81   unix(startline+cmd+endline);
82   unix(SCI+LineToDo);
83   
84   cmd=scilabstart+'getf(SCI+''/modules/fileio/macros/basename.sci'');save(SCI+''/modules/fileio/macros/basename.bin'');'+scilabquit;
85   unix(startline+cmd+endline);
86   unix(SCI+LineToDo);
87
88   cmd=scilabstart+'getf(SCI+''/modules/overloading/macros/%c_a_c.sci'');save(SCI+''/modules/overloading/macros/%c_a_c.bin'');'+scilabquit;
89   unix(startline+cmd+endline);
90   unix(SCI+LineToDo);
91   
92   cmd=scilabstart+'getf(SCI+''/modules/fileio/macros/isdir.sci'');save(SCI+''/modules/fileio/macros/isdir.bin'');'+scilabquit;
93   unix(startline+cmd+endline);
94   unix(SCI+LineToDo);
95
96   cmd=scilabstart+'getf(SCI+''/modules/io/macros/unix_g.sci'');save(SCI+''/modules/io/macros/unix_g.bin'');'+scilabquit;
97   unix(startline+cmd+endline);
98   unix(SCI+LineToDo);
99   
100   cmd=scilabstart+'getf(SCI+''/modules/fileio/macros/listfiles.sci'');save(SCI+''/modules/fileio/macros/listfiles.bin'');'+scilabquit;
101   unix(startline+cmd+endline);
102   unix(SCI+LineToDo);
103
104   cmd=scilabstart+'getf(SCI+''/modules/string/macros/stripblanks.sci'');save(SCI+''/modules/string/macros/stripblanks.bin'');'+scilabquit;
105   unix(startline+cmd+endline);
106   unix(SCI+LineToDo);
107   
108   cmd=scilabstart+'getf(SCI+''/modules/fileio/macros/pathconvert.sci'');save(SCI+''/modules/fileio/macros/pathconvert.bin'');'+scilabquit;
109   unix(startline+cmd+endline);
110   unix(SCI+LineToDo);
111   
112   cmd=scilabstart+'getf(SCI+''/modules/fileio/macros/fileparts.sci'');save(SCI+''/modules/fileio/macros/fileparts.bin'');'+scilabquit;
113   unix(startline+cmd+endline);
114   unix(SCI+LineToDo);
115   
116   cmd=scilabstart+'getf(SCI+''/modules/core/macros/getshell.sci'');save(SCI+''/modules/core/macros/getshell.bin'');'+scilabquit;
117   unix(startline+cmd+endline);
118   unix(SCI+LineToDo);
119
120   cmd=scilabstart+'getf(SCI+''/modules/functions/macros/genlib.sci'');save(SCI+''/modules/functions/macros/genlib.bin'');'+scilabquit;
121   unix(startline+cmd+endline);
122   unix(SCI+LineToDo);
123
124   clear cmd
125   clear scilabstart;
126   clear scilabquit;
127   clear LineToDo
128   clear startline
129   clear endline
130   
131   if MSDOS then
132     unix('if EXIST ""'+'cmd.sce'+'"" del /F ""'+'cmd.sce'+'""');
133   else
134     unix('rm -f cmd.sce');
135   end
136   
137   clear MSDOS
138   
139 endfunction
140 //------------------------------------
141 RemoveMinimalMacros();
142 BuildMinimalMacros();
143 clear BuildMinimalMacros;
144 SCI=getenv('SCI');
145 load(SCI+'/modules/fileio/macros/fileparts.bin');
146 load(SCI+'/modules/core/macros/getshell.bin');
147 load(SCI+'/modules/fileio/macros/pathconvert.bin');
148 load(SCI+'/modules/string/macros/stripblanks.bin');
149 load(SCI+'/modules/fileio/macros/listfiles.bin');
150 load(SCI+'/modules/io/macros/unix_g.bin');
151 load(SCI+'/modules/core/macros/OS_Version.bin');
152 load(SCI+'/modules/fileio/macros/isdir.bin');
153 load(SCI+'/modules/overloading/macros/%c_a_c.bin');
154 load(SCI+'/modules/fileio/macros/basename.bin');
155 load(SCI+'/modules/fileio/macros/mputl.bin');
156 load(SCI+'/modules/functions/macros/genlib.bin');
157 clear SCI;
158 // Need to remove macros binary files before build by genlib
159 RemoveMinimalMacros();
160 clear RemoveMinimalMacros;
161 //------------------------------------