1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2002-2004 - INRIA - Vincent COUVERT
// Copyright (C) ???? - INRIA - Serge STEER
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution. The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
function transorder=translatepaths(Paths,res_path)
// Perform translation of Matlab M-files to Scilab for all M-files found in Paths
// Output :
// -transorder : a vector which contains the files names with a determinated order
// Input :
// -Paths : a vector of strings (paths of Matlab M-files to translate)
// -res_paths : a string (resolution path of translated files)
// M2SCI kernel functions called:
// -lst_funcall
// -translateorder
// - mfile2sci
// Get default arguments
[lhs,rhs]=argn(0)
if rhs<2 then res_path="./",end
if rhs<1 then m2sci_gui();transorder=[];return;end
// Loads libraries related to m2sci
if exists("m2skernellib")==0 then load("SCI/modules/m2sci/macros/kernel/lib"),end
if exists("m2spercentlib")==0 then load("SCI/modules/m2sci/macros/percent/lib"),end
if exists("m2ssci_fileslib")==0 then load("SCI/modules/m2sci/macros/sci_files/lib"),end
// Convert paths so that they can be used according to the platform
sep = filesep();
if getos() == "Windows" then
Paths=strsubst(Paths,"/",sep)
res_path=strsubst(res_path,"/",sep)
else
Paths=strsubst(Paths,"\",sep)
res_path=strsubst(res_path,"\",sep)
end
// Close resolution path with a / or a \
res_path=stripblanks(res_path)
if part(res_path,length(res_path))<>sep then
res_path=res_path+sep
end
// Create a logfile and a whatis file
Paths=stripblanks(Paths)
[tempfd,ierr]=file("open",pathconvert(TMPDIR)+gettext("unitfile.dat"),"old");
if ierr==0 then
load(pathconvert(TMPDIR)+gettext("unitfile.dat"))
file("close",whsfil_unit);
file("close",tempfd);
mdelete(pathconvert(TMPDIR)+gettext("unitfile.dat"))
end
whsfil_unit=file("open",res_path+"whatis","unknown")
save(pathconvert(TMPDIR)+gettext("unitfile.dat"),whsfil_unit)
// Close paths with a / or a \
for k=1:size(Paths,"*")
if part(Paths(k),length(Paths(k)))<>sep then
Paths(k)=Paths(k)+sep,
end
end
// Find names of files to translate
// mfiles is a vector which contains the names (and the paths) of files to translate
mfiles=[]
for k=1:size(Paths,"*")
path = Paths(k);
mfiles = [mfiles; ls(path+"*.m")];
end
// fnamvect is a vector which contains all M-files names (just the names) found in Paths
// filefuncallname is a list of vectors. The first component of each vector is the name of a M-file (found in the Path(s)) to translate, followed by the called functions by this M-file)
fnamvect=[]
filefuncallname=list()
for k1=1:size(mfiles,1)
kk=strindex(mfiles(k1),sep)
fnamvect=[fnamvect;part(mfiles(k1),kk($)+1:length(mfiles(k1))-2)]
end
for k1=1:size(mfiles,1)
mpath=mfiles(k1)
// disp(gettext("********************lst_funcall**********************"))
// disp(mpath)
filefuncallname($+1)=lst_funcall(mpath,fnamvect)
end
// Determination of a translation order for the M-files found in the Paths
// transorder is a vector containing the M-files names which are arranged to order to respect an priority order of translation
transorder=[]
for i=1:size(filefuncallname)
execstr(filefuncallname(i)(1)+"vect=filefuncallname(i)")
end
overfunname=[]
for i=1:size(filefuncallname)
execstr("transorder=translateorder(transorder,"+filefuncallname(i)(1)+"vect,overfunname)")
end
// funpath is a vector which contains the M-files names (ands their paths) to translate
funpath=[]
for i=1:size(transorder,1)
ind=find(transorder(i)==fnamvect)
if ind<>[] then
funpath=[funpath;mfiles(ind)]
end
end
// Translation is done only if M-file has changed
logtxt=[]
resumelogtxt="";
for i=1:size(funpath,1)
kk=strindex(funpath(i),sep)
mpath=funpath(i)
fnam=part(funpath(i),kk($)+1:length(funpath(i))-2)
scipath=res_path+fnam+".sci"
scepath=res_path+fnam+".sce"
if newest(mpath,scipath,scepath)==1 then
[fd,ierr]=file("open",pathconvert(TMPDIR)+fnam+".m","old");
if ierr==0 & strindex(mpath,TMPDIR)==[] then
mfile2sci(pathconvert(TMPDIR)+fnam+".m",res_path, %t, %t)
file("close",fd)
mdelete(pathconvert(TMPDIR)+fnam+".m")
rmdir(pathconvert(TMPDIR)+pathconvert(fnam),"s")
else
mfile2sci(funpath(i),res_path, %t, %t)
end
tmp_sci_file=pathconvert(TMPDIR)+"tmp_"+fnam+".sci"
ierr=execstr("exec(tmp_sci_file)","errcatch");errclear();
if ierr==0 & strindex(mpath,TMPDIR)==[] then
txt=[]
txt=mgetl(scipath)
txt=[txt;" ";mgetl(tmp_sci_file)]
mputl(txt,scipath);
mdelete(tmp_sci_file)
end
// LOG
tmp_m2sci_file=pathconvert(TMPDIR)+"tmp_m2sci_"+fnam+".log"
m2scipath=res_path+"m2sci_"+fnam+".log"
logtxt=[logtxt;" ";" ";mgetl(m2scipath)]
mdelete(m2scipath)
[fd,ierr]=file("open",tmp_m2sci_file,"old");
if ierr==0 & strindex(mpath,TMPDIR)==[] then
logtxt=[logtxt;" ";mgetl(tmp_m2sci_file)]
file("close",fd)
mdelete(tmp_m2sci_file)
end
// RESUMELOG
tmp_resume_m2sci_file=pathconvert(TMPDIR)+"tmp_resume_m2sci_"+fnam+".log"
resumem2scipath=res_path+"resume_m2sci_"+fnam+".log"
if fileinfo(resumem2scipath)<>[] then
resumelogtxt=[resumelogtxt;" ";" ";mgetl(resumem2scipath)]
mdelete(resumem2scipath)
end
[fd,ierr]=file("open",tmp_resume_m2sci_file,"old");
if ierr==0 & strindex(mpath,TMPDIR)==[] then
resumelogtxt=[resumelogtxt;" ";mgetl(tmp_resume_m2sci_file)]
file("close",fd)
mdelete(tmp_resume_m2sci_file)
end
end
if isempty(logtxt) then
logtxt = ""
end
mputl(logtxt,res_path+"log");
if isempty(resumelogtxt) then
resumelogtxt = ""
end
mputl(resumelogtxt,res_path+"resumelog");
end
// File closing
file("close",whsfil_unit);
mdelete(pathconvert(TMPDIR)+gettext("unitfile.dat"))
// create builder.sce and loader.sce files
// get the directory name where the Scilab functions are written
if res_path=="./" then
current_path=pathconvert(unix_g("pwd"))
index_slash=strindex(current_path,"/")
if size(index_slash,"*")==1 then index_slash=[0 index_slash],end
namelib=part(current_path,index_slash($-1)+1:index_slash($)-1)
else
index_slash=strindex(res_path,"/")
if size(index_slash,"*")==1 then index_slash=[0 index_slash],end
namelib=part(res_path,index_slash($-1)+1:index_slash($)-1)
end
//builder.sce
buildertxt=[]
buildertxt($+1)="path=get_absolute_file_path(""builder.sce"")"
buildertxt($+1)="genlib("""+namelib+"lib"",path)"
builderfile=res_path+"builder.sce"
mputl(buildertxt,builderfile);
//loader.sce
loadertxt=[]
loadertxt($+1)="path=get_absolute_file_path(""loader.sce"")"
loadertxt($+1)="load(path+"+"""lib"")"
loaderfile=res_path+"loader.sce"
mputl(loadertxt,loaderfile);
endfunction
|
