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
|
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
[lhs,rhs]=argn(0)
if prod(size(cmd))<>1 then error(55,1),end
if getenv('WIN32','NO')=='OK' & getenv('COMPILER','NO')=='VC++' then
cmd1= cmd + ' > '+ strsubst(TMPDIR,'/','\')+'\unix.out';
else
cmd1='('+cmd+')>'+TMPDIR+'/unix.out 2>'+TMPDIR+'/unix.err;';
end
stat=host(cmd1);
select stat
case 0 then
rep=read(TMPDIR+'/unix.out',-1,1,'(a)')
if size(rep,'*')==0 then rep=[],end
case -1 then // host failed
disp('host does not answer...')
rep=emptystr()
else
if getenv('WIN32','NO')=='OK' & getenv('COMPILER','NO')=='VC++' then
write(%io(2),'unix_g: shell error');
rep=emptystr()
else
msg=read(TMPDIR+'/unix.err',-1,1,'(a)')
disp(msg(1))
rep=emptystr()
end
end
|
