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
|
function [y]=toolboxes(path,flag,force)
// toolboxes loding or compiling
// if flag == %t then contribs are recompiled
// if a loader.sce is not found or if force == %t
// path is a directory to explore for contribs
global %toolboxes
global %toolboxes_dir
[lhs,rhs]=argn(0)
y=[];
if rhs == 1 & typeof(path)=="constant" then
// execute the toolbox loader
y='exec("""+%toolboxes_dir+%toolboxes(path)+"/"+"loader.sce"+""")";
return
end
if rhs == 0 then
path = SCI+'/contrib'
end
if rhs <= 1 then
flag = %f
end
if rhs <= 2 then
force = %f
end
cur_wd= getcwd();
chdir(path);
files= listfiles('.');
contribs=[]
for k=1:size(files,'*')
if fileinfo(files(k)+'/builder.sce')<>[] then
contribs=[contribs;files(k)];
end
end
if flag then
// recompilation if no loader.sce
for k= 1:size(contribs,'*')
if fileinfo(contribs(k)+'/loader.sce')==[] | force
chdir(contribs(k)) ;
exec('builder.sce');
chdir('../');
else
write(%io(2),contribs(k)+' is already compiled\n');
end
end
end
if contribs<>[] & grep(sciargs(),"-nw")==[] then
if ( ~fromjava() & ~fromc() ) then
delmenu('toolboxes')
addmenu('toolboxes',contribs);
// If you also want a build meny
//addmenu('build',contribs);
end
end
%toolboxes= contribs;
%toolboxes_dir= pathconvert(path);
chdir(cur_wd);
endfunction
function y=build(i)
global %toolboxes
global %toolboxes_dir
y='p=getcwd();chdir("""+%toolboxes_dir+%toolboxes(i)+""");exec(""builder.sce"");chdir(p)';
endfunction
function distrib_clean ()
global %toolboxes;
global %toolboxes_dir;
//
if %toolboxes==[] then
find_contribs('./');
end
contribs=%toolboxes;
for k= 1:size(contribs,'*')
flag = fileinfo(contribs(k)+'/loader.sce')<>[]
flag = flag & fileinfo(contribs(k)+'/Makefile')<>[]
if flag then
chdir(contribs(k)) ;
mprintf('Cleaning %s\n',contribs(k))
execstr('unix_s(''make distclean'')','errcatch');
chdir('../');
end
end
endfunction
function []=distrib_zip (op,name)
global %toolboxes;
global %toolboxes_dir;
//
[lhs,rhs]=argn(0)
if rhs <= 1 then
name = 'win'
end
if rhs <= 0 then
op = 'zip'
end
if %toolboxes==[] then
find_contribs('./');
end
contribs=%toolboxes;
for k= 1:size(contribs,'*')
flag = fileinfo(contribs(k)+'/loader.sce')<>[]
job="find . \( -name ''*.o'' -o -name ''*.la'' -o -name ''*.lo'' -o"+...
" -name ''*.obj'' -name ''*.a'' \) -exec \rm -f {} \;"
if flag then
write(%io(2),'build archive for '+ contribs(k));
chdir(contribs(k)) ;
execstr('unix_s("""+job+""")','errcatch');
chdir('../');
select op
case 'tar' then
unix_s('tar cfz '+contribs(k)+'-bin-'+name+'-`date -I`'+'.tgz '+...
contribs(k));
case 'zip' then
unix_s('zip -r '+contribs(k)+' '+contribs(k)+'-bin-'+name+'-`date -I`'+'.zip');
end
end
end
endfunction
|
