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
|
/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
*/
#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>
#include <stdlib.h>
#include <time.h>
#include <math.h>
#include <fenv.h>
#define import_spp
#define import_kernel
#define import_knames
#define import_xnames
#define import_prtype
#include <iraf.h>
/*
* ZZSTRT,ZZSTOP -- Routines to perform initialization and cleanup functions
* during process startup and shutdown, when the IRAF kernel routines are being
* called from a program which does not have a ZMAIN.
*/
/* #define DEBUG */
static int prtype, ipc_isatty=NO;
static int ipc_in = 0, ipc_out = 0;
static char os_process_name[SZ_FNAME];
static char osfn_bkgfile[SZ_PATHNAME];
extern int errno;
#define align(a) ((a)&(~pmask))
void ready_ (void);
extern int ZAWSET(XINT *best_size, XINT *new_size, XINT *old_size, XINT *max_size);
extern int ZOPNTY(PKCHAR *osfn, XINT *mode, XINT *chan);
extern int ZZSETK(char *ospn, char *osbfn, int prtype, int isatty, int in, int out);
/* ZZSTRT -- Initialize the IRAF kernel at process startup time.
*/
int
ZZSTRT (void)
{
XINT wsetsize=0L, junk;
extern int spp_debug(void);
spp_debug ();
/* Initialize globals.
*/
sprintf (os_process_name, "%d", getpid());
strcpy (osfn_bkgfile, "");
prtype = PR_HOST;
/* Initialize the kernel file descriptor. */
zfd[0].fp = stdin; zfd[0].flags = KF_NOSEEK;
zfd[1].fp = stdout; zfd[1].flags = KF_NOSEEK;
zfd[2].fp = stderr; zfd[2].flags = KF_NOSEEK;
/* Dummy routine called to indicate that mapping is complete. */
ready_();
/* Clears the exception-occurred bits in the FP status register.
*/
feclearexcept (FE_ALL_EXCEPT);
/* Initialize the time zone data structures. */
tzset();
/* Place a query call to ZAWSET to set the process working set limit
* to the IRAF default value, in case we did not inherit a working set
* limit value from the parent process.
*/
ZAWSET (&wsetsize, &junk, &junk, &junk);
/* Initialize the stdio streams. */
{ XINT ro = READ_ONLY, wo = WRITE_ONLY, chan;
ZOPNTY ((PKCHAR *)U_STDIN, &ro, &chan);
ZOPNTY ((PKCHAR *)U_STDOUT, &wo, &chan);
ZOPNTY ((PKCHAR *)U_STDERR, &wo, &chan);
}
/* Pass the values of the kernel parameters into the kernel. */
ZZSETK (os_process_name, osfn_bkgfile, prtype, ipc_isatty,
ipc_in, ipc_out);
return (XOK);
}
/* ZZSTOP -- Clean up prior to process shutdown.
*/
int ZZSTOP (void) { return (XOK); }
/* ready -- This is a dummy routine used when debugging to allow a breakpoint
* to be set at a convenient point after the shared image has been mapped in.
*/
void ready_ (void) {}
|
