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
|
function bval=multi_fun_file(fil,res_path,Recmode,only_double,verbose_mode,prettyprint)
// Copyright INRIA
// Scilab Project - V. Couvert
// This function converts M-Files containing more than one functio
// Inputs are the same as mfile2sci()
// Outputs :
// - bval: boolean value, %t if file contains more than on function, %f else
sciparam();
// File name
k=strindex(fil,".")
if k<>[]
ke=k($)-1
base_name=part(fil,1:ke)
else
ke=length(fil)
base_name=fil
end
// File path
k=strindex(fil,"/")
if k==[] then
file_path="./"
else
file_path=part(fil,1:k($))
end
base_name=part(base_name,k($)+1:ke)
txt=mgetl(fil);
kf=grep(txt,["function[","function "])
if isempty(kf) then
// Batch file
bval=%f
elseif size(kf,"*")==1 then
// Only one function defined
bval=%f
else
funcdecl=[]
for kk=kf
ind=strindex(txt(kk),["function[";"function "])
if isacomment(txt(kk))==0 & ~isinstring(txt(kk),ind) & part(stripblanks(txt(kk),%T),1:8)=="function" then // function prototype
funcdecl=[funcdecl kk]
end
end
if isempty(funcdecl) then
// "function" only exists in comments and strings
bval=%f
return
elseif size(funcdecl,"*")==1 then
bval=%f
return
end
// Verify if the directory exists
if MSDOS then
dirnam=unix_g('dir /b '+pathconvert(TMPDIR)+base_name)
sep='\'
else
dirnam=unix_g('ls ' + pathconvert(TMPDIR)+base_name)
sep='/'
end
if or(dirnam<>'') then
rmdir(pathconvert(TMPDIR)+base_name,'s')
end
mkdir(pathconvert(TMPDIR),base_name)
write(%io(2)," -- File "+fil+" contains more than one function -- ");
bval= %t
// First split file into as many files as function declared
funcdecl=[funcdecl size(txt,"*")+1]
tmpfiles=[]
for k=1:size(funcdecl,"*")-1
functxt=txt(funcdecl(k):funcdecl(k+1)-1)
str= strindex(txt(funcdecl(k)),"(")-1
funcname=stripblanks(part(txt(funcdecl(k)),strindex(txt(funcdecl(k)),["function[","function "])+8:str(1)))
keq=strindex(funcname,"=")
if ~isempty(keq) then
funcname=stripblanks(part(funcname,keq+1:length(funcname)))
end
tmpfiles=[tmpfiles;funcname]
mputl(functxt,pathconvert(TMPDIR)+base_name+sep+tmpfiles($)+".m")
end
write(%io(2)," -- Each function converted separately: "+strcat(tmpfiles," ")+" -- ");
write(%io(2)," -- Temporary files put in: "+pathconvert(TMPDIR));
// Conversion of each file
for k=1:size(tmpfiles,"*")
txt=mgetl(pathconvert(TMPDIR)+base_name+sep+tmpfiles(k)+".m")
//mfile2sci(pathconvert(TMPDIR)+tmpfiles(k)+".m",res_path,Recmode,only_double,verbose_mode,prettyprint)
end
translatepaths(pathconvert(TMPDIR)+base_name,pathconvert(TMPDIR)+base_name)
txt=[]
txt=mgetl(pathconvert(TMPDIR)+base_name+sep+'log')
mputl(txt,res_path+'log')
txt=mgetl(pathconvert(TMPDIR)+base_name+sep+'resumelog')
mputl(txt,res_path+'resumelog')
// Catenation of all .sci files to have only one output file
txt=[]
for k=1:size(tmpfiles,"*")
txt=[txt ;'';mgetl(pathconvert(TMPDIR)+base_name+sep+tmpfiles(k)+".sci")]
end
// Delete useless .sci files
//for k=1:size(tmpfiles,"*")
//mdelete(res_path+tmpfiles(k)+".sci")
//end
mputl(txt,res_path+base_name+".sci")
// Catenation of all .log files to have only one output file
//if exists("logfile")==0 then
//txt=[]
//for k=1:size(tmpfiles,"*")
//txt=[txt ; mgetl(pathconvert(TMPDIR)+base_name+sep+"m2sci_"+tmpfiles(k)+".log")]
//end
// Delete useless .log files
//for k=1:size(tmpfiles,"*")
//mdelete(pathconvert(TMPDIR)+base_name+sep+"m2sci_"+tmpfiles(k)+".log")
//end
//mputl(txt,res_path+"m2sci_"+base_name+".log")
//end
// Catenation of all resume.log files to have only one output file
//if exists("resume_logfile")==0 then
//txt=[]
//for k=1:size(tmpfiles,"*")
//txt=[txt ; mgetl(res_path+"m2sci_"+tmpfiles(k)+"_resume.log")]
//end
// Delete useless _resume.log files
//for k=1:size(tmpfiles,"*")
//mdelete(res_path+"m2sci_"+tmpfiles(k)+"_resume.log")
//end
//mputl(txt,res_path+"m2sci_"+base_name+"_resume.log")
//end
// Delete useless .m files
//for k=1:size(tmpfiles,"*")
//mdelete(pathconvert(TMPDIR)+tmpfiles(k)+".m")
//end
rmdir(pathconvert(TMPDIR)+base_name,'s')
for k=1:size(tmpfiles,"*")
mdelete(pathconvert(TMPDIR)+tmpfiles(k)+".tree")
end
end
endfunction
|
