view release on metacpan or  search on metacpan

PerlSDK.xs  view on Meta::CPAN

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

#include "avs.h"

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 'A':
	if (strEQ(name, "AVS_ADDDOC_IO_ERR"))
#ifdef AVS_ADDDOC_IO_ERR
	    return AVS_ADDDOC_IO_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_BADARGS_ERR"))
#ifdef AVS_BADARGS_ERR
	    return AVS_BADARGS_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_CHARSET_ASCII8"))
#ifdef AVS_CHARSET_ASCII8
	    return AVS_CHARSET_ASCII8;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_CHARSET_LATIN1"))
#ifdef AVS_CHARSET_LATIN1
	    return AVS_CHARSET_LATIN1;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_CHARSET_UTF8"))
#ifdef AVS_CHARSET_UTF8
	    return AVS_CHARSET_UTF8;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_COMPACT_IO_ERR"))
#ifdef AVS_COMPACT_IO_ERR
	    return AVS_COMPACT_IO_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_COUNTS_ERR"))
#ifdef AVS_COUNTS_ERR
	    return AVS_COUNTS_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_DATE_ERR"))
#ifdef AVS_DATE_ERR
	    return AVS_DATE_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_DOCDATA_ERR"))
#ifdef AVS_DOCDATA_ERR
	    return AVS_DOCDATA_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_DOCID_ERR"))
#ifdef AVS_DOCID_ERR
	    return AVS_DOCID_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_DOCLIST_ERR"))
#ifdef AVS_DOCLIST_ERR
	    return AVS_DOCLIST_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_DOC_EXISTS"))
#ifdef AVS_DOC_EXISTS
	    return AVS_DOC_EXISTS;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_DOC_LIMIT_ERR"))
#ifdef AVS_DOC_LIMIT_ERR
	    return AVS_DOC_LIMIT_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_DOC_NOTFOUND"))
#ifdef AVS_DOC_NOTFOUND
	    return AVS_DOC_NOTFOUND;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_FIELD_ERR"))
#ifdef AVS_FIELD_ERR
	    return AVS_FIELD_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_FILTER_ERR"))
#ifdef AVS_FILTER_ERR
	    return AVS_FILTER_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_GETDATA_ERR"))
#ifdef AVS_GETDATA_ERR
	    return AVS_GETDATA_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_INDEX_ERR"))
#ifdef AVS_INDEX_ERR
	    return AVS_INDEX_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_LICENSE_EXPIRED"))
#ifdef AVS_LICENSE_EXPIRED
	    return AVS_LICENSE_EXPIRED;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_LOCK_ERR"))
#ifdef AVS_LOCK_ERR
	    return AVS_LOCK_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_MALLOC_ERR"))
#ifdef AVS_MALLOC_ERR
	    return AVS_MALLOC_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_MAX_BUCKETS"))
#ifdef AVS_MAX_BUCKETS
	    return AVS_MAX_BUCKETS;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_MAX_DOCDATA"))
#ifdef AVS_MAX_DOCDATA
	    return AVS_MAX_DOCDATA;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_MAX_DOCID"))
#ifdef AVS_MAX_DOCID
	    return AVS_MAX_DOCID;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_MAX_TIERS"))
#ifdef AVS_MAX_TIERS
	    return AVS_MAX_TIERS;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_MAX_WORDSIZE"))
#ifdef AVS_MAX_WORDSIZE
	    return AVS_MAX_WORDSIZE;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_MKSTABLE_IO_ERR"))
#ifdef AVS_MKSTABLE_IO_ERR
	    return AVS_MKSTABLE_IO_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_MKVIS_IO_ERR"))
#ifdef AVS_MKVIS_IO_ERR
	    return AVS_MKVIS_IO_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_NOMORE_WORDS"))
#ifdef AVS_NOMORE_WORDS
	    return AVS_NOMORE_WORDS;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_OK"))
#ifdef AVS_OK
	    return AVS_OK;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_OPEN_ERR"))
