const-c.inc

SinFP是一种新的识别对方计算机操作系统类型的工具

      *iv_return = DLT_PPP_BSDOS;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'E':
    if (memEQ(name, "BPF_ALIGNMENT", 13)) {
    /*                         ^         */
#ifdef BPF_ALIGNMENT
      *iv_return = BPF_ALIGNMENT;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'H':
    if (memEQ(name, "DLT_PPP_ETHER", 13)) {
    /*                         ^         */
#ifdef DLT_PPP_ETHER
      *iv_return = DLT_PPP_ETHER;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'I':
    if (memEQ(name, "DLT_CISCO_IOS", 13)) {
    /*                         ^         */
#ifdef DLT_CISCO_IOS
      *iv_return = DLT_CISCO_IOS;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'L':
    if (memEQ(name, "DLT_OLD_PFLOG", 13)) {
    /*                         ^         */
#ifdef DLT_OLD_PFLOG
      *iv_return = DLT_OLD_PFLOG;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'S':
    if (memEQ(name, "DLT_LINUX_SLL", 13)) {
    /*                         ^         */
#ifdef DLT_LINUX_SLL
      *iv_return = DLT_LINUX_SLL;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}

static int
constant_14 (pTHX_ const char *name, IV *iv_return) {
  /* When generated this function returned values for the list of names given
     here.  However, subsequent manual editing may have added or removed some.
     BPF_MAXBUFSIZE BPF_MINBUFSIZE DLT_IEEE802_11 DLT_IP_OVER_FC DLT_JUNIPER_ES
     DLT_LINUX_IRDA DLT_PPP_SERIAL DLT_SLIP_BSDOS */
  /* Offset 7 gives the best switch position.  */
  switch (name[7]) {
  case 'B':
    if (memEQ(name, "BPF_MAXBUFSIZE", 14)) {
    /*                      ^             */
#ifdef BPF_MAXBUFSIZE
      *iv_return = BPF_MAXBUFSIZE;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    if (memEQ(name, "BPF_MINBUFSIZE", 14)) {
    /*                      ^             */
#ifdef BPF_MINBUFSIZE
      *iv_return = BPF_MINBUFSIZE;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'E':
    if (memEQ(name, "DLT_IEEE802_11", 14)) {
    /*                      ^             */
#ifdef DLT_IEEE802_11
      *iv_return = DLT_IEEE802_11;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'I':
    if (memEQ(name, "DLT_JUNIPER_ES", 14)) {
    /*                      ^             */
#ifdef DLT_JUNIPER_ES
      *iv_return = DLT_JUNIPER_ES;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'O':
    if (memEQ(name, "DLT_IP_OVER_FC", 14)) {
    /*                      ^             */
#ifdef DLT_IP_OVER_FC
      *iv_return = DLT_IP_OVER_FC;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'P':
    if (memEQ(name, "DLT_SLIP_BSDOS", 14)) {
    /*                      ^             */
#ifdef DLT_SLIP_BSDOS
      *iv_return = DLT_SLIP_BSDOS;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'U':
    if (memEQ(name, "DLT_LINUX_IRDA", 14)) {
    /*                      ^             */
#ifdef DLT_LINUX_IRDA
      *iv_return = DLT_LINUX_IRDA;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case '_':
    if (memEQ(name, "DLT_PPP_SERIAL", 14)) {
    /*                      ^             */
#ifdef DLT_PPP_SERIAL
      *iv_return = DLT_PPP_SERIAL;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}

static int
constant_16 (pTHX_ const char *name, IV *iv_return) {
  /* When generated this function returned values for the list of names given
     here.  However, subsequent manual editing may have added or removed some.
     DLT_ARCNET_LINUX DLT_JUNIPER_ATM1 DLT_JUNIPER_ATM2 DLT_JUNIPER_GGSN
     DLT_JUNIPER_MLFR DLT_PRISM_HEADER PCAP_ERRBUF_SIZE PCAP_IF_LOOPBACK */
  /* Offset 13 gives the best switch position.  */
  switch (name[13]) {
  case 'A':
    if (memEQ(name, "PCAP_IF_LOOPBACK", 16)) {
    /*                            ^         */
#ifdef PCAP_IF_LOOPBACK
      *iv_return = PCAP_IF_LOOPBACK;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'D':
    if (memEQ(name, "DLT_PRISM_HEADER", 16)) {
    /*                            ^         */
#ifdef DLT_PRISM_HEADER
      *iv_return = DLT_PRISM_HEADER;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'G':
    if (memEQ(name, "DLT_JUNIPER_GGSN", 16)) {
    /*                            ^         */
#ifdef DLT_JUNIPER_GGSN
      *iv_return = DLT_JUNIPER_GGSN;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'I':
    if (memEQ(name, "PCAP_ERRBUF_SIZE", 16)) {
    /*                            ^         */
#ifdef PCAP_ERRBUF_SIZE
      *iv_return = PCAP_ERRBUF_SIZE;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'L':
    if (memEQ(name, "DLT_JUNIPER_MLFR", 16)) {
    /*                            ^         */
#ifdef DLT_JUNIPER_MLFR
      *iv_return = DLT_JUNIPER_MLFR;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'N':
    if (memEQ(name, "DLT_ARCNET_LINUX", 16)) {
    /*                            ^         */
#ifdef DLT_ARCNET_LINUX
      *iv_return = DLT_ARCNET_LINUX;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'T':
    if (memEQ(name, "DLT_JUNIPER_ATM1", 16)) {
    /*                            ^         */
#ifdef DLT_JUNIPER_ATM1
      *iv_return = DLT_JUNIPER_ATM1;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    if (memEQ(name, "DLT_JUNIPER_ATM2", 16)) {
    /*                            ^         */
#ifdef DLT_JUNIPER_ATM2
      *iv_return = DLT_JUNIPER_ATM2;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}

static int
constant_17 (pTHX_ const char *name, IV *iv_return) {
  /* When generated this function returned values for the list of names given
     here.  However, subsequent manual editing may have added or removed some.
     BPF_MAJOR_VERSION BPF_MINOR_VERSION DLT_JUNIPER_MLPPP */
  /* Offset 5 gives the best switch position.  */
  switch (name[5]) {
  case 'A':
    if (memEQ(name, "BPF_MAJOR_VERSION", 17)) {
    /*                    ^                  */
#ifdef BPF_MAJOR_VERSION
      *iv_return = BPF_MAJOR_VERSION;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'I':
    if (memEQ(name, "BPF_MINOR_VERSION", 17)) {
    /*                    ^                  */
#ifdef BPF_MINOR_VERSION
      *iv_return = BPF_MINOR_VERSION;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'U':
    if (memEQ(name, "DLT_JUNIPER_MLPPP", 17)) {
    /*                    ^                  */
#ifdef DLT_JUNIPER_MLPPP
      *iv_return = DLT_JUNIPER_MLPPP;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}

static int
constant_18 (pTHX_ const char *name, IV *iv_return) {
  /* When generated this function returned values for the list of names given
     here.  However, subsequent manual editing may have added or removed some.
     DLT_AIRONET_HEADER PCAP_VERSION_MAJOR PCAP_VERSION_MINOR */
  /* Offset 15 gives the best switch position.  */
  switch (name[15]) {
  case 'D':
    if (memEQ(name, "DLT_AIRONET_HEADER", 18)) {
    /*                              ^         */
#ifdef DLT_AIRONET_HEADER
      *iv_return = DLT_AIRONET_HEADER;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'J':
    if (memEQ(name, "PCAP_VERSION_MAJOR", 18)) {
    /*                              ^         */
#ifdef PCAP_VERSION_MAJOR
      *iv_return = PCAP_VERSION_MAJOR;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'N':
    if (memEQ(name, "PCAP_VERSION_MINOR", 18)) {
    /*                              ^         */
#ifdef PCAP_VERSION_MINOR
      *iv_return = PCAP_VERSION_MINOR;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}

static int
constant (pTHX_ const char *name, STRLEN len, IV *iv_return) {
  /* Initially switch on the length of the name.  */
  /* When generated this function returned values for the list of names given
     in this section of perl code.  Rather than manually editing these functions
     to add or remove constants, which would result in this comment and section
     of code becoming inaccurate, we recommend that you edit this section of
     code, and use it to regenerate a new set of constant functions which you
     then use to replace the originals.

     Regenerate these constant functions by feeding this entire source file to
     perl -x

#!/usr/bin/perl5.8.5 -w
use ExtUtils::Constant qw (constant_types C_constant XS_constant);

my $types = {map {($_, 1)} qw(IV)};
my @names = (qw(BPF_A BPF_ABS BPF_ADD BPF_ALIGNMENT BPF_ALU BPF_AND BPF_B
	       BPF_DIV BPF_H BPF_IMM BPF_IND BPF_JA BPF_JEQ BPF_JGE BPF_JGT
	       BPF_JMP BPF_JSET BPF_K BPF_LD BPF_LDX BPF_LEN BPF_LSH
	       BPF_MAJOR_VERSION BPF_MAXBUFSIZE BPF_MAXINSNS BPF_MEM
	       BPF_MEMWORDS BPF_MINBUFSIZE BPF_MINOR_VERSION BPF_MISC BPF_MSH
	       BPF_MUL BPF_NEG BPF_OR BPF_RELEASE BPF_RET BPF_RSH BPF_ST
	       BPF_STX BPF_SUB BPF_TAX BPF_TXA BPF_W BPF_X DLT_AIRONET_HEADER
	       DLT_APPLE_IP_OVER_IEEE1394 DLT_ARCNET DLT_ARCNET_LINUX
	       DLT_ATM_CLIP DLT_ATM_RFC1483 DLT_AURORA DLT_AX25 DLT_CHAOS
	       DLT_CHDLC DLT_CISCO_IOS DLT_C_HDLC DLT_DOCSIS DLT_ECONET
	       DLT_EN10MB DLT_EN3MB DLT_ENC DLT_FDDI DLT_FRELAY DLT_HHDLC
	       DLT_IBM_SN DLT_IBM_SP DLT_IEEE802 DLT_IEEE802_11
	       DLT_IEEE802_11_RADIO DLT_IEEE802_11_RADIO_AVS DLT_IPFILTER
	       DLT_IP_OVER_FC DLT_JUNIPER_ATM1 DLT_JUNIPER_ATM2 DLT_JUNIPER_ES
	       DLT_JUNIPER_GGSN DLT_JUNIPER_MFR DLT_JUNIPER_MLFR
	       DLT_JUNIPER_MLPPP DLT_JUNIPER_MONITOR DLT_JUNIPER_SERVICES
	       DLT_LINUX_IRDA DLT_LINUX_SLL DLT_LOOP DLT_LTALK DLT_NULL
	       DLT_OLD_PFLOG DLT_PCI_EXP DLT_PFLOG DLT_PFSYNC DLT_PPP
	       DLT_PPP_BSDOS DLT_PPP_ETHER DLT_PPP_SERIAL DLT_PRISM_HEADER
	       DLT_PRONET DLT_RAW DLT_RIO DLT_SLIP DLT_SLIP_BSDOS DLT_SUNATM
	       DLT_SYMANTEC_FIREWALL DLT_TZSP DLT_USER0 DLT_USER1 DLT_USER10
	       DLT_USER11 DLT_USER12 DLT_USER13 DLT_USER14 DLT_USER15 DLT_USER2
	       DLT_USER3 DLT_USER4 DLT_USER5 DLT_USER6 DLT_USER7 DLT_USER8
	       DLT_USER9 MODE_CAPT MODE_MON MODE_STAT PCAP_ERRBUF_SIZE
	       PCAP_IF_LOOPBACK PCAP_VERSION_MAJOR PCAP_VERSION_MINOR));

print constant_types(); # macro defs
foreach (C_constant ("pcap", 'constant', 'IV', $types, undef, 3, @names) ) {
    print $_, "\n"; # C constant subs
}
print "#### XS Section:\n";
print XS_constant ("pcap", $types);
__END__
   */

  switch (len) {
  case 5:
    return constant_5 (aTHX_ name, iv_return);
    break;
  case 6:
    return constant_6 (aTHX_ name, iv_return);
    break;
  case 7:
    return constant_7 (aTHX_ name, iv_return);
    break;
  case 8:
    return constant_8 (aTHX_ name, iv_return);
    break;
  case 9:
    return constant_9 (aTHX_ name, iv_return);
    break;
  case 10:
    return constant_10 (aTHX_ name, iv_return);
    break;
  case 11:
    return constant_11 (aTHX_ name, iv_return);
    break;
  case 12:
    return constant_12 (aTHX_ name, iv_return);
    break;
  case 13:
    return constant_13 (aTHX_ name, iv_return);
    break;
  case 14:
    return constant_14 (aTHX_ name, iv_return);
    break;
  case 15:
    /* Names all of length 15.  */
    /* DLT_ATM_RFC1483 DLT_JUNIPER_MFR */
    /* Offset 5 gives the best switch position.  */
    switch (name[5]) {
    case 'T':
      if (memEQ(name, "DLT_ATM_RFC1483", 15)) {
      /*                    ^                */
#ifdef DLT_ATM_RFC1483
        *iv_return = DLT_ATM_RFC1483;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    case 'U':
      if (memEQ(name, "DLT_JUNIPER_MFR", 15)) {
      /*                    ^                */
#ifdef DLT_JUNIPER_MFR
        *iv_return = DLT_JUNIPER_MFR;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    }
    break;
  case 16:
    return constant_16 (aTHX_ name, iv_return);
    break;
  case 17:
    return constant_17 (aTHX_ name, iv_return);
    break;
  case 18:
    return constant_18 (aTHX_ name, iv_return);
    break;
  case 19:
    if (memEQ(name, "DLT_JUNIPER_MONITOR", 19)) {
#ifdef DLT_JUNIPER_MONITOR
      *iv_return = DLT_JUNIPER_MONITOR;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 20:
    /* Names all of length 20.  */
    /* DLT_IEEE802_11_RADIO DLT_JUNIPER_SERVICES */
    /* Offset 4 gives the best switch position.  */
    switch (name[4]) {
    case 'I':
      if (memEQ(name, "DLT_IEEE802_11_RADIO", 20)) {
      /*                   ^                      */
#ifdef DLT_IEEE802_11_RADIO
        *iv_return = DLT_IEEE802_11_RADIO;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    case 'J':
      if (memEQ(name, "DLT_JUNIPER_SERVICES", 20)) {
      /*                   ^                      */
#ifdef DLT_JUNIPER_SERVICES
        *iv_return = DLT_JUNIPER_SERVICES;
        return PERL_constant_ISIV;
#else
        return PERL_constant_NOTDEF;
#endif
      }
      break;
    }
    break;
  case 21:
    if (memEQ(name, "DLT_SYMANTEC_FIREWALL", 21)) {
#ifdef DLT_SYMANTEC_FIREWALL
      *iv_return = DLT_SYMANTEC_FIREWALL;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 24:
    if (memEQ(name, "DLT_IEEE802_11_RADIO_AVS", 24)) {
#ifdef DLT_IEEE802_11_RADIO_AVS
      *iv_return = DLT_IEEE802_11_RADIO_AVS;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 26:
    if (memEQ(name, "DLT_APPLE_IP_OVER_IEEE1394", 26)) {
#ifdef DLT_APPLE_IP_OVER_IEEE1394
      *iv_return = DLT_APPLE_IP_OVER_IEEE1394;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}