ext/Sys/Syslog/Syslog.xs

   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 #include "const-c.inc"
  10
  11 MODULE = Sys::Syslog            PACKAGE = Sys::Syslog
  12
  13 INCLUDE: const-xs.inc
  14
  15 int
  16 LOG_FAC(p)
  17     INPUT:
  18         int             p
  19     CODE:
  20 #ifdef LOG_FAC
  21         RETVAL = LOG_FAC(p);
  22 #else
  23         croak("Your vendor has not defined the Sys::Syslog macro LOG_FAC");
  24         RETVAL = -1;
  25 #endif
  26     OUTPUT:
  27         RETVAL
  28
  29 int
  30 LOG_PRI(p)
  31     INPUT:
  32         int             p
  33     CODE:
  34 #ifdef LOG_PRI
  35         RETVAL = LOG_PRI(p);
  36 #else
  37         croak("Your vendor has not defined the Sys::Syslog macro LOG_PRI");
  38         RETVAL = -1;
  39 #endif
  40     OUTPUT:
  41         RETVAL
  42
  43 int
  44 LOG_MAKEPRI(fac,pri)
  45     INPUT:
  46         int             fac
  47         int             pri
  48     CODE:
  49 #ifdef LOG_MAKEPRI
  50         RETVAL = LOG_MAKEPRI(fac,pri);
  51 #else
  52         croak("Your vendor has not defined the Sys::Syslog macro LOG_MAKEPRI");
  53         RETVAL = -1;
  54 #endif
  55     OUTPUT:
  56         RETVAL
  57
  58 int
  59 LOG_MASK(pri)
  60     INPUT:
  61         int             pri
  62     CODE:
  63 #ifdef LOG_MASK
  64         RETVAL = LOG_MASK(pri);
  65 #else
  66         croak("Your vendor has not defined the Sys::Syslog macro LOG_MASK");
  67         RETVAL = -1;
  68 #endif
  69     OUTPUT:
  70         RETVAL
  71
  72 int
  73 LOG_UPTO(pri)
  74     INPUT:
  75         int             pri
  76     CODE:
  77 #ifdef LOG_UPTO
  78         RETVAL = LOG_UPTO(pri);
  79 #else
  80         croak("Your vendor has not defined the Sys::Syslog macro LOG_UPTO");
  81         RETVAL = -1;
  82 #endif
  83     OUTPUT:
  84         RETVAL