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
14 typedef double NV; /* 5.6 and later define NVTYPE, and typedef NV to it. */
17 #define aTHX_ /* 5.6 or later define this for threading support. */
20 #define pTHX_ /* 5.6 or later define this for threading support. */
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.
27 LOG_ERR LOG_FTP LOG_LPR LOG_NTP LOG_PID LOG_RAS */
28 /* Offset 4 gives the best switch position. */
31 if (memEQ(name, "LOG_ERR", 7)) {
35 return PERL_constant_ISIV;
37 return PERL_constant_NOTDEF;
42 if (memEQ(name, "LOG_FTP", 7)) {
46 return PERL_constant_ISIV;
48 return PERL_constant_NOTDEF;
53 if (memEQ(name, "LOG_LPR", 7)) {
57 return PERL_constant_ISIV;
59 return PERL_constant_NOTDEF;
64 if (memEQ(name, "LOG_NTP", 7)) {
68 return PERL_constant_ISIV;
70 *iv_return = LOG_DAEMON;
71 return PERL_constant_ISIV;
76 if (memEQ(name, "LOG_PID", 7)) {
80 return PERL_constant_ISIV;
82 return PERL_constant_NOTDEF;
87 if (memEQ(name, "LOG_RAS", 7)) {
91 return PERL_constant_ISIV;
93 *iv_return = LOG_AUTH;
94 return PERL_constant_ISIV;
99 return PERL_constant_NOTFOUND;
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. */
111 if (memEQ(name, "LOG_UUCP", 8)) {
114 *iv_return = LOG_UUCP;
115 return PERL_constant_ISIV;
117 return PERL_constant_NOTDEF;
122 if (memEQ(name, "LOG_USER", 8)) {
125 *iv_return = LOG_USER;
126 return PERL_constant_ISIV;
128 return PERL_constant_NOTDEF;
133 if (memEQ(name, "LOG_INFO", 8)) {
136 *iv_return = LOG_INFO;
137 return PERL_constant_ISIV;
139 return PERL_constant_NOTDEF;
144 if (memEQ(name, "LOG_CRIT", 8)) {
147 *iv_return = LOG_CRIT;
148 return PERL_constant_ISIV;
150 return PERL_constant_NOTDEF;
153 if (memEQ(name, "LOG_MAIL", 8)) {
156 *iv_return = LOG_MAIL;
157 return PERL_constant_ISIV;
159 return PERL_constant_NOTDEF;
164 if (memEQ(name, "LOG_LFMT", 8)) {
167 *iv_return = LOG_LFMT;
168 return PERL_constant_ISIV;
170 *iv_return = LOG_USER;
171 return PERL_constant_ISIV;
176 if (memEQ(name, "LOG_CONS", 8)) {
179 *iv_return = LOG_CONS;
180 return PERL_constant_ISIV;
182 return PERL_constant_NOTDEF;
187 if (memEQ(name, "LOG_CRON", 8)) {
190 *iv_return = LOG_CRON;
191 return PERL_constant_ISIV;
193 return PERL_constant_NOTDEF;
198 if (memEQ(name, "LOG_KERN", 8)) {
201 *iv_return = LOG_KERN;
202 return PERL_constant_ISIV;
204 return PERL_constant_NOTDEF;
209 if (memEQ(name, "LOG_AUTH", 8)) {
212 *iv_return = LOG_AUTH;
213 return PERL_constant_ISIV;
215 return PERL_constant_NOTDEF;
220 if (memEQ(name, "LOG_NEWS", 8)) {
223 *iv_return = LOG_NEWS;
224 return PERL_constant_ISIV;
226 return PERL_constant_NOTDEF;
231 return PERL_constant_NOTFOUND;
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.
238 LOG_ALERT LOG_AUDIT LOG_DEBUG LOG_EMERG _PATH_LOG */
239 /* Offset 5 gives the best switch position. */
242 if (memEQ(name, "LOG_DEBUG", 9)) {
245 *iv_return = LOG_DEBUG;
246 return PERL_constant_ISIV;
248 return PERL_constant_NOTDEF;
253 if (memEQ(name, "LOG_ALERT", 9)) {
256 *iv_return = LOG_ALERT;
257 return PERL_constant_ISIV;
259 return PERL_constant_NOTDEF;
264 if (memEQ(name, "LOG_EMERG", 9)) {
267 *iv_return = LOG_EMERG;
268 return PERL_constant_ISIV;
270 return PERL_constant_NOTDEF;
275 if (memEQ(name, "LOG_AUDIT", 9)) {
278 *iv_return = LOG_AUDIT;
279 return PERL_constant_ISIV;
281 *iv_return = LOG_AUTH;
282 return PERL_constant_ISIV;
287 if (memEQ(name, "_PATH_LOG", 9)) {
290 *pv_return = _PATH_LOG;
291 return PERL_constant_ISPV;
293 *pv_return = "/var/run/syslog";
294 return PERL_constant_ISPV;
299 return PERL_constant_NOTFOUND;
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. */
312 if (memEQ(name, "LOG_LOCAL", 9)) {
315 *iv_return = LOG_LOCAL0;
316 return PERL_constant_ISIV;
318 return PERL_constant_NOTDEF;
323 if (memEQ(name, "LOG_LOCAL", 9)) {
326 *iv_return = LOG_LOCAL1;
327 return PERL_constant_ISIV;
329 return PERL_constant_NOTDEF;
334 if (memEQ(name, "LOG_LOCAL", 9)) {
337 *iv_return = LOG_LOCAL2;
338 return PERL_constant_ISIV;
340 return PERL_constant_NOTDEF;
345 if (memEQ(name, "LOG_LOCAL", 9)) {
348 *iv_return = LOG_LOCAL3;
349 return PERL_constant_ISIV;
351 return PERL_constant_NOTDEF;
356 if (memEQ(name, "LOG_LOCAL", 9)) {
359 *iv_return = LOG_LOCAL4;
360 return PERL_constant_ISIV;
362 return PERL_constant_NOTDEF;
367 if (memEQ(name, "LOG_LOCAL", 9)) {
370 *iv_return = LOG_LOCAL5;
371 return PERL_constant_ISIV;
373 return PERL_constant_NOTDEF;
378 if (memEQ(name, "LOG_LOCAL", 9)) {
381 *iv_return = LOG_LOCAL6;
382 return PERL_constant_ISIV;
384 return PERL_constant_NOTDEF;
389 if (memEQ(name, "LOG_LOCAL", 9)) {
392 *iv_return = LOG_LOCAL7;
393 return PERL_constant_ISIV;
395 return PERL_constant_NOTDEF;
400 if (memEQ(name, "LOG_NOTIC", 9)) {
403 *iv_return = LOG_NOTICE;
404 return PERL_constant_ISIV;
406 return PERL_constant_NOTDEF;
411 if (memEQ(name, "LOG_SYSLO", 9)) {
414 *iv_return = LOG_SYSLOG;
415 return PERL_constant_ISIV;
417 return PERL_constant_NOTDEF;
422 if (memEQ(name, "LOG_DAEMO", 9)) {
425 *iv_return = LOG_DAEMON;
426 return PERL_constant_ISIV;
428 return PERL_constant_NOTDEF;
433 if (memEQ(name, "LOG_PERRO", 9)) {
436 *iv_return = LOG_PERROR;
437 return PERL_constant_ISIV;
439 return PERL_constant_NOTDEF;
444 if (memEQ(name, "LOG_NOWAI", 9)) {
447 *iv_return = LOG_NOWAIT;
448 return PERL_constant_ISIV;
450 return PERL_constant_NOTDEF;
455 if (memEQ(name, "LOG_NDELA", 9)) {
458 *iv_return = LOG_NDELAY;
459 return PERL_constant_ISIV;
461 return PERL_constant_NOTDEF;
464 if (memEQ(name, "LOG_ODELA", 9)) {
467 *iv_return = LOG_ODELAY;
468 return PERL_constant_ISIV;
470 return PERL_constant_NOTDEF;
475 return PERL_constant_NOTFOUND;
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.
482 LOG_CONSOLE LOG_FACMASK LOG_INSTALL LOG_LAUNCHD LOG_NETINFO LOG_PRIMASK
484 /* Offset 6 gives the best switch position. */
487 if (memEQ(name, "LOG_FACMASK", 11)) {
490 *iv_return = LOG_FACMASK;
491 return PERL_constant_ISIV;
493 return PERL_constant_NOTDEF;
498 if (memEQ(name, "LOG_PRIMASK", 11)) {
501 *iv_return = LOG_PRIMASK;
502 return PERL_constant_ISIV;
505 return PERL_constant_ISIV;
510 if (memEQ(name, "LOG_CONSOLE", 11)) {
513 *iv_return = LOG_CONSOLE;
514 return PERL_constant_ISIV;
516 *iv_return = LOG_USER;
517 return PERL_constant_ISIV;
522 if (memEQ(name, "LOG_WARNING", 11)) {
525 *iv_return = LOG_WARNING;
526 return PERL_constant_ISIV;
528 return PERL_constant_NOTDEF;
533 if (memEQ(name, "LOG_INSTALL", 11)) {
536 *iv_return = LOG_INSTALL;
537 return PERL_constant_ISIV;
539 *iv_return = LOG_USER;
540 return PERL_constant_ISIV;
545 if (memEQ(name, "LOG_NETINFO", 11)) {
548 *iv_return = LOG_NETINFO;
549 return PERL_constant_ISIV;
551 *iv_return = LOG_DAEMON;
552 return PERL_constant_ISIV;
557 if (memEQ(name, "LOG_LAUNCHD", 11)) {
560 *iv_return = LOG_LAUNCHD;
561 return PERL_constant_ISIV;
563 *iv_return = LOG_DAEMON;
564 return PERL_constant_ISIV;
569 return PERL_constant_NOTFOUND;
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.
582 Regenerate these constant functions by feeding this entire source file to
586 use ExtUtils::Constant qw (constant_types C_constant XS_constant);
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
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\""]});
609 print constant_types(); # macro defs
610 foreach (C_constant ("Sys::Syslog", 'constant', 'IV', $types, undef, 3, @names) ) {
611 print $_, "\n"; # C constant subs
613 print "#### XS Section:\n";
614 print XS_constant ("Sys::Syslog", $types);
620 return constant_7 (aTHX_ name, iv_return);
623 return constant_8 (aTHX_ name, iv_return);
626 return constant_9 (aTHX_ name, iv_return, pv_return);
629 return constant_10 (aTHX_ name, iv_return);
632 return constant_11 (aTHX_ name, iv_return);
635 /* Names all of length 12. */
636 /* LOG_AUTHPRIV LOG_SECURITY */
637 /* Offset 8 gives the best switch position. */
640 if (memEQ(name, "LOG_AUTHPRIV", 12)) {
643 *iv_return = LOG_AUTHPRIV;
644 return PERL_constant_ISIV;
646 return PERL_constant_NOTDEF;
651 if (memEQ(name, "LOG_SECURITY", 12)) {
654 *iv_return = LOG_SECURITY;
655 return PERL_constant_ISIV;
657 *iv_return = LOG_AUTH;
658 return PERL_constant_ISIV;
665 if (memEQ(name, "LOG_REMOTEAUTH", 14)) {
666 #ifdef LOG_REMOTEAUTH
667 *iv_return = LOG_REMOTEAUTH;
668 return PERL_constant_ISIV;
670 *iv_return = LOG_AUTH;
671 return PERL_constant_ISIV;
676 if (memEQ(name, "LOG_NFACILITIES", 15)) {
677 #ifdef LOG_NFACILITIES
678 *iv_return = LOG_NFACILITIES;
679 return PERL_constant_ISIV;
682 return PERL_constant_ISIV;
687 return PERL_constant_NOTFOUND;