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
|
/* STARTUP PROCEDURE FOR UNIX FORTRAN PROGRAMS */
#include <Windows.h>
#include "stdio.h"
#include "signal.h"
#include "../Messages.h"
#include "../Warnings.h"
#include "../Errors.h"
#include "../../os_specific/win_mem_alloc.h" /* MALLOC */
extern int Console_Main(int argc, char **argv);
#ifndef SIGIOT
#ifdef SIGABRT
#define SIGIOT SIGABRT
#endif
#endif
#ifndef KR_headers
#undef VOID
#include "stdlib.h"
#endif
#ifndef VOID
#define VOID void
#endif
#ifdef __cplusplus
extern "C" {
#endif
#ifdef NO__STDC
#define ONEXIT onexit
extern VOID f_exit();
#else
#ifndef KR_headers
extern void f_exit(void);
#ifndef NO_ONEXIT
#define ONEXIT atexit
extern int atexit(void (*)(void));
#endif
#else
#ifndef NO_ONEXIT
#define ONEXIT onexit
extern VOID f_exit();
#endif
#endif
#endif
#ifdef KR_headers
extern VOID f_init(), sig_die();
extern int MAIN__();
#define Int /* int */
#else
extern void f_init(void), sig_die(char*, int);
extern int MAIN__(void);
#define Int int
#endif
static VOID sigfdie(Int n)
{
sig_die(MSG_ERROR1, 1);
}
static VOID sigidie(Int n)
{
sig_die(MSG_ERROR2, 1);
}
#ifdef SIGQUIT
static VOID sigqdie(Int n)
{
sig_die(MSG_ERROR3, 1);
}
#endif
static VOID sigindie(Int n)
{
sig_die(MSG_ERROR4, 0);
}
static VOID sigtdie(Int n)
{
sig_die(MSG_ERROR5, 0);
}
#ifdef SIGTRAP
static VOID sigtrdie(Int n)
{
sig_die(MSG_ERROR6, 1);
}
#endif
#ifdef KR_headers
VOID send_xarg(xxargc,xxargv);
#else
void send_xarg(int xxargc, char **xxargv);
#endif
int main (int argc, char **argv)
{
/** JPC : 1998 pour fair un dll **/
#define MAXCMDTOKENS 128
int argcbis=-1;
LPSTR argvbis[MAXCMDTOKENS];
int i=0;
int FindNW=0;
for (i=0;i<argc;i++)
{
if ( (strcmp(argv[i],"-nw")==0) || (strcmp(argv[i],"-NW")==0) ) FindNW=1;
if ( (strcmp(argv[i],"-nwni")==0) || (strcmp(argv[i],"-NWNI")==0) ) FindNW=1;
}
if (FindNW==0)
{
char *nwparam=NULL;
nwparam=(char*)MALLOC((strlen("-nw")+1)*sizeof(char));
strcpy(nwparam,"-nw");
for (i=0;i<argc;i++)
{
argvbis[i]=argv[i];
}
argvbis[argc]=nwparam;
argcbis=argc+1;
send_xarg(argcbis,argvbis);
}
else
{
for (i=0;i<argc;i++)
{
argvbis[i]=argv[i];
}
argcbis=argc;
}
send_xarg(argcbis,argvbis);
signal(SIGFPE, sigfdie); /* ignore underflow, enable overflow */
#ifdef SIGIOT
signal(SIGIOT, sigidie);
#endif
#ifdef SIGTRAP
signal(SIGTRAP, sigtrdie);
#endif
#ifdef SIGQUIT
if(signal(SIGQUIT,sigqdie) == SIG_IGN)
signal(SIGQUIT, SIG_IGN);
#endif
if(signal(SIGINT, sigindie) == SIG_IGN)
signal(SIGINT, SIG_IGN);
signal(SIGTERM,sigtdie);
#ifdef pdp11
ldfps(01200); /* detect overflow as an exception */
#endif
f_init();
#ifndef NO_ONEXIT
ONEXIT(f_exit);
#endif
Console_Main(argcbis,argvbis);
#ifdef NO_ONEXIT
f_exit();
#endif
exit(0); /* exit(0) rather than return(0) to bypass Cray bug */
return 0; /* For compilers that complain of missing return values; */
/* others will complain that this is unreachable code. */
}
#ifdef __cplusplus
}
#endif
|
