Syslog.xs revision 7c478bd95313f5f23a4c958a745db2134aa03244
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#ifdef I_SYSLOG
#include <syslog.h>
#endif
static double
{
switch (name[6 + 0]) {
case 'T':
#ifdef LOG_NOTICE
return LOG_NOTICE;
#else
goto not_there;
#endif
}
case 'W':
#ifdef LOG_NOWAIT
return LOG_NOWAIT;
#else
goto not_there;
#endif
}
}
return 0;
return 0;
}
static double
{
switch (name[5 + 0]) {
case 'D':
#ifdef LOG_NDELAY
return LOG_NDELAY;
#else
goto not_there;
#endif
}
case 'E':
#ifdef LOG_NEWS
return LOG_NEWS;
#else
goto not_there;
#endif
}
case 'F':
#ifdef LOG_NFACILITIES
return LOG_NFACILITIES;
#else
goto not_there;
#endif
}
case 'O':
}
return 0;
return 0;
}
static double
{
switch (name[5 + 0]) {
case 'I':
#ifdef LOG_PID
return LOG_PID;
#else
goto not_there;
#endif
}
case 'R':
#ifdef LOG_PRIMASK
return LOG_PRIMASK;
#else
goto not_there;
#endif
}
}
return 0;
return 0;
}
static double
{
return 0;
}
case '\0':
#ifdef LOG_AUTH
return LOG_AUTH;
#else
goto not_there;
#endif
}
case 'P':
#ifdef LOG_AUTHPRIV
return LOG_AUTHPRIV;
#else
goto not_there;
#endif
}
}
return 0;
return 0;
}
static double
{
switch (name[5 + 0]) {
case 'L':
#ifdef LOG_ALERT
return LOG_ALERT;
#else
goto not_there;
#endif
}
case 'U':
}
return 0;
return 0;
}
static double
{
switch (name[6 + 0]) {
case 'I':
#ifdef LOG_CRIT
return LOG_CRIT;
#else
goto not_there;
#endif
}
case 'O':
#ifdef LOG_CRON
return LOG_CRON;
#else
goto not_there;
#endif
}
}
return 0;
return 0;
}
static double
{
switch (name[5 + 0]) {
case 'O':
#ifdef LOG_CONS
return LOG_CONS;
#else
goto not_there;
#endif
}
case 'R':
}
return 0;
return 0;
}
static double
{
switch (name[5 + 0]) {
case 'A':
#ifdef LOG_DAEMON
return LOG_DAEMON;
#else
goto not_there;
#endif
}
case 'E':
#ifdef LOG_DEBUG
return LOG_DEBUG;
#else
goto not_there;
#endif
}
}
return 0;
return 0;
}
static double
{
switch (name[5 + 0]) {
case 'S':
#ifdef LOG_USER
return LOG_USER;
#else
goto not_there;
#endif
}
case 'U':
#ifdef LOG_UUCP
return LOG_UUCP;
#else
goto not_there;
#endif
}
}
return 0;
return 0;
}
static double
{
switch (name[5 + 0]) {
case 'M':
#ifdef LOG_EMERG
return LOG_EMERG;
#else
goto not_there;
#endif
}
case 'R':
#ifdef LOG_ERR
return LOG_ERR;
#else
goto not_there;
#endif
}
}
return 0;
return 0;
}
static double
{
switch (name[5 + 0]) {
case 'A':
#ifdef LOG_FACMASK
return LOG_FACMASK;
#else
goto not_there;
#endif
}
case 'T':
#ifdef LOG_FTP
return LOG_FTP;
#else
goto not_there;
#endif
}
}
return 0;
return 0;
}
static double
{
return 0;
}
case '0':
#ifdef LOG_LOCAL0
return LOG_LOCAL0;
#else
goto not_there;
#endif
}
case '1':
#ifdef LOG_LOCAL1
return LOG_LOCAL1;
#else
goto not_there;
#endif
}
case '2':
#ifdef LOG_LOCAL2
return LOG_LOCAL2;
#else
goto not_there;
#endif
}
case '3':
#ifdef LOG_LOCAL3
return LOG_LOCAL3;
#else
goto not_there;
#endif
}
case '4':
#ifdef LOG_LOCAL4
return LOG_LOCAL4;
#else
goto not_there;
#endif
}
case '5':
#ifdef LOG_LOCAL5
return LOG_LOCAL5;
#else
goto not_there;
#endif
}
case '6':
#ifdef LOG_LOCAL6
return LOG_LOCAL6;
#else
goto not_there;
#endif
}
case '7':
#ifdef LOG_LOCAL7
return LOG_LOCAL7;
#else
goto not_there;
#endif
}
}
return 0;
return 0;
}
static double
{
switch (name[5 + 0]) {
case 'F':
#ifdef LOG_LFMT
return LOG_LFMT;
#else
goto not_there;
#endif
}
case 'O':
case 'P':
#ifdef LOG_LPR
return LOG_LPR;
#else
goto not_there;
#endif
}
}
return 0;
return 0;
}
static double
{
errno = 0;
if (0 + 4 >= len ) {
return 0;
}
switch (name[0 + 4]) {
case 'A':
break;
case 'C':
break;
case 'D':
break;
case 'E':
break;
case 'F':
break;
case 'I':
#ifdef LOG_INFO
return LOG_INFO;
#else
goto not_there;
#endif
}
case 'K':
#ifdef LOG_KERN
return LOG_KERN;
#else
goto not_there;
#endif
}
case 'L':
break;
case 'M':
#ifdef LOG_MAIL
return LOG_MAIL;
#else
goto not_there;
#endif
}
case 'N':
break;
case 'O':
#ifdef LOG_ODELAY
return LOG_ODELAY;
#else
goto not_there;
#endif
}
case 'P':
break;
case 'S':
#ifdef LOG_SYSLOG
return LOG_SYSLOG;
#else
goto not_there;
#endif
}
case 'U':
break;
case 'W':
#ifdef LOG_WARNING
return LOG_WARNING;
#else
goto not_there;
#endif
}
}
return 0;
return 0;
}
char *
CODE:
#ifdef _PATH_LOG
#else
RETVAL = "";
#endif
int
LOG_FAC(p)
int p
CODE:
#ifdef LOG_FAC
#else
croak("Your vendor has not defined the Sys::Syslog macro LOG_FAC");
RETVAL = -1;
#endif
int
LOG_PRI(p)
int p
CODE:
#ifdef LOG_PRI
#else
croak("Your vendor has not defined the Sys::Syslog macro LOG_PRI");
RETVAL = -1;
#endif
int
int fac
int pri
CODE:
#ifdef LOG_MAKEPRI
#else
croak("Your vendor has not defined the Sys::Syslog macro LOG_MAKEPRI");
RETVAL = -1;
#endif
int
int pri
CODE:
#ifdef LOG_MASK
#else
croak("Your vendor has not defined the Sys::Syslog macro LOG_MASK");
RETVAL = -1;
#endif
int
int pri
CODE:
#ifdef LOG_UPTO
#else
croak("Your vendor has not defined the Sys::Syslog macro LOG_UPTO");
RETVAL = -1;
#endif
double
CODE: