view release on metacpan or  search on metacpan

login_base/login_base.xs  view on Meta::CPAN

#ifdef __cplusplus
extern "C" {
#endif
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#ifdef __cplusplus
}
#endif

#include <dce/sec_login.h>
#ifdef HPUX
#include <dce/sec_login_base.h>
#endif

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

static long
constant(name, arg)
char *name;
int arg;
{
    errno = 0;
    switch (*name) {
    case 'a':
	break;
    case 'b':
	if (strEQ(name, "base_v0_0_included"))
#ifdef sec_login_base_v0_0_included
	    return sec_login_base_v0_0_included;
#else
	    goto not_there;
#endif
	break;
    case 'c':
	if (strEQ(name, "credentials_private"))
#ifdef sec_login_credentials_private
	    return sec_login_credentials_private;
#else
	    goto not_there;
#endif
	break;
    case 'd':
	if (strEQ(name, "default_handle"))
#ifdef sec_login_default_handle
	    return sec_login_default_handle;
#else
	    goto not_there;
#endif
	break;
    case 'e':
	if (strEQ(name, "external_tgt"))
#ifdef sec_login_external_tgt
	    return sec_login_external_tgt;
#else
	    goto not_there;
#endif
	break;
    case 'f':
	break;
    case 'g':
	break;
    case 'h':
	break;
    case 'i':
	if (strEQ(name, "inherit_pag"))
#ifdef sec_login_inherit_pag
	    return sec_login_inherit_pag;
#else
	    goto not_there;
#endif
	break;
    case 'j':
	break;
    case 'k':
	break;
    case 'l':
	break;
    case 'm':
	if (strEQ(name, "machine_princ"))
#ifdef sec_login_machine_princ
	    return sec_login_machine_princ;
#else
	    goto not_there;
#endif
	break;
    case 'n':
	if (strEQ(name, "no_flags"))
#ifdef sec_login_no_flags
	    return sec_login_no_flags;
#else
	    goto not_there;
#endif
	break;
    case 'o':
	break;
    case 'p':
	if (strEQ(name, "proxy_cred"))