Commit | Line | Data |
8168e71f |
1 | #define PERL_constant_NOTFOUND 1 |
2 | #define PERL_constant_NOTDEF 2 |
3 | #define PERL_constant_ISIV 3 |
4 | #define PERL_constant_ISNO 4 |
5 | #define PERL_constant_ISNV 5 |
6 | #define PERL_constant_ISPV 6 |
7 | #define PERL_constant_ISPVN 7 |
8 | #define PERL_constant_ISSV 8 |
9 | #define PERL_constant_ISUNDEF 9 |
10 | #define PERL_constant_ISUV 10 |
11 | #define PERL_constant_ISYES 11 |
12 | |
13 | #ifndef NVTYPE |
14 | typedef double NV; /* 5.6 and later define NVTYPE, and typedef NV to it. */ |
15 | #endif |
16 | #ifndef aTHX_ |
17 | #define aTHX_ /* 5.6 or later define this for threading support. */ |
18 | #endif |
19 | #ifndef pTHX_ |
20 | #define pTHX_ /* 5.6 or later define this for threading support. */ |
21 | #endif |
22 | |
23 | static int |
24 | constant_7 (pTHX_ const char *name, IV *iv_return) { |
25 | /* When generated this function returned values for the list of names given |
26 | here. However, subsequent manual editing may have added or removed some. |
a650b841 |
27 | LOG_ERR LOG_FTP LOG_LPR LOG_NTP LOG_PID LOG_RAS */ |
8168e71f |
28 | /* Offset 4 gives the best switch position. */ |
29 | switch (name[4]) { |
30 | case 'E': |
31 | if (memEQ(name, "LOG_ERR", 7)) { |
32 | /* ^ */ |
33 | #ifdef LOG_ERR |
34 | *iv_return = LOG_ERR; |
35 | return PERL_constant_ISIV; |
36 | #else |
37 | return PERL_constant_NOTDEF; |
38 | #endif |
39 | } |
40 | break; |
41 | case 'F': |
42 | if (memEQ(name, "LOG_FTP", 7)) { |
43 | /* ^ */ |
44 | #ifdef LOG_FTP |
45 | *iv_return = LOG_FTP; |
46 | return PERL_constant_ISIV; |
47 | #else |
48 | return PERL_constant_NOTDEF; |
49 | #endif |
50 | } |
51 | break; |
52 | case 'L': |
53 | if (memEQ(name, "LOG_LPR", 7)) { |
54 | /* ^ */ |
55 | #ifdef LOG_LPR |
56 | *iv_return = LOG_LPR; |
57 | return PERL_constant_ISIV; |
58 | #else |
59 | return PERL_constant_NOTDEF; |
60 | #endif |
61 | } |
62 | break; |
a650b841 |
63 | case 'N': |
64 | if (memEQ(name, "LOG_NTP", 7)) { |
65 | /* ^ */ |
66 | #ifdef LOG_NTP |
67 | *iv_return = LOG_NTP; |
68 | return PERL_constant_ISIV; |
69 | #else |
70 | *iv_return = LOG_DAEMON; |
71 | return PERL_constant_ISIV; |
72 | #endif |
73 | } |
74 | break; |
8168e71f |
75 | case 'P': |
76 | if (memEQ(name, "LOG_PID", 7)) { |
77 | /* ^ */ |
78 | #ifdef LOG_PID |
79 | *iv_return = LOG_PID; |
80 | return PERL_constant_ISIV; |
81 | #else |
82 | return PERL_constant_NOTDEF; |
83 | #endif |
84 | } |
85 | break; |
6e4ef777 |
86 | case 'R': |
87 | if (memEQ(name, "LOG_RAS", 7)) { |
88 | /* ^ */ |
89 | #ifdef LOG_RAS |
90 | *iv_return = LOG_RAS; |
91 | return PERL_constant_ISIV; |
92 | #else |
a650b841 |
93 | *iv_return = LOG_AUTH; |
94 | return PERL_constant_ISIV; |
6e4ef777 |
95 | #endif |
96 | } |
97 | break; |
8168e71f |
98 | } |
99 | return PERL_constant_NOTFOUND; |
100 | } |
101 | |
102 | static int |
103 | constant_8 (pTHX_ const char *name, IV *iv_return) { |
104 | /* When generated this function returned values for the list of names given |
105 | here. However, subsequent manual editing may have added or removed some. |
106 | LOG_AUTH LOG_CONS LOG_CRIT LOG_CRON LOG_INFO LOG_KERN LOG_LFMT LOG_MAIL |
107 | LOG_NEWS LOG_USER LOG_UUCP */ |
108 | /* Offset 6 gives the best switch position. */ |
109 | switch (name[6]) { |
110 | case 'C': |
111 | if (memEQ(name, "LOG_UUCP", 8)) { |
112 | /* ^ */ |
113 | #ifdef LOG_UUCP |
114 | *iv_return = LOG_UUCP; |
115 | return PERL_constant_ISIV; |
116 | #else |
117 | return PERL_constant_NOTDEF; |
118 | #endif |
119 | } |
120 | break; |
121 | case 'E': |
122 | if (memEQ(name, "LOG_USER", 8)) { |
123 | /* ^ */ |
124 | #ifdef LOG_USER |
125 | *iv_return = LOG_USER; |
126 | return PERL_constant_ISIV; |
127 | #else |
128 | return PERL_constant_NOTDEF; |
129 | #endif |
130 | } |
131 | break; |
132 | case 'F': |
133 | if (memEQ(name, "LOG_INFO", 8)) { |
134 | /* ^ */ |
135 | #ifdef LOG_INFO |
136 | *iv_return = LOG_INFO; |
137 | return PERL_constant_ISIV; |
138 | #else |
139 | return PERL_constant_NOTDEF; |
140 | #endif |
141 | } |
142 | break; |
143 | case 'I': |
144 | if (memEQ(name, "LOG_CRIT", 8)) { |
145 | /* ^ */ |
146 | #ifdef LOG_CRIT |
147 | *iv_return = LOG_CRIT; |
148 | return PERL_constant_ISIV; |
149 | #else |
150 | return PERL_constant_NOTDEF; |
151 | #endif |
152 | } |
153 | if (memEQ(name, "LOG_MAIL", 8)) { |
154 | /* ^ */ |
155 | #ifdef LOG_MAIL |
156 | *iv_return = LOG_MAIL; |
157 | return PERL_constant_ISIV; |
158 | #else |
159 | return PERL_constant_NOTDEF; |
160 | #endif |
161 | } |
162 | break; |
163 | case 'M': |
164 | if (memEQ(name, "LOG_LFMT", 8)) { |
165 | /* ^ */ |
166 | #ifdef LOG_LFMT |
167 | *iv_return = LOG_LFMT; |
168 | return PERL_constant_ISIV; |
169 | #else |
a650b841 |
170 | *iv_return = LOG_USER; |
171 | return PERL_constant_ISIV; |
8168e71f |
172 | #endif |
173 | } |
174 | break; |
175 | case 'N': |
176 | if (memEQ(name, "LOG_CONS", 8)) { |
177 | /* ^ */ |
178 | #ifdef LOG_CONS |
179 | *iv_return = LOG_CONS; |
180 | return PERL_constant_ISIV; |
181 | #else |
182 | return PERL_constant_NOTDEF; |
183 | #endif |
184 | } |
185 | break; |
186 | case 'O': |
187 | if (memEQ(name, "LOG_CRON", 8)) { |
188 | /* ^ */ |
189 | #ifdef LOG_CRON |
190 | *iv_return = LOG_CRON; |
191 | return PERL_constant_ISIV; |
192 | #else |
193 | return PERL_constant_NOTDEF; |
194 | #endif |
195 | } |
196 | break; |
197 | case 'R': |
198 | if (memEQ(name, "LOG_KERN", 8)) { |
199 | /* ^ */ |
200 | #ifdef LOG_KERN |
201 | *iv_return = LOG_KERN; |
202 | return PERL_constant_ISIV; |
203 | #else |
204 | return PERL_constant_NOTDEF; |
205 | #endif |
206 | } |
207 | break; |
208 | case 'T': |
209 | if (memEQ(name, "LOG_AUTH", 8)) { |
210 | /* ^ */ |
211 | #ifdef LOG_AUTH |
212 | *iv_return = LOG_AUTH; |
213 | return PERL_constant_ISIV; |
214 | #else |
215 | return PERL_constant_NOTDEF; |
216 | #endif |
217 | } |
218 | break; |
219 | case 'W': |
220 | if (memEQ(name, "LOG_NEWS", 8)) { |
221 | /* ^ */ |
222 | #ifdef LOG_NEWS |
223 | *iv_return = LOG_NEWS; |
224 | return PERL_constant_ISIV; |
225 | #else |
226 | return PERL_constant_NOTDEF; |
227 | #endif |
228 | } |
229 | break; |
230 | } |
231 | return PERL_constant_NOTFOUND; |
232 | } |
233 | |
234 | static int |
235 | constant_9 (pTHX_ const char *name, IV *iv_return, const char **pv_return) { |
236 | /* When generated this function returned values for the list of names given |
237 | here. However, subsequent manual editing may have added or removed some. |
a650b841 |
238 | LOG_ALERT LOG_AUDIT LOG_DEBUG LOG_EMERG _PATH_LOG */ |
239 | /* Offset 5 gives the best switch position. */ |
240 | switch (name[5]) { |
241 | case 'E': |
242 | if (memEQ(name, "LOG_DEBUG", 9)) { |
243 | /* ^ */ |
244 | #ifdef LOG_DEBUG |
245 | *iv_return = LOG_DEBUG; |
8168e71f |
246 | return PERL_constant_ISIV; |
247 | #else |
248 | return PERL_constant_NOTDEF; |
249 | #endif |
250 | } |
251 | break; |
a650b841 |
252 | case 'L': |
253 | if (memEQ(name, "LOG_ALERT", 9)) { |
254 | /* ^ */ |
255 | #ifdef LOG_ALERT |
256 | *iv_return = LOG_ALERT; |
8168e71f |
257 | return PERL_constant_ISIV; |
258 | #else |
259 | return PERL_constant_NOTDEF; |
260 | #endif |
261 | } |
262 | break; |
a650b841 |
263 | case 'M': |
8168e71f |
264 | if (memEQ(name, "LOG_EMERG", 9)) { |
a650b841 |
265 | /* ^ */ |
8168e71f |
266 | #ifdef LOG_EMERG |
267 | *iv_return = LOG_EMERG; |
268 | return PERL_constant_ISIV; |
269 | #else |
270 | return PERL_constant_NOTDEF; |
271 | #endif |
272 | } |
273 | break; |
a650b841 |
274 | case 'U': |
275 | if (memEQ(name, "LOG_AUDIT", 9)) { |
276 | /* ^ */ |
277 | #ifdef LOG_AUDIT |
278 | *iv_return = LOG_AUDIT; |
279 | return PERL_constant_ISIV; |
280 | #else |
281 | *iv_return = LOG_AUTH; |
282 | return PERL_constant_ISIV; |
283 | #endif |
284 | } |
285 | break; |
286 | case '_': |
8168e71f |
287 | if (memEQ(name, "_PATH_LOG", 9)) { |
a650b841 |
288 | /* ^ */ |
8168e71f |
289 | #ifdef _PATH_LOG |
290 | *pv_return = _PATH_LOG; |
291 | return PERL_constant_ISPV; |
292 | #else |
a650b841 |
293 | *pv_return = "/var/run/syslog"; |
8168e71f |
294 | return PERL_constant_ISPV; |
295 | #endif |
296 | } |
297 | break; |
298 | } |
299 | return PERL_constant_NOTFOUND; |
300 | } |
301 | |
302 | static int |
303 | constant_10 (pTHX_ const char *name, IV *iv_return) { |
304 | /* When generated this function returned values for the list of names given |
305 | here. However, subsequent manual editing may have added or removed some. |
306 | LOG_DAEMON LOG_LOCAL0 LOG_LOCAL1 LOG_LOCAL2 LOG_LOCAL3 LOG_LOCAL4 |
307 | LOG_LOCAL5 LOG_LOCAL6 LOG_LOCAL7 LOG_NDELAY LOG_NOTICE LOG_NOWAIT |
308 | LOG_ODELAY LOG_PERROR LOG_SYSLOG */ |
309 | /* Offset 9 gives the best switch position. */ |
310 | switch (name[9]) { |
311 | case '0': |
312 | if (memEQ(name, "LOG_LOCAL", 9)) { |
313 | /* 0 */ |
314 | #ifdef LOG_LOCAL0 |
315 | *iv_return = LOG_LOCAL0; |
316 | return PERL_constant_ISIV; |
317 | #else |
318 | return PERL_constant_NOTDEF; |
319 | #endif |
320 | } |
321 | break; |
322 | case '1': |
323 | if (memEQ(name, "LOG_LOCAL", 9)) { |
324 | /* 1 */ |
325 | #ifdef LOG_LOCAL1 |
326 | *iv_return = LOG_LOCAL1; |
327 | return PERL_constant_ISIV; |
328 | #else |
329 | return PERL_constant_NOTDEF; |
330 | #endif |
331 | } |
332 | break; |
333 | case '2': |
334 | if (memEQ(name, "LOG_LOCAL", 9)) { |
335 | /* 2 */ |
336 | #ifdef LOG_LOCAL2 |
337 | *iv_return = LOG_LOCAL2; |
338 | return PERL_constant_ISIV; |
339 | #else |
340 | return PERL_constant_NOTDEF; |
341 | #endif |
342 | } |
343 | break; |
344 | case '3': |
345 | if (memEQ(name, "LOG_LOCAL", 9)) { |
346 | /* 3 */ |
347 | #ifdef LOG_LOCAL3 |
348 | *iv_return = LOG_LOCAL3; |
349 | return PERL_constant_ISIV; |
350 | #else |
351 | return PERL_constant_NOTDEF; |
352 | #endif |
353 | } |
354 | break; |
355 | case '4': |
356 | if (memEQ(name, "LOG_LOCAL", 9)) { |
357 | /* 4 */ |
358 | #ifdef LOG_LOCAL4 |
359 | *iv_return = LOG_LOCAL4; |
360 | return PERL_constant_ISIV; |
361 | #else |
362 | return PERL_constant_NOTDEF; |
363 | #endif |
364 | } |
365 | break; |
366 | case '5': |
367 | if (memEQ(name, "LOG_LOCAL", 9)) { |
368 | /* 5 */ |
369 | #ifdef LOG_LOCAL5 |
370 | *iv_return = LOG_LOCAL5; |
371 | return PERL_constant_ISIV; |
372 | #else |
373 | return PERL_constant_NOTDEF; |
374 | #endif |
375 | } |
376 | break; |
377 | case '6': |
378 | if (memEQ(name, "LOG_LOCAL", 9)) { |
379 | /* 6 */ |
380 | #ifdef LOG_LOCAL6 |
381 | *iv_return = LOG_LOCAL6; |
382 | return PERL_constant_ISIV; |
383 | #else |
384 | return PERL_constant_NOTDEF; |
385 | #endif |
386 | } |
387 | break; |
388 | case '7': |
389 | if (memEQ(name, "LOG_LOCAL", 9)) { |
390 | /* 7 */ |
391 | #ifdef LOG_LOCAL7 |
392 | *iv_return = LOG_LOCAL7; |
393 | return PERL_constant_ISIV; |
394 | #else |
395 | return PERL_constant_NOTDEF; |
396 | #endif |
397 | } |
398 | break; |
399 | case 'E': |
400 | if (memEQ(name, "LOG_NOTIC", 9)) { |
401 | /* E */ |
402 | #ifdef LOG_NOTICE |
403 | *iv_return = LOG_NOTICE; |
404 | return PERL_constant_ISIV; |
405 | #else |
406 | return PERL_constant_NOTDEF; |
407 | #endif |
408 | } |
409 | break; |
410 | case 'G': |
411 | if (memEQ(name, "LOG_SYSLO", 9)) { |
412 | /* G */ |
413 | #ifdef LOG_SYSLOG |
414 | *iv_return = LOG_SYSLOG; |
415 | return PERL_constant_ISIV; |
416 | #else |
417 | return PERL_constant_NOTDEF; |
418 | #endif |
419 | } |
420 | break; |
421 | case 'N': |
422 | if (memEQ(name, "LOG_DAEMO", 9)) { |
423 | /* N */ |
424 | #ifdef LOG_DAEMON |
425 | *iv_return = LOG_DAEMON; |
426 | return PERL_constant_ISIV; |
427 | #else |
428 | return PERL_constant_NOTDEF; |
429 | #endif |
430 | } |
431 | break; |
432 | case 'R': |
433 | if (memEQ(name, "LOG_PERRO", 9)) { |
434 | /* R */ |
435 | #ifdef LOG_PERROR |
436 | *iv_return = LOG_PERROR; |
437 | return PERL_constant_ISIV; |
438 | #else |
439 | return PERL_constant_NOTDEF; |
440 | #endif |
441 | } |
442 | break; |
443 | case 'T': |
444 | if (memEQ(name, "LOG_NOWAI", 9)) { |
445 | /* T */ |
446 | #ifdef LOG_NOWAIT |
447 | *iv_return = LOG_NOWAIT; |
448 | return PERL_constant_ISIV; |
449 | #else |
450 | return PERL_constant_NOTDEF; |
451 | #endif |
452 | } |
453 | break; |
454 | case 'Y': |
455 | if (memEQ(name, "LOG_NDELA", 9)) { |
456 | /* Y */ |
457 | #ifdef LOG_NDELAY |
458 | *iv_return = LOG_NDELAY; |
459 | return PERL_constant_ISIV; |
460 | #else |
461 | return PERL_constant_NOTDEF; |
462 | #endif |
463 | } |
464 | if (memEQ(name, "LOG_ODELA", 9)) { |
465 | /* Y */ |
466 | #ifdef LOG_ODELAY |
467 | *iv_return = LOG_ODELAY; |
468 | return PERL_constant_ISIV; |
469 | #else |
470 | return PERL_constant_NOTDEF; |
471 | #endif |
472 | } |
473 | break; |
474 | } |
475 | return PERL_constant_NOTFOUND; |
476 | } |
477 | |
478 | static int |
479 | constant_11 (pTHX_ const char *name, IV *iv_return) { |
480 | /* When generated this function returned values for the list of names given |
481 | here. However, subsequent manual editing may have added or removed some. |
a650b841 |
482 | LOG_CONSOLE LOG_FACMASK LOG_INSTALL LOG_LAUNCHD LOG_NETINFO LOG_PRIMASK |
483 | LOG_WARNING */ |
484 | /* Offset 6 gives the best switch position. */ |
485 | switch (name[6]) { |
486 | case 'C': |
8168e71f |
487 | if (memEQ(name, "LOG_FACMASK", 11)) { |
a650b841 |
488 | /* ^ */ |
8168e71f |
489 | #ifdef LOG_FACMASK |
490 | *iv_return = LOG_FACMASK; |
491 | return PERL_constant_ISIV; |
492 | #else |
493 | return PERL_constant_NOTDEF; |
494 | #endif |
495 | } |
496 | break; |
497 | case 'I': |
a650b841 |
498 | if (memEQ(name, "LOG_PRIMASK", 11)) { |
499 | /* ^ */ |
500 | #ifdef LOG_PRIMASK |
501 | *iv_return = LOG_PRIMASK; |
6e4ef777 |
502 | return PERL_constant_ISIV; |
503 | #else |
a650b841 |
504 | *iv_return = 7; |
505 | return PERL_constant_ISIV; |
6e4ef777 |
506 | #endif |
507 | } |
508 | break; |
a650b841 |
509 | case 'N': |
510 | if (memEQ(name, "LOG_CONSOLE", 11)) { |
511 | /* ^ */ |
512 | #ifdef LOG_CONSOLE |
513 | *iv_return = LOG_CONSOLE; |
6e4ef777 |
514 | return PERL_constant_ISIV; |
515 | #else |
a650b841 |
516 | *iv_return = LOG_USER; |
517 | return PERL_constant_ISIV; |
6e4ef777 |
518 | #endif |
519 | } |
520 | break; |
a650b841 |
521 | case 'R': |
522 | if (memEQ(name, "LOG_WARNING", 11)) { |
523 | /* ^ */ |
524 | #ifdef LOG_WARNING |
525 | *iv_return = LOG_WARNING; |
6e4ef777 |
526 | return PERL_constant_ISIV; |
527 | #else |
528 | return PERL_constant_NOTDEF; |
529 | #endif |
530 | } |
531 | break; |
a650b841 |
532 | case 'S': |
533 | if (memEQ(name, "LOG_INSTALL", 11)) { |
534 | /* ^ */ |
535 | #ifdef LOG_INSTALL |
536 | *iv_return = LOG_INSTALL; |
8168e71f |
537 | return PERL_constant_ISIV; |
538 | #else |
a650b841 |
539 | *iv_return = LOG_USER; |
540 | return PERL_constant_ISIV; |
8168e71f |
541 | #endif |
542 | } |
543 | break; |
a650b841 |
544 | case 'T': |
545 | if (memEQ(name, "LOG_NETINFO", 11)) { |
546 | /* ^ */ |
547 | #ifdef LOG_NETINFO |
548 | *iv_return = LOG_NETINFO; |
8168e71f |
549 | return PERL_constant_ISIV; |
550 | #else |
a650b841 |
551 | *iv_return = LOG_DAEMON; |
552 | return PERL_constant_ISIV; |
553 | #endif |
554 | } |
555 | break; |
556 | case 'U': |
557 | if (memEQ(name, "LOG_LAUNCHD", 11)) { |
558 | /* ^ */ |
559 | #ifdef LOG_LAUNCHD |
560 | *iv_return = LOG_LAUNCHD; |
561 | return PERL_constant_ISIV; |
562 | #else |
563 | *iv_return = LOG_DAEMON; |
564 | return PERL_constant_ISIV; |
8168e71f |
565 | #endif |
566 | } |
567 | break; |
568 | } |
569 | return PERL_constant_NOTFOUND; |
570 | } |
571 | |
572 | static int |
573 | constant (pTHX_ const char *name, STRLEN len, IV *iv_return, const char **pv_return) { |
574 | /* Initially switch on the length of the name. */ |
575 | /* When generated this function returned values for the list of names given |
576 | in this section of perl code. Rather than manually editing these functions |
577 | to add or remove constants, which would result in this comment and section |
578 | of code becoming inaccurate, we recommend that you edit this section of |
579 | code, and use it to regenerate a new set of constant functions which you |
580 | then use to replace the originals. |
581 | |
582 | Regenerate these constant functions by feeding this entire source file to |
583 | perl -x |
584 | |
6e4ef777 |
585 | #!perl -w |
8168e71f |
586 | use ExtUtils::Constant qw (constant_types C_constant XS_constant); |
587 | |
588 | my $types = {map {($_, 1)} qw(IV PV)}; |
589 | my @names = (qw(LOG_ALERT LOG_AUTH LOG_AUTHPRIV LOG_CONS LOG_CRIT LOG_CRON |
590 | LOG_DAEMON LOG_DEBUG LOG_EMERG LOG_ERR LOG_FACMASK LOG_FTP |
a650b841 |
591 | LOG_INFO LOG_KERN LOG_LOCAL0 LOG_LOCAL1 LOG_LOCAL2 LOG_LOCAL3 |
592 | LOG_LOCAL4 LOG_LOCAL5 LOG_LOCAL6 LOG_LOCAL7 LOG_LPR LOG_MAIL |
593 | LOG_NDELAY LOG_NEWS LOG_NOTICE LOG_NOWAIT LOG_ODELAY LOG_PERROR |
594 | LOG_PID LOG_SYSLOG LOG_USER LOG_UUCP LOG_WARNING), |
595 | {name=>"LOG_AUDIT", type=>"IV", default=>["IV", "LOG_AUTH"]}, |
596 | {name=>"LOG_CONSOLE", type=>"IV", default=>["IV", "LOG_USER"]}, |
597 | {name=>"LOG_INSTALL", type=>"IV", default=>["IV", "LOG_USER"]}, |
598 | {name=>"LOG_LAUNCHD", type=>"IV", default=>["IV", "LOG_DAEMON"]}, |
599 | {name=>"LOG_LFMT", type=>"IV", default=>["IV", "LOG_USER"]}, |
600 | {name=>"LOG_NETINFO", type=>"IV", default=>["IV", "LOG_DAEMON"]}, |
601 | {name=>"LOG_NFACILITIES", type=>"IV", default=>["IV", "30"]}, |
602 | {name=>"LOG_NTP", type=>"IV", default=>["IV", "LOG_DAEMON"]}, |
603 | {name=>"LOG_PRIMASK", type=>"IV", default=>["IV", "7"]}, |
604 | {name=>"LOG_RAS", type=>"IV", default=>["IV", "LOG_AUTH"]}, |
605 | {name=>"LOG_REMOTEAUTH", type=>"IV", default=>["IV", "LOG_AUTH"]}, |
606 | {name=>"LOG_SECURITY", type=>"IV", default=>["IV", "LOG_AUTH"]}, |
607 | {name=>"_PATH_LOG", type=>"PV", default=>["PV", "\"/var/run/syslog\""]}); |
8168e71f |
608 | |
609 | print constant_types(); # macro defs |
610 | foreach (C_constant ("Sys::Syslog", 'constant', 'IV', $types, undef, 3, @names) ) { |
611 | print $_, "\n"; # C constant subs |
612 | } |
613 | print "#### XS Section:\n"; |
614 | print XS_constant ("Sys::Syslog", $types); |
615 | __END__ |
616 | */ |
617 | |
618 | switch (len) { |
619 | case 7: |
620 | return constant_7 (aTHX_ name, iv_return); |
621 | break; |
622 | case 8: |
623 | return constant_8 (aTHX_ name, iv_return); |
624 | break; |
625 | case 9: |
626 | return constant_9 (aTHX_ name, iv_return, pv_return); |
627 | break; |
628 | case 10: |
629 | return constant_10 (aTHX_ name, iv_return); |
630 | break; |
631 | case 11: |
632 | return constant_11 (aTHX_ name, iv_return); |
633 | break; |
634 | case 12: |
a650b841 |
635 | /* Names all of length 12. */ |
636 | /* LOG_AUTHPRIV LOG_SECURITY */ |
637 | /* Offset 8 gives the best switch position. */ |
638 | switch (name[8]) { |
639 | case 'P': |
640 | if (memEQ(name, "LOG_AUTHPRIV", 12)) { |
641 | /* ^ */ |
8168e71f |
642 | #ifdef LOG_AUTHPRIV |
a650b841 |
643 | *iv_return = LOG_AUTHPRIV; |
644 | return PERL_constant_ISIV; |
8168e71f |
645 | #else |
a650b841 |
646 | return PERL_constant_NOTDEF; |
8168e71f |
647 | #endif |
a650b841 |
648 | } |
649 | break; |
650 | case 'R': |
651 | if (memEQ(name, "LOG_SECURITY", 12)) { |
652 | /* ^ */ |
653 | #ifdef LOG_SECURITY |
654 | *iv_return = LOG_SECURITY; |
655 | return PERL_constant_ISIV; |
656 | #else |
657 | *iv_return = LOG_AUTH; |
658 | return PERL_constant_ISIV; |
659 | #endif |
660 | } |
661 | break; |
8168e71f |
662 | } |
663 | break; |
6e4ef777 |
664 | case 14: |
665 | if (memEQ(name, "LOG_REMOTEAUTH", 14)) { |
666 | #ifdef LOG_REMOTEAUTH |
667 | *iv_return = LOG_REMOTEAUTH; |
668 | return PERL_constant_ISIV; |
669 | #else |
a650b841 |
670 | *iv_return = LOG_AUTH; |
671 | return PERL_constant_ISIV; |
6e4ef777 |
672 | #endif |
673 | } |
674 | break; |
8168e71f |
675 | case 15: |
676 | if (memEQ(name, "LOG_NFACILITIES", 15)) { |
677 | #ifdef LOG_NFACILITIES |
678 | *iv_return = LOG_NFACILITIES; |
679 | return PERL_constant_ISIV; |
680 | #else |
a650b841 |
681 | *iv_return = 30; |
682 | return PERL_constant_ISIV; |
8168e71f |
683 | #endif |
684 | } |
685 | break; |
686 | } |
687 | return PERL_constant_NOTFOUND; |
688 | } |
689 | |