#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;
#endif
#ifndef aTHX_
#define aTHX_
#endif
#ifndef pTHX_
#define pTHX_
#endif
static int
constant_6 (pTHX_ const char *name, IV *iv_return) {
switch (name[2]) {
case 'L':
if (memEQ(name, "R_LAST", 6)) {
#ifdef R_LAST
*iv_return = R_LAST;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'N':
if (memEQ(name, "R_NEXT", 6)) {
#ifdef R_NEXT
*iv_return = R_NEXT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'P':
if (memEQ(name, "R_PREV", 6)) {
#ifdef R_PREV
*iv_return = R_PREV;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case '_':
if (memEQ(name, "DB_TXN", 6)) {
#ifdef DB_TXN
*iv_return = DB_TXN;
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) {
switch (name[3]) {
case 'I':
if (memEQ(name, "R_FIRST", 7)) {
#ifdef R_FIRST
*iv_return = R_FIRST;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'L':
if (memEQ(name, "DB_LOCK", 7)) {
#ifdef DB_LOCK
*iv_return = DB_LOCK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'O':
if (memEQ(name, "R_NOKEY", 7)) {
#ifdef R_NOKEY
*iv_return = R_NOKEY;
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) {
switch (name[5]) {
case 'M':
if (memEQ(name, "DB_SHMEM", 8)) {
#ifdef DB_SHMEM
*iv_return = DB_SHMEM;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'S':
if (memEQ(name, "R_CURSOR", 8)) {
#ifdef R_CURSOR
*iv_return = R_CURSOR;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'T':
if (memEQ(name, "R_IAFTER", 8)) {
#ifdef R_IAFTER
*iv_return = R_IAFTER;
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) {
switch (name[7]) {
case 'I':
if (memEQ(name, "HASHMAGIC", 9)) {
#ifdef HASHMAGIC
*iv_return = HASHMAGIC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'O':
if (memEQ(name, "RET_ERROR", 9)) {
#ifdef RET_ERROR
*iv_return = RET_ERROR;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'R':
if (memEQ(name, "R_IBEFORE", 9)) {
#ifdef R_IBEFORE
*iv_return = R_IBEFORE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
}
return PERL_constant_NOTFOUND;
}
static int
constant_10 (pTHX_ const char *name, IV *iv_return) {
switch (name[5]) {
case 'E':
if (memEQ(name, "R_FIXEDLEN", 10)) {
#ifdef R_FIXEDLEN
*iv_return = R_FIXEDLEN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'M':
if (memEQ(name, "BTREEMAGIC", 10)) {
#ifdef BTREEMAGIC
*iv_return = BTREEMAGIC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'N':
if (memEQ(name, "__R_UNUSED", 10)) {
#ifdef __R_UNUSED
*iv_return = __R_UNUSED;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'P':
if (memEQ(name, "R_SNAPSHOT", 10)) {
#ifdef R_SNAPSHOT
*iv_return = R_SNAPSHOT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
}
return PERL_constant_NOTFOUND;
}
static int
constant_11 (pTHX_ const char *name, IV *iv_return) {
switch (name[10]) {
case 'C':
if (memEQ(name, "R_RECNOSYNC", 11)) {
#ifdef R_RECNOSYNC
*iv_return = R_RECNOSYNC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'L':
if (memEQ(name, "RET_SPECIAL", 11)) {
#ifdef RET_SPECIAL
*iv_return = RET_SPECIAL;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'N':
if (memEQ(name, "HASHVERSION", 11)) {
#ifdef HASHVERSION
*iv_return = HASHVERSION;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'R':
if (memEQ(name, "R_SETCURSOR", 11)) {
#ifdef R_SETCURSOR
*iv_return = R_SETCURSOR;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'S':
if (memEQ(name, "RET_SUCCESS", 11)) {
#ifdef RET_SUCCESS
*iv_return = RET_SUCCESS;
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) {
switch (len) {
case 5:
if (memEQ(name, "R_DUP", 5)) {
#ifdef R_DUP
*iv_return = R_DUP;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
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:
if (memEQ(name, "BTREEVERSION", 12)) {
#ifdef BTREEVERSION
*iv_return = BTREEVERSION;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 13:
if (memEQ(name, "R_NOOVERWRITE", 13)) {
#ifdef R_NOOVERWRITE
*iv_return = R_NOOVERWRITE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 14:
if (memEQ(name, "MAX_REC_NUMBER", 14)) {
#ifdef MAX_REC_NUMBER
*iv_return = MAX_REC_NUMBER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 15:
switch (name[9]) {
case 'N':
if (memEQ(name, "MAX_PAGE_NUMBER", 15)) {
#ifdef MAX_PAGE_NUMBER
*iv_return = MAX_PAGE_NUMBER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'O':
if (memEQ(name, "MAX_PAGE_OFFSET", 15)) {
#ifdef MAX_PAGE_OFFSET
*iv_return = MAX_PAGE_OFFSET;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
}
break;
}
return PERL_constant_NOTFOUND;
}