view release on metacpan or  search on metacpan

lib/AFS/PAG.xs  view on Meta::CPAN

#include <errno.h>

/* XS code below this point. */

MODULE = AFS::PAG       PACKAGE = AFS::PAG

PROTOTYPES: DISABLE

void
hasafs()
  PPCODE:
    if (k_hasafs())
        XSRETURN_YES;
    else
        XSRETURN_UNDEF;


void
haspag()
  PPCODE:
    if (k_haspag())
        XSRETURN_YES;
    else
        XSRETURN_UNDEF;


void
setpag()
  PPCODE:
    if (k_setpag() == 0)
        XSRETURN_YES;
    else
        croak("PAG creation failed: %s", strerror(errno));


void
unlog()
  PPCODE:
    if (k_unlog() == 0)
        XSRETURN_YES;
    else
        croak("Token deletion failed: %s", strerror(errno));