const-c.inc

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

#define PERL_constant_NOTFOUND	1
#define PERL_constant_NOTDEF	2
#define PERL_constant_ISIV	3
#define PERL_constant_ISNO	4
#define PERL_constant_ISNV	5
#define PERL_constant_ISPV	6
#define PERL_constant_ISPVN	7
#define PERL_constant_ISSV	8
#define PERL_constant_ISUNDEF	9
#define PERL_constant_ISUV	10
#define PERL_constant_ISYES	11

#ifndef NVTYPE
typedef double NV; /* 5.6 and later define NVTYPE, and typedef NV to it.  */
#endif
#ifndef aTHX_
#define aTHX_ /* 5.6 or later define this for threading support.  */
#endif
#ifndef pTHX_
#define pTHX_ /* 5.6 or later define this for threading support.  */
#endif

static int
constant_5 (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_A BPF_B BPF_H BPF_K BPF_W BPF_X */
  /* Offset 4 gives the best switch position.  */
  switch (name[4]) {
  case 'A':
    if (memEQ(name, "BPF_", 4)) {
    /*                   A     */
#ifdef BPF_A
      *iv_return = BPF_A;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'B':
    if (memEQ(name, "BPF_", 4)) {
    /*                   B     */
#ifdef BPF_B
      *iv_return = BPF_B;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'H':
    if (memEQ(name, "BPF_", 4)) {
    /*                   H     */
#ifdef BPF_H
      *iv_return = BPF_H;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'K':
    if (memEQ(name, "BPF_", 4)) {
    /*                   K     */
#ifdef BPF_K
      *iv_return = BPF_K;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'W':
    if (memEQ(name, "BPF_", 4)) {
    /*                   W     */
#ifdef BPF_W
      *iv_return = BPF_W;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'X':
    if (memEQ(name, "BPF_", 4)) {
    /*                   X     */
#ifdef BPF_X
      *iv_return = BPF_X;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}

static int
constant_6 (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_JA BPF_LD BPF_OR BPF_ST */
  /* Offset 4 gives the best switch position.  */
  switch (name[4]) {
  case 'J':
    if (memEQ(name, "BPF_JA", 6)) {
    /*                   ^       */
#ifdef BPF_JA
      *iv_return = BPF_JA;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'L':
    if (memEQ(name, "BPF_LD", 6)) {
    /*                   ^       */
#ifdef BPF_LD
      *iv_return = BPF_LD;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'O':
    if (memEQ(name, "BPF_OR", 6)) {
    /*                   ^       */
#ifdef BPF_OR
      *iv_return = BPF_OR;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'S':
    if (memEQ(name, "BPF_ST", 6)) {
    /*                   ^       */
#ifdef BPF_ST
      *iv_return = BPF_ST;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}

static int
constant_7 (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_ABS BPF_ADD BPF_ALU BPF_AND BPF_DIV BPF_IMM BPF_IND BPF_JEQ BPF_JGE
     BPF_JGT BPF_JMP BPF_LDX BPF_LEN BPF_LSH BPF_MEM BPF_MSH BPF_MUL BPF_NEG
     BPF_RET BPF_RSH BPF_STX BPF_SUB BPF_TAX BPF_TXA DLT_ENC DLT_PPP DLT_RAW
     DLT_RIO */
  /* Offset 6 gives the best switch position.  */
  switch (name[6]) {
  case 'A':
    if (memEQ(name, "BPF_TX", 6)) {
    /*                     A     */
#ifdef BPF_TXA
      *iv_return = BPF_TXA;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'B':
    if (memEQ(name, "BPF_SU", 6)) {
    /*                     B     */
#ifdef BPF_SUB
      *iv_return = BPF_SUB;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'C':
    if (memEQ(name, "DLT_EN", 6)) {
    /*                     C     */
#ifdef DLT_ENC
      *iv_return = DLT_ENC;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'D':
    if (memEQ(name, "BPF_AD", 6)) {
    /*                     D     */
#ifdef BPF_ADD
      *iv_return = BPF_ADD;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    if (memEQ(name, "BPF_AN", 6)) {
    /*                     D     */
#ifdef BPF_AND
      *iv_return = BPF_AND;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    if (memEQ(name, "BPF_IN", 6)) {
    /*                     D     */
#ifdef BPF_IND
      *iv_return = BPF_IND;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'E':
    if (memEQ(name, "BPF_JG", 6)) {
    /*                     E     */
#ifdef BPF_JGE
      *iv_return = BPF_JGE;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'G':
    if (memEQ(name, "BPF_NE", 6)) {
    /*                     G     */
#ifdef BPF_NEG
      *iv_return = BPF_NEG;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'H':
    if (memEQ(name, "BPF_LS", 6)) {
    /*                     H     */
#ifdef BPF_LSH
      *iv_return = BPF_LSH;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    if (memEQ(name, "BPF_MS", 6)) {
    /*                     H     */
#ifdef BPF_MSH
      *iv_return = BPF_MSH;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    if (memEQ(name, "BPF_RS", 6)) {
    /*                     H     */
#ifdef BPF_RSH
      *iv_return = BPF_RSH;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'L':
    if (memEQ(name, "BPF_MU", 6)) {
    /*                     L     */
#ifdef BPF_MUL
      *iv_return = BPF_MUL;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'M':
    if (memEQ(name, "BPF_IM", 6)) {
    /*                     M     */
#ifdef BPF_IMM
      *iv_return = BPF_IMM;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    if (memEQ(name, "BPF_ME", 6)) {
    /*                     M     */
#ifdef BPF_MEM
      *iv_return = BPF_MEM;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'N':
    if (memEQ(name, "BPF_LE", 6)) {
    /*                     N     */
#ifdef BPF_LEN
      *iv_return = BPF_LEN;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'O':
    if (memEQ(name, "DLT_RI", 6)) {
    /*                     O     */
#ifdef DLT_RIO
      *iv_return = DLT_RIO;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'P':
    if (memEQ(name, "BPF_JM", 6)) {
    /*                     P     */
#ifdef BPF_JMP
      *iv_return = BPF_JMP;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    if (memEQ(name, "DLT_PP", 6)) {
    /*                     P     */
#ifdef DLT_PPP
      *iv_return = DLT_PPP;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'Q':
    if (memEQ(name, "BPF_JE", 6)) {
    /*                     Q     */
#ifdef BPF_JEQ
      *iv_return = BPF_JEQ;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'S':
    if (memEQ(name, "BPF_AB", 6)) {
    /*                     S     */
#ifdef BPF_ABS
      *iv_return = BPF_ABS;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'T':
    if (memEQ(name, "BPF_JG", 6)) {
    /*                     T     */
#ifdef BPF_JGT
      *iv_return = BPF_JGT;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    if (memEQ(name, "BPF_RE", 6)) {
    /*                     T     */
#ifdef BPF_RET
      *iv_return = BPF_RET;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'U':
    if (memEQ(name, "BPF_AL", 6)) {
    /*                     U     */
#ifdef BPF_ALU
      *iv_return = BPF_ALU;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'V':
    if (memEQ(name, "BPF_DI", 6)) {
    /*                     V     */
#ifdef BPF_DIV
      *iv_return = BPF_DIV;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'W':
    if (memEQ(name, "DLT_RA", 6)) {
    /*                     W     */
#ifdef DLT_RAW
      *iv_return = DLT_RAW;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'X':
    if (memEQ(name, "BPF_LD", 6)) {
    /*                     X     */
#ifdef BPF_LDX
      *iv_return = BPF_LDX;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    if (memEQ(name, "BPF_ST", 6)) {
    /*                     X     */
#ifdef BPF_STX
      *iv_return = BPF_STX;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    if (memEQ(name, "BPF_TA", 6)) {
    /*                     X     */
#ifdef BPF_TAX
      *iv_return = BPF_TAX;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  }
  return PERL_constant_NOTFOUND;
}

static int
constant_8 (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_JSET BPF_MISC DLT_AX25 DLT_FDDI DLT_LOOP DLT_NULL DLT_SLIP DLT_TZSP
     MODE_MON */
  /* Offset 5 gives the best switch position.  */
  switch (name[5]) {
  case 'D':
    if (memEQ(name, "DLT_FDDI", 8)) {
    /*                    ^        */
#ifdef DLT_FDDI
      *iv_return = DLT_FDDI;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'I':
    if (memEQ(name, "BPF_MISC", 8)) {
    /*                    ^        */
#ifdef BPF_MISC
      *iv_return = BPF_MISC;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'L':
    if (memEQ(name, "DLT_SLIP", 8)) {
    /*                    ^        */
#ifdef DLT_SLIP
      *iv_return = DLT_SLIP;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'M':
    if (memEQ(name, "MODE_MON", 8)) {
    /*                    ^        */
#ifdef MODE_MON
      *iv_return = MODE_MON;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'O':
    if (memEQ(name, "DLT_LOOP", 8)) {
    /*                    ^        */
#ifdef DLT_LOOP
      *iv_return = DLT_LOOP;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'S':
    if (memEQ(name, "BPF_JSET", 8)) {
    /*                    ^        */
#ifdef BPF_JSET
      *iv_return = BPF_JSET;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'U':
    if (memEQ(name, "DLT_NULL", 8)) {
    /*                    ^        */
#ifdef DLT_NULL
      *iv_return = DLT_NULL;
      return PERL_constant_ISIV;
#else
      return PERL_constant_NOTDEF;
#endif
    }
    break;
  case 'X':
    if (memEQ(name, "DLT_AX25", 8)) {
    /*                    ^        */