perl/ASN/ASN.xs

/* -*- C -*- */
#if defined(_WIN32) && !defined(_WIN32_WINNT)
#define _WIN32_WINNT 0x501
#endif

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include <net-snmp/net-snmp-config.h>
#include <net-snmp/library/asn1.h>
#include <net-snmp/library/snmp_impl.h>

#define TEST_CONSTANT(value, name, C)           \
    if (strEQ(name, #C)) {                      \
        *value = C;                             \
        return 0;                               \
    }

static int constant_ASN_O(double *value, const char *name, const int len)
{
    switch (len >= 5 ? name[5] : -1) {
    case 'B':
        TEST_CONSTANT(value, name, ASN_OBJECT_ID);
        break;
    case 'C':
        TEST_CONSTANT(value, name, ASN_OCTET_STR);
        break;
    case 'P':
        TEST_CONSTANT(value, name, ASN_OPAQUE);
        break;
    }
    return EINVAL;
}

static int constant_ASN_B(double *value, const char *name, const int len)
{
    switch (len >= 5 ? name[5] : -1) {
    case 'I':
        TEST_CONSTANT(value, name, ASN_BIT_STR);
        break;
    case 'O':
        TEST_CONSTANT(value, name, ASN_BOOLEAN);
        break;
    }
    return EINVAL;
}

static int constant_ASN_S(double *value, const char *name, const int len)
{
    switch (len >= 6 ? name[6] : -1) {
    case 'Q':
        TEST_CONSTANT(value, name, ASN_SEQUENCE);
        break;
    case 'T':
        TEST_CONSTANT(value, name, ASN_SET);
        break;
    }
    return EINVAL;
}

static int constant_ASN_C(double *value, const char *name, const int len)
{
    switch (len >= 11 ? name[11] : -1) {
    case '\0':
        TEST_CONSTANT(value, name, ASN_COUNTER);
        break;
    case '6':
        TEST_CONSTANT(value, name, ASN_COUNTER64);
        break;
    }
    return EINVAL;
}

static int constant_ASN_U(double *value, const char *name, const int len)
{
    switch (len >= 12 ? name[12] : -1) {
    case '\0':
	TEST_CONSTANT(value, name, ASN_UNSIGNED);
        break;
#ifdef NETSNMP_WITH_OPAQUE_SPECIAL_TYPES
    case '6':
	TEST_CONSTANT(value, name, ASN_UNSIGNED64);
        break;
#endif
    }
    return EINVAL;
}

static int constant_ASN_IN(double *value, const char *name, const int len)
{
    switch (len >= 11 ? name[11] : -1) {
    case '\0':
        TEST_CONSTANT(value, name, ASN_INTEGER);
        break;
#ifdef NETSNMP_WITH_OPAQUE_SPECIAL_TYPES
    case '6':
        TEST_CONSTANT(value, name, ASN_INTEGER64);
        break;
#endif
    }
    return EINVAL;
}

static int constant_ASN_I(double* value, const char *name, const int len)
{
    switch (len >= 5 ? name[5] : -1) {
    case 'N':
	return constant_ASN_IN(value, name, len);
    case 'P':
        TEST_CONSTANT(value, name, ASN_IPADDRESS);
        break;
    }
    return EINVAL;
}

static int constant(double *value, const char *const name, const int len)
{
    if (!strnEQ(name, "ASN_", 4))
        return EINVAL;

    switch (name[4]) {
    case 'A':
	TEST_CONSTANT(value, name, ASN_APPLICATION);
        break;
    case 'B':
	return constant_ASN_B(value, name, len);
    case 'C':
	return constant_ASN_C(value, name, len);
#ifdef NETSNMP_WITH_OPAQUE_SPECIAL_TYPES
    case 'D':
        TEST_CONSTANT(value, name, ASN_DOUBLE);
        break;
    case 'F':
        TEST_CONSTANT(value, name, ASN_FLOAT);
        break;
#endif
    case 'G':
        TEST_CONSTANT(value, name, ASN_GAUGE);
        break;
    case 'I':
	return constant_ASN_I(value, name, len);
    case 'N':
        TEST_CONSTANT(value, name, ASN_NULL);
        break;
    case 'O':
	return constant_ASN_O(value, name, len);
    case 'S':
	return constant_ASN_S(value, name, len);
    case 'T':
        TEST_CONSTANT(value, name, ASN_TIMETICKS);
        break;
    case 'U':
	return constant_ASN_U(value, name, len);
    }
    return EINVAL;
}


MODULE = NetSNMP::ASN		PACKAGE = NetSNMP::ASN		


void
constant(sv)
    PREINIT:
	STRLEN		len;
    INPUT:
	SV *		sv
	char *		s = SvPV(sv, len);
    INIT:
        int status;
        double value;
    PPCODE:
        value = 0;
        status = constant(&value, s, len);
        XPUSHs(sv_2mortal(newSVuv(status)));
        XPUSHs(sv_2mortal(newSVnv(value)));