#ifdef AVS_OPEN_ERR
	    return AVS_OPEN_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_OPTION_RANKBYDATE"))
#ifdef AVS_OPTION_RANKBYDATE
	    return AVS_OPTION_RANKBYDATE;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_OPTION_SEARCHBYDATE"))
#ifdef AVS_OPTION_SEARCHBYDATE
	    return AVS_OPTION_SEARCHBYDATE;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_OPTION_SEARCHSINCE"))
#ifdef AVS_OPTION_SEARCHSINCE
	    return AVS_OPTION_SEARCHSINCE;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_OPTION_NOBLOCK"))
#ifdef AVS_OPTION_NOBLOCK
	    return AVS_OPTION_NOBLOCK;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_OPTION_INDEX_CJK_CHARS_AS_WORDS"))
#ifdef AVS_OPTION_INDEX_CJK_CHARS_AS_WORDS
	    return AVS_OPTION_INDEX_CJK_CHARS_AS_WORDS;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_OPTION_NOPROXIMITY"))
#ifdef AVS_OPTION_NOPROXIMITY
	    return AVS_OPTION_NOPROXIMITY;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_OPT_FLAGS_RANK_TO_BOOL"))
#ifdef AVS_OPT_FLAGS_RANK_TO_BOOL
	    return AVS_OPT_FLAGS_RANK_TO_BOOL;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_PARSE_ERR"))
#ifdef AVS_PARSE_ERR
	    return AVS_PARSE_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_PARSE_SGML"))
#ifdef AVS_PARSE_SGML
	    return AVS_PARSE_SGML;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_RESULTNUM_ERR"))
#ifdef AVS_RESULTNUM_ERR
	    return AVS_RESULTNUM_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_SEARCH_ERR"))
#ifdef AVS_SEARCH_ERR
	    return AVS_SEARCH_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_STARTDOC_ERR"))
#ifdef AVS_STARTDOC_ERR
	    return AVS_STARTDOC_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_SYNC_ERR"))
#ifdef AVS_SYNC_ERR
	    return AVS_SYNC_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_UNK_EXCEPTION_ERR"))
#ifdef AVS_UNK_EXCEPTION_ERR
	    return AVS_UNK_EXCEPTION_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_UPDATE_ERR"))
#ifdef AVS_UPDATE_ERR
	    return AVS_UPDATE_ERR;
#else
	    goto not_there;
#endif
	if (strEQ(name, "AVS_VERSION_ERR"))
#ifdef AVS_VERSION_ERR
	    return AVS_VERSION_ERR;
#else
	    goto not_there;
#endif
	break;
    case 'B':
	break;
    case 'C':
	break;
    case 'D':
	break;
    case 'E':
	break;

PerlSDK.xs  view on Meta::CPAN

	break;
    case 'G':
	break;
    case 'H':
	break;
    case 'I':
	if (strEQ(name, "IN"))
#ifdef IN
	    return IN;
#else
	    goto not_there;
#endif
	break;
    case 'J':
	break;
    case 'K':
	break;
    case 'L':
	break;
    case 'M':
	break;
    case 'N':
	break;
    case 'O':
	if (strEQ(name, "OUT"))
#ifdef OUT
	    return OUT;
#else
	    goto not_there;
#endif
	break;
    case 'P':
	break;
    case 'Q':
	break;
    case 'R':
	break;
    case 'S':
	break;
    case 'T':
	break;
    case 'U':
	break;
    case 'V':
	if (strEQ(name, "VALTYPE_NAME_LEN"))
#ifdef VALTYPE_NAME_LEN
	    return VALTYPE_NAME_LEN;
#else
	    goto not_there;
#endif
	break;
    case 'W':
	break;
    case 'X':
	break;
    case 'Y':
	break;
    case 'Z':
	break;
    case '_':
	break;
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}


MODULE = AltaVista::PerlSDK		PACKAGE = AltaVista::PerlSDK		
PROTOTYPES: ENABLE

double
constant(name,arg)