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
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#define import_spp
#define import_libc
#define import_knames
#define import_kproto
#include <iraf.h>
/* SYSTEM -- Send a command to the host system. OK is returned if the command
** executes properly, else a positive integer error code identifying the error
** which occurred.
*/
int
system (
char *cmd /* command to be sent to host system */
)
{
PKCHAR nullstr[1];
XINT status;
nullstr[0] = EOS;
ZOSCMD ((PKCHAR *)cmd, nullstr, nullstr, nullstr, &status);
return ((int) status);
}
|
