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
|
function unix_w(cmd)
//unix_w - shell command execution results redirected in main scilab window
//%Syntax
// unix_w(cmd)
//%Parameters
// cmd - a character string
//%Description
// cmd instruction (sh syntax) is passed to shell, the standard output
// is redirected to main scilab window
//%Examples
// unix_w("ls")
//%See also
// host unix_x unix_s unix_g
//!
// Copyright INRIA
if prod(size(cmd))<>1 then error(55,1),end
if MSDOS then
tmp=strsubst(TMPDIR,'/','\')+'\unix.out';
cmd1= cmd + ' > '+ tmp;
else
tmp=TMPDIR+'/unix.out';
cmd1='('+cmd+')>'+ tmp +' 2>'+TMPDIR+'/unix.err;';
end
stat=host(cmd1);
select stat
case 0 then
write(%io(2),read(tmp,-1,1,'(a)'))
case -1 then // host failed
error(85)
else
if MSDOS then
error('unix_w: shell error');
else
msg=read(TMPDIR+'/unix.err',-1,1,'(a)')
error('unix_w: '+msg(1))
end
end
if MSDOS then
host('del '+tmp);
else
host('rm -f '+tmp);
end
|
