#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_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.
AF_802 AF_AAL AF_CTF AF_DLI AF_ISO AF_KEY AF_LAT AF_MAX AF_NBS AF_NIT
AF_OSI AF_PUP AF_SNA AF_WAN AF_X25 PF_802 PF_AAL PF_CTF PF_DLI PF_ISO
PF_KEY PF_LAT PF_MAX PF_NBS PF_NIT PF_OSI PF_PUP PF_SNA PF_WAN PF_X25
SO_XSE */
/* Offset 3 gives the best switch position. */
switch (name[3]) {
case '8':
if (memEQ(name, "AF_802", 6)) {
/* ^ */
#ifdef AF_802
*iv_return = AF_802;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_802", 6)) {
/* ^ */
#ifdef PF_802
*iv_return = PF_802;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'A':
if (memEQ(name, "AF_AAL", 6)) {
/* ^ */
#ifdef AF_AAL
*iv_return = AF_AAL;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_AAL", 6)) {
/* ^ */
#ifdef PF_AAL
*iv_return = PF_AAL;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'C':
if (memEQ(name, "AF_CTF", 6)) {
/* ^ */
#ifdef AF_CTF
*iv_return = AF_CTF;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_CTF", 6)) {
/* ^ */
#ifdef PF_CTF
*iv_return = PF_CTF;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'D':
if (memEQ(name, "AF_DLI", 6)) {
/* ^ */
#ifdef AF_DLI
*iv_return = AF_DLI;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_DLI", 6)) {
/* ^ */
#ifdef PF_DLI
*iv_return = PF_DLI;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'I':
if (memEQ(name, "AF_ISO", 6)) {
/* ^ */
#ifdef AF_ISO
*iv_return = AF_ISO;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_ISO", 6)) {
/* ^ */
#ifdef PF_ISO
*iv_return = PF_ISO;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'K':
if (memEQ(name, "AF_KEY", 6)) {
/* ^ */
#ifdef AF_KEY
*iv_return = AF_KEY;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_KEY", 6)) {
/* ^ */
#ifdef PF_KEY
*iv_return = PF_KEY;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'L':
if (memEQ(name, "AF_LAT", 6)) {
/* ^ */
#ifdef AF_LAT
*iv_return = AF_LAT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_LAT", 6)) {
/* ^ */
#ifdef PF_LAT
*iv_return = PF_LAT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'M':
if (memEQ(name, "AF_MAX", 6)) {
/* ^ */
#ifdef AF_MAX
*iv_return = AF_MAX;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_MAX", 6)) {
/* ^ */
#ifdef PF_MAX
*iv_return = PF_MAX;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'N':
if (memEQ(name, "AF_NBS", 6)) {
/* ^ */
#ifdef AF_NBS
*iv_return = AF_NBS;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "AF_NIT", 6)) {
/* ^ */
#ifdef AF_NIT
*iv_return = AF_NIT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_NBS", 6)) {
/* ^ */
#ifdef PF_NBS
*iv_return = PF_NBS;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_NIT", 6)) {
/* ^ */
#ifdef PF_NIT
*iv_return = PF_NIT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'O':
if (memEQ(name, "AF_OSI", 6)) {
/* ^ */
#ifdef AF_OSI
*iv_return = AF_OSI;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_OSI", 6)) {
/* ^ */
#ifdef PF_OSI
*iv_return = PF_OSI;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'P':
if (memEQ(name, "AF_PUP", 6)) {
/* ^ */
#ifdef AF_PUP
*iv_return = AF_PUP;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_PUP", 6)) {
/* ^ */
#ifdef PF_PUP
*iv_return = PF_PUP;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'S':
if (memEQ(name, "AF_SNA", 6)) {
/* ^ */
#ifdef AF_SNA
*iv_return = AF_SNA;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_SNA", 6)) {
/* ^ */
#ifdef PF_SNA
*iv_return = PF_SNA;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'W':
if (memEQ(name, "AF_WAN", 6)) {
/* ^ */
#ifdef AF_WAN
*iv_return = AF_WAN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_WAN", 6)) {
/* ^ */
#ifdef PF_WAN
*iv_return = PF_WAN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'X':
if (memEQ(name, "AF_X25", 6)) {
/* ^ */
#ifdef AF_X25
*iv_return = AF_X25;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_X25", 6)) {
/* ^ */
#ifdef PF_X25
*iv_return = PF_X25;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "SO_XSE", 6)) {
/* ^ */
#ifdef SO_XSE
*iv_return = SO_XSE;
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.
AF_ECMA AF_INET AF_LAST AF_LINK AF_UNIX AF_USER IOV_MAX MSG_EOF MSG_EOR
MSG_FIN MSG_OOB MSG_RST MSG_SYN MSG_URG PF_ECMA PF_INET PF_LAST PF_LINK
PF_UNIX PF_USER SHUT_RD SHUT_WR SO_TYPE */
/* Offset 4 gives the best switch position. */
switch (name[4]) {
case 'A':
if (memEQ(name, "AF_LAST", 7)) {
/* ^ */
#ifdef AF_LAST
*iv_return = AF_LAST;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_LAST", 7)) {
/* ^ */
#ifdef PF_LAST
*iv_return = PF_LAST;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'C':
if (memEQ(name, "AF_ECMA", 7)) {
/* ^ */
#ifdef AF_ECMA
*iv_return = AF_ECMA;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_ECMA", 7)) {
/* ^ */
#ifdef PF_ECMA
*iv_return = PF_ECMA;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'E':
if (memEQ(name, "MSG_EOF", 7)) {
/* ^ */
#ifdef MSG_EOF
*iv_return = MSG_EOF;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "MSG_EOR", 7)) {
/* ^ */
#ifdef MSG_EOR
*iv_return = MSG_EOR;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'F':
if (memEQ(name, "MSG_FIN", 7)) {
/* ^ */
#ifdef MSG_FIN
*iv_return = MSG_FIN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'I':
if (memEQ(name, "AF_LINK", 7)) {
/* ^ */
#ifdef AF_LINK
*iv_return = AF_LINK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_LINK", 7)) {
/* ^ */
#ifdef PF_LINK
*iv_return = PF_LINK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'M':
if (memEQ(name, "IOV_MAX", 7)) {
/* ^ */
#ifdef IOV_MAX
*iv_return = IOV_MAX;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'N':
if (memEQ(name, "AF_INET", 7)) {
/* ^ */
#ifdef AF_INET
*iv_return = AF_INET;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "AF_UNIX", 7)) {
/* ^ */
#ifdef AF_UNIX
*iv_return = AF_UNIX;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_INET", 7)) {
/* ^ */
#ifdef PF_INET
*iv_return = PF_INET;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_UNIX", 7)) {
/* ^ */
#ifdef PF_UNIX
*iv_return = PF_UNIX;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'O':
if (memEQ(name, "MSG_OOB", 7)) {
/* ^ */
#if defined(MSG_OOB) || defined(HAS_MSG_OOB) /* might be an enum */
*iv_return = MSG_OOB;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'R':
if (memEQ(name, "MSG_RST", 7)) {
/* ^ */
#ifdef MSG_RST
*iv_return = MSG_RST;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'S':
if (memEQ(name, "AF_USER", 7)) {
/* ^ */
#ifdef AF_USER
*iv_return = AF_USER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "MSG_SYN", 7)) {
/* ^ */
#ifdef MSG_SYN
*iv_return = MSG_SYN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_USER", 7)) {
/* ^ */
#ifdef PF_USER
*iv_return = PF_USER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'U':
if (memEQ(name, "MSG_URG", 7)) {
/* ^ */
#ifdef MSG_URG
*iv_return = MSG_URG;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'Y':
if (memEQ(name, "SO_TYPE", 7)) {
/* ^ */
#ifdef SO_TYPE
*iv_return = SO_TYPE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case '_':
if (memEQ(name, "SHUT_RD", 7)) {
/* ^ */
#ifdef SHUT_RD
*iv_return = SHUT_RD;
return PERL_constant_ISIV;
#else
*iv_return = 0;
return PERL_constant_ISIV;
#endif
}
if (memEQ(name, "SHUT_WR", 7)) {
/* ^ */
#ifdef SHUT_WR
*iv_return = SHUT_WR;
return PERL_constant_ISIV;
#else
*iv_return = 1;
return PERL_constant_ISIV;
#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.
AF_CCITT AF_CHAOS AF_GOSIP AF_INET6 AF_ROUTE MSG_BTAG MSG_ETAG MSG_PEEK
MSG_WIRE PF_CCITT PF_CHAOS PF_GOSIP PF_INET6 PF_ROUTE SOCK_RAW SOCK_RDM
SO_DEBUG SO_ERROR SO_STATE SO_XOPEN */
/* Offset 7 gives the best switch position. */
switch (name[7]) {
case '6':
if (memEQ(name, "AF_INET6", 8)) {
/* ^ */
#ifdef AF_INET6
*iv_return = AF_INET6;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_INET6", 8)) {
/* ^ */
#ifdef PF_INET6
*iv_return = PF_INET6;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'E':
if (memEQ(name, "AF_ROUTE", 8)) {
/* ^ */
#ifdef AF_ROUTE
*iv_return = AF_ROUTE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "MSG_WIRE", 8)) {
/* ^ */
#ifdef MSG_WIRE
*iv_return = MSG_WIRE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_ROUTE", 8)) {
/* ^ */
#ifdef PF_ROUTE
*iv_return = PF_ROUTE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "SO_STATE", 8)) {
/* ^ */
#ifdef SO_STATE
*iv_return = SO_STATE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'G':
if (memEQ(name, "MSG_BTAG", 8)) {
/* ^ */
#ifdef MSG_BTAG
*iv_return = MSG_BTAG;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "MSG_ETAG", 8)) {
/* ^ */
#ifdef MSG_ETAG
*iv_return = MSG_ETAG;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "SO_DEBUG", 8)) {
/* ^ */
#ifdef SO_DEBUG
*iv_return = SO_DEBUG;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'K':
if (memEQ(name, "MSG_PEEK", 8)) {
/* ^ */
#if defined(MSG_PEEK) || defined(HAS_MSG_PEEK) /* might be an enum */
*iv_return = MSG_PEEK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'M':
if (memEQ(name, "SOCK_RDM", 8)) {
/* ^ */
#ifdef SOCK_RDM
*iv_return = SOCK_RDM;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'N':
if (memEQ(name, "SO_XOPEN", 8)) {
/* ^ */
#ifdef SO_XOPEN
*iv_return = SO_XOPEN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'P':
if (memEQ(name, "AF_GOSIP", 8)) {
/* ^ */
#ifdef AF_GOSIP
*iv_return = AF_GOSIP;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_GOSIP", 8)) {
/* ^ */
#ifdef PF_GOSIP
*iv_return = PF_GOSIP;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'R':
if (memEQ(name, "SO_ERROR", 8)) {
/* ^ */
#ifdef SO_ERROR
*iv_return = SO_ERROR;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'S':
if (memEQ(name, "AF_CHAOS", 8)) {
/* ^ */
#ifdef AF_CHAOS
*iv_return = AF_CHAOS;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_CHAOS", 8)) {
/* ^ */
#ifdef PF_CHAOS
*iv_return = PF_CHAOS;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'T':
if (memEQ(name, "AF_CCITT", 8)) {
/* ^ */
#ifdef AF_CCITT
*iv_return = AF_CCITT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_CCITT", 8)) {
/* ^ */
#ifdef PF_CCITT
*iv_return = PF_CCITT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'W':
if (memEQ(name, "SOCK_RAW", 8)) {
/* ^ */
#ifdef SOCK_RAW
*iv_return = SOCK_RAW;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
}
return PERL_constant_NOTFOUND;
}
static int
constant_9 (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.
AF_DECnet AF_HYLINK AF_OSINET AF_UNSPEC MSG_BCAST MSG_MCAST MSG_PROXY
MSG_TRUNC PF_DECnet PF_HYLINK PF_OSINET PF_UNSPEC SCM_CREDS SHUT_RDWR
SOMAXCONN SO_FAMILY SO_LINGER SO_RCVBUF SO_SNDBUF TCP_MAXRT */
/* Offset 4 gives the best switch position. */
switch (name[4]) {
case 'A':
if (memEQ(name, "SO_FAMILY", 9)) {
/* ^ */
#ifdef SO_FAMILY
*iv_return = SO_FAMILY;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'B':
if (memEQ(name, "MSG_BCAST", 9)) {
/* ^ */
#ifdef MSG_BCAST
*iv_return = MSG_BCAST;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'C':
if (memEQ(name, "SCM_CREDS", 9)) {
/* ^ */
#ifdef SCM_CREDS
*iv_return = SCM_CREDS;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "SO_RCVBUF", 9)) {
/* ^ */
#ifdef SO_RCVBUF
*iv_return = SO_RCVBUF;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'E':
if (memEQ(name, "AF_DECnet", 9)) {
/* ^ */
#ifdef AF_DECnet
*iv_return = AF_DECnet;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_DECnet", 9)) {
/* ^ */
#ifdef PF_DECnet
*iv_return = PF_DECnet;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'I':
if (memEQ(name, "SO_LINGER", 9)) {
/* ^ */
#ifdef SO_LINGER
*iv_return = SO_LINGER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'M':
if (memEQ(name, "MSG_MCAST", 9)) {
/* ^ */
#ifdef MSG_MCAST
*iv_return = MSG_MCAST;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "TCP_MAXRT", 9)) {
/* ^ */
#ifdef TCP_MAXRT
*iv_return = TCP_MAXRT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'N':
if (memEQ(name, "AF_UNSPEC", 9)) {
/* ^ */
#ifdef AF_UNSPEC
*iv_return = AF_UNSPEC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_UNSPEC", 9)) {
/* ^ */
#ifdef PF_UNSPEC
*iv_return = PF_UNSPEC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "SO_SNDBUF", 9)) {
/* ^ */
#ifdef SO_SNDBUF
*iv_return = SO_SNDBUF;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'P':
if (memEQ(name, "MSG_PROXY", 9)) {
/* ^ */
#if defined(MSG_PROXY) || defined(HAS_MSG_PROXY) /* might be an enum */
*iv_return = MSG_PROXY;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'S':
if (memEQ(name, "AF_OSINET", 9)) {
/* ^ */
#ifdef AF_OSINET
*iv_return = AF_OSINET;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_OSINET", 9)) {
/* ^ */
#ifdef PF_OSINET
*iv_return = PF_OSINET;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'T':
if (memEQ(name, "MSG_TRUNC", 9)) {
/* ^ */
#ifdef MSG_TRUNC
*iv_return = MSG_TRUNC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'X':
if (memEQ(name, "SOMAXCONN", 9)) {
/* ^ */
#ifdef SOMAXCONN
*iv_return = SOMAXCONN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'Y':
if (memEQ(name, "AF_HYLINK", 9)) {
/* ^ */
#ifdef AF_HYLINK
*iv_return = AF_HYLINK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_HYLINK", 9)) {
/* ^ */
#ifdef PF_HYLINK
*iv_return = PF_HYLINK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case '_':
if (memEQ(name, "SHUT_RDWR", 9)) {
/* ^ */
#ifdef SHUT_RDWR
*iv_return = SHUT_RDWR;
return PERL_constant_ISIV;
#else
*iv_return = 2;
return PERL_constant_ISIV;
#endif
}
break;
}
return PERL_constant_NOTFOUND;
}
static int
constant_10 (pTHX_ const char *name, IV *iv_return, SV **sv_return) {
/* When generated this function returned values for the list of names given
here. However, subsequent manual editing may have added or removed some.
AF_DATAKIT AF_IMPLINK INADDR_ANY MSG_CTRUNC PF_DATAKIT PF_IMPLINK
SCM_RIGHTS SOCK_DGRAM SOL_SOCKET SO_BACKLOG TCP_MAXSEG TCP_STDURG
UIO_MAXIOV */
/* Offset 6 gives the best switch position. */
switch (name[6]) {
case 'A':
if (memEQ(name, "AF_DATAKIT", 10)) {
/* ^ */
#ifdef AF_DATAKIT
*iv_return = AF_DATAKIT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_DATAKIT", 10)) {
/* ^ */
#ifdef PF_DATAKIT
*iv_return = PF_DATAKIT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'C':
if (memEQ(name, "SOL_SOCKET", 10)) {
/* ^ */
#ifdef SOL_SOCKET
*iv_return = SOL_SOCKET;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'D':
if (memEQ(name, "TCP_STDURG", 10)) {
/* ^ */
#ifdef TCP_STDURG
*iv_return = TCP_STDURG;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'G':
if (memEQ(name, "SCM_RIGHTS", 10)) {
/* ^ */
#if defined(SCM_RIGHTS) || defined(HAS_SCM_RIGHTS) /* might be an enum */
*iv_return = SCM_RIGHTS;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "SOCK_DGRAM", 10)) {
/* ^ */
#ifdef SOCK_DGRAM
*iv_return = SOCK_DGRAM;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'K':
if (memEQ(name, "SO_BACKLOG", 10)) {
/* ^ */
#ifdef SO_BACKLOG
*iv_return = SO_BACKLOG;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'L':
if (memEQ(name, "AF_IMPLINK", 10)) {
/* ^ */
#ifdef AF_IMPLINK
*iv_return = AF_IMPLINK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_IMPLINK", 10)) {
/* ^ */
#ifdef PF_IMPLINK
*iv_return = PF_IMPLINK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'R':
if (memEQ(name, "MSG_CTRUNC", 10)) {
/* ^ */
#if defined(MSG_CTRUNC) || defined(HAS_MSG_CTRUNC) /* might be an enum */
*iv_return = MSG_CTRUNC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'X':
if (memEQ(name, "TCP_MAXSEG", 10)) {
/* ^ */
#ifdef TCP_MAXSEG
*iv_return = TCP_MAXSEG;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "UIO_MAXIOV", 10)) {
/* ^ */
#ifdef UIO_MAXIOV
*iv_return = UIO_MAXIOV;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case '_':
if (memEQ(name, "INADDR_ANY", 10)) {
/* ^ */
#ifdef INADDR_ANY
{
struct in_addr ip_address; ip_address.s_addr = htonl(INADDR_ANY);
*sv_return = sv_2mortal(newSVpvn((char *)&ip_address,sizeof ip_address ));
return PERL_constant_ISSV;
}
#else
return PERL_constant_NOTDEF;
#endif
}
break;
}
return PERL_constant_NOTFOUND;
}
static int
constant_11 (pTHX_ const char *name, IV *iv_return, SV **sv_return) {
/* When generated this function returned values for the list of names given
here. However, subsequent manual editing may have added or removed some.
INADDR_NONE IPPROTO_TCP MSG_WAITALL SCM_CONNECT SOCK_STREAM SO_PASSCRED
SO_PEERCRED SO_PROTOCOL SO_RCVLOWAT SO_RCVTIMEO SO_SNDLOWAT SO_SNDTIMEO
TCP_NODELAY */
/* Offset 8 gives the best switch position. */
switch (name[8]) {
case 'A':
if (memEQ(name, "MSG_WAITALL", 11)) {
/* ^ */
#ifdef MSG_WAITALL
*iv_return = MSG_WAITALL;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'C':
if (memEQ(name, "SO_PROTOCOL", 11)) {
/* ^ */
#ifdef SO_PROTOCOL
*iv_return = SO_PROTOCOL;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'E':
if (memEQ(name, "SCM_CONNECT", 11)) {
/* ^ */
#ifdef SCM_CONNECT
*iv_return = SCM_CONNECT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "SOCK_STREAM", 11)) {
/* ^ */
#ifdef SOCK_STREAM
*iv_return = SOCK_STREAM;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'L':
if (memEQ(name, "TCP_NODELAY", 11)) {
/* ^ */
#ifdef TCP_NODELAY
*iv_return = TCP_NODELAY;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'M':
if (memEQ(name, "SO_RCVTIMEO", 11)) {
/* ^ */
#ifdef SO_RCVTIMEO
*iv_return = SO_RCVTIMEO;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "SO_SNDTIMEO", 11)) {
/* ^ */
#ifdef SO_SNDTIMEO
*iv_return = SO_SNDTIMEO;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'O':
if (memEQ(name, "INADDR_NONE", 11)) {
/* ^ */
#ifdef INADDR_NONE
{
struct in_addr ip_address; ip_address.s_addr = htonl(INADDR_NONE);
*sv_return = sv_2mortal(newSVpvn((char *)&ip_address,sizeof ip_address ));
return PERL_constant_ISSV;
}
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'R':
if (memEQ(name, "SO_PASSCRED", 11)) {
/* ^ */
#ifdef SO_PASSCRED
*iv_return = SO_PASSCRED;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "SO_PEERCRED", 11)) {
/* ^ */
#ifdef SO_PEERCRED
*iv_return = SO_PEERCRED;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'T':
if (memEQ(name, "IPPROTO_TCP", 11)) {
/* ^ */
#ifdef IPPROTO_TCP
*iv_return = IPPROTO_TCP;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'W':
if (memEQ(name, "SO_RCVLOWAT", 11)) {
/* ^ */
#ifdef SO_RCVLOWAT
*iv_return = SO_RCVLOWAT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "SO_SNDLOWAT", 11)) {
/* ^ */
#ifdef SO_SNDLOWAT
*iv_return = SO_SNDLOWAT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
}
return PERL_constant_NOTFOUND;
}
static int
constant_12 (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.
AF_APPLETALK MSG_CTLFLAGS MSG_DONTWAIT MSG_ERRQUEUE MSG_NOSIGNAL
PF_APPLETALK SO_BROADCAST SO_CHAMELEON SO_DONTROUTE SO_KEEPALIVE
SO_OOBINLINE SO_PROTOTYPE SO_REUSEADDR SO_REUSEPORT */
/* Offset 10 gives the best switch position. */
switch (name[10]) {
case 'A':
if (memEQ(name, "MSG_NOSIGNAL", 12)) {
/* ^ */
#ifdef MSG_NOSIGNAL
*iv_return = MSG_NOSIGNAL;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'D':
if (memEQ(name, "SO_REUSEADDR", 12)) {
/* ^ */
#ifdef SO_REUSEADDR
*iv_return = SO_REUSEADDR;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'G':
if (memEQ(name, "MSG_CTLFLAGS", 12)) {
/* ^ */
#ifdef MSG_CTLFLAGS
*iv_return = MSG_CTLFLAGS;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'I':
if (memEQ(name, "MSG_DONTWAIT", 12)) {
/* ^ */
#ifdef MSG_DONTWAIT
*iv_return = MSG_DONTWAIT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'L':
if (memEQ(name, "AF_APPLETALK", 12)) {
/* ^ */
#ifdef AF_APPLETALK
*iv_return = AF_APPLETALK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "PF_APPLETALK", 12)) {
/* ^ */
#ifdef PF_APPLETALK
*iv_return = PF_APPLETALK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'N':
if (memEQ(name, "SO_OOBINLINE", 12)) {
/* ^ */
#ifdef SO_OOBINLINE
*iv_return = SO_OOBINLINE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'O':
if (memEQ(name, "SO_CHAMELEON", 12)) {
/* ^ */
#ifdef SO_CHAMELEON
*iv_return = SO_CHAMELEON;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'P':
if (memEQ(name, "SO_PROTOTYPE", 12)) {
/* ^ */
#ifdef SO_PROTOTYPE
*iv_return = SO_PROTOTYPE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'R':
if (memEQ(name, "SO_REUSEPORT", 12)) {
/* ^ */
#ifdef SO_REUSEPORT
*iv_return = SO_REUSEPORT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'S':
if (memEQ(name, "SO_BROADCAST", 12)) {
/* ^ */
#ifdef SO_BROADCAST
*iv_return = SO_BROADCAST;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'T':
if (memEQ(name, "SO_DONTROUTE", 12)) {
/* ^ */
#ifdef SO_DONTROUTE
*iv_return = SO_DONTROUTE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'U':
if (memEQ(name, "MSG_ERRQUEUE", 12)) {
/* ^ */
#ifdef MSG_ERRQUEUE
*iv_return = MSG_ERRQUEUE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'V':
if (memEQ(name, "SO_KEEPALIVE", 12)) {
/* ^ */
#ifdef SO_KEEPALIVE
*iv_return = SO_KEEPALIVE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
}
return PERL_constant_NOTFOUND;
}
static int
constant_13 (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.
MSG_CTLIGNORE MSG_DONTROUTE MSG_MAXIOVLEN SCM_TIMESTAMP SO_ACCEPTCONN
SO_DONTLINGER SO_PASSIFNAME TCP_KEEPALIVE */
/* Offset 5 gives the best switch position. */
switch (name[5]) {
case 'A':
if (memEQ(name, "MSG_MAXIOVLEN", 13)) {
/* ^ */
#ifdef MSG_MAXIOVLEN
*iv_return = MSG_MAXIOVLEN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'C':
if (memEQ(name, "SO_ACCEPTCONN", 13)) {
/* ^ */
#ifdef SO_ACCEPTCONN
*iv_return = SO_ACCEPTCONN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'E':
if (memEQ(name, "TCP_KEEPALIVE", 13)) {
/* ^ */
#ifdef TCP_KEEPALIVE
*iv_return = TCP_KEEPALIVE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'I':
if (memEQ(name, "SCM_TIMESTAMP", 13)) {
/* ^ */
#ifdef SCM_TIMESTAMP
*iv_return = SCM_TIMESTAMP;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'N':
if (memEQ(name, "SO_DONTLINGER", 13)) {
/* ^ */
#ifdef SO_DONTLINGER
*iv_return = SO_DONTLINGER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'O':
if (memEQ(name, "MSG_DONTROUTE", 13)) {
/* ^ */
#if defined(MSG_DONTROUTE) || defined(HAS_MSG_DONTROUTE) /* might be an enum */
*iv_return = MSG_DONTROUTE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'S':
if (memEQ(name, "SO_PASSIFNAME", 13)) {
/* ^ */
#ifdef SO_PASSIFNAME
*iv_return = SO_PASSIFNAME;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'T':
if (memEQ(name, "MSG_CTLIGNORE", 13)) {
/* ^ */
#ifdef MSG_CTLIGNORE
*iv_return = MSG_CTLIGNORE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
}
return PERL_constant_NOTFOUND;
}
static int
constant_15 (pTHX_ const char *name, IV *iv_return, SV **sv_return) {
/* When generated this function returned values for the list of names given
here. However, subsequent manual editing may have added or removed some.
INADDR_LOOPBACK SCM_CREDENTIALS SO_DGRAM_ERRIND */
/* Offset 4 gives the best switch position. */
switch (name[4]) {
case 'C':
if (memEQ(name, "SCM_CREDENTIALS", 15)) {
/* ^ */
#ifdef SCM_CREDENTIALS
*iv_return = SCM_CREDENTIALS;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'D':
if (memEQ(name, "INADDR_LOOPBACK", 15)) {
/* ^ */
#ifdef INADDR_LOOPBACK
{
struct in_addr ip_address; ip_address.s_addr = htonl(INADDR_LOOPBACK);
*sv_return = sv_2mortal(newSVpvn((char *)&ip_address,sizeof ip_address ));
return PERL_constant_ISSV;
}
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'G':
if (memEQ(name, "SO_DGRAM_ERRIND", 15)) {
/* ^ */
#ifdef SO_DGRAM_ERRIND
*iv_return = SO_DGRAM_ERRIND;
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, SV **sv_return) {
/* When generated this function returned values for the list of names given
here. However, subsequent manual editing may have added or removed some.
INADDR_BROADCAST SO_ATTACH_FILTER SO_DETACH_FILTER */
/* Offset 4 gives the best switch position. */
switch (name[4]) {
case 'D':
if (memEQ(name, "INADDR_BROADCAST", 16)) {
/* ^ */
#ifdef INADDR_BROADCAST
{
struct in_addr ip_address; ip_address.s_addr = htonl(INADDR_BROADCAST);
*sv_return = sv_2mortal(newSVpvn((char *)&ip_address,sizeof ip_address ));
return PERL_constant_ISSV;
}
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'E':
if (memEQ(name, "SO_DETACH_FILTER", 16)) {
/* ^ */
#ifdef SO_DETACH_FILTER
*iv_return = SO_DETACH_FILTER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'T':
if (memEQ(name, "SO_ATTACH_FILTER", 16)) {
/* ^ */
#ifdef SO_ATTACH_FILTER
*iv_return = SO_ATTACH_FILTER;
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, SV **sv_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
#!../../miniperl -w
use ExtUtils::Constant qw (constant_types C_constant XS_constant);
my $types = {map {($_, 1)} qw(IV SV)};
my @names = (qw(AF_802 AF_AAL AF_APPLETALK AF_CCITT AF_CHAOS AF_CTF AF_DATAKIT
AF_DECnet AF_DLI AF_ECMA AF_GOSIP AF_HYLINK AF_IMPLINK AF_INET
AF_INET6 AF_ISO AF_KEY AF_LAST AF_LAT AF_LINK AF_MAX AF_NBS
AF_NIT AF_NS AF_OSI AF_OSINET AF_PUP AF_ROUTE AF_SNA AF_UNIX
AF_UNSPEC AF_USER AF_WAN AF_X25 IOV_MAX IPPROTO_TCP MSG_BCAST
MSG_BTAG MSG_CTLFLAGS MSG_CTLIGNORE MSG_DONTWAIT MSG_EOF MSG_EOR
MSG_ERRQUEUE MSG_ETAG MSG_FIN MSG_MAXIOVLEN MSG_MCAST
MSG_NOSIGNAL MSG_RST MSG_SYN MSG_TRUNC MSG_URG MSG_WAITALL
MSG_WIRE PF_802 PF_AAL PF_APPLETALK PF_CCITT PF_CHAOS PF_CTF
PF_DATAKIT PF_DECnet PF_DLI PF_ECMA PF_GOSIP PF_HYLINK
PF_IMPLINK PF_INET PF_INET6 PF_ISO PF_KEY PF_LAST PF_LAT PF_LINK
PF_MAX PF_NBS PF_NIT PF_NS PF_OSI PF_OSINET PF_PUP PF_ROUTE
PF_SNA PF_UNIX PF_UNSPEC PF_USER PF_WAN PF_X25 SCM_CONNECT
SCM_CREDENTIALS SCM_CREDS SCM_TIMESTAMP SOCK_DGRAM SOCK_RAW
SOCK_RDM SOCK_SEQPACKET SOCK_STREAM SOL_SOCKET SOMAXCONN
SO_ACCEPTCONN SO_ATTACH_FILTER SO_BACKLOG SO_BROADCAST
SO_CHAMELEON SO_DEBUG SO_DETACH_FILTER SO_DGRAM_ERRIND
SO_DONTLINGER SO_DONTROUTE SO_ERROR SO_FAMILY SO_KEEPALIVE
SO_LINGER SO_OOBINLINE SO_PASSCRED SO_PASSIFNAME SO_PEERCRED
SO_PROTOCOL SO_PROTOTYPE SO_RCVBUF SO_RCVLOWAT SO_RCVTIMEO
SO_REUSEADDR SO_REUSEPORT SO_SECURITY_AUTHENTICATION
SO_SECURITY_ENCRYPTION_NETWORK SO_SECURITY_ENCRYPTION_TRANSPORT
SO_SNDBUF SO_SNDLOWAT SO_SNDTIMEO SO_STATE SO_TYPE
SO_USELOOPBACK SO_XOPEN SO_XSE TCP_KEEPALIVE TCP_MAXRT
TCP_MAXSEG TCP_NODELAY TCP_STDURG UIO_MAXIOV),
{name=>"INADDR_ANY", type=>"SV", value=>"sv_2mortal(newSVpvn((char *)&ip_address,sizeof ip_address ))", pre=>"struct in_addr ip_address; ip_address.s_addr = htonl(INADDR_ANY);"},
{name=>"INADDR_BROADCAST", type=>"SV", value=>"sv_2mortal(newSVpvn((char *)&ip_address,sizeof ip_address ))", pre=>"struct in_addr ip_address; ip_address.s_addr = htonl(INADDR_BROADCAST);"},
{name=>"INADDR_LOOPBACK", type=>"SV", value=>"sv_2mortal(newSVpvn((char *)&ip_address,sizeof ip_address ))", pre=>"struct in_addr ip_address; ip_address.s_addr = htonl(INADDR_LOOPBACK);"},
{name=>"INADDR_NONE", type=>"SV", value=>"sv_2mortal(newSVpvn((char *)&ip_address,sizeof ip_address ))", pre=>"struct in_addr ip_address; ip_address.s_addr = htonl(INADDR_NONE);"},
{name=>"MSG_CTRUNC", type=>"IV", macro=>["#if defined(MSG_CTRUNC) || defined(HAS_MSG_CTRUNC) /" . "* might be an enum *" . "/\n", "#endif\n"]},
{name=>"MSG_DONTROUTE", type=>"IV", macro=>["#if defined(MSG_DONTROUTE) || defined(HAS_MSG_DONTROUTE) /" . "* might be an enum *" . "/\n", "#endif\n"]},
{name=>"MSG_OOB", type=>"IV", macro=>["#if defined(MSG_OOB) || defined(HAS_MSG_OOB) /" . "* might be an enum *" . "/\n", "#endif\n"]},
{name=>"MSG_PEEK", type=>"IV", macro=>["#if defined(MSG_PEEK) || defined(HAS_MSG_PEEK) /" . "* might be an enum *" . "/\n", "#endif\n"]},
{name=>"MSG_PROXY", type=>"IV", macro=>["#if defined(MSG_PROXY) || defined(HAS_MSG_PROXY) /" . "* might be an enum *" . "/\n", "#endif\n"]},
{name=>"SCM_RIGHTS", type=>"IV", macro=>["#if defined(SCM_RIGHTS) || defined(HAS_SCM_RIGHTS) /" . "* might be an enum *" . "/\n", "#endif\n"]},
{name=>"SHUT_RD", type=>"IV", default=>["IV", "0"]},
{name=>"SHUT_RDWR", type=>"IV", default=>["IV", "2"]},
{name=>"SHUT_WR", type=>"IV", default=>["IV", "1"]});
print constant_types(); # macro defs
foreach (C_constant ("Socket", 'constant', 'IV', $types, undef, 3, @names) ) {
print $_, "\n"; # C constant subs
}
print "#### XS Section:\n";
print XS_constant ("Socket", $types);
__END__
*/
switch (len) {
case 5:
/* Names all of length 5. */
/* AF_NS PF_NS */
/* Offset 0 gives the best switch position. */
switch (name[0]) {
case 'A':
if (memEQ(name, "AF_NS", 5)) {
/* ^ */
#ifdef AF_NS
*iv_return = AF_NS;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'P':
if (memEQ(name, "PF_NS", 5)) {
/* ^ */
#ifdef PF_NS
*iv_return = PF_NS;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
}
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, sv_return);
break;
case 11:
return constant_11 (aTHX_ name, iv_return, sv_return);
break;
case 12:
return constant_12 (aTHX_ name, iv_return);
break;
case 13:
return constant_13 (aTHX_ name, iv_return);
break;
case 14:
/* Names all of length 14. */
/* SOCK_SEQPACKET SO_USELOOPBACK */
/* Offset 8 gives the best switch position. */
switch (name[8]) {
case 'O':
if (memEQ(name, "SO_USELOOPBACK", 14)) {
/* ^ */
#ifdef SO_USELOOPBACK
*iv_return = SO_USELOOPBACK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'P':
if (memEQ(name, "SOCK_SEQPACKET", 14)) {
/* ^ */
#ifdef SOCK_SEQPACKET
*iv_return = SOCK_SEQPACKET;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
}
break;
case 15:
return constant_15 (aTHX_ name, iv_return, sv_return);
break;
case 16:
return constant_16 (aTHX_ name, iv_return, sv_return);
break;
case 26:
if (memEQ(name, "SO_SECURITY_AUTHENTICATION", 26)) {
#ifdef SO_SECURITY_AUTHENTICATION
*iv_return = SO_SECURITY_AUTHENTICATION;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 30:
if (memEQ(name, "SO_SECURITY_ENCRYPTION_NETWORK", 30)) {
#ifdef SO_SECURITY_ENCRYPTION_NETWORK
*iv_return = SO_SECURITY_ENCRYPTION_NETWORK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 32:
if (memEQ(name, "SO_SECURITY_ENCRYPTION_TRANSPORT", 32)) {
#ifdef SO_SECURITY_ENCRYPTION_TRANSPORT
*iv_return = SO_SECURITY_ENCRYPTION_TRANSPORT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
}
return PERL_constant_NOTFOUND;
}
|
