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
|
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include <process.h>
static int
not_here(s)
char *s;
{
croak("%s not implemented on this architecture", s);
return -1;
}
static unsigned long
constant(name, arg)
char *name;
int arg;
{
errno = 0;
if (name[0] == 'P' && name[1] == '_') {
if (strEQ(name, "P_BACKGROUND"))
#ifdef P_BACKGROUND
return P_BACKGROUND;
#else
goto not_there;
#endif
if (strEQ(name, "P_DEBUG"))
#ifdef P_DEBUG
return P_DEBUG;
#else
goto not_there;
#endif
if (strEQ(name, "P_DEFAULT"))
#ifdef P_DEFAULT
return P_DEFAULT;
#else
goto not_there;
#endif
if (strEQ(name, "P_DETACH"))
#ifdef P_DETACH
return P_DETACH;
#else
goto not_there;
#endif
if (strEQ(name, "P_FOREGROUND"))
#ifdef P_FOREGROUND
return P_FOREGROUND;
#else
goto not_there;
#endif
if (strEQ(name, "P_FULLSCREEN"))
#ifdef P_FULLSCREEN
return P_FULLSCREEN;
#else
goto not_there;
#endif
if (strEQ(name, "P_MAXIMIZE"))
#ifdef P_MAXIMIZE
return P_MAXIMIZE;
#else
goto not_there;
#endif
if (strEQ(name, "P_MINIMIZE"))
#ifdef P_MINIMIZE
return P_MINIMIZE;
#else
goto not_there;
#endif
if (strEQ(name, "P_NOCLOSE"))
#ifdef P_NOCLOSE
return P_NOCLOSE;
#else
goto not_there;
#endif
if (strEQ(name, "P_NOSESSION"))
#ifdef P_NOSESSION
return P_NOSESSION;
#else
goto not_there;
#endif
if (strEQ(name, "P_NOWAIT"))
#ifdef P_NOWAIT
return P_NOWAIT;
#else
goto not_there;
#endif
if (strEQ(name, "P_OVERLAY"))
#ifdef P_OVERLAY
return P_OVERLAY;
#else
goto not_there;
#endif
if (strEQ(name, "P_PM"))
#ifdef P_PM
return P_PM;
#else
goto not_there;
#endif
if (strEQ(name, "P_QUOTE"))
#ifdef P_QUOTE
return P_QUOTE;
#else
goto not_there;
#endif
if (strEQ(name, "P_SESSION"))
#ifdef P_SESSION
return P_SESSION;
#else
goto not_there;
#endif
if (strEQ(name, "P_TILDE"))
#ifdef P_TILDE
return P_TILDE;
#else
goto not_there;
#endif
if (strEQ(name, "P_UNRELATED"))
#ifdef P_UNRELATED
return P_UNRELATED;
#else
goto not_there;
#endif
if (strEQ(name, "P_WAIT"))
#ifdef P_WAIT
return P_WAIT;
#else
goto not_there;
#endif
if (strEQ(name, "P_WINDOWED"))
#ifdef P_WINDOWED
return P_WINDOWED;
#else
goto not_there;
#endif
}
errno = EINVAL;
return 0;
not_there:
errno = ENOENT;
return 0;
}
MODULE = OS2::Process PACKAGE = OS2::Process
unsigned long
constant(name,arg)
char * name
int arg
|
