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
|
function [rep,stat]=unix_g(cmd)
//unix_g - shell command execution
//%Syntax
//rep=unix_g(cmd)
//%Parameters
// cmd - a character string
// rep - a column vector of character strings
//%Description
// cmd instruction (sh syntax) is passed to shell, the standard output
// is redirected to scilab variable rep.
//%Examples
// unix_g("ls")
//%See also
// host unix_x unix_s
//!
// Copyright INRIA
// Modified by Allan CORNET 2004
[lhs,rhs]=argn(0)
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
case -1 then // host failed
disp('host does not answer...')
rep=emptystr()
else
if MSDOS then
if shl <> 'cmd' then
write(%io(2),'unix_g: shell error');
rep=emptystr()
else
msg=mgetl(TMPDIR+'\unix.err')
if size(msg,'*')<>0 then
for k=1:size(msg,'*')
msg(k)=oemtochar(msg(k));
end
end
disp(msg(1))
rep=emptystr()
end
else
msg=mgetl(TMPDIR+'/unix.err')
if size(msg,'*')<>0 then
for k=1:size(msg,'*')
msg(k)=oemtochar(msg(k));
end
end
disp(msg(1))
rep=emptystr()
end
end
if MSDOS then
if shl <> 'cmd' then
host('if exist '+tmp+' del '+tmp);
else
host('if exist '+tmp+' del '+tmp);
host('if exist '+TMPDIR+'\unix.err'+' del '+TMPDIR+'\unix.err');
end
else
host('rm -f '+tmp);
end
endfunction
|
