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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#include <stdio.h>
#include <stdlib.h>
#include <signal.h>
#include <sys/time.h>
#include <sys/resource.h>
#include <sys/types.h>
#include <sys/types.h>
#include <fcntl.h>
#define import_spp
#define import_kernel
#define import_prtype
#define import_knames
#define import_xnames
#include <iraf.h>
/*
* ZMAIN.C -- C main for IRAF processes.
*/
extern unsigned USHLIB[];
extern int sh_debug;
#define LOGIPC "LOGIPC" /* define to enable IPC logging. */
static char os_process_name[SZ_FNAME];
static char osfn_bkgfile[SZ_PATHNAME];
static XINT ipc_in = 0, ipc_out = 0;
static XINT ipc_isatty = NO;
static XINT prtype;
/* MAIN -- UNIX Main routine for IRAF processes. The process is a C process
* to UNIX, even though nearly all the code is Fortran. The process main
* determines whether the process is a connected subprocess, a detached
* process, or a process spawned by the host system. We must set up the
* process standard i/o channels then call the IRAF Main to complete process
* initialization. Control returns when the IRAF Main shuts down the process
* in response to a BYE request. The only other way a process can exit is
* if a panic abort occurs.
*
* The following switches are recognized:
* -C debug -c (IPC) protocol from a terminal
* -c connected subprocess
* -d bkgfile detached subprocess
* -h host process (default)
* -w permit writing into shared image (debugging)
*/
int
main (int argc, char *argv[])
{
XINT inchan=0, outchan=1; /* process stdin, stdout */
XINT errchan=2; /* process std error output */
XINT driver; /* EPA i/o chan device driver */
XINT devtype; /* device type (text or binary) */
XINT jobcode; /* bkg jobcode, if detached pr */
int errstat, len_irafcmd, nchars;
XCHAR *irafcmd;
char *ip;
int arg = 1;
extern int ZGETTX(XINT *fd, XCHAR *buf, XINT *maxchars, XINT *status);
extern int ZGETTY(XINT *fd, XCHAR *buf, XINT *maxchars, XINT *status);
extern int ZARDPR(XINT *chan, XCHAR *buf, XINT *maxbytes, XLONG *loffset);
extern int SYSRUK(XCHAR *task, XCHAR *cmd, XINT *rukarf, XINT *rukint);
extern int ONENTRY(XINT *prtype, XCHAR *bkgfile, XCHAR *cmd);
extern int ZZSTRT(void);
extern int ZLOCPR(PFI proc, XINT *o_epa );
extern int ZZSETK(char *ospn, char *osbfn, int prtype, int isatty, int in, int out);
extern int IRAF_MAIN(XCHAR *acmd, XINT *ainchn, XINT *aoutcn, XINT *aerrcn, XINT *adrivr, XINT *adevte, XINT *prtype, XCHAR *bkgfie, XINT *jobcoe,
int(sysruk)(XCHAR *task, XCHAR *cmd, XINT *rukarf, XINT *rukint),
int(onenty)(XINT *prtype, XCHAR *bkgfile, XCHAR *cmd));
/* The following flag must be set before calling ZZSTRT. */
if (argc > 1 && strcmp (argv[arg], "-w") == 0) {
sh_debug++;
arg++;
}
ZZSTRT();
strcpy (os_process_name, argv[0]);
strcpy ((char *)osfn_bkgfile, "");
/* Determine process type. If we were spawned by the host the TTY
* driver is used regardless of whether the standard i/o device is
* a tty or a file. Otherwise the IPC driver is used. If we are a
* detached process the standard input is connected to /dev/null,
* which will cause the IPC driver to return EOF if a task tries to
* read from stdin.
*/
/* Default if no arguments (same as -h, or host process). */
prtype = PR_HOST;
ZLOCPR (ZGETTY, &driver);
devtype = TEXT_FILE;
if (arg < argc) {
if (strcmp (argv[arg], "-C") == 0) {
ipc_isatty = 1;
arg++;
goto ipc_;
} else if (strcmp (argv[arg], "-c") == 0) {
/* Disable SIGINT so that child process does not die when the
* parent process is interrupted. Parent sends SIGTERM to
* interrupt a child process.
*/
signal (SIGINT, SIG_IGN);
arg++;
/* Check if we want IPC debug logging. */
if (getenv (LOGIPC)) {
char fname[SZ_FNAME];
sprintf (fname, "%d.in", getpid());
ipc_in = creat (fname, 0644);
sprintf (fname, "%d.out", getpid());
ipc_out = creat (fname, 0644);
}
ipc_:
prtype = PR_CONNECTED;
ZLOCPR (ZARDPR, &driver);
devtype = BINARY_FILE;
} else if (strcmp (argv[arg], "-d") == 0) {
signal (SIGINT, SIG_IGN);
signal (SIGTSTP, SIG_IGN);
arg++;
/* Put this background process in its own process group,
* so that it will be unaffected by signals sent to the
* parent's process group, and to prevent the detached process
* from trying to read from the parent's terminal.
* [Sun/IRAF Note - this is necessary to prevent SunView from
* axeing bkg jobs when "Exit Suntools" is selected from the
* root menu].
*/
jobcode = getpid();
setpgid (0, jobcode);
freopen ("/dev/null", "r", stdin);
prtype = PR_DETACHED;
ZLOCPR (ZGETTX, &driver);
devtype = TEXT_FILE;
/* Copy the bkgfile to PKCHAR buffer to avoid the possibility
* that argv[2] is not PKCHAR aligned.
*/
strcpy ((char *)osfn_bkgfile, argv[arg]);
arg++;
} else if (strcmp (argv[arg], "-h") == 0) {
/* Default case. */
arg++;
}
}
len_irafcmd = SZ_LINE;
irafcmd = (XCHAR *) malloc (len_irafcmd * sizeof(XCHAR));
/* If there are any additional arguments on the command line pass
* these on to the IRAF main as the IRAF command to be executed.
*/
if (arg < argc) {
for (nchars=0; arg < argc; arg++) {
while (nchars + strlen(argv[arg]) > len_irafcmd) {
len_irafcmd += 1024;
irafcmd = (XCHAR *) realloc ((char *)irafcmd,
len_irafcmd * sizeof(XCHAR));
}
for (ip=argv[arg]; (irafcmd[nchars] = *ip++); nchars++)
;
irafcmd[nchars++] = ' ';
}
irafcmd[nchars?nchars-1:0] = XEOS;
} else
irafcmd[0] = XEOS;
/* Pass some parameters into the kernel; avoid a global reference to
* the actual external parmeters (which may be in a shared library
* and hence inaccessible).
*/
ZZSETK (os_process_name, osfn_bkgfile, prtype,
ipc_isatty, ipc_in, ipc_out);
/* Call the IRAF Main, which does all the real work. Return status
* OK when the main returns. The process can return an error status
* code only in the event of a panic.
*/
errstat = IRAF_MAIN (irafcmd, &inchan, &outchan, &errchan,
&driver, &devtype, &prtype, osfn_bkgfile, &jobcode, SYSRUK,ONENTRY);
/* Normal process shutdown. Our only action is to delete the bkgfile
* if run as a detached process (see also zpanic).
*/
if (prtype == PR_DETACHED)
unlink ((char *)osfn_bkgfile);
exit (errstat);
return (0);
}
|
