1 #include "EXTERN.h" 2 #include "perl.h" 3 #include "XSUB.h" 4 5 5 #ifdef I_SYSLOG 6 #include 7 #endif 8 9 5 #include "const-c.inc" 10 5 11 5 MODULE = Sys::Syslog PACKAGE = Sys::Syslog 12 13 5 INCLUDE: const-xs.inc 14 15 int 16 LOG_FAC(p) 17 INPUT: 18 int p 19 CODE: 20 5 #ifdef LOG_FAC 21 ###### RETVAL = LOG_FAC(p); 22 #else 23 5 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 4 #ifdef LOG_PRI 35 4 RETVAL = LOG_PRI(p); 36 4 #else 37 4 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 1 #else 52 1 croak("Your vendor has not defined the Sys::Syslog macro LOG_MAKEPRI"); 53 1 RETVAL = -1; 54 1 #endif 55 OUTPUT: 56 RETVAL 57 58 int 59 LOG_MASK(pri) 60 INPUT: 61 int pri 62 CODE: 63 #ifdef LOG_MASK 64 1 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 1 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 85 RETVAL