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
|
function unix_x(cmd)
//unix_x - shell command execution, results redirected in a window
//%Syntax
// unix_x(cmd)
//%Parameters
// cmd - a character string
//%Description
// cmd instruction is passed to shell, the standard output is redirected
// to a window
//%Examples
// unix_x("ls")
//%See also
// host unix_g unix_s
//!
// Copyright INRIA
// Modified by Allan CORNET 2004
if prod(size(cmd))<>1 then error(55,1),end
shl=getshell();
if MSDOS then
tmp=strsubst(TMPDIR,'/','\')+'\unix.out';
if shl <> 'cmd' then
cmd1= cmd + ' > '+ tmp;
else
tmp=TMPDIR+'\unix.out';
cmd1=cmd +'>'+ tmp +' 2>'+TMPDIR+'\unix.err';
end
else
tmp=TMPDIR+'/unix.out';
cmd1='('+cmd+')>'+ tmp +' 2>'+TMPDIR+'/unix.err;';
end
stat=host(cmd1);
select stat
case 0 then
rep=mgetl(tmp)
if (size(rep,'*')==0) | (length(rep)==0) then
rep=[]
else
for k=1:size(rep,'*')
rep(k)=oemtochar(rep(k));
end;
end
x_message_modeless(rep)
case -1 then // host failed
error(85)
else //sh failed
if MSDOS then
if shl <> 'cmd' then
error('unix_x: shell error');
else
msg=read(TMPDIR+'\unix.err',-1,1,'(a)')
if (size(msg,'*')==0) | (length(msg)==0) then
msg=[]
else
for k=1:size(msg,'*')
msg(k)=oemtochar(msg(k));
end;
end
error('unix_x: '+msg(1))
end
else
msg=read(TMPDIR+'/unix.err',-1,1,'(a)')
error('unix_x: '+msg(1))
end
end
endfunction
|
