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
|
function [ok]=do_forcomlink(funam,txt)
// Copyright INRIA
if stripblanks(funam)==emptystr() then
ok=%f;x_message('sorry fortran file name not defined');return
end
if getenv('WIN32','NO')=='OK' & getenv('COMPILER','NO')=='VC++' then
out_f = strsubst(TMPDIR,'/','\')+'\'+funam+'.f';
host('del '+ out_f);
else
unix_s('\rm -f '+TMPDIR+'/'+funam+'.f');
end
write(TMPDIR+'/'+funam+'.f',txt,'(a)')
if getenv('WIN32','NO')=='OK' & getenv('COMPILER','NO')=='VC++' then
[a,b]=c_link(funam); while a ; ulink(b);[a,b]=c_link(funam);end
cur_wd = getcwd();
chdir(TMPDIR);
cmd_win='nmake /f '+SCI+'\demos\intro\MakeF.mak TARGET=';
cmd_win=cmd_win+funam+' SCIDIR1='+strsubst(SCI,'/','\');
ww=unix_g(cmd_win);
chdir(cur_wd);
else
ww=unix_g('cd '+TMPDIR+'; make '+funam+'.o ');
end
if ww==emptystr() then
ok=%f;x_message('sorry compilation problem');return
else
// [a,b]=c_link(funam); while a ; ulink(b);[a,b]=c_link(funam);end
errcatch(999,'continue')
if getenv('WIN32','NO')=='OK' & getenv('COMPILER','NO')=='VC++' then
junk=link(TMPDIR+'/'+funam+'.dll',funam);
else
[a,b]=c_link(funam); while a ; ulink(b);[a,b]=c_link(funam);end
junk=link(TMPDIR+'/'+funam+'.o',funam);
end
if iserror(-1)==1 then
ok=%f;x_message('sorry link problem');
errclear(-1)
errcatch(-1)
return;
end
end
ok=%t
|
