view release on metacpan or  search on metacpan

Itimer.xs  view on Meta::CPAN

#include "XSUB.h"
#ifdef __cplusplus
}
#endif

#include <sys/time.h>

static char *rcs_id = "$Id: Itimer.xs,v 1.2 1999/07/28 02:26:50 hag Exp $";

static int
not_here(s)
char *s;
{
    croak("%s not implemented on this architecture", s);
    return -1;
}

static double
constant(name, arg)
char *name;
int arg;
{
    errno = 0;
    switch (*name) {
    case 'I':
	if (strEQ(name, "ITIMER_PROF"))
#ifdef ITIMER_PROF
	    return ITIMER_PROF;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ITIMER_REAL"))
#ifdef ITIMER_REAL
	    return ITIMER_REAL;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ITIMER_REALPROF"))
#ifdef ITIMER_REALPROF
	    return ITIMER_REALPROF;
#else
	    goto not_there;
#endif
	if (strEQ(name, "ITIMER_VIRTUAL"))
#ifdef ITIMER_VIRTUAL
	    return ITIMER_VIRTUAL;
#else
	    goto not_there;
#endif
	break;
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

MODULE = BSD::Itimer		PACKAGE = BSD::Itimer

PROTOTYPES: enable

double
constant(name,arg)