#include "EXTERN.h" #include "perl.h" #include "XSUB.h" 5 #ifdef I_SYSLOG #include #endif 5 #include "const-c.inc" 5 5 MODULE = Sys::Syslog PACKAGE = Sys::Syslog 5 INCLUDE: const-xs.inc int LOG_FAC(p) INPUT: int p CODE: 5 #ifdef LOG_FAC ###### RETVAL = LOG_FAC(p); #else 5 croak("Your vendor has not defined the Sys::Syslog macro LOG_FAC"); RETVAL = -1; ###### #endif ###### OUTPUT: ###### RETVAL ###### int LOG_PRI(p) ###### INPUT: ###### int p CODE: 4 #ifdef LOG_PRI 4 RETVAL = LOG_PRI(p); 4 #else 4 croak("Your vendor has not defined the Sys::Syslog macro LOG_PRI"); RETVAL = -1; #endif OUTPUT: RETVAL int LOG_MAKEPRI(fac,pri) INPUT: int fac int pri CODE: #ifdef LOG_MAKEPRI ###### RETVAL = LOG_MAKEPRI(fac,pri); 1 #else 1 croak("Your vendor has not defined the Sys::Syslog macro LOG_MAKEPRI"); 1 RETVAL = -1; 1 #endif OUTPUT: RETVAL int LOG_MASK(pri) INPUT: int pri CODE: #ifdef LOG_MASK 1 RETVAL = LOG_MASK(pri); #else croak("Your vendor has not defined the Sys::Syslog macro LOG_MASK"); RETVAL = -1; #endif OUTPUT: RETVAL int LOG_UPTO(pri) INPUT: int pri CODE: #ifdef LOG_UPTO 1 RETVAL = LOG_UPTO(pri); #else croak("Your vendor has not defined the Sys::Syslog macro LOG_UPTO"); RETVAL = -1; #endif ###### OUTPUT: RETVAL RETVAL