#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[3]) {
case 'D':
if (memEQ(name, "DB_DUP", 6)) {
#ifdef DB_DUP
*iv_return = DB_DUP;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'P':
if (memEQ(name, "DB_PAD", 6)) {
#ifdef DB_PAD
*iv_return = DB_PAD;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'R':
if (memEQ(name, "DB_RMW", 6)) {
#ifdef DB_RMW
*iv_return = DB_RMW;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'S':
if (memEQ(name, "DB_SET", 6)) {
#ifdef DB_SET
*iv_return = DB_SET;
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 'E':
if (memEQ(name, "DB_EXCL", 7)) {
#ifdef DB_EXCL
*iv_return = DB_EXCL;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'H':
if (memEQ(name, "DB_HASH", 7)) {
#if (DB_VERSION_MAJOR > 2) || \
(DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
(DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
DB_VERSION_PATCH >= 0)
*iv_return = DB_HASH;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'L':
if (memEQ(name, "DB_LAST", 7)) {
#ifdef DB_LAST
*iv_return = DB_LAST;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'N':
if (memEQ(name, "DB_NEXT", 7)) {
#ifdef DB_NEXT
*iv_return = DB_NEXT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'P':
if (memEQ(name, "DB_PREV", 7)) {
#ifdef DB_PREV
*iv_return = DB_PREV;
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[4]) {
case 'E':
if (memEQ(name, "DB_RECNO", 8)) {
#if (DB_VERSION_MAJOR > 2) || \
(DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
(DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
DB_VERSION_PATCH >= 0)
*iv_return = DB_RECNO;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'F':
if (memEQ(name, "DB_AFTER", 8)) {
#ifdef DB_AFTER
*iv_return = DB_AFTER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'I':
if (memEQ(name, "DB_FIRST", 8)) {
#ifdef DB_FIRST
*iv_return = DB_FIRST;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'L':
if (memEQ(name, "DB_FLUSH", 8)) {
#ifdef DB_FLUSH
*iv_return = DB_FLUSH;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'O':
if (memEQ(name, "DB_FORCE", 8)) {
#ifdef DB_FORCE
*iv_return = DB_FORCE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'T':
if (memEQ(name, "DB_BTREE", 8)) {
#if (DB_VERSION_MAJOR > 2) || \
(DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
(DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
DB_VERSION_PATCH >= 0)
*iv_return = DB_BTREE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'U':
if (memEQ(name, "DB_QUEUE", 8)) {
#if (DB_VERSION_MAJOR > 3) || \
(DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 0) || \
(DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 0 && \
DB_VERSION_PATCH >= 55)
*iv_return = DB_QUEUE;
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 'A':
if (memEQ(name, "DB_NOMMAP", 9)) {
#ifdef DB_NOMMAP
*iv_return = DB_NOMMAP;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_THREAD", 9)) {
#ifdef DB_THREAD
*iv_return = DB_THREAD;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'C':
if (memEQ(name, "DB_DIRECT", 9)) {
#ifdef DB_DIRECT
*iv_return = DB_DIRECT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'E':
if (memEQ(name, "DB_GETREC", 9)) {
#ifdef DB_GETREC
*iv_return = DB_GETREC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'F':
if (memEQ(name, "DB_VERIFY", 9)) {
#ifdef DB_VERIFY
*iv_return = DB_VERIFY;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'I':
if (memEQ(name, "DB_COMMIT", 9)) {
#ifdef DB_COMMIT
*iv_return = DB_COMMIT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'L':
if (memEQ(name, "DB_RDONLY", 9)) {
#ifdef DB_RDONLY
*iv_return = DB_RDONLY;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'N':
if (memEQ(name, "DB_APPEND", 9)) {
#ifdef DB_APPEND
*iv_return = DB_APPEND;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_CLIENT", 9)) {
#ifdef DB_CLIENT
*iv_return = DB_CLIENT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_EXTENT", 9)) {
#ifdef DB_EXTENT
*iv_return = DB_EXTENT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_NOSYNC", 9)) {
#ifdef DB_NOSYNC
*iv_return = DB_NOSYNC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'P':
if (memEQ(name, "DB_NOCOPY", 9)) {
#ifdef DB_NOCOPY
*iv_return = DB_NOCOPY;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'R':
if (memEQ(name, "DB_BEFORE", 9)) {
#ifdef DB_BEFORE
*iv_return = DB_BEFORE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'S':
if (memEQ(name, "DB_CURLSN", 9)) {
#ifdef DB_CURLSN
*iv_return = DB_CURLSN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'T':
if (memEQ(name, "DB_CREATE", 9)) {
#ifdef DB_CREATE
*iv_return = DB_CREATE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'U':
if (memEQ(name, "DB_RECNUM", 9)) {
#ifdef DB_RECNUM
*iv_return = DB_RECNUM;
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[8]) {
case 'D':
if (memEQ(name, "DB_ENV_CDB", 10)) {
#ifdef DB_ENV_CDB
*iv_return = DB_ENV_CDB;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_UPGRADE", 10)) {
#ifdef DB_UPGRADE
*iv_return = DB_UPGRADE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'E':
if (memEQ(name, "DB_DELETED", 10)) {
#ifdef DB_DELETED
*iv_return = DB_DELETED;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_RECOVER", 10)) {
#ifdef DB_RECOVER
*iv_return = DB_RECOVER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'G':
if (memEQ(name, "DB_PR_PAGE", 10)) {
#ifdef DB_PR_PAGE
*iv_return = DB_PR_PAGE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_SALVAGE", 10)) {
#ifdef DB_SALVAGE
*iv_return = DB_SALVAGE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'I':
if (memEQ(name, "DB_NOPANIC", 10)) {
#ifdef DB_NOPANIC
*iv_return = DB_NOPANIC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'K':
if (memEQ(name, "DB_TXN_CKP", 10)) {
#ifdef DB_TXN_CKP
*iv_return = DB_TXN_CKP;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'M':
if (memEQ(name, "DB_CONSUME", 10)) {
#ifdef DB_CONSUME
*iv_return = DB_CONSUME;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'N':
if (memEQ(name, "DB_CURRENT", 10)) {
#ifdef DB_CURRENT
*iv_return = DB_CURRENT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_JOINENV", 10)) {
#ifdef DB_JOINENV
*iv_return = DB_JOINENV;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'P':
if (memEQ(name, "DB_ENCRYPT", 10)) {
#ifdef DB_ENCRYPT
*iv_return = DB_ENCRYPT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'R':
if (memEQ(name, "DB_DUPSORT", 10)) {
#ifdef DB_DUPSORT
*iv_return = DB_DUPSORT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'S':
if (memEQ(name, "DB_KEYLAST", 10)) {
#ifdef DB_KEYLAST
*iv_return = DB_KEYLAST;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_OK_HASH", 10)) {
#ifdef DB_OK_HASH
*iv_return = DB_OK_HASH;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'T':
if (memEQ(name, "DB_PRIVATE", 10)) {
#ifdef DB_PRIVATE
*iv_return = DB_PRIVATE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'U':
if (memEQ(name, "DB_TIMEOUT", 10)) {
#ifdef DB_TIMEOUT
*iv_return = DB_TIMEOUT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'W':
if (memEQ(name, "DB_UNKNOWN", 10)) {
#if (DB_VERSION_MAJOR > 2) || \
(DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
(DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
DB_VERSION_PATCH >= 0)
*iv_return = DB_UNKNOWN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'X':
if (memEQ(name, "DB_ENV_TXN", 10)) {
#ifdef DB_ENV_TXN
*iv_return = DB_ENV_TXN;
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[8]) {
case 'A':
if (memEQ(name, "DB_ARCH_ABS", 11)) {
#ifdef DB_ARCH_ABS
*iv_return = DB_ARCH_ABS;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TRUNCATE", 11)) {
#ifdef DB_TRUNCATE
*iv_return = DB_TRUNCATE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'B':
if (memEQ(name, "DB_RENUMBER", 11)) {
#ifdef DB_RENUMBER
*iv_return = DB_RENUMBER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'C':
if (memEQ(name, "DB_INIT_CDB", 11)) {
#ifdef DB_INIT_CDB
*iv_return = DB_INIT_CDB;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_OK_RECNO", 11)) {
#ifdef DB_OK_RECNO
*iv_return = DB_OK_RECNO;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_YIELDCPU", 11)) {
#ifdef DB_YIELDCPU
*iv_return = DB_YIELDCPU;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'D':
if (memEQ(name, "DB_NEXT_DUP", 11)) {
#ifdef DB_NEXT_DUP
*iv_return = DB_NEXT_DUP;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'E':
if (memEQ(name, "DB_OK_QUEUE", 11)) {
#ifdef DB_OK_QUEUE
*iv_return = DB_OK_QUEUE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TXN_REDO", 11)) {
#ifdef DB_TXN_REDO
*iv_return = DB_TXN_REDO;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'G':
if (memEQ(name, "DB_LOCK_GET", 11)) {
#if (DB_VERSION_MAJOR > 2) || \
(DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
(DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
DB_VERSION_PATCH >= 0)
*iv_return = DB_LOCK_GET;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOGMAGIC", 11)) {
#ifdef DB_LOGMAGIC
*iv_return = DB_LOGMAGIC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_QAMMAGIC", 11)) {
#ifdef DB_QAMMAGIC
*iv_return = DB_QAMMAGIC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TXNMAGIC", 11)) {
#ifdef DB_TXNMAGIC
*iv_return = DB_TXNMAGIC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'H':
if (memEQ(name, "DB_SNAPSHOT", 11)) {
#ifdef DB_SNAPSHOT
*iv_return = DB_SNAPSHOT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'I':
if (memEQ(name, "DB_KEYEXIST", 11)) {
#ifdef DB_KEYEXIST
*iv_return = DB_KEYEXIST;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOG_DISK", 11)) {
#ifdef DB_LOG_DISK
*iv_return = DB_LOG_DISK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_POSITION", 11)) {
#ifdef DB_POSITION
*iv_return = DB_POSITION;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'L':
if (memEQ(name, "DB_ARCH_LOG", 11)) {
#ifdef DB_ARCH_LOG
*iv_return = DB_ARCH_LOG;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_FIXEDLEN", 11)) {
#ifdef DB_FIXEDLEN
*iv_return = DB_FIXEDLEN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_INIT_LOG", 11)) {
#ifdef DB_INIT_LOG
*iv_return = DB_INIT_LOG;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'N':
if (memEQ(name, "DB_APP_INIT", 11)) {
#ifdef DB_APP_INIT
*iv_return = DB_APP_INIT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TXN_UNDO", 11)) {
#ifdef DB_TXN_UNDO
*iv_return = DB_TXN_UNDO;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'O':
if (memEQ(name, "DB_GET_BOTH", 11)) {
#ifdef DB_GET_BOTH
*iv_return = DB_GET_BOTH;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOCKDOWN", 11)) {
#ifdef DB_LOCKDOWN
*iv_return = DB_LOCKDOWN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TXN_LOCK", 11)) {
#ifdef DB_TXN_LOCK
*iv_return = DB_TXN_LOCK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'P':
if (memEQ(name, "DB_KEYEMPTY", 11)) {
#ifdef DB_KEYEMPTY
*iv_return = DB_KEYEMPTY;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOCK_PUT", 11)) {
#if (DB_VERSION_MAJOR > 2) || \
(DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
(DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
DB_VERSION_PATCH >= 0)
*iv_return = DB_LOCK_PUT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_MULTIPLE", 11)) {
#ifdef DB_MULTIPLE
*iv_return = DB_MULTIPLE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'R':
if (memEQ(name, "DB_KEYFIRST", 11)) {
#ifdef DB_KEYFIRST
*iv_return = DB_KEYFIRST;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_OK_BTREE", 11)) {
#ifdef DB_OK_BTREE
*iv_return = DB_OK_BTREE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'T':
if (memEQ(name, "DB_INIT_TXN", 11)) {
#ifdef DB_INIT_TXN
*iv_return = DB_INIT_TXN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'U':
if (memEQ(name, "DB_NOTFOUND", 11)) {
#ifdef DB_NOTFOUND
*iv_return = DB_NOTFOUND;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'V':
if (memEQ(name, "DB_NOSERVER", 11)) {
#ifdef DB_NOSERVER
*iv_return = DB_NOSERVER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'Y':
if (memEQ(name, "DB_TXN_SYNC", 11)) {
#ifdef DB_TXN_SYNC
*iv_return = DB_TXN_SYNC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_WRNOSYNC", 11)) {
#ifdef DB_WRNOSYNC
*iv_return = DB_WRNOSYNC;
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) {
switch (name[3]) {
case 'A':
if (memEQ(name, "DB_ARCH_DATA", 12)) {
#ifdef DB_ARCH_DATA
*iv_return = DB_ARCH_DATA;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'C':
if (memEQ(name, "DB_CDB_ALLDB", 12)) {
#ifdef DB_CDB_ALLDB
*iv_return = DB_CDB_ALLDB;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_CL_WRITER", 12)) {
#ifdef DB_CL_WRITER
*iv_return = DB_CL_WRITER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'D':
if (memEQ(name, "DB_DELIMITER", 12)) {
#ifdef DB_DELIMITER
*iv_return = DB_DELIMITER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_DIRECT_DB", 12)) {
#ifdef DB_DIRECT_DB
*iv_return = DB_DIRECT_DB;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_DUPCURSOR", 12)) {
#ifdef DB_DUPCURSOR
*iv_return = DB_DUPCURSOR;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'E':
if (memEQ(name, "DB_ENV_FATAL", 12)) {
#ifdef DB_ENV_FATAL
*iv_return = DB_ENV_FATAL;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'F':
if (memEQ(name, "DB_FAST_STAT", 12)) {
#ifdef DB_FAST_STAT
*iv_return = DB_FAST_STAT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'G':
if (memEQ(name, "DB_GET_BOTHC", 12)) {
#ifdef DB_GET_BOTHC
*iv_return = DB_GET_BOTHC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_GET_RECNO", 12)) {
#ifdef DB_GET_RECNO
*iv_return = DB_GET_RECNO;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'H':
if (memEQ(name, "DB_HASHMAGIC", 12)) {
#ifdef DB_HASHMAGIC
*iv_return = DB_HASHMAGIC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'I':
if (memEQ(name, "DB_INIT_LOCK", 12)) {
#ifdef DB_INIT_LOCK
*iv_return = DB_INIT_LOCK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'J':
if (memEQ(name, "DB_JOIN_ITEM", 12)) {
#ifdef DB_JOIN_ITEM
*iv_return = DB_JOIN_ITEM;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'L':
if (memEQ(name, "DB_LOCKMAGIC", 12)) {
#ifdef DB_LOCKMAGIC
*iv_return = DB_LOCKMAGIC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOCK_DUMP", 12)) {
#if (DB_VERSION_MAJOR > 2) || \
(DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
(DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
DB_VERSION_PATCH >= 0)
*iv_return = DB_LOCK_DUMP;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOCK_RW_N", 12)) {
#ifdef DB_LOCK_RW_N
*iv_return = DB_LOCK_RW_N;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOGOLDVER", 12)) {
#ifdef DB_LOGOLDVER
*iv_return = DB_LOGOLDVER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'M':
if (memEQ(name, "DB_MAX_PAGES", 12)) {
#ifdef DB_MAX_PAGES
*iv_return = DB_MAX_PAGES;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_MPOOL_NEW", 12)) {
#ifdef DB_MPOOL_NEW
*iv_return = DB_MPOOL_NEW;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'N':
if (memEQ(name, "DB_NEEDSPLIT", 12)) {
#ifdef DB_NEEDSPLIT
*iv_return = DB_NEEDSPLIT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_NODUPDATA", 12)) {
#ifdef DB_NODUPDATA
*iv_return = DB_NODUPDATA;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_NOLOCKING", 12)) {
#ifdef DB_NOLOCKING
*iv_return = DB_NOLOCKING;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_NORECURSE", 12)) {
#ifdef DB_NORECURSE
*iv_return = DB_NORECURSE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'O':
if (memEQ(name, "DB_OVERWRITE", 12)) {
#ifdef DB_OVERWRITE
*iv_return = DB_OVERWRITE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'P':
if (memEQ(name, "DB_PAGEYIELD", 12)) {
#ifdef DB_PAGEYIELD
*iv_return = DB_PAGEYIELD;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_PAGE_LOCK", 12)) {
#ifdef DB_PAGE_LOCK
*iv_return = DB_PAGE_LOCK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_PERMANENT", 12)) {
#ifdef DB_PERMANENT
*iv_return = DB_PERMANENT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_POSITIONI", 12)) {
#ifdef DB_POSITIONI
*iv_return = DB_POSITIONI;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_PRINTABLE", 12)) {
#ifdef DB_PRINTABLE
*iv_return = DB_PRINTABLE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'Q':
if (memEQ(name, "DB_QAMOLDVER", 12)) {
#ifdef DB_QAMOLDVER
*iv_return = DB_QAMOLDVER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'S':
if (memEQ(name, "DB_SET_RANGE", 12)) {
#ifdef DB_SET_RANGE
*iv_return = DB_SET_RANGE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_SET_RECNO", 12)) {
#ifdef DB_SET_RECNO
*iv_return = DB_SET_RECNO;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_SWAPBYTES", 12)) {
#ifdef DB_SWAPBYTES
*iv_return = DB_SWAPBYTES;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'T':
if (memEQ(name, "DB_TEMPORARY", 12)) {
#ifdef DB_TEMPORARY
*iv_return = DB_TEMPORARY;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TXN_ABORT", 12)) {
#if (DB_VERSION_MAJOR > 3) || \
(DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \
(DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \
DB_VERSION_PATCH >= 12)
*iv_return = DB_TXN_ABORT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TXN_APPLY", 12)) {
#if (DB_VERSION_MAJOR > 4) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \
DB_VERSION_PATCH >= 7)
*iv_return = DB_TXN_APPLY;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TXN_PRINT", 12)) {
#if (DB_VERSION_MAJOR > 4) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
DB_VERSION_PATCH >= 17)
*iv_return = DB_TXN_PRINT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'W':
if (memEQ(name, "DB_WRITELOCK", 12)) {
#ifdef DB_WRITELOCK
*iv_return = DB_WRITELOCK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_WRITEOPEN", 12)) {
#ifdef DB_WRITEOPEN
*iv_return = DB_WRITEOPEN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'X':
if (memEQ(name, "DB_XA_CREATE", 12)) {
#ifdef DB_XA_CREATE
*iv_return = DB_XA_CREATE;
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) {
switch (name[5]) {
case 'A':
if (memEQ(name, "DB_STAT_CLEAR", 13)) {
#ifdef DB_STAT_CLEAR
*iv_return = DB_STAT_CLEAR;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'C':
if (memEQ(name, "DB_INCOMPLETE", 13)) {
#ifdef DB_INCOMPLETE
*iv_return = DB_INCOMPLETE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOCK_NORUN", 13)) {
#ifdef DB_LOCK_NORUN
*iv_return = DB_LOCK_NORUN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOCK_RIW_N", 13)) {
#ifdef DB_LOCK_RIW_N
*iv_return = DB_LOCK_RIW_N;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOCK_TRADE", 13)) {
#if (DB_VERSION_MAJOR > 4) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
DB_VERSION_PATCH >= 17)
*iv_return = DB_LOCK_TRADE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'E':
if (memEQ(name, "DB_CHECKPOINT", 13)) {
#ifdef DB_CHECKPOINT
*iv_return = DB_CHECKPOINT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_PREV_NODUP", 13)) {
#ifdef DB_PREV_NODUP
*iv_return = DB_PREV_NODUP;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'G':
if (memEQ(name, "DB_AGGRESSIVE", 13)) {
#ifdef DB_AGGRESSIVE
*iv_return = DB_AGGRESSIVE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOGVERSION", 13)) {
#ifdef DB_LOGVERSION
*iv_return = DB_LOGVERSION;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOG_LOCKED", 13)) {
#ifdef DB_LOG_LOCKED
*iv_return = DB_LOG_LOCKED;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_REGISTERED", 13)) {
#ifdef DB_REGISTERED
*iv_return = DB_REGISTERED;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'I':
if (memEQ(name, "DB_INIT_MPOOL", 13)) {
#ifdef DB_INIT_MPOOL
*iv_return = DB_INIT_MPOOL;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'M':
if (memEQ(name, "DB_QAMVERSION", 13)) {
#ifdef DB_QAMVERSION
*iv_return = DB_QAMVERSION;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'N':
if (memEQ(name, "DB_DONOTINDEX", 13)) {
#ifdef DB_DONOTINDEX
*iv_return = DB_DONOTINDEX;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TXNVERSION", 13)) {
#ifdef DB_TXNVERSION
*iv_return = DB_TXNVERSION;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TXN_NOSYNC", 13)) {
#ifdef DB_TXN_NOSYNC
*iv_return = DB_TXN_NOSYNC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TXN_NOWAIT", 13)) {
#ifdef DB_TXN_NOWAIT
*iv_return = DB_TXN_NOWAIT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'O':
if (memEQ(name, "DB_MPOOL_LAST", 13)) {
#ifdef DB_MPOOL_LAST
*iv_return = DB_MPOOL_LAST;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_NOORDERCHK", 13)) {
#ifdef DB_NOORDERCHK
*iv_return = DB_NOORDERCHK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'P':
if (memEQ(name, "DB_REP_CLIENT", 13)) {
#ifdef DB_REP_CLIENT
*iv_return = DB_REP_CLIENT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_REP_MASTER", 13)) {
#ifdef DB_REP_MASTER
*iv_return = DB_REP_MASTER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'Q':
if (memEQ(name, "DB_SEQUENTIAL", 13)) {
#ifdef DB_SEQUENTIAL
*iv_return = DB_SEQUENTIAL;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'R':
if (memEQ(name, "DB_BTREEMAGIC", 13)) {
#ifdef DB_BTREEMAGIC
*iv_return = DB_BTREEMAGIC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_DIRECT_LOG", 13)) {
#ifdef DB_DIRECT_LOG
*iv_return = DB_DIRECT_LOG;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_DIRTY_READ", 13)) {
#ifdef DB_DIRTY_READ
*iv_return = DB_DIRTY_READ;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_VERIFY_BAD", 13)) {
#ifdef DB_VERIFY_BAD
*iv_return = DB_VERIFY_BAD;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'S':
if (memEQ(name, "DB_HASHOLDVER", 13)) {
#ifdef DB_HASHOLDVER
*iv_return = DB_HASHOLDVER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_SYSTEM_MEM", 13)) {
#ifdef DB_SYSTEM_MEM
*iv_return = DB_SYSTEM_MEM;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'T':
if (memEQ(name, "DB_MUTEXDEBUG", 13)) {
#ifdef DB_MUTEXDEBUG
*iv_return = DB_MUTEXDEBUG;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_MUTEXLOCKS", 13)) {
#ifdef DB_MUTEXLOCKS
*iv_return = DB_MUTEXLOCKS;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'V':
if (memEQ(name, "DB_ENV_CREATE", 13)) {
#ifdef DB_ENV_CREATE
*iv_return = DB_ENV_CREATE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_ENV_NOMMAP", 13)) {
#ifdef DB_ENV_NOMMAP
*iv_return = DB_ENV_NOMMAP;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_ENV_THREAD", 13)) {
#ifdef DB_ENV_THREAD
*iv_return = DB_ENV_THREAD;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'W':
if (memEQ(name, "DB_RDWRMASTER", 13)) {
#ifdef DB_RDWRMASTER
*iv_return = DB_RDWRMASTER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'X':
if (memEQ(name, "DB_NEXT_NODUP", 13)) {
#ifdef DB_NEXT_NODUP
*iv_return = DB_NEXT_NODUP;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case '_':
if (memEQ(name, "DB_PR_HEADERS", 13)) {
#ifdef DB_PR_HEADERS
*iv_return = DB_PR_HEADERS;
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) {
switch (name[9]) {
case 'A':
if (memEQ(name, "DB_LOCK_RANDOM", 14)) {
#ifdef DB_LOCK_RANDOM
*iv_return = DB_LOCK_RANDOM;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_OPEN_CALLED", 14)) {
#ifdef DB_OPEN_CALLED
*iv_return = DB_OPEN_CALLED;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_REP_UNAVAIL", 14)) {
#ifdef DB_REP_UNAVAIL
*iv_return = DB_REP_UNAVAIL;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_XIDDATASIZE", 14)) {
#ifdef DB_XIDDATASIZE
*iv_return = DB_XIDDATASIZE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'C':
if (memEQ(name, "DB_ENV_LOCKING", 14)) {
#ifdef DB_ENV_LOCKING
*iv_return = DB_ENV_LOCKING;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_MAX_RECORDS", 14)) {
#ifdef DB_MAX_RECORDS
*iv_return = DB_MAX_RECORDS;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_MPOOL_CLEAN", 14)) {
#ifdef DB_MPOOL_CLEAN
*iv_return = DB_MPOOL_CLEAN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_RECORDCOUNT", 14)) {
#ifdef DB_RECORDCOUNT
*iv_return = DB_RECORDCOUNT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'D':
if (memEQ(name, "DB_FILE_ID_LEN", 14)) {
#ifdef DB_FILE_ID_LEN
*iv_return = DB_FILE_ID_LEN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_INVALID_EID", 14)) {
#ifdef DB_INVALID_EID
*iv_return = DB_INVALID_EID;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_MPOOL_DIRTY", 14)) {
#ifdef DB_MPOOL_DIRTY
*iv_return = DB_MPOOL_DIRTY;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'E':
if (memEQ(name, "DB_LOCK_RECORD", 14)) {
#ifdef DB_LOCK_RECORD
*iv_return = DB_LOCK_RECORD;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOCK_REMOVE", 14)) {
#ifdef DB_LOCK_REMOVE
*iv_return = DB_LOCK_REMOVE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_NOSERVER_ID", 14)) {
#ifdef DB_NOSERVER_ID
*iv_return = DB_NOSERVER_ID;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_ODDFILESIZE", 14)) {
#ifdef DB_ODDFILESIZE
*iv_return = DB_ODDFILESIZE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'G':
if (memEQ(name, "DB_ENV_LOGGING", 14)) {
#ifdef DB_ENV_LOGGING
*iv_return = DB_ENV_LOGGING;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'I':
if (memEQ(name, "DB_ENV_PRIVATE", 14)) {
#ifdef DB_ENV_PRIVATE
*iv_return = DB_ENV_PRIVATE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_REVSPLITOFF", 14)) {
#ifdef DB_REVSPLITOFF
*iv_return = DB_REVSPLITOFF;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'L':
if (memEQ(name, "DB_BTREEOLDVER", 14)) {
#ifdef DB_BTREEOLDVER
*iv_return = DB_BTREEOLDVER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_ENV_DBLOCAL", 14)) {
#ifdef DB_ENV_DBLOCAL
*iv_return = DB_ENV_DBLOCAL;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOCK_OLDEST", 14)) {
#ifdef DB_LOCK_OLDEST
*iv_return = DB_LOCK_OLDEST;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'M':
if (memEQ(name, "DB_RENAMEMAGIC", 14)) {
#ifdef DB_RENAMEMAGIC
*iv_return = DB_RENAMEMAGIC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'N':
if (memEQ(name, "DB_SET_TXN_NOW", 14)) {
#ifdef DB_SET_TXN_NOW
*iv_return = DB_SET_TXN_NOW;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'O':
if (memEQ(name, "DB_AUTO_COMMIT", 14)) {
#ifdef DB_AUTO_COMMIT
*iv_return = DB_AUTO_COMMIT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_JOIN_NOSORT", 14)) {
#ifdef DB_JOIN_NOSORT
*iv_return = DB_JOIN_NOSORT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOCK_NOWAIT", 14)) {
#ifdef DB_LOCK_NOWAIT
*iv_return = DB_LOCK_NOWAIT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_RUNRECOVERY", 14)) {
#ifdef DB_RUNRECOVERY
*iv_return = DB_RUNRECOVERY;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'P':
if (memEQ(name, "DB_ENV_APPINIT", 14)) {
#ifdef DB_ENV_APPINIT
*iv_return = DB_ENV_APPINIT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_ENV_NOPANIC", 14)) {
#ifdef DB_ENV_NOPANIC
*iv_return = DB_ENV_NOPANIC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'R':
if (memEQ(name, "DB_HASHVERSION", 14)) {
#ifdef DB_HASHVERSION
*iv_return = DB_HASHVERSION;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOCKVERSION", 14)) {
#ifdef DB_LOCKVERSION
*iv_return = DB_LOCKVERSION;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_OLD_VERSION", 14)) {
#ifdef DB_OLD_VERSION
*iv_return = DB_OLD_VERSION;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'T':
if (memEQ(name, "DB_ENCRYPT_AES", 14)) {
#ifdef DB_ENCRYPT_AES
*iv_return = DB_ENCRYPT_AES;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'U':
if (memEQ(name, "DB_WRITECURSOR", 14)) {
#ifdef DB_WRITECURSOR
*iv_return = DB_WRITECURSOR;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'V':
if (memEQ(name, "DB_EID_INVALID", 14)) {
#ifdef DB_EID_INVALID
*iv_return = DB_EID_INVALID;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_USE_ENVIRON", 14)) {
#ifdef DB_USE_ENVIRON
*iv_return = DB_USE_ENVIRON;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'W':
if (memEQ(name, "DB_LOCK_SWITCH", 14)) {
#ifdef DB_LOCK_SWITCH
*iv_return = DB_LOCK_SWITCH;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_NOOVERWRITE", 14)) {
#ifdef DB_NOOVERWRITE
*iv_return = DB_NOOVERWRITE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_REP_NEWSITE", 14)) {
#ifdef DB_REP_NEWSITE
*iv_return = DB_REP_NEWSITE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'X':
if (memEQ(name, "DB_LOCK_EXPIRE", 14)) {
#ifdef DB_LOCK_EXPIRE
*iv_return = DB_LOCK_EXPIRE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case '_':
if (memEQ(name, "DB_CHKSUM_SHA1", 14)) {
#ifdef DB_CHKSUM_SHA1
*iv_return = DB_CHKSUM_SHA1;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_HANDLE_LOCK", 14)) {
#ifdef DB_HANDLE_LOCK
*iv_return = DB_HANDLE_LOCK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_RECORD_LOCK", 14)) {
#ifdef DB_RECORD_LOCK
*iv_return = DB_RECORD_LOCK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_REGION_ANON", 14)) {
#ifdef DB_REGION_ANON
*iv_return = DB_REGION_ANON;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_REGION_INIT", 14)) {
#ifdef DB_REGION_INIT
*iv_return = DB_REGION_INIT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_REGION_NAME", 14)) {
#ifdef DB_REGION_NAME
*iv_return = DB_REGION_NAME;
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) {
switch (name[10]) {
case 'D':
if (memEQ(name, "DB_REP_OUTDATED", 15)) {
#ifdef DB_REP_OUTDATED
*iv_return = DB_REP_OUTDATED;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'E':
if (memEQ(name, "DB_MULTIPLE_KEY", 15)) {
#ifdef DB_MULTIPLE_KEY
*iv_return = DB_MULTIPLE_KEY;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_SURPRISE_KID", 15)) {
#ifdef DB_SURPRISE_KID
*iv_return = DB_SURPRISE_KID;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TEST_PREOPEN", 15)) {
#ifdef DB_TEST_PREOPEN
*iv_return = DB_TEST_PREOPEN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'F':
if (memEQ(name, "DB_LOCK_DEFAULT", 15)) {
#ifdef DB_LOCK_DEFAULT
*iv_return = DB_LOCK_DEFAULT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_VERIFY_FATAL", 15)) {
#ifdef DB_VERIFY_FATAL
*iv_return = DB_VERIFY_FATAL;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'G':
if (memEQ(name, "DB_LOCK_UPGRADE", 15)) {
#ifdef DB_LOCK_UPGRADE
*iv_return = DB_LOCK_UPGRADE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'H':
if (memEQ(name, "DB_LOCK_INHERIT", 15)) {
#if (DB_VERSION_MAJOR > 2) || \
(DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 7) || \
(DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 7 && \
DB_VERSION_PATCH >= 1)
*iv_return = DB_LOCK_INHERIT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'I':
if (memEQ(name, "DB_ENV_PANIC_OK", 15)) {
#ifdef DB_ENV_PANIC_OK
*iv_return = DB_ENV_PANIC_OK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'K':
if (memEQ(name, "DB_ENV_LOCKDOWN", 15)) {
#ifdef DB_ENV_LOCKDOWN
*iv_return = DB_ENV_LOCKDOWN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_ORDERCHKONLY", 15)) {
#ifdef DB_ORDERCHKONLY
*iv_return = DB_ORDERCHKONLY;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TXN_LOCK_2PL", 15)) {
#ifdef DB_TXN_LOCK_2PL
*iv_return = DB_TXN_LOCK_2PL;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'L':
if (memEQ(name, "DB_ENV_YIELDCPU", 15)) {
#ifdef DB_ENV_YIELDCPU
*iv_return = DB_ENV_YIELDCPU;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'M':
if (memEQ(name, "DB_LOCK_TIMEOUT", 15)) {
#if (DB_VERSION_MAJOR > 4) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \
DB_VERSION_PATCH >= 7)
*iv_return = DB_LOCK_TIMEOUT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_REGION_MAGIC", 15)) {
#ifdef DB_REGION_MAGIC
*iv_return = DB_REGION_MAGIC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'O':
if (memEQ(name, "DB_APPLY_LOGREG", 15)) {
#ifdef DB_APPLY_LOGREG
*iv_return = DB_APPLY_LOGREG;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'P':
if (memEQ(name, "DB_TXN_GETPGNOS", 15)) {
#if (DB_VERSION_MAJOR > 4) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
DB_VERSION_PATCH >= 17)
*iv_return = DB_TXN_GETPGNOS;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'R':
if (memEQ(name, "DB_BTREEVERSION", 15)) {
#ifdef DB_BTREEVERSION
*iv_return = DB_BTREEVERSION;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_MPOOL_CREATE", 15)) {
#ifdef DB_MPOOL_CREATE
*iv_return = DB_MPOOL_CREATE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'S':
if (memEQ(name, "DB_REP_LOGSONLY", 15)) {
#ifdef DB_REP_LOGSONLY
*iv_return = DB_REP_LOGSONLY;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TEST_POSTLOG", 15)) {
#ifdef DB_TEST_POSTLOG
*iv_return = DB_TEST_POSTLOG;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'T':
if (memEQ(name, "DB_LOCK_NOTHELD", 15)) {
#ifdef DB_LOCK_NOTHELD
*iv_return = DB_LOCK_NOTHELD;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOCK_PUT_ALL", 15)) {
#if (DB_VERSION_MAJOR > 2) || \
(DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
(DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
DB_VERSION_PATCH >= 0)
*iv_return = DB_LOCK_PUT_ALL;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOCK_PUT_OBJ", 15)) {
#if (DB_VERSION_MAJOR > 2) || \
(DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
(DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
DB_VERSION_PATCH >= 0)
*iv_return = DB_LOCK_PUT_OBJ;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'X':
if (memEQ(name, "DB_MPOOL_EXTENT", 15)) {
#ifdef DB_MPOOL_EXTENT
*iv_return = DB_MPOOL_EXTENT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'Y':
if (memEQ(name, "DB_PRIORITY_LOW", 15)) {
#if (DB_VERSION_MAJOR > 4) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
DB_VERSION_PATCH >= 17)
*iv_return = DB_PRIORITY_LOW;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case '_':
if (memEQ(name, "DB_CONSUME_WAIT", 15)) {
#ifdef DB_CONSUME_WAIT
*iv_return = DB_CONSUME_WAIT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_OPFLAGS_MASK", 15)) {
#ifdef DB_OPFLAGS_MASK
*iv_return = DB_OPFLAGS_MASK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TXN_LOG_MASK", 15)) {
#ifdef DB_TXN_LOG_MASK
*iv_return = DB_TXN_LOG_MASK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TXN_LOG_REDO", 15)) {
#ifdef DB_TXN_LOG_REDO
*iv_return = DB_TXN_LOG_REDO;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TXN_LOG_UNDO", 15)) {
#ifdef DB_TXN_LOG_UNDO
*iv_return = DB_TXN_LOG_UNDO;
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) {
switch (name[12]) {
case 'A':
if (memEQ(name, "DB_RECOVER_FATAL", 16)) {
#ifdef DB_RECOVER_FATAL
*iv_return = DB_RECOVER_FATAL;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_VERSION_MAJOR", 16)) {
#ifdef DB_VERSION_MAJOR
*iv_return = DB_VERSION_MAJOR;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_VERSION_PATCH", 16)) {
#ifdef DB_VERSION_PATCH
*iv_return = DB_VERSION_PATCH;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'B':
if (memEQ(name, "DB_JAVA_CALLBACK", 16)) {
#ifdef DB_JAVA_CALLBACK
*iv_return = DB_JAVA_CALLBACK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'C':
if (memEQ(name, "DB_EID_BROADCAST", 16)) {
#ifdef DB_EID_BROADCAST
*iv_return = DB_EID_BROADCAST;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_MPOOL_DISCARD", 16)) {
#ifdef DB_MPOOL_DISCARD
*iv_return = DB_MPOOL_DISCARD;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'G':
if (memEQ(name, "DB_LOCK_YOUNGEST", 16)) {
#ifdef DB_LOCK_YOUNGEST
*iv_return = DB_LOCK_YOUNGEST;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'H':
if (memEQ(name, "DB_NOSERVER_HOME", 16)) {
#ifdef DB_NOSERVER_HOME
*iv_return = DB_NOSERVER_HOME;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_PRIORITY_HIGH", 16)) {
#if (DB_VERSION_MAJOR > 4) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
DB_VERSION_PATCH >= 17)
*iv_return = DB_PRIORITY_HIGH;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'I':
if (memEQ(name, "DB_ENV_RPCCLIENT", 16)) {
#ifdef DB_ENV_RPCCLIENT
*iv_return = DB_ENV_RPCCLIENT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TXN_OPENFILES", 16)) {
#if (DB_VERSION_MAJOR > 3) || \
(DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \
(DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \
DB_VERSION_PATCH >= 12)
*iv_return = DB_TXN_OPENFILES;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_VERSION_MINOR", 16)) {
#ifdef DB_VERSION_MINOR
*iv_return = DB_VERSION_MINOR;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'K':
if (memEQ(name, "DB_ENV_NOLOCKING", 16)) {
#ifdef DB_ENV_NOLOCKING
*iv_return = DB_ENV_NOLOCKING;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_FCNTL_LOCKING", 16)) {
#ifdef DB_FCNTL_LOCKING
*iv_return = DB_FCNTL_LOCKING;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'L':
if (memEQ(name, "DB_ENV_CDB_ALLDB", 16)) {
#ifdef DB_ENV_CDB_ALLDB
*iv_return = DB_ENV_CDB_ALLDB;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOCK_CONFLICT", 16)) {
#ifdef DB_LOCK_CONFLICT
*iv_return = DB_LOCK_CONFLICT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOCK_DEADLOCK", 16)) {
#ifdef DB_LOCK_DEADLOCK
*iv_return = DB_LOCK_DEADLOCK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_VERB_DEADLOCK", 16)) {
#ifdef DB_VERB_DEADLOCK
*iv_return = DB_VERB_DEADLOCK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'M':
if (memEQ(name, "DB_TXN_LOCK_MASK", 16)) {
#ifdef DB_TXN_LOCK_MASK
*iv_return = DB_TXN_LOCK_MASK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_VRFY_FLAGMASK", 16)) {
#ifdef DB_VRFY_FLAGMASK
*iv_return = DB_VRFY_FLAGMASK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'N':
if (memEQ(name, "DB_REP_PERMANENT", 16)) {
#ifdef DB_REP_PERMANENT
*iv_return = DB_REP_PERMANENT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'O':
if (memEQ(name, "DB_LOCK_MAXLOCKS", 16)) {
#ifdef DB_LOCK_MAXLOCKS
*iv_return = DB_LOCK_MAXLOCKS;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOCK_MINLOCKS", 16)) {
#ifdef DB_LOCK_MINLOCKS
*iv_return = DB_LOCK_MINLOCKS;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_PAGE_NOTFOUND", 16)) {
#ifdef DB_PAGE_NOTFOUND
*iv_return = DB_PAGE_NOTFOUND;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TEST_POSTOPEN", 16)) {
#ifdef DB_TEST_POSTOPEN
*iv_return = DB_TEST_POSTOPEN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_VERB_CHKPOINT", 16)) {
#ifdef DB_VERB_CHKPOINT
*iv_return = DB_VERB_CHKPOINT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'R':
if (memEQ(name, "DB_ENV_OVERWRITE", 16)) {
#ifdef DB_ENV_OVERWRITE
*iv_return = DB_ENV_OVERWRITE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOCK_MINWRITE", 16)) {
#ifdef DB_LOCK_MINWRITE
*iv_return = DB_LOCK_MINWRITE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOCK_PUT_READ", 16)) {
#if (DB_VERSION_MAJOR > 4) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \
DB_VERSION_PATCH >= 7)
*iv_return = DB_LOCK_PUT_READ;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'S':
if (memEQ(name, "DB_LOGC_BUF_SIZE", 16)) {
#ifdef DB_LOGC_BUF_SIZE
*iv_return = DB_LOGC_BUF_SIZE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_REP_DUPMASTER", 16)) {
#ifdef DB_REP_DUPMASTER
*iv_return = DB_REP_DUPMASTER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_REP_NEWMASTER", 16)) {
#ifdef DB_REP_NEWMASTER
*iv_return = DB_REP_NEWMASTER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TEST_POSTSYNC", 16)) {
#ifdef DB_TEST_POSTSYNC
*iv_return = DB_TEST_POSTSYNC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_VERB_WAITSFOR", 16)) {
#ifdef DB_VERB_WAITSFOR
*iv_return = DB_VERB_WAITSFOR;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'T':
if (memEQ(name, "DB_ENV_DIRECT_DB", 16)) {
#ifdef DB_ENV_DIRECT_DB
*iv_return = DB_ENV_DIRECT_DB;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'U':
if (memEQ(name, "DB_CACHED_COUNTS", 16)) {
#ifdef DB_CACHED_COUNTS
*iv_return = DB_CACHED_COUNTS;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'V':
if (memEQ(name, "DB_MPOOL_PRIVATE", 16)) {
#ifdef DB_MPOOL_PRIVATE
*iv_return = DB_MPOOL_PRIVATE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_VERB_RECOVERY", 16)) {
#ifdef DB_VERB_RECOVERY
*iv_return = DB_VERB_RECOVERY;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'X':
if (memEQ(name, "DB_LOCK_NOTEXIST", 16)) {
#ifdef DB_LOCK_NOTEXIST
*iv_return = DB_LOCK_NOTEXIST;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case '_':
if (memEQ(name, "DB_BROADCAST_EID", 16)) {
#ifdef DB_BROADCAST_EID
*iv_return = DB_BROADCAST_EID;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_SECONDARY_BAD", 16)) {
#ifdef DB_SECONDARY_BAD
*iv_return = DB_SECONDARY_BAD;
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, const char **pv_return) {
switch (name[14]) {
case 'A':
if (memEQ(name, "DB_TEST_PRERENAME", 17)) {
#ifdef DB_TEST_PRERENAME
*iv_return = DB_TEST_PRERENAME;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'E':
if (memEQ(name, "DB_ENV_REP_CLIENT", 17)) {
#ifdef DB_ENV_REP_CLIENT
*iv_return = DB_ENV_REP_CLIENT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOG_SILENT_ERR", 17)) {
#ifdef DB_LOG_SILENT_ERR
*iv_return = DB_LOG_SILENT_ERR;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_RPC_SERVERVERS", 17)) {
#ifdef DB_RPC_SERVERVERS
*iv_return = DB_RPC_SERVERVERS;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TEST_ELECTSEND", 17)) {
#ifdef DB_TEST_ELECTSEND
*iv_return = DB_TEST_ELECTSEND;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'I':
if (memEQ(name, "DB_VERSION_STRING", 17)) {
#ifdef DB_VERSION_STRING
*pv_return = DB_VERSION_STRING;
return PERL_constant_ISPV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'L':
if (memEQ(name, "DB_ENV_DIRECT_LOG", 17)) {
#ifdef DB_ENV_DIRECT_LOG
*iv_return = DB_ENV_DIRECT_LOG;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_ENV_USER_ALLOC", 17)) {
#ifdef DB_ENV_USER_ALLOC
*iv_return = DB_ENV_USER_ALLOC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TXN_POPENFILES", 17)) {
#if (DB_VERSION_MAJOR > 3) || \
(DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 3) || \
(DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 3 && \
DB_VERSION_PATCH >= 4)
*iv_return = DB_TXN_POPENFILES;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'M':
if (memEQ(name, "DB_ENV_SYSTEM_MEM", 17)) {
#ifdef DB_ENV_SYSTEM_MEM
*iv_return = DB_ENV_SYSTEM_MEM;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'N':
if (memEQ(name, "DB_GET_BOTH_RANGE", 17)) {
#ifdef DB_GET_BOTH_RANGE
*iv_return = DB_GET_BOTH_RANGE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TEST_ELECTINIT", 17)) {
#ifdef DB_TEST_ELECTINIT
*iv_return = DB_TEST_ELECTINIT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'O':
if (memEQ(name, "DB_ENV_STANDALONE", 17)) {
#ifdef DB_ENV_STANDALONE
*iv_return = DB_ENV_STANDALONE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'R':
if (memEQ(name, "DB_RPC_SERVERPROG", 17)) {
#ifdef DB_RPC_SERVERPROG
*iv_return = DB_RPC_SERVERPROG;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'T':
if (memEQ(name, "DB_ENV_REP_MASTER", 17)) {
#ifdef DB_ENV_REP_MASTER
*iv_return = DB_ENV_REP_MASTER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'Y':
if (memEQ(name, "DB_ENV_TXN_NOSYNC", 17)) {
#ifdef DB_ENV_TXN_NOSYNC
*iv_return = DB_ENV_TXN_NOSYNC;
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) {
switch (name[13]) {
case 'A':
if (memEQ(name, "DB_ENV_OPEN_CALLED", 18)) {
#ifdef DB_ENV_OPEN_CALLED
*iv_return = DB_ENV_OPEN_CALLED;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOCK_NOTGRANTED", 18)) {
#ifdef DB_LOCK_NOTGRANTED
*iv_return = DB_LOCK_NOTGRANTED;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'E':
if (memEQ(name, "DB_TEST_POSTRENAME", 18)) {
#ifdef DB_TEST_POSTRENAME
*iv_return = DB_TEST_POSTRENAME;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'G':
if (memEQ(name, "DB_MPOOL_NEW_GROUP", 18)) {
#ifdef DB_MPOOL_NEW_GROUP
*iv_return = DB_MPOOL_NEW_GROUP;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'M':
if (memEQ(name, "DB_SET_TXN_TIMEOUT", 18)) {
#ifdef DB_SET_TXN_TIMEOUT
*iv_return = DB_SET_TXN_TIMEOUT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'O':
if (memEQ(name, "DB_ALREADY_ABORTED", 18)) {
#ifdef DB_ALREADY_ABORTED
*iv_return = DB_ALREADY_ABORTED;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_ENV_AUTO_COMMIT", 18)) {
#ifdef DB_ENV_AUTO_COMMIT
*iv_return = DB_ENV_AUTO_COMMIT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'S':
if (memEQ(name, "DB_TEST_PREDESTROY", 18)) {
#ifdef DB_TEST_PREDESTROY
*iv_return = DB_TEST_PREDESTROY;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'T':
if (memEQ(name, "DB_TEST_PREEXTOPEN", 18)) {
#ifdef DB_TEST_PREEXTOPEN
*iv_return = DB_TEST_PREEXTOPEN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'V':
if (memEQ(name, "DB_TEST_ELECTVOTE1", 18)) {
#ifdef DB_TEST_ELECTVOTE1
*iv_return = DB_TEST_ELECTVOTE1;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TEST_ELECTVOTE2", 18)) {
#ifdef DB_TEST_ELECTVOTE2
*iv_return = DB_TEST_ELECTVOTE2;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'W':
if (memEQ(name, "DB_TEST_ELECTWAIT1", 18)) {
#ifdef DB_TEST_ELECTWAIT1
*iv_return = DB_TEST_ELECTWAIT1;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TEST_ELECTWAIT2", 18)) {
#ifdef DB_TEST_ELECTWAIT2
*iv_return = DB_TEST_ELECTWAIT2;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'Y':
if (memEQ(name, "DB_PR_RECOVERYTEST", 18)) {
#ifdef DB_PR_RECOVERYTEST
*iv_return = DB_PR_RECOVERYTEST;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case '_':
if (memEQ(name, "DB_ENV_REGION_INIT", 18)) {
#ifdef DB_ENV_REGION_INIT
*iv_return = DB_ENV_REGION_INIT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
}
return PERL_constant_NOTFOUND;
}
static int
constant_19 (pTHX_ const char *name, IV *iv_return) {
switch (name[9]) {
case 'C':
if (memEQ(name, "DB_SET_LOCK_TIMEOUT", 19)) {
#ifdef DB_SET_LOCK_TIMEOUT
*iv_return = DB_SET_LOCK_TIMEOUT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'E':
if (memEQ(name, "DB_LOCK_GET_TIMEOUT", 19)) {
#if (DB_VERSION_MAJOR > 4) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \
DB_VERSION_PATCH >= 7)
*iv_return = DB_LOCK_GET_TIMEOUT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_LOCK_SET_TIMEOUT", 19)) {
#ifdef DB_LOCK_SET_TIMEOUT
*iv_return = DB_LOCK_SET_TIMEOUT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_VERB_REPLICATION", 19)) {
#ifdef DB_VERB_REPLICATION
*iv_return = DB_VERB_REPLICATION;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'G':
if (memEQ(name, "DB_TXN_LOG_UNDOREDO", 19)) {
#ifdef DB_TXN_LOG_UNDOREDO
*iv_return = DB_TXN_LOG_UNDOREDO;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'I':
if (memEQ(name, "DB_TXN_WRITE_NOSYNC", 19)) {
#ifdef DB_TXN_WRITE_NOSYNC
*iv_return = DB_TXN_WRITE_NOSYNC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'L':
if (memEQ(name, "DB_REP_HOLDELECTION", 19)) {
#ifdef DB_REP_HOLDELECTION
*iv_return = DB_REP_HOLDELECTION;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_UNRESOLVED_CHILD", 19)) {
#ifdef DB_UNRESOLVED_CHILD
*iv_return = DB_UNRESOLVED_CHILD;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'O':
if (memEQ(name, "DB_TEST_POSTDESTROY", 19)) {
#ifdef DB_TEST_POSTDESTROY
*iv_return = DB_TEST_POSTDESTROY;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TEST_POSTEXTOPEN", 19)) {
#ifdef DB_TEST_POSTEXTOPEN
*iv_return = DB_TEST_POSTEXTOPEN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TEST_POSTLOGMETA", 19)) {
#ifdef DB_TEST_POSTLOGMETA
*iv_return = DB_TEST_POSTLOGMETA;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'P':
if (memEQ(name, "DB_ENV_REP_LOGSONLY", 19)) {
#ifdef DB_ENV_REP_LOGSONLY
*iv_return = DB_ENV_REP_LOGSONLY;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'R':
if (memEQ(name, "DB_LOCK_FREE_LOCKER", 19)) {
#ifdef DB_LOCK_FREE_LOCKER
*iv_return = DB_LOCK_FREE_LOCKER;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TXN_FORWARD_ROLL", 19)) {
#if (DB_VERSION_MAJOR > 3) || \
(DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \
(DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \
DB_VERSION_PATCH >= 12)
*iv_return = DB_TXN_FORWARD_ROLL;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'T':
if (memEQ(name, "DB_PRIORITY_DEFAULT", 19)) {
#if (DB_VERSION_MAJOR > 4) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
DB_VERSION_PATCH >= 17)
*iv_return = DB_PRIORITY_DEFAULT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'U':
if (memEQ(name, "DB_TEST_SUBDB_LOCKS", 19)) {
#ifdef DB_TEST_SUBDB_LOCKS
*iv_return = DB_TEST_SUBDB_LOCKS;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'V':
if (memEQ(name, "DB_USE_ENVIRON_ROOT", 19)) {
#ifdef DB_USE_ENVIRON_ROOT
*iv_return = DB_USE_ENVIRON_ROOT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case '_':
if (memEQ(name, "DB_UPDATE_SECONDARY", 19)) {
#ifdef DB_UPDATE_SECONDARY
*iv_return = DB_UPDATE_SECONDARY;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
}
return PERL_constant_NOTFOUND;
}
static int
constant_20 (pTHX_ const char *name, IV *iv_return) {
switch (name[14]) {
case 'D':
if (memEQ(name, "DB_TEST_PREEXTDELETE", 20)) {
#ifdef DB_TEST_PREEXTDELETE
*iv_return = DB_TEST_PREEXTDELETE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
if (memEQ(name, "DB_TXN_BACKWARD_ROLL", 20)) {
#if (DB_VERSION_MAJOR > 3) || \
(DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \
(DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \
DB_VERSION_PATCH >= 12)
*iv_return = DB_TXN_BACKWARD_ROLL;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'N':
if (memEQ(name, "DB_LOGFILEID_INVALID", 20)) {
#ifdef DB_LOGFILEID_INVALID
*iv_return = DB_LOGFILEID_INVALID;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'O':
if (memEQ(name, "DB_PANIC_ENVIRONMENT", 20)) {
#ifdef DB_PANIC_ENVIRONMENT
*iv_return = DB_PANIC_ENVIRONMENT;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'P':
if (memEQ(name, "DB_CXX_NO_EXCEPTIONS", 20)) {
#ifdef DB_CXX_NO_EXCEPTIONS
*iv_return = DB_CXX_NO_EXCEPTIONS;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'R':
if (memEQ(name, "DB_PRIORITY_VERY_LOW", 20)) {
#if (DB_VERSION_MAJOR > 4) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
DB_VERSION_PATCH >= 17)
*iv_return = DB_PRIORITY_VERY_LOW;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'T':
if (memEQ(name, "DB_TXN_LOCK_OPTIMIST", 20)) {
#ifdef DB_TXN_LOCK_OPTIMIST
*iv_return = DB_TXN_LOCK_OPTIMIST;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'U':
if (memEQ(name, "DB_TEST_PREEXTUNLINK", 20)) {
#ifdef DB_TEST_PREEXTUNLINK
*iv_return = DB_TEST_PREEXTUNLINK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
}
return PERL_constant_NOTFOUND;
}
static int
constant_21 (pTHX_ const char *name, IV *iv_return) {
switch (name[16]) {
case 'A':
if (memEQ(name, "DB_TXN_BACKWARD_ALLOC", 21)) {
#if (DB_VERSION_MAJOR > 4) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
DB_VERSION_PATCH >= 17)
*iv_return = DB_TXN_BACKWARD_ALLOC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'E':
if (memEQ(name, "DB_TEST_POSTEXTDELETE", 21)) {
#ifdef DB_TEST_POSTEXTDELETE
*iv_return = DB_TEST_POSTEXTDELETE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'N':
if (memEQ(name, "DB_TEST_POSTEXTUNLINK", 21)) {
#ifdef DB_TEST_POSTEXTUNLINK
*iv_return = DB_TEST_POSTEXTUNLINK;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'W':
if (memEQ(name, "DB_LOCK_UPGRADE_WRITE", 21)) {
#if (DB_VERSION_MAJOR > 3) || \
(DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 3) || \
(DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 3 && \
DB_VERSION_PATCH >= 4)
*iv_return = DB_LOCK_UPGRADE_WRITE;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case '_':
if (memEQ(name, "DB_PRIORITY_VERY_HIGH", 21)) {
#if (DB_VERSION_MAJOR > 4) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
(DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
DB_VERSION_PATCH >= 17)
*iv_return = DB_PRIORITY_VERY_HIGH;
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, const char **pv_return) {
switch (len) {
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:
return constant_15 (aTHX_ name, iv_return);
break;
case 16:
return constant_16 (aTHX_ name, iv_return);
break;
case 17:
return constant_17 (aTHX_ name, iv_return, pv_return);
break;
case 18:
return constant_18 (aTHX_ name, iv_return);
break;
case 19:
return constant_19 (aTHX_ name, iv_return);
break;
case 20:
return constant_20 (aTHX_ name, iv_return);
break;
case 21:
return constant_21 (aTHX_ name, iv_return);
break;
case 22:
switch (name[8]) {
case 'O':
if (memEQ(name, "DB_TXN_LOCK_OPTIMISTIC", 22)) {
#ifdef DB_TXN_LOCK_OPTIMISTIC
*iv_return = DB_TXN_LOCK_OPTIMISTIC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
case 'P':
if (memEQ(name, "DB_ENV_RPCCLIENT_GIVEN", 22)) {
#ifdef DB_ENV_RPCCLIENT_GIVEN
*iv_return = DB_ENV_RPCCLIENT_GIVEN;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
}
break;
case 23:
if (memEQ(name, "DB_ENV_TXN_WRITE_NOSYNC", 23)) {
#ifdef DB_ENV_TXN_WRITE_NOSYNC
*iv_return = DB_ENV_TXN_WRITE_NOSYNC;
return PERL_constant_ISIV;
#else
return PERL_constant_NOTDEF;
#endif
}
break;
}
return PERL_constant_NOTFOUND;
}