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
|
function transorder=translatepaths(Paths,res_path)
// Copyright INRIA
// 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();return;end
// Loads libraries related to m2sci
if exists("m2skernellib")==0 then load("SCI/macros/m2sci/kernel/lib"),end
if exists("m2spercentlib")==0 then load("SCI/macros/m2sci/percent/lib"),end
if exists("m2ssci_fileslib")==0 then load("SCI/macros/m2sci/sci_files/lib"),end
// Convert paths so that they can be used according to the platform
if MSDOS then
sep='\'
Paths=strsubst(Paths,'/',sep)
res_path=strsubst(res_path,'/',sep)
else
sep='/'
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)+"unitfile.dat","old");
if ierr==0 then
load(pathconvert(TMPDIR)+"unitfile.dat")
file('close',whsfil_unit);
file('close',tempfd);
mdelete(pathconvert(TMPDIR)+"unitfile.dat")
end
whsfil_unit=file('open',res_path+'whatis','unknown')
save(pathconvert(TMPDIR)+"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)
if MSDOS then
mfiles=[mfiles;path + unix_g('dir /b '+ """" + path + """" + '*.m')]
else
mfiles=[mfiles;unix_g('ls '+ """" + path + """" + '*.m')]
end
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)
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 then
mfile2sci(pathconvert(TMPDIR)+fnam+".m",res_path)
file('close',fd)
mdelete(pathconvert(TMPDIR)+fnam+".m")
rmdir(pathconvert(TMPDIR)+pathconvert(fnam),'s')
else
mfile2sci(funpath(i),res_path)
end
tmp_sci_file=pathconvert(TMPDIR)+"tmp_"+fnam+".sci"
ierr=execstr("getf(tmp_sci_file)","errcatch");errclear();
if ierr==0 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 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"
resumelogtxt=[resumelogtxt;" ";" ";mgetl(resumem2scipath)]
mdelete(resumem2scipath)
[fd,ierr]=file('open',tmp_resume_m2sci_file,'old');
if ierr==0 then
resumelogtxt=[resumelogtxt;" ";mgetl(tmp_resume_m2sci_file)]
file('close',fd)
mdelete(tmp_resume_m2sci_file)
end
end
mputl(logtxt,res_path+'log')
mputl(resumelogtxt,res_path+'resumelog')
end
// File closing
file('close',whsfil_unit);
mdelete(pathconvert(TMPDIR)+"unitfile.dat")
endfunction
|
