Commit | Line | Data |
a0d0e21e |
1 | #include "EXTERN.h" |
2 | #include "perl.h" |
3 | #include "XSUB.h" |
4 | |
75ced34b |
5 | #ifdef VMS |
6 | # include <file.h> |
7 | #else |
cd661bb6 |
8 | #if defined(__GNUC__) && defined(__cplusplus) && defined(WIN32) |
9 | #define _NO_OLDNAMES |
10 | #endif |
75ced34b |
11 | # include <fcntl.h> |
cd661bb6 |
12 | #if defined(__GNUC__) && defined(__cplusplus) && defined(WIN32) |
13 | #undef _NO_OLDNAMES |
14 | #endif |
75ced34b |
15 | #endif |
a0d0e21e |
16 | |
8e07c86e |
17 | /* This comment is a kludge to get metaconfig to see the symbols |
18 | VAL_O_NONBLOCK |
19 | VAL_EAGAIN |
20 | RD_NODATA |
21 | EOF_NONBLOCK |
22 | and include the appropriate metaconfig unit |
23 | so that Configure will test how to turn on non-blocking I/O |
24 | for a file descriptor. See config.h for how to use these |
25 | in your extension. |
26 | |
27 | While I'm at it, I'll have metaconfig look for HAS_POLL too. |
28 | --AD October 16, 1995 |
29 | */ |
30 | |
a0d0e21e |
31 | static int |
f0f333f4 |
32 | not_here(char *s) |
a0d0e21e |
33 | { |
34 | croak("%s not implemented on this architecture", s); |
35 | return -1; |
36 | } |
37 | |
38 | static double |
f0f333f4 |
39 | constant(char *name, int arg) |
a0d0e21e |
40 | { |
41 | errno = 0; |
42 | switch (*name) { |
43 | case 'F': |
44 | if (strnEQ(name, "F_", 2)) { |
45 | if (strEQ(name, "F_DUPFD")) |
46 | #ifdef F_DUPFD |
47 | return F_DUPFD; |
48 | #else |
49 | goto not_there; |
50 | #endif |
0fd60c2a |
51 | if (strEQ(name, "F_EXLCK")) |
52 | #ifdef F_EXLCK |
53 | return F_EXLCK; |
54 | #else |
55 | goto not_there; |
56 | #endif |
a0d0e21e |
57 | if (strEQ(name, "F_GETFD")) |
58 | #ifdef F_GETFD |
59 | return F_GETFD; |
60 | #else |
61 | goto not_there; |
62 | #endif |
0fd60c2a |
63 | if (strEQ(name, "F_GETFL")) |
64 | #ifdef F_GETFL |
65 | return F_GETFL; |
66 | #else |
67 | goto not_there; |
68 | #endif |
a0d0e21e |
69 | if (strEQ(name, "F_GETLK")) |
70 | #ifdef F_GETLK |
71 | return F_GETLK; |
72 | #else |
73 | goto not_there; |
74 | #endif |
5ff3f7a4 |
75 | if (strEQ(name, "F_GETLK64")) |
76 | #ifdef F_GETLK64 |
77 | return F_GETLK64; |
78 | #else |
79 | goto not_there; |
80 | #endif |
5f832ef3 |
81 | if (strEQ(name, "F_GETOWN")) |
82 | #ifdef F_GETOWN |
83 | return F_GETOWN; |
84 | #else |
85 | goto not_there; |
86 | #endif |
0fd60c2a |
87 | if (strEQ(name, "F_POSIX")) |
88 | #ifdef F_POSIX |
89 | return F_POSIX; |
a0d0e21e |
90 | #else |
91 | goto not_there; |
92 | #endif |
0fd60c2a |
93 | if (strEQ(name, "F_RDLCK")) |
94 | #ifdef F_RDLCK |
95 | return F_RDLCK; |
a0d0e21e |
96 | #else |
97 | goto not_there; |
98 | #endif |
0fd60c2a |
99 | if (strEQ(name, "F_SETFD")) |
100 | #ifdef F_SETFD |
101 | return F_SETFD; |
3e3baf6d |
102 | #else |
103 | goto not_there; |
104 | #endif |
232e078e |
105 | if (strEQ(name, "F_SETFL")) |
106 | #ifdef F_SETFL |
107 | return F_SETFL; |
a0d0e21e |
108 | #else |
109 | goto not_there; |
110 | #endif |
5ff3f7a4 |
111 | if (strEQ(name, "F_SETLK64")) |
112 | #ifdef F_SETLK64 |
113 | return F_SETLK64; |
a0d0e21e |
114 | #else |
115 | goto not_there; |
116 | #endif |
117 | if (strEQ(name, "F_SETLKW")) |
118 | #ifdef F_SETLKW |
119 | return F_SETLKW; |
120 | #else |
121 | goto not_there; |
122 | #endif |
5ff3f7a4 |
123 | if (strEQ(name, "F_SETLKW64")) |
124 | #ifdef F_SETLKW64 |
125 | return F_SETLKW64; |
126 | #else |
127 | goto not_there; |
128 | #endif |
5f832ef3 |
129 | if (strEQ(name, "F_SETOWN")) |
130 | #ifdef F_SETOWN |
131 | return F_SETOWN; |
132 | #else |
133 | goto not_there; |
134 | #endif |
0fd60c2a |
135 | if (strEQ(name, "F_SHLCK")) |
136 | #ifdef F_SHLCK |
137 | return F_SHLCK; |
a0d0e21e |
138 | #else |
139 | goto not_there; |
140 | #endif |
141 | if (strEQ(name, "F_UNLCK")) |
142 | #ifdef F_UNLCK |
143 | return F_UNLCK; |
144 | #else |
145 | goto not_there; |
146 | #endif |
147 | if (strEQ(name, "F_WRLCK")) |
148 | #ifdef F_WRLCK |
149 | return F_WRLCK; |
150 | #else |
151 | goto not_there; |
152 | #endif |
153 | errno = EINVAL; |
154 | return 0; |
3e3baf6d |
155 | } |
156 | if (strEQ(name, "FAPPEND")) |
157 | #ifdef FAPPEND |
158 | return FAPPEND; |
159 | #else |
160 | goto not_there; |
161 | #endif |
162 | if (strEQ(name, "FASYNC")) |
163 | #ifdef FASYNC |
164 | return FASYNC; |
165 | #else |
166 | goto not_there; |
167 | #endif |
168 | if (strEQ(name, "FCREAT")) |
169 | #ifdef FCREAT |
170 | return FCREAT; |
171 | #else |
172 | goto not_there; |
173 | #endif |
174 | if (strEQ(name, "FD_CLOEXEC")) |
a0d0e21e |
175 | #ifdef FD_CLOEXEC |
176 | return FD_CLOEXEC; |
177 | #else |
178 | goto not_there; |
179 | #endif |
0fd60c2a |
180 | if (strEQ(name, "FDEFER")) |
181 | #ifdef FDEFER |
182 | return FDEFER; |
183 | #else |
184 | goto not_there; |
185 | #endif |
3e3baf6d |
186 | if (strEQ(name, "FEXCL")) |
187 | #ifdef FEXCL |
188 | return FEXCL; |
189 | #else |
190 | goto not_there; |
191 | #endif |
192 | if (strEQ(name, "FNDELAY")) |
193 | #ifdef FNDELAY |
194 | return FNDELAY; |
195 | #else |
196 | goto not_there; |
197 | #endif |
198 | if (strEQ(name, "FNONBLOCK")) |
199 | #ifdef FNONBLOCK |
200 | return FNONBLOCK; |
201 | #else |
202 | goto not_there; |
203 | #endif |
204 | if (strEQ(name, "FSYNC")) |
205 | #ifdef FSYNC |
206 | return FSYNC; |
207 | #else |
208 | goto not_there; |
209 | #endif |
210 | if (strEQ(name, "FTRUNC")) |
211 | #ifdef FTRUNC |
212 | return FTRUNC; |
213 | #else |
214 | goto not_there; |
215 | #endif |
a0d0e21e |
216 | break; |
7e1af8bc |
217 | case 'L': |
218 | if (strnEQ(name, "LOCK_", 5)) { |
219 | /* We support flock() on systems which don't have it, so |
220 | always supply the constants. */ |
221 | if (strEQ(name, "LOCK_SH")) |
222 | #ifdef LOCK_SH |
223 | return LOCK_SH; |
224 | #else |
225 | return 1; |
226 | #endif |
227 | if (strEQ(name, "LOCK_EX")) |
228 | #ifdef LOCK_EX |
229 | return LOCK_EX; |
230 | #else |
231 | return 2; |
232 | #endif |
233 | if (strEQ(name, "LOCK_NB")) |
234 | #ifdef LOCK_NB |
235 | return LOCK_NB; |
236 | #else |
237 | return 4; |
238 | #endif |
239 | if (strEQ(name, "LOCK_UN")) |
240 | #ifdef LOCK_UN |
241 | return LOCK_UN; |
242 | #else |
243 | return 8; |
244 | #endif |
245 | } else |
246 | goto not_there; |
247 | break; |
a0d0e21e |
248 | case 'O': |
249 | if (strnEQ(name, "O_", 2)) { |
0fd60c2a |
250 | if (strEQ(name, "O_ACCMODE")) |
251 | #ifdef O_ACCMODE |
252 | return O_ACCMODE; |
253 | #else |
254 | goto not_there; |
255 | #endif |
256 | if (strEQ(name, "O_APPEND")) |
257 | #ifdef O_APPEND |
258 | return O_APPEND; |
259 | #else |
260 | goto not_there; |
261 | #endif |
262 | if (strEQ(name, "O_ASYNC")) |
263 | #ifdef O_ASYNC |
264 | return O_ASYNC; |
265 | #else |
266 | goto not_there; |
267 | #endif |
268 | if (strEQ(name, "O_BINARY")) |
269 | #ifdef O_BINARY |
270 | return O_BINARY; |
271 | #else |
272 | goto not_there; |
273 | #endif |
a0d0e21e |
274 | if (strEQ(name, "O_CREAT")) |
275 | #ifdef O_CREAT |
276 | return O_CREAT; |
277 | #else |
278 | goto not_there; |
279 | #endif |
0fd60c2a |
280 | if (strEQ(name, "O_DEFER")) |
281 | #ifdef O_DEFER |
282 | return O_DEFER; |
283 | #else |
284 | goto not_there; |
285 | #endif |
286 | if (strEQ(name, "O_DSYNC")) |
287 | #ifdef O_DSYNC |
288 | return O_DSYNC; |
289 | #else |
290 | goto not_there; |
291 | #endif |
a0d0e21e |
292 | if (strEQ(name, "O_EXCL")) |
293 | #ifdef O_EXCL |
294 | return O_EXCL; |
295 | #else |
296 | goto not_there; |
297 | #endif |
0fd60c2a |
298 | if (strEQ(name, "O_EXLOCK")) |
299 | #ifdef O_EXLOCK |
300 | return O_EXLOCK; |
a0d0e21e |
301 | #else |
302 | goto not_there; |
303 | #endif |
5ff3f7a4 |
304 | if (strEQ(name, "O_LARGEFILE")) |
305 | #ifdef O_LARGEFILE |
306 | return O_LARGEFILE; |
307 | #else |
308 | goto not_there; |
309 | #endif |
0fd60c2a |
310 | if (strEQ(name, "O_NDELAY")) |
311 | #ifdef O_NDELAY |
312 | return O_NDELAY; |
a0d0e21e |
313 | #else |
314 | goto not_there; |
315 | #endif |
0fd60c2a |
316 | if (strEQ(name, "O_NOCTTY")) |
317 | #ifdef O_NOCTTY |
318 | return O_NOCTTY; |
a0d0e21e |
319 | #else |
320 | goto not_there; |
321 | #endif |
322 | if (strEQ(name, "O_NONBLOCK")) |
323 | #ifdef O_NONBLOCK |
324 | return O_NONBLOCK; |
325 | #else |
326 | goto not_there; |
327 | #endif |
a0d0e21e |
328 | if (strEQ(name, "O_RDONLY")) |
329 | #ifdef O_RDONLY |
330 | return O_RDONLY; |
331 | #else |
332 | goto not_there; |
333 | #endif |
334 | if (strEQ(name, "O_RDWR")) |
335 | #ifdef O_RDWR |
336 | return O_RDWR; |
337 | #else |
338 | goto not_there; |
339 | #endif |
0fd60c2a |
340 | if (strEQ(name, "O_RSYNC")) |
341 | #ifdef O_RSYNC |
342 | return O_RSYNC; |
705af498 |
343 | #else |
344 | goto not_there; |
345 | #endif |
346 | if (strEQ(name, "O_SHLOCK")) |
347 | #ifdef O_SHLOCK |
348 | return O_SHLOCK; |
349 | #else |
350 | goto not_there; |
351 | #endif |
0fd60c2a |
352 | if (strEQ(name, "O_SYNC")) |
353 | #ifdef O_SYNC |
354 | return O_SYNC; |
705af498 |
355 | #else |
356 | goto not_there; |
357 | #endif |
0fd60c2a |
358 | if (strEQ(name, "O_TEXT")) |
359 | #ifdef O_TEXT |
360 | return O_TEXT; |
705af498 |
361 | #else |
362 | goto not_there; |
363 | #endif |
0fd60c2a |
364 | if (strEQ(name, "O_TRUNC")) |
365 | #ifdef O_TRUNC |
366 | return O_TRUNC; |
705af498 |
367 | #else |
368 | goto not_there; |
369 | #endif |
0fd60c2a |
370 | if (strEQ(name, "O_WRONLY")) |
371 | #ifdef O_WRONLY |
372 | return O_WRONLY; |
705af498 |
373 | #else |
374 | goto not_there; |
375 | #endif |
a0d0e21e |
376 | } else |
377 | goto not_there; |
378 | break; |
379 | } |
380 | errno = EINVAL; |
381 | return 0; |
382 | |
383 | not_there: |
384 | errno = ENOENT; |
385 | return 0; |
386 | } |
387 | |
388 | |
389 | MODULE = Fcntl PACKAGE = Fcntl |
390 | |
391 | double |
392 | constant(name,arg) |
393 | char * name |
394 | int arg |
395 | |