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