default_store.xs

开发snmp的开发包有两个开放的SNMP开发库

        *iv_return = NETSNMP_DS_AGENT_USERID;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    case 'T':
      if (memEQ(name, "NETSNMP_DS_APP_DONT_LOG", 23)) {
      /*                                 ^           */
#ifdef NETSNMP_DS_APP_DONT_LOG
        *iv_return = NETSNMP_DS_APP_DONT_LOG;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    }
    break;
  case 24:
    return constant_24 (aTHX_ name, iv_return);
    break;
  case 25:
    /* Names all of length 25.  */
    /* NETSNMP_DS_AGENT_PROGNAME NETSNMP_DS_AGENT_X_SOCKET */
    /* Offset 19 gives the best switch position.  */
    switch (name[19]) {
    case 'O':
      if (memEQ(name, "NETSNMP_DS_AGENT_PROGNAME", 25)) {
      /*                                  ^            */
#ifdef NETSNMP_DS_AGENT_PROGNAME
        *iv_return = NETSNMP_DS_AGENT_PROGNAME;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    case 'S':
      if (memEQ(name, "NETSNMP_DS_AGENT_X_SOCKET", 25)) {
      /*                                  ^            */
#ifdef NETSNMP_DS_AGENT_X_SOCKET
        *iv_return = NETSNMP_DS_AGENT_X_SOCKET;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    }
    break;
  case 27:
    /* Names all of length 27.  */
    /* NETSNMP_DS_AGENT_NO_CACHING NETSNMP_DS_AGENT_X_DIR_PERM */
    /* Offset 24 gives the best switch position.  */
    switch (name[24]) {
    case 'E':
      if (memEQ(name, "NETSNMP_DS_AGENT_X_DIR_PERM", 27)) {
      /*                                       ^         */
#ifdef NETSNMP_DS_AGENT_X_DIR_PERM
        *iv_return = NETSNMP_DS_AGENT_X_DIR_PERM;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    case 'I':
      if (memEQ(name, "NETSNMP_DS_AGENT_NO_CACHING", 27)) {
      /*                                       ^         */
#ifdef NETSNMP_DS_AGENT_NO_CACHING
        *iv_return = NETSNMP_DS_AGENT_NO_CACHING;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    }
    break;
  case 28:
    /* Names all of length 28.  */
    /* NETSNMP_DS_AGENT_X_SOCK_PERM NETSNMP_DS_AGENT_X_SOCK_USER */
    /* Offset 27 gives the best switch position.  */
    switch (name[27]) {
    case 'M':
      if (memEQ(name, "NETSNMP_DS_AGENT_X_SOCK_PER", 27)) {
      /*                                          M      */
#ifdef NETSNMP_DS_AGENT_X_SOCK_PERM
        *iv_return = NETSNMP_DS_AGENT_X_SOCK_PERM;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    case 'R':
      if (memEQ(name, "NETSNMP_DS_AGENT_X_SOCK_USE", 27)) {
      /*                                          R      */
#ifdef NETSNMP_DS_AGENT_X_SOCK_USER
        *iv_return = NETSNMP_DS_AGENT_X_SOCK_USER;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    }
    break;
  case 29:
    /* Names all of length 29.  */
    /* NETSNMP_DS_AGENT_DISABLE_PERL NETSNMP_DS_AGENT_X_SOCK_GROUP */
    /* Offset 21 gives the best switch position.  */
    switch (name[21]) {
    case 'B':
      if (memEQ(name, "NETSNMP_DS_AGENT_DISABLE_PERL", 29)) {
      /*                                    ^              */
#ifdef NETSNMP_DS_AGENT_DISABLE_PERL
        *iv_return = NETSNMP_DS_AGENT_DISABLE_PERL;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    case 'C':
      if (memEQ(name, "NETSNMP_DS_AGENT_X_SOCK_GROUP", 29)) {
      /*                                    ^              */
#ifdef NETSNMP_DS_AGENT_X_SOCK_GROUP
        *iv_return = NETSNMP_DS_AGENT_X_SOCK_GROUP;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    }
    break;
  case 30:
    return constant_30 (aTHX_ name, iv_return);
    break;
  case 31:
    return constant_31 (aTHX_ name, iv_return);
    break;
  case 33:
    return constant_33 (aTHX_ name, iv_return);
    break;
  case 34:
    if (memEQ(name, "NETSNMP_DS_AGENT_INTERNAL_SECLEVEL", 34)) {
#ifdef NETSNMP_DS_AGENT_INTERNAL_SECLEVEL
      *iv_return = NETSNMP_DS_AGENT_INTERNAL_SECLEVEL;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 35:
    if (memEQ(name, "NETSNMP_DS_AGENT_MAX_GETBULKREPEATS", 35)) {
#ifdef NETSNMP_DS_AGENT_MAX_GETBULKREPEATS
      *iv_return = NETSNMP_DS_AGENT_MAX_GETBULKREPEATS;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 37:
    /* Names all of length 37.  */
    /* NETSNMP_DS_AGENT_AGENTX_PING_INTERVAL
       NETSNMP_DS_AGENT_MAX_GETBULKRESPONSES */
    /* Offset 26 gives the best switch position.  */
    switch (name[26]) {
    case 'L':
      if (memEQ(name, "NETSNMP_DS_AGENT_MAX_GETBULKRESPONSES", 37)) {
      /*                                         ^                 */
#ifdef NETSNMP_DS_AGENT_MAX_GETBULKRESPONSES
        *iv_return = NETSNMP_DS_AGENT_MAX_GETBULKRESPONSES;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    case 'N':
      if (memEQ(name, "NETSNMP_DS_AGENT_AGENTX_PING_INTERVAL", 37)) {
      /*                                         ^                 */
#ifdef NETSNMP_DS_AGENT_AGENTX_PING_INTERVAL
        *iv_return = NETSNMP_DS_AGENT_AGENTX_PING_INTERVAL;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    }
    break;
  case 39:
    /* Names all of length 39.  */
    /* NETSNMP_DS_AGENT_NO_CONNECTION_WARNINGS
       NETSNMP_DS_AGENT_SKIPNFSINHOSTRESOURCES */
    /* Offset 21 gives the best switch position.  */
    switch (name[21]) {
    case 'N':
      if (memEQ(name, "NETSNMP_DS_AGENT_SKIPNFSINHOSTRESOURCES", 39)) {
      /*                                    ^                        */
#ifdef NETSNMP_DS_AGENT_SKIPNFSINHOSTRESOURCES
        *iv_return = NETSNMP_DS_AGENT_SKIPNFSINHOSTRESOURCES;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    case 'O':
      if (memEQ(name, "NETSNMP_DS_AGENT_NO_CONNECTION_WARNINGS", 39)) {
      /*                                    ^                        */
#ifdef NETSNMP_DS_AGENT_NO_CONNECTION_WARNINGS
        *iv_return = NETSNMP_DS_AGENT_NO_CONNECTION_WARNINGS;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    }
    break;
  case 42:
    if (memEQ(name, "NETSNMP_DS_AGENT_DONT_RETAIN_NOTIFICATIONS", 42)) {
#ifdef NETSNMP_DS_AGENT_DONT_RETAIN_NOTIFICATIONS
      *iv_return = NETSNMP_DS_AGENT_DONT_RETAIN_NOTIFICATIONS;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 46:
    if (memEQ(name, "NETSNMP_DS_AGENT_DONT_LOG_TCPWRAPPERS_CONNECTS", 46)) {
#ifdef NETSNMP_DS_AGENT_DONT_LOG_TCPWRAPPERS_CONNECTS
      *iv_return = NETSNMP_DS_AGENT_DONT_LOG_TCPWRAPPERS_CONNECTS;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}



/* autogenerated by "gen" from const-xs.inc */

MODULE = NetSNMP::agent::default_store         PACKAGE = NetSNMP::agent::default_store

void
constant(sv)
    PREINIT:
#ifdef dXSTARG
	dXSTARG; /* Faster if we have it.  */
#else
	dTARGET;
#endif
	STRLEN		len;
        int		type;
	IV		iv;
	/* NV		nv;	Uncomment this if you need to return NVs */
	/* const char	*pv;	Uncomment this if you need to return PVs */
    INPUT:
	SV *		sv;
        const char *	s = SvPV(sv, len);
    PPCODE:
        /* Change this to constant(aTHX_ s, len, &iv, &nv);
           if you need to return both NVs and IVs */
	type = constant(aTHX_ s, len, &iv);
      /* Return 1 or 2 items. First is error message, or undef if no error.
           Second, if present, is found value */
        switch (type) {
        case PERL_constant_NOTFOUND:
          sv = sv_2mortal(newSVpvf("%s is not a valid NetSNMP::agent::default_store macro", s));
          PUSHs(sv);
          break;
        case PERL_constant_NOTDEF:
          sv = sv_2mortal(newSVpvf(
	    "Your vendor has not defined NetSNMP::agent::default_store macro %s, used", s));
          PUSHs(sv);
          break;
        case PERL_constant_ISIV:
          EXTEND(SP, 1);
          PUSHs(&PL_sv_undef);
          PUSHi(iv);
          break;
	/* Uncomment this if you need to return NOs
        case PERL_constant_ISNO:
          EXTEND(SP, 1);
          PUSHs(&PL_sv_undef);
          PUSHs(&PL_sv_no);
          break; */
	/* Uncomment this if you need to return NVs
        case PERL_constant_ISNV:
          EXTEND(SP, 1);
          PUSHs(&PL_sv_undef);
          PUSHn(nv);
          break; */
	/* Uncomment this if you need to return PVs
        case PERL_constant_ISPV:
          EXTEND(SP, 1);
          PUSHs(&PL_sv_undef);
          PUSHp(pv, strlen(pv));
          break; */
	/* Uncomment this if you need to return PVNs
        case PERL_constant_ISPVN:
          EXTEND(SP, 1);
          PUSHs(&PL_sv_undef);
          PUSHp(pv, iv);
          break; */
	/* Uncomment this if you need to return SVs
        case PERL_constant_ISSV:
          EXTEND(SP, 1);
          PUSHs(&PL_sv_undef);
          PUSHs(sv);
          break; */
	/* Uncomment this if you need to return UNDEFs
        case PERL_constant_ISUNDEF:
          break; */
	/* Uncomment this if you need to return UVs
        case PERL_constant_ISUV:
          EXTEND(SP, 1);
          PUSHs(&PL_sv_undef);
          PUSHu((UV)iv);
          break; */
	/* Uncomment this if you need to return YESs
        case PERL_constant_ISYES:
          EXTEND(SP, 1);
          PUSHs(&PL_sv_undef);
          PUSHs(&PL_sv_yes);
          break; */
        default:
          sv = sv_2mortal(newSVpvf(
	    "Unexpected return type %d while processing NetSNMP::agent::default_store macro %s, used",
               type, s));
          PUSHs(sv);
        }