summaryrefslogtreecommitdiff
path: root/cleopatre/application/spidnetsnmp/perl/ASN/ASN.xs
diff options
context:
space:
mode:
Diffstat (limited to 'cleopatre/application/spidnetsnmp/perl/ASN/ASN.xs')
-rw-r--r--cleopatre/application/spidnetsnmp/perl/ASN/ASN.xs344
1 files changed, 0 insertions, 344 deletions
diff --git a/cleopatre/application/spidnetsnmp/perl/ASN/ASN.xs b/cleopatre/application/spidnetsnmp/perl/ASN/ASN.xs
deleted file mode 100644
index 4c9342c546..0000000000
--- a/cleopatre/application/spidnetsnmp/perl/ASN/ASN.xs
+++ /dev/null
@@ -1,344 +0,0 @@
-/* -*- C -*- */
-#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>
-
-static int
-not_here(char *s)
-{
- croak("%s not implemented on this architecture", s);
- return -1;
-}
-
-static double
-constant_ASN_O(char *name, int len, int arg)
-{
- switch (name[5 + 0]) {
- case 'B':
- if (strEQ(name + 5, "BJECT_ID")) { /* ASN_O removed */
-#ifdef ASN_OBJECT_ID
- return ASN_OBJECT_ID;
-#else
- goto not_there;
-#endif
- }
- case 'C':
- if (strEQ(name + 5, "CTET_STR")) { /* ASN_O removed */
-#ifdef ASN_OCTET_STR
- return ASN_OCTET_STR;
-#else
- goto not_there;
-#endif
- }
- case 'P':
- if (strEQ(name + 5, "PAQUE")) { /* ASN_O removed */
-#ifdef ASN_OPAQUE
- return ASN_OPAQUE;
-#else
- goto not_there;
-#endif
- }
- }
- errno = EINVAL;
- return 0;
-
-not_there:
- errno = ENOENT;
- return 0;
-}
-
-static double
-constant_ASN_B(char *name, int len, int arg)
-{
- switch (name[5 + 0]) {
- case 'I':
- if (strEQ(name + 5, "IT_STR")) { /* ASN_B removed */
-#ifdef ASN_BIT_STR
- return ASN_BIT_STR;
-#else
- goto not_there;
-#endif
- }
- case 'O':
- if (strEQ(name + 5, "OOLEAN")) { /* ASN_B removed */
-#ifdef ASN_BOOLEAN
- return ASN_BOOLEAN;
-#else
- goto not_there;
-#endif
- }
- }
- errno = EINVAL;
- return 0;
-
-not_there:
- errno = ENOENT;
- return 0;
-}
-
-static double
-constant_ASN_S(char *name, int len, int arg)
-{
- if (5 + 1 >= len ) {
- errno = EINVAL;
- return 0;
- }
- switch (name[5 + 1]) {
- case 'Q':
- if (strEQ(name + 5, "EQUENCE")) { /* ASN_S removed */
-#ifdef ASN_SEQUENCE
- return ASN_SEQUENCE;
-#else
- goto not_there;
-#endif
- }
- case 'T':
- if (strEQ(name + 5, "ET")) { /* ASN_S removed */
-#ifdef ASN_SET
- return ASN_SET;
-#else
- goto not_there;
-#endif
- }
- }
- errno = EINVAL;
- return 0;
-
-not_there:
- errno = ENOENT;
- return 0;
-}
-
-static double
-constant_ASN_C(char *name, int len, int arg)
-{
- if (5 + 6 > len ) {
- errno = EINVAL;
- return 0;
- }
- switch (name[5 + 6]) {
- case '\0':
- if (strEQ(name + 5, "OUNTER")) { /* ASN_C removed */
-#ifdef ASN_COUNTER
- return ASN_COUNTER;
-#else
- goto not_there;
-#endif
- }
- case '6':
- if (strEQ(name + 5, "OUNTER64")) { /* ASN_C removed */
-#ifdef ASN_COUNTER64
- return ASN_COUNTER64;
-#else
- goto not_there;
-#endif
- }
- }
- errno = EINVAL;
- return 0;
-
-not_there:
- errno = ENOENT;
- return 0;
-}
-
-static double
-constant_ASN_U(char *name, int len, int arg)
-{
- if (5 + 7 > len ) {
- errno = EINVAL;
- return 0;
- }
- switch (name[5 + 7]) {
- case '\0':
- if (strEQ(name + 5, "NSIGNED")) { /* ASN_U removed */
-#ifdef ASN_UNSIGNED
- return ASN_UNSIGNED;
-#else
- goto not_there;
-#endif
- }
- case '6':
- if (strEQ(name + 5, "NSIGNED64")) { /* ASN_U removed */
-#ifdef ASN_UNSIGNED64
- return ASN_UNSIGNED64;
-#else
- goto not_there;
-#endif
- }
- }
- errno = EINVAL;
- return 0;
-
-not_there:
- errno = ENOENT;
- return 0;
-}
-
-static double
-constant_ASN_IN(char *name, int len, int arg)
-{
- if (6 + 5 > len ) {
- errno = EINVAL;
- return 0;
- }
- switch (name[6 + 5]) {
- case '\0':
- if (strEQ(name + 6, "TEGER")) { /* ASN_IN removed */
-#ifdef ASN_INTEGER
- return ASN_INTEGER;
-#else
- goto not_there;
-#endif
- }
- case '6':
- if (strEQ(name + 6, "TEGER64")) { /* ASN_IN removed */
-#ifdef ASN_INTEGER64
- return ASN_INTEGER64;
-#else
- goto not_there;
-#endif
- }
- }
- errno = EINVAL;
- return 0;
-
-not_there:
- errno = ENOENT;
- return 0;
-}
-
-static double
-constant_ASN_I(char *name, int len, int arg)
-{
- switch (name[5 + 0]) {
- case 'N':
- return constant_ASN_IN(name, len, arg);
- case 'P':
- if (strEQ(name + 5, "PADDRESS")) { /* ASN_I removed */
-#ifdef ASN_IPADDRESS
- return ASN_IPADDRESS;
-#else
- goto not_there;
-#endif
- }
- }
- errno = EINVAL;
- return 0;
-
-not_there:
- errno = ENOENT;
- return 0;
-}
-
-static double
-constant(char *name, int len, int arg)
-{
- errno = 0;
- if (0 + 4 >= len ) {
- errno = EINVAL;
- return 0;
- }
- switch (name[0 + 4]) {
- case 'A':
- if (strEQ(name + 0, "ASN_APPLICATION")) { /* removed */
-#ifdef ASN_APPLICATION
- return ASN_APPLICATION;
-#else
- goto not_there;
-#endif
- }
- case 'B':
- if (!strnEQ(name + 0,"ASN_", 4))
- break;
- return constant_ASN_B(name, len, arg);
- case 'C':
- if (!strnEQ(name + 0,"ASN_", 4))
- break;
- return constant_ASN_C(name, len, arg);
- case 'D':
- if (strEQ(name + 0, "ASN_DOUBLE")) { /* removed */
-#ifdef ASN_DOUBLE
- return ASN_DOUBLE;
-#else
- goto not_there;
-#endif
- }
- case 'F':
- if (strEQ(name + 0, "ASN_FLOAT")) { /* removed */
-#ifdef ASN_FLOAT
- return ASN_FLOAT;
-#else
- goto not_there;
-#endif
- }
- case 'G':
- if (strEQ(name + 0, "ASN_GAUGE")) { /* removed */
-#ifdef ASN_GAUGE
- return ASN_GAUGE;
-#else
- goto not_there;
-#endif
- }
- case 'I':
- if (!strnEQ(name + 0,"ASN_", 4))
- break;
- return constant_ASN_I(name, len, arg);
- case 'N':
- if (strEQ(name + 0, "ASN_NULL")) { /* removed */
-#ifdef ASN_NULL
- return ASN_NULL;
-#else
- goto not_there;
-#endif
- }
- case 'O':
- if (!strnEQ(name + 0,"ASN_", 4))
- break;
- return constant_ASN_O(name, len, arg);
- case 'S':
- if (!strnEQ(name + 0,"ASN_", 4))
- break;
- return constant_ASN_S(name, len, arg);
- case 'T':
- if (strEQ(name + 0, "ASN_TIMETICKS")) { /* removed */
-#ifdef ASN_TIMETICKS
- return ASN_TIMETICKS;
-#else
- goto not_there;
-#endif
- }
- case 'U':
- if (!strnEQ(name + 0,"ASN_", 4))
- break;
- return constant_ASN_U(name, len, arg);
- }
- errno = EINVAL;
- return 0;
-
-not_there:
- errno = ENOENT;
- return 0;
-}
-
-
-MODULE = NetSNMP::ASN PACKAGE = NetSNMP::ASN
-
-
-double
-constant(sv,arg)
- PREINIT:
- STRLEN len;
- INPUT:
- SV * sv
- char * s = SvPV(sv, len);
- int arg
- CODE:
- RETVAL = constant(s,len,arg);
- OUTPUT:
- RETVAL
-