home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / ext / Sys / Syslog / Syslog.xs < prev   
Text File  |  2000-03-14  |  10KB  |  643 lines
  1. #include "EXTERN.h"
  2. #include "perl.h"
  3. #include "XSUB.h"
  4.  
  5. #ifdef I_SYSLOG
  6. #include <syslog.h>
  7. #endif
  8.  
  9. static double
  10. constant_LOG_NO(char *name, int len)
  11. {
  12.     switch (name[6 + 0]) {
  13.     case 'T':
  14.     if (strEQ(name + 6, "TICE")) {    /* LOG_NO removed */
  15. #ifdef LOG_NOTICE
  16.         return LOG_NOTICE;
  17. #else
  18.         goto not_there;
  19. #endif
  20.     }
  21.     case 'W':
  22.     if (strEQ(name + 6, "WAIT")) {    /* LOG_NO removed */
  23. #ifdef LOG_NOWAIT
  24.         return LOG_NOWAIT;
  25. #else
  26.         goto not_there;
  27. #endif
  28.     }
  29.     }
  30.     errno = EINVAL;
  31.     return 0;
  32.  
  33. not_there:
  34.     errno = ENOENT;
  35.     return 0;
  36. }
  37.  
  38. static double
  39. constant_LOG_N(char *name, int len)
  40. {
  41.     switch (name[5 + 0]) {
  42.     case 'D':
  43.     if (strEQ(name + 5, "DELAY")) {    /* LOG_N removed */
  44. #ifdef LOG_NDELAY
  45.         return LOG_NDELAY;
  46. #else
  47.         goto not_there;
  48. #endif
  49.     }
  50.     case 'E':
  51.     if (strEQ(name + 5, "EWS")) {    /* LOG_N removed */
  52. #ifdef LOG_NEWS
  53.         return LOG_NEWS;
  54. #else
  55.         goto not_there;
  56. #endif
  57.     }
  58.     case 'F':
  59.     if (strEQ(name + 5, "FACILITIES")) {    /* LOG_N removed */
  60. #ifdef LOG_NFACILITIES
  61.         return LOG_NFACILITIES;
  62. #else
  63.         goto not_there;
  64. #endif
  65.     }
  66.     case 'O':
  67.     return constant_LOG_NO(name, len);
  68.     }
  69.     errno = EINVAL;
  70.     return 0;
  71.  
  72. not_there:
  73.     errno = ENOENT;
  74.     return 0;
  75. }
  76.  
  77. static double
  78. constant_LOG_P(char *name, int len)
  79. {
  80.     switch (name[5 + 0]) {
  81.     case 'I':
  82.     if (strEQ(name + 5, "ID")) {    /* LOG_P removed */
  83. #ifdef LOG_PID
  84.         return LOG_PID;
  85. #else
  86.         goto not_there;
  87. #endif
  88.     }
  89.     case 'R':
  90.     if (strEQ(name + 5, "RIMASK")) {    /* LOG_P removed */
  91. #ifdef LOG_PRIMASK
  92.         return LOG_PRIMASK;
  93. #else
  94.         goto not_there;
  95. #endif
  96.     }
  97.     }
  98.     errno = EINVAL;
  99.     return 0;
  100.  
  101. not_there:
  102.     errno = ENOENT;
  103.     return 0;
  104. }
  105.  
  106. static double
  107. constant_LOG_AU(char *name, int len)
  108. {
  109.     if (6 + 2 >= len ) {
  110.     errno = EINVAL;
  111.     return 0;
  112.     }
  113.     switch (name[6 + 2]) {
  114.     case '\0':
  115.     if (strEQ(name + 6, "TH")) {    /* LOG_AU removed */
  116. #ifdef LOG_AUTH
  117.         return LOG_AUTH;
  118. #else
  119.         goto not_there;
  120. #endif
  121.     }
  122.     case 'P':
  123.     if (strEQ(name + 6, "THPRIV")) {    /* LOG_AU removed */
  124. #ifdef LOG_AUTHPRIV
  125.         return LOG_AUTHPRIV;
  126. #else
  127.         goto not_there;
  128. #endif
  129.     }
  130.     }
  131.     errno = EINVAL;
  132.     return 0;
  133.  
  134. not_there:
  135.     errno = ENOENT;
  136.     return 0;
  137. }
  138.  
  139. static double
  140. constant_LOG_A(char *name, int len)
  141. {
  142.     switch (name[5 + 0]) {
  143.     case 'L':
  144.     if (strEQ(name + 5, "LERT")) {    /* LOG_A removed */
  145. #ifdef LOG_ALERT
  146.         return LOG_ALERT;
  147. #else
  148.         goto not_there;
  149. #endif
  150.     }
  151.     case 'U':
  152.     return constant_LOG_AU(name, len);
  153.     }
  154.     errno = EINVAL;
  155.     return 0;
  156.  
  157. not_there:
  158.     errno = ENOENT;
  159.     return 0;
  160. }
  161.  
  162. static double
  163. constant_LOG_CR(char *name, int len)
  164. {
  165.     switch (name[6 + 0]) {
  166.     case 'I':
  167.     if (strEQ(name + 6, "IT")) {    /* LOG_CR removed */
  168. #ifdef LOG_CRIT
  169.         return LOG_CRIT;
  170. #else
  171.         goto not_there;
  172. #endif
  173.     }
  174.     case 'O':
  175.     if (strEQ(name + 6, "ON")) {    /* LOG_CR removed */
  176. #ifdef LOG_CRON
  177.         return LOG_CRON;
  178. #else
  179.         goto not_there;
  180. #endif
  181.     }
  182.     }
  183.     errno = EINVAL;
  184.     return 0;
  185.  
  186. not_there:
  187.     errno = ENOENT;
  188.     return 0;
  189. }
  190.  
  191. static double
  192. constant_LOG_C(char *name, int len)
  193. {
  194.     switch (name[5 + 0]) {
  195.     case 'O':
  196.     if (strEQ(name + 5, "ONS")) {    /* LOG_C removed */
  197. #ifdef LOG_CONS
  198.         return LOG_CONS;
  199. #else
  200.         goto not_there;
  201. #endif
  202.     }
  203.     case 'R':
  204.     return constant_LOG_CR(name, len);
  205.     }
  206.     errno = EINVAL;
  207.     return 0;
  208.  
  209. not_there:
  210.     errno = ENOENT;
  211.     return 0;
  212. }
  213.  
  214. static double
  215. constant_LOG_D(char *name, int len)
  216. {
  217.     switch (name[5 + 0]) {
  218.     case 'A':
  219.     if (strEQ(name + 5, "AEMON")) {    /* LOG_D removed */
  220. #ifdef LOG_DAEMON
  221.         return LOG_DAEMON;
  222. #else
  223.         goto not_there;
  224. #endif
  225.     }
  226.     case 'E':
  227.     if (strEQ(name + 5, "EBUG")) {    /* LOG_D removed */
  228. #ifdef LOG_DEBUG
  229.         return LOG_DEBUG;
  230. #else
  231.         goto not_there;
  232. #endif
  233.     }
  234.     }
  235.     errno = EINVAL;
  236.     return 0;
  237.  
  238. not_there:
  239.     errno = ENOENT;
  240.     return 0;
  241. }
  242.  
  243. static double
  244. constant_LOG_U(char *name, int len)
  245. {
  246.     switch (name[5 + 0]) {
  247.     case 'S':
  248.     if (strEQ(name + 5, "SER")) {    /* LOG_U removed */
  249. #ifdef LOG_USER
  250.         return LOG_USER;
  251. #else
  252.         goto not_there;
  253. #endif
  254.     }
  255.     case 'U':
  256.     if (strEQ(name + 5, "UCP")) {    /* LOG_U removed */
  257. #ifdef LOG_UUCP
  258.         return LOG_UUCP;
  259. #else
  260.         goto not_there;
  261. #endif
  262.     }
  263.     }
  264.     errno = EINVAL;
  265.     return 0;
  266.  
  267. not_there:
  268.     errno = ENOENT;
  269.     return 0;
  270. }
  271.  
  272. static double
  273. constant_LOG_E(char *name, int len)
  274. {
  275.     switch (name[5 + 0]) {
  276.     case 'M':
  277.     if (strEQ(name + 5, "MERG")) {    /* LOG_E removed */
  278. #ifdef LOG_EMERG
  279.         return LOG_EMERG;
  280. #else
  281.         goto not_there;
  282. #endif
  283.     }
  284.     case 'R':
  285.     if (strEQ(name + 5, "RR")) {    /* LOG_E removed */
  286. #ifdef LOG_ERR
  287.         return LOG_ERR;
  288. #else
  289.         goto not_there;
  290. #endif
  291.     }
  292.     }
  293.     errno = EINVAL;
  294.     return 0;
  295.  
  296. not_there:
  297.     errno = ENOENT;
  298.     return 0;
  299. }
  300.  
  301. static double
  302. constant_LOG_F(char *name, int len)
  303. {
  304.     switch (name[5 + 0]) {
  305.     case 'A':
  306.     if (strEQ(name + 5, "ACMASK")) {    /* LOG_F removed */
  307. #ifdef LOG_FACMASK
  308.         return LOG_FACMASK;
  309. #else
  310.         goto not_there;
  311. #endif
  312.     }
  313.     case 'T':
  314.     if (strEQ(name + 5, "TP")) {    /* LOG_F removed */
  315. #ifdef LOG_FTP
  316.         return LOG_FTP;
  317. #else
  318.         goto not_there;
  319. #endif
  320.     }
  321.     }
  322.     errno = EINVAL;
  323.     return 0;
  324.  
  325. not_there:
  326.     errno = ENOENT;
  327.     return 0;
  328. }
  329.  
  330. static double
  331. constant_LOG_LO(char *name, int len)
  332. {
  333.     if (6 + 3 >= len ) {
  334.     errno = EINVAL;
  335.     return 0;
  336.     }
  337.     switch (name[6 + 3]) {
  338.     case '0':
  339.     if (strEQ(name + 6, "CAL0")) {    /* LOG_LO removed */
  340. #ifdef LOG_LOCAL0
  341.         return LOG_LOCAL0;
  342. #else
  343.         goto not_there;
  344. #endif
  345.     }
  346.     case '1':
  347.     if (strEQ(name + 6, "CAL1")) {    /* LOG_LO removed */
  348. #ifdef LOG_LOCAL1
  349.         return LOG_LOCAL1;
  350. #else
  351.         goto not_there;
  352. #endif
  353.     }
  354.     case '2':
  355.     if (strEQ(name + 6, "CAL2")) {    /* LOG_LO removed */
  356. #ifdef LOG_LOCAL2
  357.         return LOG_LOCAL2;
  358. #else
  359.         goto not_there;
  360. #endif
  361.     }
  362.     case '3':
  363.     if (strEQ(name + 6, "CAL3")) {    /* LOG_LO removed */
  364. #ifdef LOG_LOCAL3
  365.         return LOG_LOCAL3;
  366. #else
  367.         goto not_there;
  368. #endif
  369.     }
  370.     case '4':
  371.     if (strEQ(name + 6, "CAL4")) {    /* LOG_LO removed */
  372. #ifdef LOG_LOCAL4
  373.         return LOG_LOCAL4;
  374. #else
  375.         goto not_there;
  376. #endif
  377.     }
  378.     case '5':
  379.     if (strEQ(name + 6, "CAL5")) {    /* LOG_LO removed */
  380. #ifdef LOG_LOCAL5
  381.         return LOG_LOCAL5;
  382. #else
  383.         goto not_there;
  384. #endif
  385.     }
  386.     case '6':
  387.     if (strEQ(name + 6, "CAL6")) {    /* LOG_LO removed */
  388. #ifdef LOG_LOCAL6
  389.         return LOG_LOCAL6;
  390. #else
  391.         goto not_there;
  392. #endif
  393.     }
  394.     case '7':
  395.     if (strEQ(name + 6, "CAL7")) {    /* LOG_LO removed */
  396. #ifdef LOG_LOCAL7
  397.         return LOG_LOCAL7;
  398. #else
  399.         goto not_there;
  400. #endif
  401.     }
  402.     }
  403.     errno = EINVAL;
  404.     return 0;
  405.  
  406. not_there:
  407.     errno = ENOENT;
  408.     return 0;
  409. }
  410.  
  411. static double
  412. constant_LOG_L(char *name, int len)
  413. {
  414.     switch (name[5 + 0]) {
  415.     case 'F':
  416.     if (strEQ(name + 5, "FMT")) {    /* LOG_L removed */
  417. #ifdef LOG_LFMT
  418.         return LOG_LFMT;
  419. #else
  420.         goto not_there;
  421. #endif
  422.     }
  423.     case 'O':
  424.     return constant_LOG_LO(name, len);
  425.     case 'P':
  426.     if (strEQ(name + 5, "PR")) {    /* LOG_L removed */
  427. #ifdef LOG_LPR
  428.         return LOG_LPR;
  429. #else
  430.         goto not_there;
  431. #endif
  432.     }
  433.     }
  434.     errno = EINVAL;
  435.     return 0;
  436.  
  437. not_there:
  438.     errno = ENOENT;
  439.     return 0;
  440. }
  441.  
  442. static double
  443. constant(char *name, int len)
  444. {
  445.     errno = 0;
  446.     if (0 + 4 >= len ) {
  447.     errno = EINVAL;
  448.     return 0;
  449.     }
  450.     switch (name[0 + 4]) {
  451.     case 'A':
  452.     if (!strnEQ(name + 0,"LOG_", 4))
  453.         break;
  454.     return constant_LOG_A(name, len);
  455.     case 'C':
  456.     if (!strnEQ(name + 0,"LOG_", 4))
  457.         break;
  458.     return constant_LOG_C(name, len);
  459.     case 'D':
  460.     if (!strnEQ(name + 0,"LOG_", 4))
  461.         break;
  462.     return constant_LOG_D(name, len);
  463.     case 'E':
  464.     if (!strnEQ(name + 0,"LOG_", 4))
  465.         break;
  466.     return constant_LOG_E(name, len);
  467.     case 'F':
  468.     if (!strnEQ(name + 0,"LOG_", 4))
  469.         break;
  470.     return constant_LOG_F(name, len);
  471.     case 'I':
  472.     if (strEQ(name + 0, "LOG_INFO")) {    /*  removed */
  473. #ifdef LOG_INFO
  474.         return LOG_INFO;
  475. #else
  476.         goto not_there;
  477. #endif
  478.     }
  479.     case 'K':
  480.     if (strEQ(name + 0, "LOG_KERN")) {    /*  removed */
  481. #ifdef LOG_KERN
  482.         return LOG_KERN;
  483. #else
  484.         goto not_there;
  485. #endif
  486.     }
  487.     case 'L':
  488.     if (!strnEQ(name + 0,"LOG_", 4))
  489.         break;
  490.     return constant_LOG_L(name, len);
  491.     case 'M':
  492.     if (strEQ(name + 0, "LOG_MAIL")) {    /*  removed */
  493. #ifdef LOG_MAIL
  494.         return LOG_MAIL;
  495. #else
  496.         goto not_there;
  497. #endif
  498.     }
  499.     case 'N':
  500.     if (!strnEQ(name + 0,"LOG_", 4))
  501.         break;
  502.     return constant_LOG_N(name, len);
  503.     case 'O':
  504.     if (strEQ(name + 0, "LOG_ODELAY")) {    /*  removed */
  505. #ifdef LOG_ODELAY
  506.         return LOG_ODELAY;
  507. #else
  508.         goto not_there;
  509. #endif
  510.     }
  511.     case 'P':
  512.     if (!strnEQ(name + 0,"LOG_", 4))
  513.         break;
  514.     return constant_LOG_P(name, len);
  515.     case 'S':
  516.     if (strEQ(name + 0, "LOG_SYSLOG")) {    /*  removed */
  517. #ifdef LOG_SYSLOG
  518.         return LOG_SYSLOG;
  519. #else
  520.         goto not_there;
  521. #endif
  522.     }
  523.     case 'U':
  524.     if (!strnEQ(name + 0,"LOG_", 4))
  525.         break;
  526.     return constant_LOG_U(name, len);
  527.     case 'W':
  528.     if (strEQ(name + 0, "LOG_WARNING")) {    /*  removed */
  529. #ifdef LOG_WARNING
  530.         return LOG_WARNING;
  531. #else
  532.         goto not_there;
  533. #endif
  534.     }
  535.     }
  536.     errno = EINVAL;
  537.     return 0;
  538.  
  539. not_there:
  540.     errno = ENOENT;
  541.     return 0;
  542. }
  543.  
  544.  
  545. MODULE = Sys::Syslog        PACKAGE = Sys::Syslog        
  546.  
  547. char *
  548. _PATH_LOG()
  549.     CODE:
  550. #ifdef _PATH_LOG
  551.     RETVAL = _PATH_LOG;
  552. #else
  553.     croak("Your vendor has not defined the Sys::Syslog macro _PATH_LOG");
  554.     RETVAL = NULL;
  555. #endif
  556.     OUTPUT:
  557.     RETVAL
  558.  
  559. int
  560. LOG_FAC(p)
  561.     INPUT:
  562.     int        p
  563.     CODE:
  564. #ifdef LOG_FAC
  565.     RETVAL = LOG_FAC(p);
  566. #else
  567.     croak("Your vendor has not defined the Sys::Syslog macro LOG_FAC");
  568.     RETVAL = -1;
  569. #endif
  570.     OUTPUT:
  571.     RETVAL
  572.  
  573. int
  574. LOG_PRI(p)
  575.     INPUT:
  576.     int        p
  577.     CODE:
  578. #ifdef LOG_PRI
  579.     RETVAL = LOG_PRI(p);
  580. #else
  581.     croak("Your vendor has not defined the Sys::Syslog macro LOG_PRI");
  582.     RETVAL = -1;
  583. #endif
  584.     OUTPUT:
  585.     RETVAL
  586.  
  587. int
  588. LOG_MAKEPRI(fac,pri)
  589.     INPUT:
  590.     int        fac
  591.     int        pri
  592.     CODE:
  593. #ifdef LOG_MAKEPRI
  594.     RETVAL = LOG_MAKEPRI(fac,pri);
  595. #else
  596.     croak("Your vendor has not defined the Sys::Syslog macro LOG_MAKEPRI");
  597.     RETVAL = -1;
  598. #endif
  599.     OUTPUT:
  600.     RETVAL
  601.  
  602. int
  603. LOG_MASK(pri)
  604.     INPUT:
  605.     int        pri
  606.     CODE:
  607. #ifdef LOG_MASK
  608.     RETVAL = LOG_MASK(pri);
  609. #else
  610.     croak("Your vendor has not defined the Sys::Syslog macro LOG_MASK");
  611.     RETVAL = -1;
  612. #endif
  613.     OUTPUT:
  614.     RETVAL
  615.  
  616. int
  617. LOG_UPTO(pri)
  618.     INPUT:
  619.     int        pri
  620.     CODE:
  621. #ifdef LOG_UPTO
  622.     RETVAL = LOG_UPTO(pri);
  623. #else
  624.     croak("Your vendor has not defined the Sys::Syslog macro LOG_UPTO");
  625.     RETVAL = -1;
  626. #endif
  627.     OUTPUT:
  628.     RETVAL
  629.  
  630.  
  631. double
  632. constant(sv)
  633.     PREINIT:
  634.     STRLEN        len;
  635.     INPUT:
  636.     SV *        sv
  637.     char *        s = SvPV(sv, len);
  638.     CODE:
  639.     RETVAL = constant(s,len);
  640.     OUTPUT:
  641.     RETVAL
  642.  
  643.