00001 #define PERL_constant_NOTFOUND 1
00002 #define PERL_constant_NOTDEF 2
00003 #define PERL_constant_ISIV 3
00004 #define PERL_constant_ISNO 4
00005 #define PERL_constant_ISNV 5
00006 #define PERL_constant_ISPV 6
00007 #define PERL_constant_ISPVN 7
00008 #define PERL_constant_ISSV 8
00009 #define PERL_constant_ISUNDEF 9
00010 #define PERL_constant_ISUV 10
00011 #define PERL_constant_ISYES 11
00012
00013 #ifndef NVTYPE
00014 typedef double NV;
00015 #endif
00016 #ifndef aTHX_
00017 #define aTHX_
00018 #endif
00019 #ifndef pTHX_
00020 #define pTHX_
00021 #endif
00022
00023 static int
00024 constant_6 (pTHX_ const char *name, IV *iv_return) {
00025
00026
00027
00028
00029 switch (name[3]) {
00030 case 'D':
00031 if (memEQ(name, "DB_DUP", 6)) {
00032
00033 #ifdef DB_DUP
00034 *iv_return = DB_DUP;
00035 return PERL_constant_ISIV;
00036 #else
00037 return PERL_constant_NOTDEF;
00038 #endif
00039 }
00040 break;
00041 case 'P':
00042 if (memEQ(name, "DB_PAD", 6)) {
00043
00044 #ifdef DB_PAD
00045 *iv_return = DB_PAD;
00046 return PERL_constant_ISIV;
00047 #else
00048 return PERL_constant_NOTDEF;
00049 #endif
00050 }
00051 break;
00052 case 'R':
00053 if (memEQ(name, "DB_RMW", 6)) {
00054
00055 #ifdef DB_RMW
00056 *iv_return = DB_RMW;
00057 return PERL_constant_ISIV;
00058 #else
00059 return PERL_constant_NOTDEF;
00060 #endif
00061 }
00062 break;
00063 case 'S':
00064 if (memEQ(name, "DB_SET", 6)) {
00065
00066 #ifdef DB_SET
00067 *iv_return = DB_SET;
00068 return PERL_constant_ISIV;
00069 #else
00070 return PERL_constant_NOTDEF;
00071 #endif
00072 }
00073 break;
00074 }
00075 return PERL_constant_NOTFOUND;
00076 }
00077
00078 static int
00079 constant_7 (pTHX_ const char *name, IV *iv_return) {
00080
00081
00082
00083
00084 switch (name[3]) {
00085 case 'E':
00086 if (memEQ(name, "DB_EXCL", 7)) {
00087
00088 #ifdef DB_EXCL
00089 *iv_return = DB_EXCL;
00090 return PERL_constant_ISIV;
00091 #else
00092 return PERL_constant_NOTDEF;
00093 #endif
00094 }
00095 break;
00096 case 'H':
00097 if (memEQ(name, "DB_HASH", 7)) {
00098
00099 #if (DB_VERSION_MAJOR > 2) || \
00100 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
00101 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
00102 DB_VERSION_PATCH >= 3)
00103 *iv_return = DB_HASH;
00104 return PERL_constant_ISIV;
00105 #else
00106 return PERL_constant_NOTDEF;
00107 #endif
00108 }
00109 break;
00110 case 'L':
00111 if (memEQ(name, "DB_LAST", 7)) {
00112
00113 #ifdef DB_LAST
00114 *iv_return = DB_LAST;
00115 return PERL_constant_ISIV;
00116 #else
00117 return PERL_constant_NOTDEF;
00118 #endif
00119 }
00120 break;
00121 case 'N':
00122 if (memEQ(name, "DB_NEXT", 7)) {
00123
00124 #ifdef DB_NEXT
00125 *iv_return = DB_NEXT;
00126 return PERL_constant_ISIV;
00127 #else
00128 return PERL_constant_NOTDEF;
00129 #endif
00130 }
00131 break;
00132 case 'P':
00133 if (memEQ(name, "DB_PREV", 7)) {
00134
00135 #ifdef DB_PREV
00136 *iv_return = DB_PREV;
00137 return PERL_constant_ISIV;
00138 #else
00139 return PERL_constant_NOTDEF;
00140 #endif
00141 }
00142 break;
00143 }
00144 return PERL_constant_NOTFOUND;
00145 }
00146
00147 static int
00148 constant_8 (pTHX_ const char *name, IV *iv_return) {
00149
00150
00151
00152
00153 switch (name[4]) {
00154 case 'E':
00155 if (memEQ(name, "DB_RECNO", 8)) {
00156
00157 #if (DB_VERSION_MAJOR > 2) || \
00158 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
00159 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
00160 DB_VERSION_PATCH >= 3)
00161 *iv_return = DB_RECNO;
00162 return PERL_constant_ISIV;
00163 #else
00164 return PERL_constant_NOTDEF;
00165 #endif
00166 }
00167 break;
00168 case 'F':
00169 if (memEQ(name, "DB_AFTER", 8)) {
00170
00171 #ifdef DB_AFTER
00172 *iv_return = DB_AFTER;
00173 return PERL_constant_ISIV;
00174 #else
00175 return PERL_constant_NOTDEF;
00176 #endif
00177 }
00178 break;
00179 case 'I':
00180 if (memEQ(name, "DB_FIRST", 8)) {
00181
00182 #ifdef DB_FIRST
00183 *iv_return = DB_FIRST;
00184 return PERL_constant_ISIV;
00185 #else
00186 return PERL_constant_NOTDEF;
00187 #endif
00188 }
00189 break;
00190 case 'L':
00191 if (memEQ(name, "DB_FLUSH", 8)) {
00192
00193 #ifdef DB_FLUSH
00194 *iv_return = DB_FLUSH;
00195 return PERL_constant_ISIV;
00196 #else
00197 return PERL_constant_NOTDEF;
00198 #endif
00199 }
00200 break;
00201 case 'N':
00202 if (memEQ(name, "DB_UNREF", 8)) {
00203
00204 #ifdef DB_UNREF
00205 *iv_return = DB_UNREF;
00206 return PERL_constant_ISIV;
00207 #else
00208 return PERL_constant_NOTDEF;
00209 #endif
00210 }
00211 break;
00212 case 'O':
00213 if (memEQ(name, "DB_FORCE", 8)) {
00214
00215 #ifdef DB_FORCE
00216 *iv_return = DB_FORCE;
00217 return PERL_constant_ISIV;
00218 #else
00219 return PERL_constant_NOTDEF;
00220 #endif
00221 }
00222 break;
00223 case 'T':
00224 if (memEQ(name, "DB_BTREE", 8)) {
00225
00226 #if (DB_VERSION_MAJOR > 2) || \
00227 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
00228 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
00229 DB_VERSION_PATCH >= 3)
00230 *iv_return = DB_BTREE;
00231 return PERL_constant_ISIV;
00232 #else
00233 return PERL_constant_NOTDEF;
00234 #endif
00235 }
00236 break;
00237 case 'U':
00238 if (memEQ(name, "DB_QUEUE", 8)) {
00239
00240 #if (DB_VERSION_MAJOR > 3) || \
00241 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 0) || \
00242 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 0 && \
00243 DB_VERSION_PATCH >= 55)
00244 *iv_return = DB_QUEUE;
00245 return PERL_constant_ISIV;
00246 #else
00247 return PERL_constant_NOTDEF;
00248 #endif
00249 }
00250 break;
00251 }
00252 return PERL_constant_NOTFOUND;
00253 }
00254
00255 static int
00256 constant_9 (pTHX_ const char *name, IV *iv_return) {
00257
00258
00259
00260
00261
00262
00263 switch (name[7]) {
00264 case 'A':
00265 if (memEQ(name, "DB_NOMMAP", 9)) {
00266
00267 #ifdef DB_NOMMAP
00268 *iv_return = DB_NOMMAP;
00269 return PERL_constant_ISIV;
00270 #else
00271 return PERL_constant_NOTDEF;
00272 #endif
00273 }
00274 if (memEQ(name, "DB_THREAD", 9)) {
00275
00276 #ifdef DB_THREAD
00277 *iv_return = DB_THREAD;
00278 return PERL_constant_ISIV;
00279 #else
00280 return PERL_constant_NOTDEF;
00281 #endif
00282 }
00283 break;
00284 case 'C':
00285 if (memEQ(name, "DB_DIRECT", 9)) {
00286
00287 #ifdef DB_DIRECT
00288 *iv_return = DB_DIRECT;
00289 return PERL_constant_ISIV;
00290 #else
00291 return PERL_constant_NOTDEF;
00292 #endif
00293 }
00294 break;
00295 case 'E':
00296 if (memEQ(name, "DB_GETREC", 9)) {
00297
00298 #ifdef DB_GETREC
00299 *iv_return = DB_GETREC;
00300 return PERL_constant_ISIV;
00301 #else
00302 return PERL_constant_NOTDEF;
00303 #endif
00304 }
00305 break;
00306 case 'F':
00307 if (memEQ(name, "DB_VERIFY", 9)) {
00308
00309 #ifdef DB_VERIFY
00310 *iv_return = DB_VERIFY;
00311 return PERL_constant_ISIV;
00312 #else
00313 return PERL_constant_NOTDEF;
00314 #endif
00315 }
00316 break;
00317 case 'I':
00318 if (memEQ(name, "DB_COMMIT", 9)) {
00319
00320 #ifdef DB_COMMIT
00321 *iv_return = DB_COMMIT;
00322 return PERL_constant_ISIV;
00323 #else
00324 return PERL_constant_NOTDEF;
00325 #endif
00326 }
00327 break;
00328 case 'L':
00329 if (memEQ(name, "DB_RDONLY", 9)) {
00330
00331 #ifdef DB_RDONLY
00332 *iv_return = DB_RDONLY;
00333 return PERL_constant_ISIV;
00334 #else
00335 return PERL_constant_NOTDEF;
00336 #endif
00337 }
00338 break;
00339 case 'N':
00340 if (memEQ(name, "DB_APPEND", 9)) {
00341
00342 #ifdef DB_APPEND
00343 *iv_return = DB_APPEND;
00344 return PERL_constant_ISIV;
00345 #else
00346 return PERL_constant_NOTDEF;
00347 #endif
00348 }
00349 if (memEQ(name, "DB_CLIENT", 9)) {
00350
00351 #ifdef DB_CLIENT
00352 *iv_return = DB_CLIENT;
00353 return PERL_constant_ISIV;
00354 #else
00355 return PERL_constant_NOTDEF;
00356 #endif
00357 }
00358 if (memEQ(name, "DB_EXTENT", 9)) {
00359
00360 #ifdef DB_EXTENT
00361 *iv_return = DB_EXTENT;
00362 return PERL_constant_ISIV;
00363 #else
00364 return PERL_constant_NOTDEF;
00365 #endif
00366 }
00367 if (memEQ(name, "DB_NOSYNC", 9)) {
00368
00369 #ifdef DB_NOSYNC
00370 *iv_return = DB_NOSYNC;
00371 return PERL_constant_ISIV;
00372 #else
00373 return PERL_constant_NOTDEF;
00374 #endif
00375 }
00376 break;
00377 case 'P':
00378 if (memEQ(name, "DB_NOCOPY", 9)) {
00379
00380 #ifdef DB_NOCOPY
00381 *iv_return = DB_NOCOPY;
00382 return PERL_constant_ISIV;
00383 #else
00384 return PERL_constant_NOTDEF;
00385 #endif
00386 }
00387 break;
00388 case 'R':
00389 if (memEQ(name, "DB_BEFORE", 9)) {
00390
00391 #ifdef DB_BEFORE
00392 *iv_return = DB_BEFORE;
00393 return PERL_constant_ISIV;
00394 #else
00395 return PERL_constant_NOTDEF;
00396 #endif
00397 }
00398 break;
00399 case 'S':
00400 if (memEQ(name, "DB_CURLSN", 9)) {
00401
00402 #ifdef DB_CURLSN
00403 *iv_return = DB_CURLSN;
00404 return PERL_constant_ISIV;
00405 #else
00406 return PERL_constant_NOTDEF;
00407 #endif
00408 }
00409 break;
00410 case 'T':
00411 if (memEQ(name, "DB_CREATE", 9)) {
00412
00413 #ifdef DB_CREATE
00414 *iv_return = DB_CREATE;
00415 return PERL_constant_ISIV;
00416 #else
00417 return PERL_constant_NOTDEF;
00418 #endif
00419 }
00420 break;
00421 case 'U':
00422 if (memEQ(name, "DB_CHKSUM", 9)) {
00423
00424 #ifdef DB_CHKSUM
00425 *iv_return = DB_CHKSUM;
00426 return PERL_constant_ISIV;
00427 #else
00428 return PERL_constant_NOTDEF;
00429 #endif
00430 }
00431 if (memEQ(name, "DB_RECNUM", 9)) {
00432
00433 #ifdef DB_RECNUM
00434 *iv_return = DB_RECNUM;
00435 return PERL_constant_ISIV;
00436 #else
00437 return PERL_constant_NOTDEF;
00438 #endif
00439 }
00440 break;
00441 }
00442 return PERL_constant_NOTFOUND;
00443 }
00444
00445 static int
00446 constant_10 (pTHX_ const char *name, IV *iv_return) {
00447
00448
00449
00450
00451
00452
00453
00454 switch (name[5]) {
00455 case 'C':
00456 if (memEQ(name, "DB_ENCRYPT", 10)) {
00457
00458 #ifdef DB_ENCRYPT
00459 *iv_return = DB_ENCRYPT;
00460 return PERL_constant_ISIV;
00461 #else
00462 return PERL_constant_NOTDEF;
00463 #endif
00464 }
00465 if (memEQ(name, "DB_RECOVER", 10)) {
00466
00467 #ifdef DB_RECOVER
00468 *iv_return = DB_RECOVER;
00469 return PERL_constant_ISIV;
00470 #else
00471 return PERL_constant_NOTDEF;
00472 #endif
00473 }
00474 break;
00475 case 'G':
00476 if (memEQ(name, "DB_UPGRADE", 10)) {
00477
00478 #ifdef DB_UPGRADE
00479 *iv_return = DB_UPGRADE;
00480 return PERL_constant_ISIV;
00481 #else
00482 return PERL_constant_NOTDEF;
00483 #endif
00484 }
00485 break;
00486 case 'I':
00487 if (memEQ(name, "DB_JOINENV", 10)) {
00488
00489 #ifdef DB_JOINENV
00490 *iv_return = DB_JOINENV;
00491 return PERL_constant_ISIV;
00492 #else
00493 return PERL_constant_NOTDEF;
00494 #endif
00495 }
00496 if (memEQ(name, "DB_PRIVATE", 10)) {
00497
00498 #ifdef DB_PRIVATE
00499 *iv_return = DB_PRIVATE;
00500 return PERL_constant_ISIV;
00501 #else
00502 return PERL_constant_NOTDEF;
00503 #endif
00504 }
00505 break;
00506 case 'K':
00507 if (memEQ(name, "DB_UNKNOWN", 10)) {
00508
00509 #if (DB_VERSION_MAJOR > 2) || \
00510 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
00511 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
00512 DB_VERSION_PATCH >= 3)
00513 *iv_return = DB_UNKNOWN;
00514 return PERL_constant_ISIV;
00515 #else
00516 return PERL_constant_NOTDEF;
00517 #endif
00518 }
00519 break;
00520 case 'L':
00521 if (memEQ(name, "DB_DELETED", 10)) {
00522
00523 #ifdef DB_DELETED
00524 *iv_return = DB_DELETED;
00525 return PERL_constant_ISIV;
00526 #else
00527 return PERL_constant_NOTDEF;
00528 #endif
00529 }
00530 if (memEQ(name, "DB_SALVAGE", 10)) {
00531
00532 #ifdef DB_SALVAGE
00533 *iv_return = DB_SALVAGE;
00534 return PERL_constant_ISIV;
00535 #else
00536 return PERL_constant_NOTDEF;
00537 #endif
00538 }
00539 break;
00540 case 'M':
00541 if (memEQ(name, "DB_TIMEOUT", 10)) {
00542
00543 #ifdef DB_TIMEOUT
00544 *iv_return = DB_TIMEOUT;
00545 return PERL_constant_ISIV;
00546 #else
00547 return PERL_constant_NOTDEF;
00548 #endif
00549 }
00550 break;
00551 case 'N':
00552 if (memEQ(name, "DB_CONSUME", 10)) {
00553
00554 #ifdef DB_CONSUME
00555 *iv_return = DB_CONSUME;
00556 return PERL_constant_ISIV;
00557 #else
00558 return PERL_constant_NOTDEF;
00559 #endif
00560 }
00561 if (memEQ(name, "DB_TXN_CKP", 10)) {
00562
00563 #ifdef DB_TXN_CKP
00564 *iv_return = DB_TXN_CKP;
00565 return PERL_constant_ISIV;
00566 #else
00567 return PERL_constant_NOTDEF;
00568 #endif
00569 }
00570 break;
00571 case 'O':
00572 if (memEQ(name, "DB_INORDER", 10)) {
00573
00574 #ifdef DB_INORDER
00575 *iv_return = DB_INORDER;
00576 return PERL_constant_ISIV;
00577 #else
00578 return PERL_constant_NOTDEF;
00579 #endif
00580 }
00581 break;
00582 case 'P':
00583 if (memEQ(name, "DB_DUPSORT", 10)) {
00584
00585 #ifdef DB_DUPSORT
00586 *iv_return = DB_DUPSORT;
00587 return PERL_constant_ISIV;
00588 #else
00589 return PERL_constant_NOTDEF;
00590 #endif
00591 }
00592 if (memEQ(name, "DB_NOPANIC", 10)) {
00593
00594 #ifdef DB_NOPANIC
00595 *iv_return = DB_NOPANIC;
00596 return PERL_constant_ISIV;
00597 #else
00598 return PERL_constant_NOTDEF;
00599 #endif
00600 }
00601 break;
00602 case 'Q':
00603 if (memEQ(name, "DB_SEQ_DEC", 10)) {
00604
00605 #ifdef DB_SEQ_DEC
00606 *iv_return = DB_SEQ_DEC;
00607 return PERL_constant_ISIV;
00608 #else
00609 return PERL_constant_NOTDEF;
00610 #endif
00611 }
00612 if (memEQ(name, "DB_SEQ_INC", 10)) {
00613
00614 #ifdef DB_SEQ_INC
00615 *iv_return = DB_SEQ_INC;
00616 return PERL_constant_ISIV;
00617 #else
00618 return PERL_constant_NOTDEF;
00619 #endif
00620 }
00621 break;
00622 case 'R':
00623 if (memEQ(name, "DB_CURRENT", 10)) {
00624
00625 #ifdef DB_CURRENT
00626 *iv_return = DB_CURRENT;
00627 return PERL_constant_ISIV;
00628 #else
00629 return PERL_constant_NOTDEF;
00630 #endif
00631 }
00632 break;
00633 case 'V':
00634 if (memEQ(name, "DB_ENV_CDB", 10)) {
00635
00636 #ifdef DB_ENV_CDB
00637 *iv_return = DB_ENV_CDB;
00638 return PERL_constant_ISIV;
00639 #else
00640 return PERL_constant_NOTDEF;
00641 #endif
00642 }
00643 if (memEQ(name, "DB_ENV_TXN", 10)) {
00644
00645 #ifdef DB_ENV_TXN
00646 *iv_return = DB_ENV_TXN;
00647 return PERL_constant_ISIV;
00648 #else
00649 return PERL_constant_NOTDEF;
00650 #endif
00651 }
00652 break;
00653 case 'Y':
00654 if (memEQ(name, "DB_KEYLAST", 10)) {
00655
00656 #ifdef DB_KEYLAST
00657 *iv_return = DB_KEYLAST;
00658 return PERL_constant_ISIV;
00659 #else
00660 return PERL_constant_NOTDEF;
00661 #endif
00662 }
00663 break;
00664 case '_':
00665 if (memEQ(name, "DB_OK_HASH", 10)) {
00666
00667 #ifdef DB_OK_HASH
00668 *iv_return = DB_OK_HASH;
00669 return PERL_constant_ISIV;
00670 #else
00671 return PERL_constant_NOTDEF;
00672 #endif
00673 }
00674 if (memEQ(name, "DB_PR_PAGE", 10)) {
00675
00676 #ifdef DB_PR_PAGE
00677 *iv_return = DB_PR_PAGE;
00678 return PERL_constant_ISIV;
00679 #else
00680 return PERL_constant_NOTDEF;
00681 #endif
00682 }
00683 break;
00684 }
00685 return PERL_constant_NOTFOUND;
00686 }
00687
00688 static int
00689 constant_11 (pTHX_ const char *name, IV *iv_return) {
00690
00691
00692
00693
00694
00695
00696
00697
00698
00699
00700 switch (name[8]) {
00701 case 'A':
00702 if (memEQ(name, "DB_ARCH_ABS", 11)) {
00703
00704 #ifdef DB_ARCH_ABS
00705 *iv_return = DB_ARCH_ABS;
00706 return PERL_constant_ISIV;
00707 #else
00708 return PERL_constant_NOTDEF;
00709 #endif
00710 }
00711 if (memEQ(name, "DB_STAT_ALL", 11)) {
00712
00713 #ifdef DB_STAT_ALL
00714 *iv_return = DB_STAT_ALL;
00715 return PERL_constant_ISIV;
00716 #else
00717 return PERL_constant_NOTDEF;
00718 #endif
00719 }
00720 if (memEQ(name, "DB_TRUNCATE", 11)) {
00721
00722 #ifdef DB_TRUNCATE
00723 *iv_return = DB_TRUNCATE;
00724 return PERL_constant_ISIV;
00725 #else
00726 return PERL_constant_NOTDEF;
00727 #endif
00728 }
00729 break;
00730 case 'B':
00731 if (memEQ(name, "DB_RENUMBER", 11)) {
00732
00733 #ifdef DB_RENUMBER
00734 *iv_return = DB_RENUMBER;
00735 return PERL_constant_ISIV;
00736 #else
00737 return PERL_constant_NOTDEF;
00738 #endif
00739 }
00740 break;
00741 case 'C':
00742 if (memEQ(name, "DB_INIT_CDB", 11)) {
00743
00744 #ifdef DB_INIT_CDB
00745 *iv_return = DB_INIT_CDB;
00746 return PERL_constant_ISIV;
00747 #else
00748 return PERL_constant_NOTDEF;
00749 #endif
00750 }
00751 if (memEQ(name, "DB_OK_RECNO", 11)) {
00752
00753 #ifdef DB_OK_RECNO
00754 *iv_return = DB_OK_RECNO;
00755 return PERL_constant_ISIV;
00756 #else
00757 return PERL_constant_NOTDEF;
00758 #endif
00759 }
00760 if (memEQ(name, "DB_YIELDCPU", 11)) {
00761
00762 #ifdef DB_YIELDCPU
00763 *iv_return = DB_YIELDCPU;
00764 return PERL_constant_ISIV;
00765 #else
00766 return PERL_constant_NOTDEF;
00767 #endif
00768 }
00769 break;
00770 case 'D':
00771 if (memEQ(name, "DB_NEXT_DUP", 11)) {
00772
00773 #ifdef DB_NEXT_DUP
00774 *iv_return = DB_NEXT_DUP;
00775 return PERL_constant_ISIV;
00776 #else
00777 return PERL_constant_NOTDEF;
00778 #endif
00779 }
00780 break;
00781 case 'E':
00782 if (memEQ(name, "DB_DEGREE_2", 11)) {
00783
00784 #ifdef DB_DEGREE_2
00785 *iv_return = DB_DEGREE_2;
00786 return PERL_constant_ISIV;
00787 #else
00788 return PERL_constant_NOTDEF;
00789 #endif
00790 }
00791 if (memEQ(name, "DB_LOG_PERM", 11)) {
00792
00793 #ifdef DB_LOG_PERM
00794 *iv_return = DB_LOG_PERM;
00795 return PERL_constant_ISIV;
00796 #else
00797 return PERL_constant_NOTDEF;
00798 #endif
00799 }
00800 if (memEQ(name, "DB_OK_QUEUE", 11)) {
00801
00802 #ifdef DB_OK_QUEUE
00803 *iv_return = DB_OK_QUEUE;
00804 return PERL_constant_ISIV;
00805 #else
00806 return PERL_constant_NOTDEF;
00807 #endif
00808 }
00809 if (memEQ(name, "DB_TXN_REDO", 11)) {
00810
00811 #ifdef DB_TXN_REDO
00812 *iv_return = DB_TXN_REDO;
00813 return PERL_constant_ISIV;
00814 #else
00815 return PERL_constant_NOTDEF;
00816 #endif
00817 }
00818 break;
00819 case 'G':
00820 if (memEQ(name, "DB_LOCK_GET", 11)) {
00821
00822 #if (DB_VERSION_MAJOR > 2) || \
00823 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
00824 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
00825 DB_VERSION_PATCH >= 3)
00826 *iv_return = DB_LOCK_GET;
00827 return PERL_constant_ISIV;
00828 #else
00829 return PERL_constant_NOTDEF;
00830 #endif
00831 }
00832 if (memEQ(name, "DB_LOGMAGIC", 11)) {
00833
00834 #ifdef DB_LOGMAGIC
00835 *iv_return = DB_LOGMAGIC;
00836 return PERL_constant_ISIV;
00837 #else
00838 return PERL_constant_NOTDEF;
00839 #endif
00840 }
00841 if (memEQ(name, "DB_QAMMAGIC", 11)) {
00842
00843 #ifdef DB_QAMMAGIC
00844 *iv_return = DB_QAMMAGIC;
00845 return PERL_constant_ISIV;
00846 #else
00847 return PERL_constant_NOTDEF;
00848 #endif
00849 }
00850 if (memEQ(name, "DB_TXNMAGIC", 11)) {
00851
00852 #ifdef DB_TXNMAGIC
00853 *iv_return = DB_TXNMAGIC;
00854 return PERL_constant_ISIV;
00855 #else
00856 return PERL_constant_NOTDEF;
00857 #endif
00858 }
00859 break;
00860 case 'H':
00861 if (memEQ(name, "DB_SNAPSHOT", 11)) {
00862
00863 #ifdef DB_SNAPSHOT
00864 *iv_return = DB_SNAPSHOT;
00865 return PERL_constant_ISIV;
00866 #else
00867 return PERL_constant_NOTDEF;
00868 #endif
00869 }
00870 break;
00871 case 'I':
00872 if (memEQ(name, "DB_KEYEXIST", 11)) {
00873
00874 #ifdef DB_KEYEXIST
00875 *iv_return = DB_KEYEXIST;
00876 return PERL_constant_ISIV;
00877 #else
00878 return PERL_constant_NOTDEF;
00879 #endif
00880 }
00881 if (memEQ(name, "DB_LOG_DISK", 11)) {
00882
00883 #ifdef DB_LOG_DISK
00884 *iv_return = DB_LOG_DISK;
00885 return PERL_constant_ISIV;
00886 #else
00887 return PERL_constant_NOTDEF;
00888 #endif
00889 }
00890 if (memEQ(name, "DB_POSITION", 11)) {
00891
00892 #ifdef DB_POSITION
00893 *iv_return = DB_POSITION;
00894 return PERL_constant_ISIV;
00895 #else
00896 return PERL_constant_NOTDEF;
00897 #endif
00898 }
00899 break;
00900 case 'L':
00901 if (memEQ(name, "DB_ARCH_LOG", 11)) {
00902
00903 #ifdef DB_ARCH_LOG
00904 *iv_return = DB_ARCH_LOG;
00905 return PERL_constant_ISIV;
00906 #else
00907 return PERL_constant_NOTDEF;
00908 #endif
00909 }
00910 if (memEQ(name, "DB_FIXEDLEN", 11)) {
00911
00912 #ifdef DB_FIXEDLEN
00913 *iv_return = DB_FIXEDLEN;
00914 return PERL_constant_ISIV;
00915 #else
00916 return PERL_constant_NOTDEF;
00917 #endif
00918 }
00919 if (memEQ(name, "DB_INIT_LOG", 11)) {
00920
00921 #ifdef DB_INIT_LOG
00922 *iv_return = DB_INIT_LOG;
00923 return PERL_constant_ISIV;
00924 #else
00925 return PERL_constant_NOTDEF;
00926 #endif
00927 }
00928 break;
00929 case 'N':
00930 if (memEQ(name, "DB_APP_INIT", 11)) {
00931
00932 #ifdef DB_APP_INIT
00933 *iv_return = DB_APP_INIT;
00934 return PERL_constant_ISIV;
00935 #else
00936 return PERL_constant_NOTDEF;
00937 #endif
00938 }
00939 if (memEQ(name, "DB_TXN_UNDO", 11)) {
00940
00941 #ifdef DB_TXN_UNDO
00942 *iv_return = DB_TXN_UNDO;
00943 return PERL_constant_ISIV;
00944 #else
00945 return PERL_constant_NOTDEF;
00946 #endif
00947 }
00948 break;
00949 case 'O':
00950 if (memEQ(name, "DB_GET_BOTH", 11)) {
00951
00952 #ifdef DB_GET_BOTH
00953 *iv_return = DB_GET_BOTH;
00954 return PERL_constant_ISIV;
00955 #else
00956 return PERL_constant_NOTDEF;
00957 #endif
00958 }
00959 if (memEQ(name, "DB_LOCKDOWN", 11)) {
00960
00961 #ifdef DB_LOCKDOWN
00962 *iv_return = DB_LOCKDOWN;
00963 return PERL_constant_ISIV;
00964 #else
00965 return PERL_constant_NOTDEF;
00966 #endif
00967 }
00968 if (memEQ(name, "DB_TXN_LOCK", 11)) {
00969
00970 #ifdef DB_TXN_LOCK
00971 *iv_return = DB_TXN_LOCK;
00972 return PERL_constant_ISIV;
00973 #else
00974 return PERL_constant_NOTDEF;
00975 #endif
00976 }
00977 break;
00978 case 'P':
00979 if (memEQ(name, "DB_FILEOPEN", 11)) {
00980
00981 #ifdef DB_FILEOPEN
00982 *iv_return = DB_FILEOPEN;
00983 return PERL_constant_ISIV;
00984 #else
00985 return PERL_constant_NOTDEF;
00986 #endif
00987 }
00988 if (memEQ(name, "DB_KEYEMPTY", 11)) {
00989
00990 #ifdef DB_KEYEMPTY
00991 *iv_return = DB_KEYEMPTY;
00992 return PERL_constant_ISIV;
00993 #else
00994 return PERL_constant_NOTDEF;
00995 #endif
00996 }
00997 if (memEQ(name, "DB_LOCK_PUT", 11)) {
00998
00999 #if (DB_VERSION_MAJOR > 2) || \
01000 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
01001 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
01002 DB_VERSION_PATCH >= 3)
01003 *iv_return = DB_LOCK_PUT;
01004 return PERL_constant_ISIV;
01005 #else
01006 return PERL_constant_NOTDEF;
01007 #endif
01008 }
01009 if (memEQ(name, "DB_MULTIPLE", 11)) {
01010
01011 #ifdef DB_MULTIPLE
01012 *iv_return = DB_MULTIPLE;
01013 return PERL_constant_ISIV;
01014 #else
01015 return PERL_constant_NOTDEF;
01016 #endif
01017 }
01018 break;
01019 case 'R':
01020 if (memEQ(name, "DB_INIT_REP", 11)) {
01021
01022 #ifdef DB_INIT_REP
01023 *iv_return = DB_INIT_REP;
01024 return PERL_constant_ISIV;
01025 #else
01026 return PERL_constant_NOTDEF;
01027 #endif
01028 }
01029 if (memEQ(name, "DB_KEYFIRST", 11)) {
01030
01031 #ifdef DB_KEYFIRST
01032 *iv_return = DB_KEYFIRST;
01033 return PERL_constant_ISIV;
01034 #else
01035 return PERL_constant_NOTDEF;
01036 #endif
01037 }
01038 if (memEQ(name, "DB_OK_BTREE", 11)) {
01039
01040 #ifdef DB_OK_BTREE
01041 *iv_return = DB_OK_BTREE;
01042 return PERL_constant_ISIV;
01043 #else
01044 return PERL_constant_NOTDEF;
01045 #endif
01046 }
01047 if (memEQ(name, "DB_SEQ_WRAP", 11)) {
01048
01049 #ifdef DB_SEQ_WRAP
01050 *iv_return = DB_SEQ_WRAP;
01051 return PERL_constant_ISIV;
01052 #else
01053 return PERL_constant_NOTDEF;
01054 #endif
01055 }
01056 break;
01057 case 'T':
01058 if (memEQ(name, "DB_INIT_TXN", 11)) {
01059
01060 #ifdef DB_INIT_TXN
01061 *iv_return = DB_INIT_TXN;
01062 return PERL_constant_ISIV;
01063 #else
01064 return PERL_constant_NOTDEF;
01065 #endif
01066 }
01067 if (memEQ(name, "DB_REGISTER", 11)) {
01068
01069 #ifdef DB_REGISTER
01070 *iv_return = DB_REGISTER;
01071 return PERL_constant_ISIV;
01072 #else
01073 return PERL_constant_NOTDEF;
01074 #endif
01075 }
01076 break;
01077 case 'U':
01078 if (memEQ(name, "DB_NOTFOUND", 11)) {
01079
01080 #ifdef DB_NOTFOUND
01081 *iv_return = DB_NOTFOUND;
01082 return PERL_constant_ISIV;
01083 #else
01084 return PERL_constant_NOTDEF;
01085 #endif
01086 }
01087 break;
01088 case 'V':
01089 if (memEQ(name, "DB_NOSERVER", 11)) {
01090
01091 #ifdef DB_NOSERVER
01092 *iv_return = DB_NOSERVER;
01093 return PERL_constant_ISIV;
01094 #else
01095 return PERL_constant_NOTDEF;
01096 #endif
01097 }
01098 break;
01099 case 'Y':
01100 if (memEQ(name, "DB_TXN_SYNC", 11)) {
01101
01102 #ifdef DB_TXN_SYNC
01103 *iv_return = DB_TXN_SYNC;
01104 return PERL_constant_ISIV;
01105 #else
01106 return PERL_constant_NOTDEF;
01107 #endif
01108 }
01109 if (memEQ(name, "DB_WRNOSYNC", 11)) {
01110
01111 #ifdef DB_WRNOSYNC
01112 *iv_return = DB_WRNOSYNC;
01113 return PERL_constant_ISIV;
01114 #else
01115 return PERL_constant_NOTDEF;
01116 #endif
01117 }
01118 break;
01119 }
01120 return PERL_constant_NOTFOUND;
01121 }
01122
01123 static int
01124 constant_12 (pTHX_ const char *name, IV *iv_return) {
01125
01126
01127
01128
01129
01130
01131
01132
01133
01134
01135
01136
01137 switch (name[3]) {
01138 case 'A':
01139 if (memEQ(name, "DB_ARCH_DATA", 12)) {
01140
01141 #ifdef DB_ARCH_DATA
01142 *iv_return = DB_ARCH_DATA;
01143 return PERL_constant_ISIV;
01144 #else
01145 return PERL_constant_NOTDEF;
01146 #endif
01147 }
01148 break;
01149 case 'C':
01150 if (memEQ(name, "DB_CDB_ALLDB", 12)) {
01151
01152 #ifdef DB_CDB_ALLDB
01153 *iv_return = DB_CDB_ALLDB;
01154 return PERL_constant_ISIV;
01155 #else
01156 return PERL_constant_NOTDEF;
01157 #endif
01158 }
01159 if (memEQ(name, "DB_CL_WRITER", 12)) {
01160
01161 #ifdef DB_CL_WRITER
01162 *iv_return = DB_CL_WRITER;
01163 return PERL_constant_ISIV;
01164 #else
01165 return PERL_constant_NOTDEF;
01166 #endif
01167 }
01168 break;
01169 case 'D':
01170 if (memEQ(name, "DB_DELIMITER", 12)) {
01171
01172 #ifdef DB_DELIMITER
01173 *iv_return = DB_DELIMITER;
01174 return PERL_constant_ISIV;
01175 #else
01176 return PERL_constant_NOTDEF;
01177 #endif
01178 }
01179 if (memEQ(name, "DB_DIRECT_DB", 12)) {
01180
01181 #ifdef DB_DIRECT_DB
01182 *iv_return = DB_DIRECT_DB;
01183 return PERL_constant_ISIV;
01184 #else
01185 return PERL_constant_NOTDEF;
01186 #endif
01187 }
01188 if (memEQ(name, "DB_DSYNC_LOG", 12)) {
01189
01190 #ifdef DB_DSYNC_LOG
01191 *iv_return = DB_DSYNC_LOG;
01192 return PERL_constant_ISIV;
01193 #else
01194 return PERL_constant_NOTDEF;
01195 #endif
01196 }
01197 if (memEQ(name, "DB_DUPCURSOR", 12)) {
01198
01199 #ifdef DB_DUPCURSOR
01200 *iv_return = DB_DUPCURSOR;
01201 return PERL_constant_ISIV;
01202 #else
01203 return PERL_constant_NOTDEF;
01204 #endif
01205 }
01206 break;
01207 case 'E':
01208 if (memEQ(name, "DB_ENV_FATAL", 12)) {
01209
01210 #ifdef DB_ENV_FATAL
01211 *iv_return = DB_ENV_FATAL;
01212 return PERL_constant_ISIV;
01213 #else
01214 return PERL_constant_NOTDEF;
01215 #endif
01216 }
01217 break;
01218 case 'F':
01219 if (memEQ(name, "DB_FAST_STAT", 12)) {
01220
01221 #ifdef DB_FAST_STAT
01222 *iv_return = DB_FAST_STAT;
01223 return PERL_constant_ISIV;
01224 #else
01225 return PERL_constant_NOTDEF;
01226 #endif
01227 }
01228 break;
01229 case 'G':
01230 if (memEQ(name, "DB_GET_BOTHC", 12)) {
01231
01232 #ifdef DB_GET_BOTHC
01233 *iv_return = DB_GET_BOTHC;
01234 return PERL_constant_ISIV;
01235 #else
01236 return PERL_constant_NOTDEF;
01237 #endif
01238 }
01239 if (memEQ(name, "DB_GET_RECNO", 12)) {
01240
01241 #ifdef DB_GET_RECNO
01242 *iv_return = DB_GET_RECNO;
01243 return PERL_constant_ISIV;
01244 #else
01245 return PERL_constant_NOTDEF;
01246 #endif
01247 }
01248 break;
01249 case 'H':
01250 if (memEQ(name, "DB_HASHMAGIC", 12)) {
01251
01252 #ifdef DB_HASHMAGIC
01253 *iv_return = DB_HASHMAGIC;
01254 return PERL_constant_ISIV;
01255 #else
01256 return PERL_constant_NOTDEF;
01257 #endif
01258 }
01259 break;
01260 case 'I':
01261 if (memEQ(name, "DB_INIT_LOCK", 12)) {
01262
01263 #ifdef DB_INIT_LOCK
01264 *iv_return = DB_INIT_LOCK;
01265 return PERL_constant_ISIV;
01266 #else
01267 return PERL_constant_NOTDEF;
01268 #endif
01269 }
01270 break;
01271 case 'J':
01272 if (memEQ(name, "DB_JOIN_ITEM", 12)) {
01273
01274 #ifdef DB_JOIN_ITEM
01275 *iv_return = DB_JOIN_ITEM;
01276 return PERL_constant_ISIV;
01277 #else
01278 return PERL_constant_NOTDEF;
01279 #endif
01280 }
01281 break;
01282 case 'L':
01283 if (memEQ(name, "DB_LOCKMAGIC", 12)) {
01284
01285 #ifdef DB_LOCKMAGIC
01286 *iv_return = DB_LOCKMAGIC;
01287 return PERL_constant_ISIV;
01288 #else
01289 return PERL_constant_NOTDEF;
01290 #endif
01291 }
01292 if (memEQ(name, "DB_LOCK_DUMP", 12)) {
01293
01294 #if (DB_VERSION_MAJOR > 2) || \
01295 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
01296 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
01297 DB_VERSION_PATCH >= 3)
01298 *iv_return = DB_LOCK_DUMP;
01299 return PERL_constant_ISIV;
01300 #else
01301 return PERL_constant_NOTDEF;
01302 #endif
01303 }
01304 if (memEQ(name, "DB_LOCK_RW_N", 12)) {
01305
01306 #ifdef DB_LOCK_RW_N
01307 *iv_return = DB_LOCK_RW_N;
01308 return PERL_constant_ISIV;
01309 #else
01310 return PERL_constant_NOTDEF;
01311 #endif
01312 }
01313 if (memEQ(name, "DB_LOGOLDVER", 12)) {
01314
01315 #ifdef DB_LOGOLDVER
01316 *iv_return = DB_LOGOLDVER;
01317 return PERL_constant_ISIV;
01318 #else
01319 return PERL_constant_NOTDEF;
01320 #endif
01321 }
01322 break;
01323 case 'M':
01324 if (memEQ(name, "DB_MAX_PAGES", 12)) {
01325
01326 #ifdef DB_MAX_PAGES
01327 *iv_return = DB_MAX_PAGES;
01328 return PERL_constant_ISIV;
01329 #else
01330 return PERL_constant_NOTDEF;
01331 #endif
01332 }
01333 if (memEQ(name, "DB_MPOOL_NEW", 12)) {
01334
01335 #ifdef DB_MPOOL_NEW
01336 *iv_return = DB_MPOOL_NEW;
01337 return PERL_constant_ISIV;
01338 #else
01339 return PERL_constant_NOTDEF;
01340 #endif
01341 }
01342 break;
01343 case 'N':
01344 if (memEQ(name, "DB_NEEDSPLIT", 12)) {
01345
01346 #ifdef DB_NEEDSPLIT
01347 *iv_return = DB_NEEDSPLIT;
01348 return PERL_constant_ISIV;
01349 #else
01350 return PERL_constant_NOTDEF;
01351 #endif
01352 }
01353 if (memEQ(name, "DB_NODUPDATA", 12)) {
01354
01355 #ifdef DB_NODUPDATA
01356 *iv_return = DB_NODUPDATA;
01357 return PERL_constant_ISIV;
01358 #else
01359 return PERL_constant_NOTDEF;
01360 #endif
01361 }
01362 if (memEQ(name, "DB_NOLOCKING", 12)) {
01363
01364 #ifdef DB_NOLOCKING
01365 *iv_return = DB_NOLOCKING;
01366 return PERL_constant_ISIV;
01367 #else
01368 return PERL_constant_NOTDEF;
01369 #endif
01370 }
01371 if (memEQ(name, "DB_NORECURSE", 12)) {
01372
01373 #ifdef DB_NORECURSE
01374 *iv_return = DB_NORECURSE;
01375 return PERL_constant_ISIV;
01376 #else
01377 return PERL_constant_NOTDEF;
01378 #endif
01379 }
01380 break;
01381 case 'O':
01382 if (memEQ(name, "DB_OVERWRITE", 12)) {
01383
01384 #ifdef DB_OVERWRITE
01385 *iv_return = DB_OVERWRITE;
01386 return PERL_constant_ISIV;
01387 #else
01388 return PERL_constant_NOTDEF;
01389 #endif
01390 }
01391 break;
01392 case 'P':
01393 if (memEQ(name, "DB_PAGEYIELD", 12)) {
01394
01395 #ifdef DB_PAGEYIELD
01396 *iv_return = DB_PAGEYIELD;
01397 return PERL_constant_ISIV;
01398 #else
01399 return PERL_constant_NOTDEF;
01400 #endif
01401 }
01402 if (memEQ(name, "DB_PAGE_LOCK", 12)) {
01403
01404 #ifdef DB_PAGE_LOCK
01405 *iv_return = DB_PAGE_LOCK;
01406 return PERL_constant_ISIV;
01407 #else
01408 return PERL_constant_NOTDEF;
01409 #endif
01410 }
01411 if (memEQ(name, "DB_PERMANENT", 12)) {
01412
01413 #ifdef DB_PERMANENT
01414 *iv_return = DB_PERMANENT;
01415 return PERL_constant_ISIV;
01416 #else
01417 return PERL_constant_NOTDEF;
01418 #endif
01419 }
01420 if (memEQ(name, "DB_POSITIONI", 12)) {
01421
01422 #ifdef DB_POSITIONI
01423 *iv_return = DB_POSITIONI;
01424 return PERL_constant_ISIV;
01425 #else
01426 return PERL_constant_NOTDEF;
01427 #endif
01428 }
01429 if (memEQ(name, "DB_PRINTABLE", 12)) {
01430
01431 #ifdef DB_PRINTABLE
01432 *iv_return = DB_PRINTABLE;
01433 return PERL_constant_ISIV;
01434 #else
01435 return PERL_constant_NOTDEF;
01436 #endif
01437 }
01438 break;
01439 case 'Q':
01440 if (memEQ(name, "DB_QAMOLDVER", 12)) {
01441
01442 #ifdef DB_QAMOLDVER
01443 *iv_return = DB_QAMOLDVER;
01444 return PERL_constant_ISIV;
01445 #else
01446 return PERL_constant_NOTDEF;
01447 #endif
01448 }
01449 break;
01450 case 'R':
01451 if (memEQ(name, "DB_RPCCLIENT", 12)) {
01452
01453 #ifdef DB_RPCCLIENT
01454 *iv_return = DB_RPCCLIENT;
01455 return PERL_constant_ISIV;
01456 #else
01457 return PERL_constant_NOTDEF;
01458 #endif
01459 }
01460 break;
01461 case 'S':
01462 if (memEQ(name, "DB_SET_RANGE", 12)) {
01463
01464 #ifdef DB_SET_RANGE
01465 *iv_return = DB_SET_RANGE;
01466 return PERL_constant_ISIV;
01467 #else
01468 return PERL_constant_NOTDEF;
01469 #endif
01470 }
01471 if (memEQ(name, "DB_SET_RECNO", 12)) {
01472
01473 #ifdef DB_SET_RECNO
01474 *iv_return = DB_SET_RECNO;
01475 return PERL_constant_ISIV;
01476 #else
01477 return PERL_constant_NOTDEF;
01478 #endif
01479 }
01480 if (memEQ(name, "DB_SWAPBYTES", 12)) {
01481
01482 #ifdef DB_SWAPBYTES
01483 *iv_return = DB_SWAPBYTES;
01484 return PERL_constant_ISIV;
01485 #else
01486 return PERL_constant_NOTDEF;
01487 #endif
01488 }
01489 break;
01490 case 'T':
01491 if (memEQ(name, "DB_TEMPORARY", 12)) {
01492
01493 #ifdef DB_TEMPORARY
01494 *iv_return = DB_TEMPORARY;
01495 return PERL_constant_ISIV;
01496 #else
01497 return PERL_constant_NOTDEF;
01498 #endif
01499 }
01500 if (memEQ(name, "DB_TXN_ABORT", 12)) {
01501
01502 #if (DB_VERSION_MAJOR > 3) || \
01503 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \
01504 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \
01505 DB_VERSION_PATCH >= 14)
01506 *iv_return = DB_TXN_ABORT;
01507 return PERL_constant_ISIV;
01508 #else
01509 return PERL_constant_NOTDEF;
01510 #endif
01511 }
01512 if (memEQ(name, "DB_TXN_APPLY", 12)) {
01513
01514 #if (DB_VERSION_MAJOR > 4) || \
01515 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \
01516 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \
01517 DB_VERSION_PATCH >= 14)
01518 *iv_return = DB_TXN_APPLY;
01519 return PERL_constant_ISIV;
01520 #else
01521 return PERL_constant_NOTDEF;
01522 #endif
01523 }
01524 if (memEQ(name, "DB_TXN_PRINT", 12)) {
01525
01526 #if (DB_VERSION_MAJOR > 4) || \
01527 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
01528 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
01529 DB_VERSION_PATCH >= 24)
01530 *iv_return = DB_TXN_PRINT;
01531 return PERL_constant_ISIV;
01532 #else
01533 return PERL_constant_NOTDEF;
01534 #endif
01535 }
01536 break;
01537 case 'W':
01538 if (memEQ(name, "DB_WRITELOCK", 12)) {
01539
01540 #ifdef DB_WRITELOCK
01541 *iv_return = DB_WRITELOCK;
01542 return PERL_constant_ISIV;
01543 #else
01544 return PERL_constant_NOTDEF;
01545 #endif
01546 }
01547 if (memEQ(name, "DB_WRITEOPEN", 12)) {
01548
01549 #ifdef DB_WRITEOPEN
01550 *iv_return = DB_WRITEOPEN;
01551 return PERL_constant_ISIV;
01552 #else
01553 return PERL_constant_NOTDEF;
01554 #endif
01555 }
01556 break;
01557 case 'X':
01558 if (memEQ(name, "DB_XA_CREATE", 12)) {
01559
01560 #ifdef DB_XA_CREATE
01561 *iv_return = DB_XA_CREATE;
01562 return PERL_constant_ISIV;
01563 #else
01564 return PERL_constant_NOTDEF;
01565 #endif
01566 }
01567 break;
01568 }
01569 return PERL_constant_NOTFOUND;
01570 }
01571
01572 static int
01573 constant_13 (pTHX_ const char *name, IV *iv_return) {
01574
01575
01576
01577
01578
01579
01580
01581
01582
01583
01584
01585
01586
01587 switch (name[8]) {
01588 case 'A':
01589 if (memEQ(name, "DB_LOCK_ABORT", 13)) {
01590
01591 #ifdef DB_LOCK_ABORT
01592 *iv_return = DB_LOCK_ABORT;
01593 return PERL_constant_ISIV;
01594 #else
01595 return PERL_constant_NOTDEF;
01596 #endif
01597 }
01598 if (memEQ(name, "DB_PR_HEADERS", 13)) {
01599
01600 #ifdef DB_PR_HEADERS
01601 *iv_return = DB_PR_HEADERS;
01602 return PERL_constant_ISIV;
01603 #else
01604 return PERL_constant_NOTDEF;
01605 #endif
01606 }
01607 if (memEQ(name, "DB_RDWRMASTER", 13)) {
01608
01609 #ifdef DB_RDWRMASTER
01610 *iv_return = DB_RDWRMASTER;
01611 return PERL_constant_ISIV;
01612 #else
01613 return PERL_constant_NOTDEF;
01614 #endif
01615 }
01616 if (memEQ(name, "DB_REP_MASTER", 13)) {
01617
01618 #ifdef DB_REP_MASTER
01619 *iv_return = DB_REP_MASTER;
01620 return PERL_constant_ISIV;
01621 #else
01622 return PERL_constant_NOTDEF;
01623 #endif
01624 }
01625 break;
01626 case 'B':
01627 if (memEQ(name, "DB_user_BEGIN", 13)) {
01628
01629 #ifdef DB_user_BEGIN
01630 *iv_return = DB_user_BEGIN;
01631 return PERL_constant_ISIV;
01632 #else
01633 return PERL_constant_NOTDEF;
01634 #endif
01635 }
01636 break;
01637 case 'C':
01638 if (memEQ(name, "DB_STAT_CLEAR", 13)) {
01639
01640 #ifdef DB_STAT_CLEAR
01641 *iv_return = DB_STAT_CLEAR;
01642 return PERL_constant_ISIV;
01643 #else
01644 return PERL_constant_NOTDEF;
01645 #endif
01646 }
01647 break;
01648 case 'D':
01649 if (memEQ(name, "DB_MUTEXDEBUG", 13)) {
01650
01651 #ifdef DB_MUTEXDEBUG
01652 *iv_return = DB_MUTEXDEBUG;
01653 return PERL_constant_ISIV;
01654 #else
01655 return PERL_constant_NOTDEF;
01656 #endif
01657 }
01658 break;
01659 case 'E':
01660 if (memEQ(name, "DB_LOG_RESEND", 13)) {
01661
01662 #ifdef DB_LOG_RESEND
01663 *iv_return = DB_LOG_RESEND;
01664 return PERL_constant_ISIV;
01665 #else
01666 return PERL_constant_NOTDEF;
01667 #endif
01668 }
01669 if (memEQ(name, "DB_NOORDERCHK", 13)) {
01670
01671 #ifdef DB_NOORDERCHK
01672 *iv_return = DB_NOORDERCHK;
01673 return PERL_constant_ISIV;
01674 #else
01675 return PERL_constant_NOTDEF;
01676 #endif
01677 }
01678 break;
01679 case 'G':
01680 if (memEQ(name, "DB_REP_IGNORE", 13)) {
01681
01682 #ifdef DB_REP_IGNORE
01683 *iv_return = DB_REP_IGNORE;
01684 return PERL_constant_ISIV;
01685 #else
01686 return PERL_constant_NOTDEF;
01687 #endif
01688 }
01689 break;
01690 case 'H':
01691 if (memEQ(name, "DB_ENV_THREAD", 13)) {
01692
01693 #ifdef DB_ENV_THREAD
01694 *iv_return = DB_ENV_THREAD;
01695 return PERL_constant_ISIV;
01696 #else
01697 return PERL_constant_NOTDEF;
01698 #endif
01699 }
01700 if (memEQ(name, "DB_LOG_CHKPNT", 13)) {
01701
01702 #ifdef DB_LOG_CHKPNT
01703 *iv_return = DB_LOG_CHKPNT;
01704 return PERL_constant_ISIV;
01705 #else
01706 return PERL_constant_NOTDEF;
01707 #endif
01708 }
01709 break;
01710 case 'I':
01711 if (memEQ(name, "DB_DONOTINDEX", 13)) {
01712
01713 #ifdef DB_DONOTINDEX
01714 *iv_return = DB_DONOTINDEX;
01715 return PERL_constant_ISIV;
01716 #else
01717 return PERL_constant_NOTDEF;
01718 #endif
01719 }
01720 break;
01721 case 'L':
01722 if (memEQ(name, "DB_HASHOLDVER", 13)) {
01723
01724 #ifdef DB_HASHOLDVER
01725 *iv_return = DB_HASHOLDVER;
01726 return PERL_constant_ISIV;
01727 #else
01728 return PERL_constant_NOTDEF;
01729 #endif
01730 }
01731 if (memEQ(name, "DB_MUTEXLOCKS", 13)) {
01732
01733 #ifdef DB_MUTEXLOCKS
01734 *iv_return = DB_MUTEXLOCKS;
01735 return PERL_constant_ISIV;
01736 #else
01737 return PERL_constant_NOTDEF;
01738 #endif
01739 }
01740 if (memEQ(name, "DB_REP_CLIENT", 13)) {
01741
01742 #ifdef DB_REP_CLIENT
01743 *iv_return = DB_REP_CLIENT;
01744 return PERL_constant_ISIV;
01745 #else
01746 return PERL_constant_NOTDEF;
01747 #endif
01748 }
01749 break;
01750 case 'M':
01751 if (memEQ(name, "DB_BTREEMAGIC", 13)) {
01752
01753 #ifdef DB_BTREEMAGIC
01754 *iv_return = DB_BTREEMAGIC;
01755 return PERL_constant_ISIV;
01756 #else
01757 return PERL_constant_NOTDEF;
01758 #endif
01759 }
01760 if (memEQ(name, "DB_INIT_MPOOL", 13)) {
01761
01762 #ifdef DB_INIT_MPOOL
01763 *iv_return = DB_INIT_MPOOL;
01764 return PERL_constant_ISIV;
01765 #else
01766 return PERL_constant_NOTDEF;
01767 #endif
01768 }
01769 if (memEQ(name, "DB_SYSTEM_MEM", 13)) {
01770
01771 #ifdef DB_SYSTEM_MEM
01772 *iv_return = DB_SYSTEM_MEM;
01773 return PERL_constant_ISIV;
01774 #else
01775 return PERL_constant_NOTDEF;
01776 #endif
01777 }
01778 break;
01779 case 'N':
01780 if (memEQ(name, "DB_LOCK_NORUN", 13)) {
01781
01782 #ifdef DB_LOCK_NORUN
01783 *iv_return = DB_LOCK_NORUN;
01784 return PERL_constant_ISIV;
01785 #else
01786 return PERL_constant_NOTDEF;
01787 #endif
01788 }
01789 if (memEQ(name, "DB_NEXT_NODUP", 13)) {
01790
01791 #ifdef DB_NEXT_NODUP
01792 *iv_return = DB_NEXT_NODUP;
01793 return PERL_constant_ISIV;
01794 #else
01795 return PERL_constant_NOTDEF;
01796 #endif
01797 }
01798 if (memEQ(name, "DB_PREV_NODUP", 13)) {
01799
01800 #ifdef DB_PREV_NODUP
01801 *iv_return = DB_PREV_NODUP;
01802 return PERL_constant_ISIV;
01803 #else
01804 return PERL_constant_NOTDEF;
01805 #endif
01806 }
01807 if (memEQ(name, "DB_SEQUENTIAL", 13)) {
01808
01809 #ifdef DB_SEQUENTIAL
01810 *iv_return = DB_SEQUENTIAL;
01811 return PERL_constant_ISIV;
01812 #else
01813 return PERL_constant_NOTDEF;
01814 #endif
01815 }
01816 break;
01817 case 'O':
01818 if (memEQ(name, "DB_ENV_NOMMAP", 13)) {
01819
01820 #ifdef DB_ENV_NOMMAP
01821 *iv_return = DB_ENV_NOMMAP;
01822 return PERL_constant_ISIV;
01823 #else
01824 return PERL_constant_NOTDEF;
01825 #endif
01826 }
01827 if (memEQ(name, "DB_LOG_COMMIT", 13)) {
01828
01829 #ifdef DB_LOG_COMMIT
01830 *iv_return = DB_LOG_COMMIT;
01831 return PERL_constant_ISIV;
01832 #else
01833 return PERL_constant_NOTDEF;
01834 #endif
01835 }
01836 if (memEQ(name, "DB_LOG_LOCKED", 13)) {
01837
01838 #ifdef DB_LOG_LOCKED
01839 *iv_return = DB_LOG_LOCKED;
01840 return PERL_constant_ISIV;
01841 #else
01842 return PERL_constant_NOTDEF;
01843 #endif
01844 }
01845 if (memEQ(name, "DB_LOG_NOCOPY", 13)) {
01846
01847 #ifdef DB_LOG_NOCOPY
01848 *iv_return = DB_LOG_NOCOPY;
01849 return PERL_constant_ISIV;
01850 #else
01851 return PERL_constant_NOTDEF;
01852 #endif
01853 }
01854 if (memEQ(name, "DB_TXN_NOSYNC", 13)) {
01855
01856 #ifdef DB_TXN_NOSYNC
01857 *iv_return = DB_TXN_NOSYNC;
01858 return PERL_constant_ISIV;
01859 #else
01860 return PERL_constant_NOTDEF;
01861 #endif
01862 }
01863 if (memEQ(name, "DB_TXN_NOWAIT", 13)) {
01864
01865 #ifdef DB_TXN_NOWAIT
01866 *iv_return = DB_TXN_NOWAIT;
01867 return PERL_constant_ISIV;
01868 #else
01869 return PERL_constant_NOTDEF;
01870 #endif
01871 }
01872 break;
01873 case 'P':
01874 if (memEQ(name, "DB_CHECKPOINT", 13)) {
01875
01876 #ifdef DB_CHECKPOINT
01877 *iv_return = DB_CHECKPOINT;
01878 return PERL_constant_ISIV;
01879 #else
01880 return PERL_constant_NOTDEF;
01881 #endif
01882 }
01883 if (memEQ(name, "DB_INCOMPLETE", 13)) {
01884
01885 #ifdef DB_INCOMPLETE
01886 *iv_return = DB_INCOMPLETE;
01887 return PERL_constant_ISIV;
01888 #else
01889 return PERL_constant_NOTDEF;
01890 #endif
01891 }
01892 break;
01893 case 'R':
01894 if (memEQ(name, "DB_ENV_CREATE", 13)) {
01895
01896 #ifdef DB_ENV_CREATE
01897 *iv_return = DB_ENV_CREATE;
01898 return PERL_constant_ISIV;
01899 #else
01900 return PERL_constant_NOTDEF;
01901 #endif
01902 }
01903 if (memEQ(name, "DB_LOCK_RIW_N", 13)) {
01904
01905 #ifdef DB_LOCK_RIW_N
01906 *iv_return = DB_LOCK_RIW_N;
01907 return PERL_constant_ISIV;
01908 #else
01909 return PERL_constant_NOTDEF;
01910 #endif
01911 }
01912 if (memEQ(name, "DB_LOGVERSION", 13)) {
01913
01914 #ifdef DB_LOGVERSION
01915 *iv_return = DB_LOGVERSION;
01916 return PERL_constant_ISIV;
01917 #else
01918 return PERL_constant_NOTDEF;
01919 #endif
01920 }
01921 if (memEQ(name, "DB_QAMVERSION", 13)) {
01922
01923 #ifdef DB_QAMVERSION
01924 *iv_return = DB_QAMVERSION;
01925 return PERL_constant_ISIV;
01926 #else
01927 return PERL_constant_NOTDEF;
01928 #endif
01929 }
01930 if (memEQ(name, "DB_REP_CREATE", 13)) {
01931
01932 #ifdef DB_REP_CREATE
01933 *iv_return = DB_REP_CREATE;
01934 return PERL_constant_ISIV;
01935 #else
01936 return PERL_constant_NOTDEF;
01937 #endif
01938 }
01939 if (memEQ(name, "DB_TXNVERSION", 13)) {
01940
01941 #ifdef DB_TXNVERSION
01942 *iv_return = DB_TXNVERSION;
01943 return PERL_constant_ISIV;
01944 #else
01945 return PERL_constant_NOTDEF;
01946 #endif
01947 }
01948 break;
01949 case 'S':
01950 if (memEQ(name, "DB_AGGRESSIVE", 13)) {
01951
01952 #ifdef DB_AGGRESSIVE
01953 *iv_return = DB_AGGRESSIVE;
01954 return PERL_constant_ISIV;
01955 #else
01956 return PERL_constant_NOTDEF;
01957 #endif
01958 }
01959 if (memEQ(name, "DB_FREE_SPACE", 13)) {
01960
01961 #ifdef DB_FREE_SPACE
01962 *iv_return = DB_FREE_SPACE;
01963 return PERL_constant_ISIV;
01964 #else
01965 return PERL_constant_NOTDEF;
01966 #endif
01967 }
01968 if (memEQ(name, "DB_REP_ISPERM", 13)) {
01969
01970 #ifdef DB_REP_ISPERM
01971 *iv_return = DB_REP_ISPERM;
01972 return PERL_constant_ISIV;
01973 #else
01974 return PERL_constant_NOTDEF;
01975 #endif
01976 }
01977 break;
01978 case 'T':
01979 if (memEQ(name, "DB_DIRECT_LOG", 13)) {
01980
01981 #ifdef DB_DIRECT_LOG
01982 *iv_return = DB_DIRECT_LOG;
01983 return PERL_constant_ISIV;
01984 #else
01985 return PERL_constant_NOTDEF;
01986 #endif
01987 }
01988 if (memEQ(name, "DB_LOCK_TRADE", 13)) {
01989
01990 #if (DB_VERSION_MAJOR > 4) || \
01991 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
01992 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
01993 DB_VERSION_PATCH >= 24)
01994 *iv_return = DB_LOCK_TRADE;
01995 return PERL_constant_ISIV;
01996 #else
01997 return PERL_constant_NOTDEF;
01998 #endif
01999 }
02000 if (memEQ(name, "DB_REGISTERED", 13)) {
02001
02002 #ifdef DB_REGISTERED
02003 *iv_return = DB_REGISTERED;
02004 return PERL_constant_ISIV;
02005 #else
02006 return PERL_constant_NOTDEF;
02007 #endif
02008 }
02009 break;
02010 case 'Y':
02011 if (memEQ(name, "DB_VERIFY_BAD", 13)) {
02012
02013 #ifdef DB_VERIFY_BAD
02014 *iv_return = DB_VERIFY_BAD;
02015 return PERL_constant_ISIV;
02016 #else
02017 return PERL_constant_NOTDEF;
02018 #endif
02019 }
02020 break;
02021 case '_':
02022 if (memEQ(name, "DB_DIRTY_READ", 13)) {
02023
02024 #ifdef DB_DIRTY_READ
02025 *iv_return = DB_DIRTY_READ;
02026 return PERL_constant_ISIV;
02027 #else
02028 return PERL_constant_NOTDEF;
02029 #endif
02030 }
02031 if (memEQ(name, "DB_MPOOL_FREE", 13)) {
02032
02033 #ifdef DB_MPOOL_FREE
02034 *iv_return = DB_MPOOL_FREE;
02035 return PERL_constant_ISIV;
02036 #else
02037 return PERL_constant_NOTDEF;
02038 #endif
02039 }
02040 if (memEQ(name, "DB_MPOOL_LAST", 13)) {
02041
02042 #ifdef DB_MPOOL_LAST
02043 *iv_return = DB_MPOOL_LAST;
02044 return PERL_constant_ISIV;
02045 #else
02046 return PERL_constant_NOTDEF;
02047 #endif
02048 }
02049 if (memEQ(name, "DB_debug_FLAG", 13)) {
02050
02051 #ifdef DB_debug_FLAG
02052 *iv_return = DB_debug_FLAG;
02053 return PERL_constant_ISIV;
02054 #else
02055 return PERL_constant_NOTDEF;
02056 #endif
02057 }
02058 if (memEQ(name, "REP_CONF_BULK", 13)) {
02059
02060 #ifdef REP_CONF_BULK
02061 *iv_return = REP_CONF_BULK;
02062 return PERL_constant_ISIV;
02063 #else
02064 return PERL_constant_NOTDEF;
02065 #endif
02066 }
02067 break;
02068 }
02069 return PERL_constant_NOTFOUND;
02070 }
02071
02072 static int
02073 constant_14 (pTHX_ const char *name, IV *iv_return) {
02074
02075
02076
02077
02078
02079
02080
02081
02082
02083
02084
02085
02086
02087
02088 switch (name[9]) {
02089 case 'A':
02090 if (memEQ(name, "DB_LOCK_RANDOM", 14)) {
02091
02092 #ifdef DB_LOCK_RANDOM
02093 *iv_return = DB_LOCK_RANDOM;
02094 return PERL_constant_ISIV;
02095 #else
02096 return PERL_constant_NOTDEF;
02097 #endif
02098 }
02099 if (memEQ(name, "DB_OPEN_CALLED", 14)) {
02100
02101 #ifdef DB_OPEN_CALLED
02102 *iv_return = DB_OPEN_CALLED;
02103 return PERL_constant_ISIV;
02104 #else
02105 return PERL_constant_NOTDEF;
02106 #endif
02107 }
02108 if (memEQ(name, "DB_REP_UNAVAIL", 14)) {
02109
02110 #ifdef DB_REP_UNAVAIL
02111 *iv_return = DB_REP_UNAVAIL;
02112 return PERL_constant_ISIV;
02113 #else
02114 return PERL_constant_NOTDEF;
02115 #endif
02116 }
02117 if (memEQ(name, "DB_SEQ_WRAPPED", 14)) {
02118
02119 #ifdef DB_SEQ_WRAPPED
02120 *iv_return = DB_SEQ_WRAPPED;
02121 return PERL_constant_ISIV;
02122 #else
02123 return PERL_constant_NOTDEF;
02124 #endif
02125 }
02126 if (memEQ(name, "DB_XIDDATASIZE", 14)) {
02127
02128 #ifdef DB_XIDDATASIZE
02129 *iv_return = DB_XIDDATASIZE;
02130 return PERL_constant_ISIV;
02131 #else
02132 return PERL_constant_NOTDEF;
02133 #endif
02134 }
02135 break;
02136 case 'C':
02137 if (memEQ(name, "DB_ENV_LOCKING", 14)) {
02138
02139 #ifdef DB_ENV_LOCKING
02140 *iv_return = DB_ENV_LOCKING;
02141 return PERL_constant_ISIV;
02142 #else
02143 return PERL_constant_NOTDEF;
02144 #endif
02145 }
02146 if (memEQ(name, "DB_MAX_RECORDS", 14)) {
02147
02148 #ifdef DB_MAX_RECORDS
02149 *iv_return = DB_MAX_RECORDS;
02150 return PERL_constant_ISIV;
02151 #else
02152 return PERL_constant_NOTDEF;
02153 #endif
02154 }
02155 if (memEQ(name, "DB_MPOOL_CLEAN", 14)) {
02156
02157 #ifdef DB_MPOOL_CLEAN
02158 *iv_return = DB_MPOOL_CLEAN;
02159 return PERL_constant_ISIV;
02160 #else
02161 return PERL_constant_NOTDEF;
02162 #endif
02163 }
02164 if (memEQ(name, "DB_RECORDCOUNT", 14)) {
02165
02166 #ifdef DB_RECORDCOUNT
02167 *iv_return = DB_RECORDCOUNT;
02168 return PERL_constant_ISIV;
02169 #else
02170 return PERL_constant_NOTDEF;
02171 #endif
02172 }
02173 if (memEQ(name, "DB_REP_LOCKOUT", 14)) {
02174
02175 #ifdef DB_REP_LOCKOUT
02176 *iv_return = DB_REP_LOCKOUT;
02177 return PERL_constant_ISIV;
02178 #else
02179 return PERL_constant_NOTDEF;
02180 #endif
02181 }
02182 break;
02183 case 'D':
02184 if (memEQ(name, "DB_FILE_ID_LEN", 14)) {
02185
02186 #ifdef DB_FILE_ID_LEN
02187 *iv_return = DB_FILE_ID_LEN;
02188 return PERL_constant_ISIV;
02189 #else
02190 return PERL_constant_NOTDEF;
02191 #endif
02192 }
02193 if (memEQ(name, "DB_MPOOL_DIRTY", 14)) {
02194
02195 #ifdef DB_MPOOL_DIRTY
02196 *iv_return = DB_MPOOL_DIRTY;
02197 return PERL_constant_ISIV;
02198 #else
02199 return PERL_constant_NOTDEF;
02200 #endif
02201 }
02202 break;
02203 case 'E':
02204 if (memEQ(name, "DB_ARCH_REMOVE", 14)) {
02205
02206 #ifdef DB_ARCH_REMOVE
02207 *iv_return = DB_ARCH_REMOVE;
02208 return PERL_constant_ISIV;
02209 #else
02210 return PERL_constant_NOTDEF;
02211 #endif
02212 }
02213 if (memEQ(name, "DB_LOCK_RECORD", 14)) {
02214
02215 #ifdef DB_LOCK_RECORD
02216 *iv_return = DB_LOCK_RECORD;
02217 return PERL_constant_ISIV;
02218 #else
02219 return PERL_constant_NOTDEF;
02220 #endif
02221 }
02222 if (memEQ(name, "DB_LOCK_REMOVE", 14)) {
02223
02224 #ifdef DB_LOCK_REMOVE
02225 *iv_return = DB_LOCK_REMOVE;
02226 return PERL_constant_ISIV;
02227 #else
02228 return PERL_constant_NOTDEF;
02229 #endif
02230 }
02231 if (memEQ(name, "DB_NOSERVER_ID", 14)) {
02232
02233 #ifdef DB_NOSERVER_ID
02234 *iv_return = DB_NOSERVER_ID;
02235 return PERL_constant_ISIV;
02236 #else
02237 return PERL_constant_NOTDEF;
02238 #endif
02239 }
02240 if (memEQ(name, "DB_ODDFILESIZE", 14)) {
02241
02242 #ifdef DB_ODDFILESIZE
02243 *iv_return = DB_ODDFILESIZE;
02244 return PERL_constant_ISIV;
02245 #else
02246 return PERL_constant_NOTDEF;
02247 #endif
02248 }
02249 if (memEQ(name, "DB_REP_EGENCHG", 14)) {
02250
02251 #ifdef DB_REP_EGENCHG
02252 *iv_return = DB_REP_EGENCHG;
02253 return PERL_constant_ISIV;
02254 #else
02255 return PERL_constant_NOTDEF;
02256 #endif
02257 }
02258 break;
02259 case 'G':
02260 if (memEQ(name, "DB_ENV_LOGGING", 14)) {
02261
02262 #ifdef DB_ENV_LOGGING
02263 *iv_return = DB_ENV_LOGGING;
02264 return PERL_constant_ISIV;
02265 #else
02266 return PERL_constant_NOTDEF;
02267 #endif
02268 }
02269 break;
02270 case 'I':
02271 if (memEQ(name, "DB_ENV_PRIVATE", 14)) {
02272
02273 #ifdef DB_ENV_PRIVATE
02274 *iv_return = DB_ENV_PRIVATE;
02275 return PERL_constant_ISIV;
02276 #else
02277 return PERL_constant_NOTDEF;
02278 #endif
02279 }
02280 if (memEQ(name, "DB_REVSPLITOFF", 14)) {
02281
02282 #ifdef DB_REVSPLITOFF
02283 *iv_return = DB_REVSPLITOFF;
02284 return PERL_constant_ISIV;
02285 #else
02286 return PERL_constant_NOTDEF;
02287 #endif
02288 }
02289 break;
02290 case 'L':
02291 if (memEQ(name, "DB_BTREEOLDVER", 14)) {
02292
02293 #ifdef DB_BTREEOLDVER
02294 *iv_return = DB_BTREEOLDVER;
02295 return PERL_constant_ISIV;
02296 #else
02297 return PERL_constant_NOTDEF;
02298 #endif
02299 }
02300 if (memEQ(name, "DB_ENV_DBLOCAL", 14)) {
02301
02302 #ifdef DB_ENV_DBLOCAL
02303 *iv_return = DB_ENV_DBLOCAL;
02304 return PERL_constant_ISIV;
02305 #else
02306 return PERL_constant_NOTDEF;
02307 #endif
02308 }
02309 if (memEQ(name, "DB_LOCK_OLDEST", 14)) {
02310
02311 #ifdef DB_LOCK_OLDEST
02312 *iv_return = DB_LOCK_OLDEST;
02313 return PERL_constant_ISIV;
02314 #else
02315 return PERL_constant_NOTDEF;
02316 #endif
02317 }
02318 if (memEQ(name, "DB_REP_BULKOVF", 14)) {
02319
02320 #ifdef DB_REP_BULKOVF
02321 *iv_return = DB_REP_BULKOVF;
02322 return PERL_constant_ISIV;
02323 #else
02324 return PERL_constant_NOTDEF;
02325 #endif
02326 }
02327 break;
02328 case 'M':
02329 if (memEQ(name, "DB_RENAMEMAGIC", 14)) {
02330
02331 #ifdef DB_RENAMEMAGIC
02332 *iv_return = DB_RENAMEMAGIC;
02333 return PERL_constant_ISIV;
02334 #else
02335 return PERL_constant_NOTDEF;
02336 #endif
02337 }
02338 break;
02339 case 'N':
02340 if (memEQ(name, "DB_SET_TXN_NOW", 14)) {
02341
02342 #ifdef DB_SET_TXN_NOW
02343 *iv_return = DB_SET_TXN_NOW;
02344 return PERL_constant_ISIV;
02345 #else
02346 return PERL_constant_NOTDEF;
02347 #endif
02348 }
02349 break;
02350 case 'O':
02351 if (memEQ(name, "DB_AUTO_COMMIT", 14)) {
02352
02353 #ifdef DB_AUTO_COMMIT
02354 *iv_return = DB_AUTO_COMMIT;
02355 return PERL_constant_ISIV;
02356 #else
02357 return PERL_constant_NOTDEF;
02358 #endif
02359 }
02360 if (memEQ(name, "DB_JOIN_NOSORT", 14)) {
02361
02362 #ifdef DB_JOIN_NOSORT
02363 *iv_return = DB_JOIN_NOSORT;
02364 return PERL_constant_ISIV;
02365 #else
02366 return PERL_constant_NOTDEF;
02367 #endif
02368 }
02369 if (memEQ(name, "DB_LOCK_NOWAIT", 14)) {
02370
02371 #ifdef DB_LOCK_NOWAIT
02372 *iv_return = DB_LOCK_NOWAIT;
02373 return PERL_constant_ISIV;
02374 #else
02375 return PERL_constant_NOTDEF;
02376 #endif
02377 }
02378 if (memEQ(name, "DB_RUNRECOVERY", 14)) {
02379
02380 #ifdef DB_RUNRECOVERY
02381 *iv_return = DB_RUNRECOVERY;
02382 return PERL_constant_ISIV;
02383 #else
02384 return PERL_constant_NOTDEF;
02385 #endif
02386 }
02387 break;
02388 case 'P':
02389 if (memEQ(name, "DB_ENV_APPINIT", 14)) {
02390
02391 #ifdef DB_ENV_APPINIT
02392 *iv_return = DB_ENV_APPINIT;
02393 return PERL_constant_ISIV;
02394 #else
02395 return PERL_constant_NOTDEF;
02396 #endif
02397 }
02398 if (memEQ(name, "DB_ENV_NOPANIC", 14)) {
02399
02400 #ifdef DB_ENV_NOPANIC
02401 *iv_return = DB_ENV_NOPANIC;
02402 return PERL_constant_ISIV;
02403 #else
02404 return PERL_constant_NOTDEF;
02405 #endif
02406 }
02407 break;
02408 case 'R':
02409 if (memEQ(name, "DB_HASHVERSION", 14)) {
02410
02411 #ifdef DB_HASHVERSION
02412 *iv_return = DB_HASHVERSION;
02413 return PERL_constant_ISIV;
02414 #else
02415 return PERL_constant_NOTDEF;
02416 #endif
02417 }
02418 if (memEQ(name, "DB_LOCKVERSION", 14)) {
02419
02420 #ifdef DB_LOCKVERSION
02421 *iv_return = DB_LOCKVERSION;
02422 return PERL_constant_ISIV;
02423 #else
02424 return PERL_constant_NOTDEF;
02425 #endif
02426 }
02427 if (memEQ(name, "DB_OLD_VERSION", 14)) {
02428
02429 #ifdef DB_OLD_VERSION
02430 *iv_return = DB_OLD_VERSION;
02431 return PERL_constant_ISIV;
02432 #else
02433 return PERL_constant_NOTDEF;
02434 #endif
02435 }
02436 break;
02437 case 'T':
02438 if (memEQ(name, "DB_ENCRYPT_AES", 14)) {
02439
02440 #ifdef DB_ENCRYPT_AES
02441 *iv_return = DB_ENCRYPT_AES;
02442 return PERL_constant_ISIV;
02443 #else
02444 return PERL_constant_NOTDEF;
02445 #endif
02446 }
02447 if (memEQ(name, "DB_REP_NOTPERM", 14)) {
02448
02449 #ifdef DB_REP_NOTPERM
02450 *iv_return = DB_REP_NOTPERM;
02451 return PERL_constant_ISIV;
02452 #else
02453 return PERL_constant_NOTDEF;
02454 #endif
02455 }
02456 break;
02457 case 'U':
02458 if (memEQ(name, "DB_WRITECURSOR", 14)) {
02459
02460 #ifdef DB_WRITECURSOR
02461 *iv_return = DB_WRITECURSOR;
02462 return PERL_constant_ISIV;
02463 #else
02464 return PERL_constant_NOTDEF;
02465 #endif
02466 }
02467 break;
02468 case 'V':
02469 if (memEQ(name, "DB_EID_INVALID", 14)) {
02470
02471 #ifdef DB_EID_INVALID
02472 *iv_return = DB_EID_INVALID;
02473 return PERL_constant_ISIV;
02474 #else
02475 return PERL_constant_NOTDEF;
02476 #endif
02477 }
02478 if (memEQ(name, "DB_USE_ENVIRON", 14)) {
02479
02480 #ifdef DB_USE_ENVIRON
02481 *iv_return = DB_USE_ENVIRON;
02482 return PERL_constant_ISIV;
02483 #else
02484 return PERL_constant_NOTDEF;
02485 #endif
02486 }
02487 break;
02488 case 'W':
02489 if (memEQ(name, "DB_LOCK_SWITCH", 14)) {
02490
02491 #ifdef DB_LOCK_SWITCH
02492 *iv_return = DB_LOCK_SWITCH;
02493 return PERL_constant_ISIV;
02494 #else
02495 return PERL_constant_NOTDEF;
02496 #endif
02497 }
02498 if (memEQ(name, "DB_NOOVERWRITE", 14)) {
02499
02500 #ifdef DB_NOOVERWRITE
02501 *iv_return = DB_NOOVERWRITE;
02502 return PERL_constant_ISIV;
02503 #else
02504 return PERL_constant_NOTDEF;
02505 #endif
02506 }
02507 if (memEQ(name, "DB_REP_NEWSITE", 14)) {
02508
02509 #ifdef DB_REP_NEWSITE
02510 *iv_return = DB_REP_NEWSITE;
02511 return PERL_constant_ISIV;
02512 #else
02513 return PERL_constant_NOTDEF;
02514 #endif
02515 }
02516 break;
02517 case 'X':
02518 if (memEQ(name, "DB_LOCK_EXPIRE", 14)) {
02519
02520 #ifdef DB_LOCK_EXPIRE
02521 *iv_return = DB_LOCK_EXPIRE;
02522 return PERL_constant_ISIV;
02523 #else
02524 return PERL_constant_NOTDEF;
02525 #endif
02526 }
02527 break;
02528 case '_':
02529 if (memEQ(name, "DB_CHKSUM_SHA1", 14)) {
02530
02531 #ifdef DB_CHKSUM_SHA1
02532 *iv_return = DB_CHKSUM_SHA1;
02533 return PERL_constant_ISIV;
02534 #else
02535 return PERL_constant_NOTDEF;
02536 #endif
02537 }
02538 if (memEQ(name, "DB_HANDLE_LOCK", 14)) {
02539
02540 #ifdef DB_HANDLE_LOCK
02541 *iv_return = DB_HANDLE_LOCK;
02542 return PERL_constant_ISIV;
02543 #else
02544 return PERL_constant_NOTDEF;
02545 #endif
02546 }
02547 if (memEQ(name, "DB_RECORD_LOCK", 14)) {
02548
02549 #ifdef DB_RECORD_LOCK
02550 *iv_return = DB_RECORD_LOCK;
02551 return PERL_constant_ISIV;
02552 #else
02553 return PERL_constant_NOTDEF;
02554 #endif
02555 }
02556 if (memEQ(name, "DB_REGION_ANON", 14)) {
02557
02558 #ifdef DB_REGION_ANON
02559 *iv_return = DB_REGION_ANON;
02560 return PERL_constant_ISIV;
02561 #else
02562 return PERL_constant_NOTDEF;
02563 #endif
02564 }
02565 if (memEQ(name, "DB_REGION_INIT", 14)) {
02566
02567 #ifdef DB_REGION_INIT
02568 *iv_return = DB_REGION_INIT;
02569 return PERL_constant_ISIV;
02570 #else
02571 return PERL_constant_NOTDEF;
02572 #endif
02573 }
02574 if (memEQ(name, "DB_REGION_NAME", 14)) {
02575
02576 #ifdef DB_REGION_NAME
02577 *iv_return = DB_REGION_NAME;
02578 return PERL_constant_ISIV;
02579 #else
02580 return PERL_constant_NOTDEF;
02581 #endif
02582 }
02583 break;
02584 }
02585 return PERL_constant_NOTFOUND;
02586 }
02587
02588 static int
02589 constant_15 (pTHX_ const char *name, IV *iv_return) {
02590
02591
02592
02593
02594
02595
02596
02597
02598
02599
02600
02601
02602
02603
02604 switch (name[10]) {
02605 case 'D':
02606 if (memEQ(name, "DB_REP_OUTDATED", 15)) {
02607
02608 #ifdef DB_REP_OUTDATED
02609 *iv_return = DB_REP_OUTDATED;
02610 return PERL_constant_ISIV;
02611 #else
02612 return PERL_constant_NOTDEF;
02613 #endif
02614 }
02615 break;
02616 case 'E':
02617 if (memEQ(name, "DB_LOG_INMEMORY", 15)) {
02618
02619 #ifdef DB_LOG_INMEMORY
02620 *iv_return = DB_LOG_INMEMORY;
02621 return PERL_constant_ISIV;
02622 #else
02623 return PERL_constant_NOTDEF;
02624 #endif
02625 }
02626 if (memEQ(name, "DB_MULTIPLE_KEY", 15)) {
02627
02628 #ifdef DB_MULTIPLE_KEY
02629 *iv_return = DB_MULTIPLE_KEY;
02630 return PERL_constant_ISIV;
02631 #else
02632 return PERL_constant_NOTDEF;
02633 #endif
02634 }
02635 if (memEQ(name, "DB_REP_PAGEDONE", 15)) {
02636
02637 #ifdef DB_REP_PAGEDONE
02638 *iv_return = DB_REP_PAGEDONE;
02639 return PERL_constant_ISIV;
02640 #else
02641 return PERL_constant_NOTDEF;
02642 #endif
02643 }
02644 if (memEQ(name, "DB_SURPRISE_KID", 15)) {
02645
02646 #ifdef DB_SURPRISE_KID
02647 *iv_return = DB_SURPRISE_KID;
02648 return PERL_constant_ISIV;
02649 #else
02650 return PERL_constant_NOTDEF;
02651 #endif
02652 }
02653 if (memEQ(name, "DB_TEST_PREOPEN", 15)) {
02654
02655 #ifdef DB_TEST_PREOPEN
02656 *iv_return = DB_TEST_PREOPEN;
02657 return PERL_constant_ISIV;
02658 #else
02659 return PERL_constant_NOTDEF;
02660 #endif
02661 }
02662 break;
02663 case 'F':
02664 if (memEQ(name, "DB_LOCK_DEFAULT", 15)) {
02665
02666 #ifdef DB_LOCK_DEFAULT
02667 *iv_return = DB_LOCK_DEFAULT;
02668 return PERL_constant_ISIV;
02669 #else
02670 return PERL_constant_NOTDEF;
02671 #endif
02672 }
02673 if (memEQ(name, "DB_VERIFY_FATAL", 15)) {
02674
02675 #ifdef DB_VERIFY_FATAL
02676 *iv_return = DB_VERIFY_FATAL;
02677 return PERL_constant_ISIV;
02678 #else
02679 return PERL_constant_NOTDEF;
02680 #endif
02681 }
02682 break;
02683 case 'G':
02684 if (memEQ(name, "DB_LOCK_UPGRADE", 15)) {
02685
02686 #ifdef DB_LOCK_UPGRADE
02687 *iv_return = DB_LOCK_UPGRADE;
02688 return PERL_constant_ISIV;
02689 #else
02690 return PERL_constant_NOTDEF;
02691 #endif
02692 }
02693 break;
02694 case 'H':
02695 if (memEQ(name, "DB_LOCK_INHERIT", 15)) {
02696
02697 #if (DB_VERSION_MAJOR > 2) || \
02698 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 7) || \
02699 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 7 && \
02700 DB_VERSION_PATCH >= 1)
02701 *iv_return = DB_LOCK_INHERIT;
02702 return PERL_constant_ISIV;
02703 #else
02704 return PERL_constant_NOTDEF;
02705 #endif
02706 }
02707 if (memEQ(name, "DB_MUTEX_THREAD", 15)) {
02708
02709 #ifdef DB_MUTEX_THREAD
02710 *iv_return = DB_MUTEX_THREAD;
02711 return PERL_constant_ISIV;
02712 #else
02713 return PERL_constant_NOTDEF;
02714 #endif
02715 }
02716 break;
02717 case 'I':
02718 if (memEQ(name, "DB_ENV_PANIC_OK", 15)) {
02719
02720 #ifdef DB_ENV_PANIC_OK
02721 *iv_return = DB_ENV_PANIC_OK;
02722 return PERL_constant_ISIV;
02723 #else
02724 return PERL_constant_NOTDEF;
02725 #endif
02726 }
02727 break;
02728 case 'K':
02729 if (memEQ(name, "DB_ENV_LOCKDOWN", 15)) {
02730
02731 #ifdef DB_ENV_LOCKDOWN
02732 *iv_return = DB_ENV_LOCKDOWN;
02733 return PERL_constant_ISIV;
02734 #else
02735 return PERL_constant_NOTDEF;
02736 #endif
02737 }
02738 if (memEQ(name, "DB_ORDERCHKONLY", 15)) {
02739
02740 #ifdef DB_ORDERCHKONLY
02741 *iv_return = DB_ORDERCHKONLY;
02742 return PERL_constant_ISIV;
02743 #else
02744 return PERL_constant_NOTDEF;
02745 #endif
02746 }
02747 if (memEQ(name, "DB_TXN_LOCK_2PL", 15)) {
02748
02749 #ifdef DB_TXN_LOCK_2PL
02750 *iv_return = DB_TXN_LOCK_2PL;
02751 return PERL_constant_ISIV;
02752 #else
02753 return PERL_constant_NOTDEF;
02754 #endif
02755 }
02756 break;
02757 case 'L':
02758 if (memEQ(name, "DB_ENV_YIELDCPU", 15)) {
02759
02760 #ifdef DB_ENV_YIELDCPU
02761 *iv_return = DB_ENV_YIELDCPU;
02762 return PERL_constant_ISIV;
02763 #else
02764 return PERL_constant_NOTDEF;
02765 #endif
02766 }
02767 break;
02768 case 'M':
02769 if (memEQ(name, "DB_LOCK_TIMEOUT", 15)) {
02770
02771 #if (DB_VERSION_MAJOR > 4) || \
02772 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \
02773 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \
02774 DB_VERSION_PATCH >= 14)
02775 *iv_return = DB_LOCK_TIMEOUT;
02776 return PERL_constant_ISIV;
02777 #else
02778 return PERL_constant_NOTDEF;
02779 #endif
02780 }
02781 if (memEQ(name, "DB_REGION_MAGIC", 15)) {
02782
02783 #ifdef DB_REGION_MAGIC
02784 *iv_return = DB_REGION_MAGIC;
02785 return PERL_constant_ISIV;
02786 #else
02787 return PERL_constant_NOTDEF;
02788 #endif
02789 }
02790 break;
02791 case 'N':
02792 if (memEQ(name, "DB_MPOOL_UNLINK", 15)) {
02793
02794 #ifdef DB_MPOOL_UNLINK
02795 *iv_return = DB_MPOOL_UNLINK;
02796 return PERL_constant_ISIV;
02797 #else
02798 return PERL_constant_NOTDEF;
02799 #endif
02800 }
02801 break;
02802 case 'O':
02803 if (memEQ(name, "DB_APPLY_LOGREG", 15)) {
02804
02805 #ifdef DB_APPLY_LOGREG
02806 *iv_return = DB_APPLY_LOGREG;
02807 return PERL_constant_ISIV;
02808 #else
02809 return PERL_constant_NOTDEF;
02810 #endif
02811 }
02812 if (memEQ(name, "DB_LOG_WRNOSYNC", 15)) {
02813
02814 #ifdef DB_LOG_WRNOSYNC
02815 *iv_return = DB_LOG_WRNOSYNC;
02816 return PERL_constant_ISIV;
02817 #else
02818 return PERL_constant_NOTDEF;
02819 #endif
02820 }
02821 if (memEQ(name, "DB_MPOOL_NOFILE", 15)) {
02822
02823 #ifdef DB_MPOOL_NOFILE
02824 *iv_return = DB_MPOOL_NOFILE;
02825 return PERL_constant_ISIV;
02826 #else
02827 return PERL_constant_NOTDEF;
02828 #endif
02829 }
02830 if (memEQ(name, "REP_CONF_NOWAIT", 15)) {
02831
02832 #ifdef REP_CONF_NOWAIT
02833 *iv_return = REP_CONF_NOWAIT;
02834 return PERL_constant_ISIV;
02835 #else
02836 return PERL_constant_NOTDEF;
02837 #endif
02838 }
02839 break;
02840 case 'R':
02841 if (memEQ(name, "DB_BTREEVERSION", 15)) {
02842
02843 #ifdef DB_BTREEVERSION
02844 *iv_return = DB_BTREEVERSION;
02845 return PERL_constant_ISIV;
02846 #else
02847 return PERL_constant_NOTDEF;
02848 #endif
02849 }
02850 if (memEQ(name, "DB_MPOOL_CREATE", 15)) {
02851
02852 #ifdef DB_MPOOL_CREATE
02853 *iv_return = DB_MPOOL_CREATE;
02854 return PERL_constant_ISIV;
02855 #else
02856 return PERL_constant_NOTDEF;
02857 #endif
02858 }
02859 if (memEQ(name, "DB_REP_LOGREADY", 15)) {
02860
02861 #ifdef DB_REP_LOGREADY
02862 *iv_return = DB_REP_LOGREADY;
02863 return PERL_constant_ISIV;
02864 #else
02865 return PERL_constant_NOTDEF;
02866 #endif
02867 }
02868 break;
02869 case 'S':
02870 if (memEQ(name, "DB_BUFFER_SMALL", 15)) {
02871
02872 #ifdef DB_BUFFER_SMALL
02873 *iv_return = DB_BUFFER_SMALL;
02874 return PERL_constant_ISIV;
02875 #else
02876 return PERL_constant_NOTDEF;
02877 #endif
02878 }
02879 if (memEQ(name, "DB_REP_LOGSONLY", 15)) {
02880
02881 #ifdef DB_REP_LOGSONLY
02882 *iv_return = DB_REP_LOGSONLY;
02883 return PERL_constant_ISIV;
02884 #else
02885 return PERL_constant_NOTDEF;
02886 #endif
02887 }
02888 if (memEQ(name, "DB_TEST_POSTLOG", 15)) {
02889
02890 #ifdef DB_TEST_POSTLOG
02891 *iv_return = DB_TEST_POSTLOG;
02892 return PERL_constant_ISIV;
02893 #else
02894 return PERL_constant_NOTDEF;
02895 #endif
02896 }
02897 break;
02898 case 'T':
02899 if (memEQ(name, "DB_LOCK_NOTHELD", 15)) {
02900
02901 #ifdef DB_LOCK_NOTHELD
02902 *iv_return = DB_LOCK_NOTHELD;
02903 return PERL_constant_ISIV;
02904 #else
02905 return PERL_constant_NOTDEF;
02906 #endif
02907 }
02908 if (memEQ(name, "DB_LOCK_PUT_ALL", 15)) {
02909
02910 #if (DB_VERSION_MAJOR > 2) || \
02911 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
02912 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
02913 DB_VERSION_PATCH >= 3)
02914 *iv_return = DB_LOCK_PUT_ALL;
02915 return PERL_constant_ISIV;
02916 #else
02917 return PERL_constant_NOTDEF;
02918 #endif
02919 }
02920 if (memEQ(name, "DB_LOCK_PUT_OBJ", 15)) {
02921
02922 #if (DB_VERSION_MAJOR > 2) || \
02923 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
02924 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
02925 DB_VERSION_PATCH >= 3)
02926 *iv_return = DB_LOCK_PUT_OBJ;
02927 return PERL_constant_ISIV;
02928 #else
02929 return PERL_constant_NOTDEF;
02930 #endif
02931 }
02932 break;
02933 case 'U':
02934 if (memEQ(name, "DB_REP_NOBUFFER", 15)) {
02935
02936 #ifdef DB_REP_NOBUFFER
02937 *iv_return = DB_REP_NOBUFFER;
02938 return PERL_constant_ISIV;
02939 #else
02940 return PERL_constant_NOTDEF;
02941 #endif
02942 }
02943 break;
02944 case 'W':
02945 if (memEQ(name, "DB_REP_ANYWHERE", 15)) {
02946
02947 #ifdef DB_REP_ANYWHERE
02948 *iv_return = DB_REP_ANYWHERE;
02949 return PERL_constant_ISIV;
02950 #else
02951 return PERL_constant_NOTDEF;
02952 #endif
02953 }
02954 break;
02955 case 'X':
02956 if (memEQ(name, "DB_MPOOL_EXTENT", 15)) {
02957
02958 #ifdef DB_MPOOL_EXTENT
02959 *iv_return = DB_MPOOL_EXTENT;
02960 return PERL_constant_ISIV;
02961 #else
02962 return PERL_constant_NOTDEF;
02963 #endif
02964 }
02965 break;
02966 case 'Y':
02967 if (memEQ(name, "DB_PRIORITY_LOW", 15)) {
02968
02969 #if (DB_VERSION_MAJOR > 4) || \
02970 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
02971 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
02972 DB_VERSION_PATCH >= 24)
02973 *iv_return = DB_PRIORITY_LOW;
02974 return PERL_constant_ISIV;
02975 #else
02976 return PERL_constant_NOTDEF;
02977 #endif
02978 }
02979 break;
02980 case '_':
02981 if (memEQ(name, "DB_CONSUME_WAIT", 15)) {
02982
02983 #ifdef DB_CONSUME_WAIT
02984 *iv_return = DB_CONSUME_WAIT;
02985 return PERL_constant_ISIV;
02986 #else
02987 return PERL_constant_NOTDEF;
02988 #endif
02989 }
02990 if (memEQ(name, "DB_OPFLAGS_MASK", 15)) {
02991
02992 #ifdef DB_OPFLAGS_MASK
02993 *iv_return = DB_OPFLAGS_MASK;
02994 return PERL_constant_ISIV;
02995 #else
02996 return PERL_constant_NOTDEF;
02997 #endif
02998 }
02999 if (memEQ(name, "DB_TXN_LOG_MASK", 15)) {
03000
03001 #ifdef DB_TXN_LOG_MASK
03002 *iv_return = DB_TXN_LOG_MASK;
03003 return PERL_constant_ISIV;
03004 #else
03005 return PERL_constant_NOTDEF;
03006 #endif
03007 }
03008 if (memEQ(name, "DB_TXN_LOG_REDO", 15)) {
03009
03010 #ifdef DB_TXN_LOG_REDO
03011 *iv_return = DB_TXN_LOG_REDO;
03012 return PERL_constant_ISIV;
03013 #else
03014 return PERL_constant_NOTDEF;
03015 #endif
03016 }
03017 if (memEQ(name, "DB_TXN_LOG_UNDO", 15)) {
03018
03019 #ifdef DB_TXN_LOG_UNDO
03020 *iv_return = DB_TXN_LOG_UNDO;
03021 return PERL_constant_ISIV;
03022 #else
03023 return PERL_constant_NOTDEF;
03024 #endif
03025 }
03026 break;
03027 }
03028 return PERL_constant_NOTFOUND;
03029 }
03030
03031 static int
03032 constant_16 (pTHX_ const char *name, IV *iv_return) {
03033
03034
03035
03036
03037
03038
03039
03040
03041
03042
03043
03044
03045
03046
03047
03048 switch (name[10]) {
03049 case 'A':
03050 if (memEQ(name, "DB_EID_BROADCAST", 16)) {
03051
03052 #ifdef DB_EID_BROADCAST
03053 *iv_return = DB_EID_BROADCAST;
03054 return PERL_constant_ISIV;
03055 #else
03056 return PERL_constant_NOTDEF;
03057 #endif
03058 }
03059 if (memEQ(name, "DB_LOCK_DEADLOCK", 16)) {
03060
03061 #ifdef DB_LOCK_DEADLOCK
03062 *iv_return = DB_LOCK_DEADLOCK;
03063 return PERL_constant_ISIV;
03064 #else
03065 return PERL_constant_NOTDEF;
03066 #endif
03067 }
03068 if (memEQ(name, "DB_VERB_DEADLOCK", 16)) {
03069
03070 #ifdef DB_VERB_DEADLOCK
03071 *iv_return = DB_VERB_DEADLOCK;
03072 return PERL_constant_ISIV;
03073 #else
03074 return PERL_constant_NOTDEF;
03075 #endif
03076 }
03077 if (memEQ(name, "DB_VRFY_FLAGMASK", 16)) {
03078
03079 #ifdef DB_VRFY_FLAGMASK
03080 *iv_return = DB_VRFY_FLAGMASK;
03081 return PERL_constant_ISIV;
03082 #else
03083 return PERL_constant_NOTDEF;
03084 #endif
03085 }
03086 break;
03087 case 'C':
03088 if (memEQ(name, "DB_CACHED_COUNTS", 16)) {
03089
03090 #ifdef DB_CACHED_COUNTS
03091 *iv_return = DB_CACHED_COUNTS;
03092 return PERL_constant_ISIV;
03093 #else
03094 return PERL_constant_NOTDEF;
03095 #endif
03096 }
03097 if (memEQ(name, "DB_ENV_RPCCLIENT", 16)) {
03098
03099 #ifdef DB_ENV_RPCCLIENT
03100 *iv_return = DB_ENV_RPCCLIENT;
03101 return PERL_constant_ISIV;
03102 #else
03103 return PERL_constant_NOTDEF;
03104 #endif
03105 }
03106 if (memEQ(name, "DB_VERB_RECOVERY", 16)) {
03107
03108 #ifdef DB_VERB_RECOVERY
03109 *iv_return = DB_VERB_RECOVERY;
03110 return PERL_constant_ISIV;
03111 #else
03112 return PERL_constant_NOTDEF;
03113 #endif
03114 }
03115 break;
03116 case 'E':
03117 if (memEQ(name, "DB_ENV_DIRECT_DB", 16)) {
03118
03119 #ifdef DB_ENV_DIRECT_DB
03120 *iv_return = DB_ENV_DIRECT_DB;
03121 return PERL_constant_ISIV;
03122 #else
03123 return PERL_constant_NOTDEF;
03124 #endif
03125 }
03126 if (memEQ(name, "DB_REP_REREQUEST", 16)) {
03127
03128 #ifdef DB_REP_REREQUEST
03129 *iv_return = DB_REP_REREQUEST;
03130 return PERL_constant_ISIV;
03131 #else
03132 return PERL_constant_NOTDEF;
03133 #endif
03134 }
03135 break;
03136 case 'F':
03137 if (memEQ(name, "DB_LOGC_BUF_SIZE", 16)) {
03138
03139 #ifdef DB_LOGC_BUF_SIZE
03140 *iv_return = DB_LOGC_BUF_SIZE;
03141 return PERL_constant_ISIV;
03142 #else
03143 return PERL_constant_NOTDEF;
03144 #endif
03145 }
03146 break;
03147 case 'G':
03148 if (memEQ(name, "DB_SEQ_RANGE_SET", 16)) {
03149
03150 #ifdef DB_SEQ_RANGE_SET
03151 *iv_return = DB_SEQ_RANGE_SET;
03152 return PERL_constant_ISIV;
03153 #else
03154 return PERL_constant_NOTDEF;
03155 #endif
03156 }
03157 if (memEQ(name, "DB_VERB_REGISTER", 16)) {
03158
03159 #ifdef DB_VERB_REGISTER
03160 *iv_return = DB_VERB_REGISTER;
03161 return PERL_constant_ISIV;
03162 #else
03163 return PERL_constant_NOTDEF;
03164 #endif
03165 }
03166 break;
03167 case 'I':
03168 if (memEQ(name, "DB_MPOOL_DISCARD", 16)) {
03169
03170 #ifdef DB_MPOOL_DISCARD
03171 *iv_return = DB_MPOOL_DISCARD;
03172 return PERL_constant_ISIV;
03173 #else
03174 return PERL_constant_NOTDEF;
03175 #endif
03176 }
03177 if (memEQ(name, "DB_VERB_WAITSFOR", 16)) {
03178
03179 #ifdef DB_VERB_WAITSFOR
03180 *iv_return = DB_VERB_WAITSFOR;
03181 return PERL_constant_ISIV;
03182 #else
03183 return PERL_constant_NOTDEF;
03184 #endif
03185 }
03186 break;
03187 case 'K':
03188 if (memEQ(name, "DB_TXN_LOCK_MASK", 16)) {
03189
03190 #ifdef DB_TXN_LOCK_MASK
03191 *iv_return = DB_TXN_LOCK_MASK;
03192 return PERL_constant_ISIV;
03193 #else
03194 return PERL_constant_NOTDEF;
03195 #endif
03196 }
03197 if (memEQ(name, "DB_VERB_CHKPOINT", 16)) {
03198
03199 #ifdef DB_VERB_CHKPOINT
03200 *iv_return = DB_VERB_CHKPOINT;
03201 return PERL_constant_ISIV;
03202 #else
03203 return PERL_constant_NOTDEF;
03204 #endif
03205 }
03206 break;
03207 case 'L':
03208 if (memEQ(name, "DB_IMMUTABLE_KEY", 16)) {
03209
03210 #ifdef DB_IMMUTABLE_KEY
03211 *iv_return = DB_IMMUTABLE_KEY;
03212 return PERL_constant_ISIV;
03213 #else
03214 return PERL_constant_NOTDEF;
03215 #endif
03216 }
03217 if (memEQ(name, "DB_JAVA_CALLBACK", 16)) {
03218
03219 #ifdef DB_JAVA_CALLBACK
03220 *iv_return = DB_JAVA_CALLBACK;
03221 return PERL_constant_ISIV;
03222 #else
03223 return PERL_constant_NOTDEF;
03224 #endif
03225 }
03226 break;
03227 case 'M':
03228 if (memEQ(name, "DB_REP_DUPMASTER", 16)) {
03229
03230 #ifdef DB_REP_DUPMASTER
03231 *iv_return = DB_REP_DUPMASTER;
03232 return PERL_constant_ISIV;
03233 #else
03234 return PERL_constant_NOTDEF;
03235 #endif
03236 }
03237 if (memEQ(name, "DB_REP_NEWMASTER", 16)) {
03238
03239 #ifdef DB_REP_NEWMASTER
03240 *iv_return = DB_REP_NEWMASTER;
03241 return PERL_constant_ISIV;
03242 #else
03243 return PERL_constant_NOTDEF;
03244 #endif
03245 }
03246 if (memEQ(name, "DB_REP_PERMANENT", 16)) {
03247
03248 #ifdef DB_REP_PERMANENT
03249 *iv_return = DB_REP_PERMANENT;
03250 return PERL_constant_ISIV;
03251 #else
03252 return PERL_constant_NOTDEF;
03253 #endif
03254 }
03255 break;
03256 case 'N':
03257 if (memEQ(name, "DB_ENV_DSYNC_LOG", 16)) {
03258
03259 #ifdef DB_ENV_DSYNC_LOG
03260 *iv_return = DB_ENV_DSYNC_LOG;
03261 return PERL_constant_ISIV;
03262 #else
03263 return PERL_constant_NOTDEF;
03264 #endif
03265 }
03266 if (memEQ(name, "DB_LOCK_CONFLICT", 16)) {
03267
03268 #ifdef DB_LOCK_CONFLICT
03269 *iv_return = DB_LOCK_CONFLICT;
03270 return PERL_constant_ISIV;
03271 #else
03272 return PERL_constant_NOTDEF;
03273 #endif
03274 }
03275 if (memEQ(name, "DB_LOCK_MINLOCKS", 16)) {
03276
03277 #ifdef DB_LOCK_MINLOCKS
03278 *iv_return = DB_LOCK_MINLOCKS;
03279 return PERL_constant_ISIV;
03280 #else
03281 return PERL_constant_NOTDEF;
03282 #endif
03283 }
03284 if (memEQ(name, "DB_LOCK_MINWRITE", 16)) {
03285
03286 #ifdef DB_LOCK_MINWRITE
03287 *iv_return = DB_LOCK_MINWRITE;
03288 return PERL_constant_ISIV;
03289 #else
03290 return PERL_constant_NOTDEF;
03291 #endif
03292 }
03293 if (memEQ(name, "DB_TXN_OPENFILES", 16)) {
03294
03295 #if (DB_VERSION_MAJOR > 3) || \
03296 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \
03297 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \
03298 DB_VERSION_PATCH >= 14)
03299 *iv_return = DB_TXN_OPENFILES;
03300 return PERL_constant_ISIV;
03301 #else
03302 return PERL_constant_NOTDEF;
03303 #endif
03304 }
03305 break;
03306 case 'O':
03307 if (memEQ(name, "DB_ENV_NOLOCKING", 16)) {
03308
03309 #ifdef DB_ENV_NOLOCKING
03310 *iv_return = DB_ENV_NOLOCKING;
03311 return PERL_constant_ISIV;
03312 #else
03313 return PERL_constant_NOTDEF;
03314 #endif
03315 }
03316 if (memEQ(name, "DB_FCNTL_LOCKING", 16)) {
03317
03318 #ifdef DB_FCNTL_LOCKING
03319 *iv_return = DB_FCNTL_LOCKING;
03320 return PERL_constant_ISIV;
03321 #else
03322 return PERL_constant_NOTDEF;
03323 #endif
03324 }
03325 break;
03326 case 'R':
03327 if (memEQ(name, "DB_ENV_OVERWRITE", 16)) {
03328
03329 #ifdef DB_ENV_OVERWRITE
03330 *iv_return = DB_ENV_OVERWRITE;
03331 return PERL_constant_ISIV;
03332 #else
03333 return PERL_constant_NOTDEF;
03334 #endif
03335 }
03336 if (memEQ(name, "DB_MPOOL_PRIVATE", 16)) {
03337
03338 #ifdef DB_MPOOL_PRIVATE
03339 *iv_return = DB_MPOOL_PRIVATE;
03340 return PERL_constant_ISIV;
03341 #else
03342 return PERL_constant_NOTDEF;
03343 #endif
03344 }
03345 if (memEQ(name, "DB_NOSERVER_HOME", 16)) {
03346
03347 #ifdef DB_NOSERVER_HOME
03348 *iv_return = DB_NOSERVER_HOME;
03349 return PERL_constant_ISIV;
03350 #else
03351 return PERL_constant_NOTDEF;
03352 #endif
03353 }
03354 if (memEQ(name, "DB_SECONDARY_BAD", 16)) {
03355
03356 #ifdef DB_SECONDARY_BAD
03357 *iv_return = DB_SECONDARY_BAD;
03358 return PERL_constant_ISIV;
03359 #else
03360 return PERL_constant_NOTDEF;
03361 #endif
03362 }
03363 break;
03364 case 'S':
03365 if (memEQ(name, "DB_TEST_POSTOPEN", 16)) {
03366
03367 #ifdef DB_TEST_POSTOPEN
03368 *iv_return = DB_TEST_POSTOPEN;
03369 return PERL_constant_ISIV;
03370 #else
03371 return PERL_constant_NOTDEF;
03372 #endif
03373 }
03374 if (memEQ(name, "DB_TEST_POSTSYNC", 16)) {
03375
03376 #ifdef DB_TEST_POSTSYNC
03377 *iv_return = DB_TEST_POSTSYNC;
03378 return PERL_constant_ISIV;
03379 #else
03380 return PERL_constant_NOTDEF;
03381 #endif
03382 }
03383 break;
03384 case 'T':
03385 if (memEQ(name, "DB_FREELIST_ONLY", 16)) {
03386
03387 #ifdef DB_FREELIST_ONLY
03388 *iv_return = DB_FREELIST_ONLY;
03389 return PERL_constant_ISIV;
03390 #else
03391 return PERL_constant_NOTDEF;
03392 #endif
03393 }
03394 if (memEQ(name, "DB_LOCK_NOTEXIST", 16)) {
03395
03396 #ifdef DB_LOCK_NOTEXIST
03397 *iv_return = DB_LOCK_NOTEXIST;
03398 return PERL_constant_ISIV;
03399 #else
03400 return PERL_constant_NOTDEF;
03401 #endif
03402 }
03403 if (memEQ(name, "DB_LOCK_PUT_READ", 16)) {
03404
03405 #if (DB_VERSION_MAJOR > 4) || \
03406 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \
03407 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \
03408 DB_VERSION_PATCH >= 14)
03409 *iv_return = DB_LOCK_PUT_READ;
03410 return PERL_constant_ISIV;
03411 #else
03412 return PERL_constant_NOTDEF;
03413 #endif
03414 }
03415 if (memEQ(name, "DB_PAGE_NOTFOUND", 16)) {
03416
03417 #ifdef DB_PAGE_NOTFOUND
03418 *iv_return = DB_PAGE_NOTFOUND;
03419 return PERL_constant_ISIV;
03420 #else
03421 return PERL_constant_NOTDEF;
03422 #endif
03423 }
03424 break;
03425 case 'U':
03426 if (memEQ(name, "DB_LOCK_YOUNGEST", 16)) {
03427
03428 #ifdef DB_LOCK_YOUNGEST
03429 *iv_return = DB_LOCK_YOUNGEST;
03430 return PERL_constant_ISIV;
03431 #else
03432 return PERL_constant_NOTDEF;
03433 #endif
03434 }
03435 break;
03436 case 'X':
03437 if (memEQ(name, "DB_LOCK_MAXLOCKS", 16)) {
03438
03439 #ifdef DB_LOCK_MAXLOCKS
03440 *iv_return = DB_LOCK_MAXLOCKS;
03441 return PERL_constant_ISIV;
03442 #else
03443 return PERL_constant_NOTDEF;
03444 #endif
03445 }
03446 if (memEQ(name, "DB_LOCK_MAXWRITE", 16)) {
03447
03448 #ifdef DB_LOCK_MAXWRITE
03449 *iv_return = DB_LOCK_MAXWRITE;
03450 return PERL_constant_ISIV;
03451 #else
03452 return PERL_constant_NOTDEF;
03453 #endif
03454 }
03455 break;
03456 case 'Y':
03457 if (memEQ(name, "DB_PRIORITY_HIGH", 16)) {
03458
03459 #if (DB_VERSION_MAJOR > 4) || \
03460 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
03461 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
03462 DB_VERSION_PATCH >= 24)
03463 *iv_return = DB_PRIORITY_HIGH;
03464 return PERL_constant_ISIV;
03465 #else
03466 return PERL_constant_NOTDEF;
03467 #endif
03468 }
03469 break;
03470 case '_':
03471 if (memEQ(name, "DB_COMPACT_FLAGS", 16)) {
03472
03473 #ifdef DB_COMPACT_FLAGS
03474 *iv_return = DB_COMPACT_FLAGS;
03475 return PERL_constant_ISIV;
03476 #else
03477 return PERL_constant_NOTDEF;
03478 #endif
03479 }
03480 if (memEQ(name, "DB_ENV_CDB_ALLDB", 16)) {
03481
03482 #ifdef DB_ENV_CDB_ALLDB
03483 *iv_return = DB_ENV_CDB_ALLDB;
03484 return PERL_constant_ISIV;
03485 #else
03486 return PERL_constant_NOTDEF;
03487 #endif
03488 }
03489 if (memEQ(name, "DB_RECOVER_FATAL", 16)) {
03490
03491 #ifdef DB_RECOVER_FATAL
03492 *iv_return = DB_RECOVER_FATAL;
03493 return PERL_constant_ISIV;
03494 #else
03495 return PERL_constant_NOTDEF;
03496 #endif
03497 }
03498 if (memEQ(name, "DB_VERSION_MAJOR", 16)) {
03499
03500 #ifdef DB_VERSION_MAJOR
03501 *iv_return = DB_VERSION_MAJOR;
03502 return PERL_constant_ISIV;
03503 #else
03504 return PERL_constant_NOTDEF;
03505 #endif
03506 }
03507 if (memEQ(name, "DB_VERSION_MINOR", 16)) {
03508
03509 #ifdef DB_VERSION_MINOR
03510 *iv_return = DB_VERSION_MINOR;
03511 return PERL_constant_ISIV;
03512 #else
03513 return PERL_constant_NOTDEF;
03514 #endif
03515 }
03516 if (memEQ(name, "DB_VERSION_PATCH", 16)) {
03517
03518 #ifdef DB_VERSION_PATCH
03519 *iv_return = DB_VERSION_PATCH;
03520 return PERL_constant_ISIV;
03521 #else
03522 return PERL_constant_NOTDEF;
03523 #endif
03524 }
03525 break;
03526 }
03527 return PERL_constant_NOTFOUND;
03528 }
03529
03530 static int
03531 constant_17 (pTHX_ const char *name, IV *iv_return, const char **pv_return) {
03532
03533
03534
03535
03536
03537
03538
03539
03540
03541 switch (name[13]) {
03542 case 'A':
03543 if (memEQ(name, "DB_GET_BOTH_RANGE", 17)) {
03544
03545 #ifdef DB_GET_BOTH_RANGE
03546 *iv_return = DB_GET_BOTH_RANGE;
03547 return PERL_constant_ISIV;
03548 #else
03549 return PERL_constant_NOTDEF;
03550 #endif
03551 }
03552 break;
03553 case 'C':
03554 if (memEQ(name, "DB_STAT_LOCK_CONF", 17)) {
03555
03556 #ifdef DB_STAT_LOCK_CONF
03557 *iv_return = DB_STAT_LOCK_CONF;
03558 return PERL_constant_ISIV;
03559 #else
03560 return PERL_constant_NOTDEF;
03561 #endif
03562 }
03563 break;
03564 case 'H':
03565 if (memEQ(name, "DB_STAT_MEMP_HASH", 17)) {
03566
03567 #ifdef DB_STAT_MEMP_HASH
03568 *iv_return = DB_STAT_MEMP_HASH;
03569 return PERL_constant_ISIV;
03570 #else
03571 return PERL_constant_NOTDEF;
03572 #endif
03573 }
03574 break;
03575 case 'I':
03576 if (memEQ(name, "DB_ENV_REP_CLIENT", 17)) {
03577
03578 #ifdef DB_ENV_REP_CLIENT
03579 *iv_return = DB_ENV_REP_CLIENT;
03580 return PERL_constant_ISIV;
03581 #else
03582 return PERL_constant_NOTDEF;
03583 #endif
03584 }
03585 if (memEQ(name, "DB_TEST_ELECTINIT", 17)) {
03586
03587 #ifdef DB_TEST_ELECTINIT
03588 *iv_return = DB_TEST_ELECTINIT;
03589 return PERL_constant_ISIV;
03590 #else
03591 return PERL_constant_NOTDEF;
03592 #endif
03593 }
03594 if (memEQ(name, "DB_TXN_POPENFILES", 17)) {
03595
03596 #if (DB_VERSION_MAJOR > 3) || \
03597 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 3) || \
03598 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 3 && \
03599 DB_VERSION_PATCH >= 11)
03600 *iv_return = DB_TXN_POPENFILES;
03601 return PERL_constant_ISIV;
03602 #else
03603 return PERL_constant_NOTDEF;
03604 #endif
03605 }
03606 if (memEQ(name, "REP_CONF_AUTOINIT", 17)) {
03607
03608 #ifdef REP_CONF_AUTOINIT
03609 *iv_return = REP_CONF_AUTOINIT;
03610 return PERL_constant_ISIV;
03611 #else
03612 return PERL_constant_NOTDEF;
03613 #endif
03614 }
03615 break;
03616 case 'L':
03617 if (memEQ(name, "DB_ENV_STANDALONE", 17)) {
03618
03619 #ifdef DB_ENV_STANDALONE
03620 *iv_return = DB_ENV_STANDALONE;
03621 return PERL_constant_ISIV;
03622 #else
03623 return PERL_constant_NOTDEF;
03624 #endif
03625 }
03626 if (memEQ(name, "DB_ENV_USER_ALLOC", 17)) {
03627
03628 #ifdef DB_ENV_USER_ALLOC
03629 *iv_return = DB_ENV_USER_ALLOC;
03630 return PERL_constant_ISIV;
03631 #else
03632 return PERL_constant_NOTDEF;
03633 #endif
03634 }
03635 break;
03636 case 'M':
03637 if (memEQ(name, "DB_LOG_AUTOREMOVE", 17)) {
03638
03639 #ifdef DB_LOG_AUTOREMOVE
03640 *iv_return = DB_LOG_AUTOREMOVE;
03641 return PERL_constant_ISIV;
03642 #else
03643 return PERL_constant_NOTDEF;
03644 #endif
03645 }
03646 if (memEQ(name, "DB_NO_AUTO_COMMIT", 17)) {
03647
03648 #ifdef DB_NO_AUTO_COMMIT
03649 *iv_return = DB_NO_AUTO_COMMIT;
03650 return PERL_constant_ISIV;
03651 #else
03652 return PERL_constant_NOTDEF;
03653 #endif
03654 }
03655 break;
03656 case 'N':
03657 if (memEQ(name, "DB_TEST_PRERENAME", 17)) {
03658
03659 #ifdef DB_TEST_PRERENAME
03660 *iv_return = DB_TEST_PRERENAME;
03661 return PERL_constant_ISIV;
03662 #else
03663 return PERL_constant_NOTDEF;
03664 #endif
03665 }
03666 break;
03667 case 'P':
03668 if (memEQ(name, "DB_RPC_SERVERPROG", 17)) {
03669
03670 #ifdef DB_RPC_SERVERPROG
03671 *iv_return = DB_RPC_SERVERPROG;
03672 return PERL_constant_ISIV;
03673 #else
03674 return PERL_constant_NOTDEF;
03675 #endif
03676 }
03677 break;
03678 case 'R':
03679 if (memEQ(name, "DB_VERSION_STRING", 17)) {
03680
03681 #ifdef DB_VERSION_STRING
03682 *pv_return = DB_VERSION_STRING;
03683 return PERL_constant_ISPV;
03684 #else
03685 return PERL_constant_NOTDEF;
03686 #endif
03687 }
03688 break;
03689 case 'S':
03690 if (memEQ(name, "DB_ENV_REP_MASTER", 17)) {
03691
03692 #ifdef DB_ENV_REP_MASTER
03693 *iv_return = DB_ENV_REP_MASTER;
03694 return PERL_constant_ISIV;
03695 #else
03696 return PERL_constant_NOTDEF;
03697 #endif
03698 }
03699 if (memEQ(name, "DB_ENV_TXN_NOSYNC", 17)) {
03700
03701 #ifdef DB_ENV_TXN_NOSYNC
03702 *iv_return = DB_ENV_TXN_NOSYNC;
03703 return PERL_constant_ISIV;
03704 #else
03705 return PERL_constant_NOTDEF;
03706 #endif
03707 }
03708 if (memEQ(name, "DB_STAT_SUBSYSTEM", 17)) {
03709
03710 #ifdef DB_STAT_SUBSYSTEM
03711 *iv_return = DB_STAT_SUBSYSTEM;
03712 return PERL_constant_ISIV;
03713 #else
03714 return PERL_constant_NOTDEF;
03715 #endif
03716 }
03717 if (memEQ(name, "DB_TEST_ELECTSEND", 17)) {
03718
03719 #ifdef DB_TEST_ELECTSEND
03720 *iv_return = DB_TEST_ELECTSEND;
03721 return PERL_constant_ISIV;
03722 #else
03723 return PERL_constant_NOTDEF;
03724 #endif
03725 }
03726 break;
03727 case 'T':
03728 if (memEQ(name, "DB_READ_COMMITTED", 17)) {
03729
03730 #ifdef DB_READ_COMMITTED
03731 *iv_return = DB_READ_COMMITTED;
03732 return PERL_constant_ISIV;
03733 #else
03734 return PERL_constant_NOTDEF;
03735 #endif
03736 }
03737 break;
03738 case 'V':
03739 if (memEQ(name, "DB_RPC_SERVERVERS", 17)) {
03740
03741 #ifdef DB_RPC_SERVERVERS
03742 *iv_return = DB_RPC_SERVERVERS;
03743 return PERL_constant_ISIV;
03744 #else
03745 return PERL_constant_NOTDEF;
03746 #endif
03747 }
03748 break;
03749 case '_':
03750 if (memEQ(name, "DB_ENV_DIRECT_LOG", 17)) {
03751
03752 #ifdef DB_ENV_DIRECT_LOG
03753 *iv_return = DB_ENV_DIRECT_LOG;
03754 return PERL_constant_ISIV;
03755 #else
03756 return PERL_constant_NOTDEF;
03757 #endif
03758 }
03759 if (memEQ(name, "DB_ENV_SYSTEM_MEM", 17)) {
03760
03761 #ifdef DB_ENV_SYSTEM_MEM
03762 *iv_return = DB_ENV_SYSTEM_MEM;
03763 return PERL_constant_ISIV;
03764 #else
03765 return PERL_constant_NOTDEF;
03766 #endif
03767 }
03768 if (memEQ(name, "DB_LOG_SILENT_ERR", 17)) {
03769
03770 #ifdef DB_LOG_SILENT_ERR
03771 *iv_return = DB_LOG_SILENT_ERR;
03772 return PERL_constant_ISIV;
03773 #else
03774 return PERL_constant_NOTDEF;
03775 #endif
03776 }
03777 break;
03778 }
03779 return PERL_constant_NOTFOUND;
03780 }
03781
03782 static int
03783 constant_18 (pTHX_ const char *name, IV *iv_return) {
03784
03785
03786
03787
03788
03789
03790
03791
03792
03793
03794
03795 switch (name[13]) {
03796 case 'A':
03797 if (memEQ(name, "DB_ENV_OPEN_CALLED", 18)) {
03798
03799 #ifdef DB_ENV_OPEN_CALLED
03800 *iv_return = DB_ENV_OPEN_CALLED;
03801 return PERL_constant_ISIV;
03802 #else
03803 return PERL_constant_NOTDEF;
03804 #endif
03805 }
03806 if (memEQ(name, "DB_LOCK_NOTGRANTED", 18)) {
03807
03808 #ifdef DB_LOCK_NOTGRANTED
03809 *iv_return = DB_LOCK_NOTGRANTED;
03810 return PERL_constant_ISIV;
03811 #else
03812 return PERL_constant_NOTDEF;
03813 #endif
03814 }
03815 if (memEQ(name, "DB_TIME_NOTGRANTED", 18)) {
03816
03817 #ifdef DB_TIME_NOTGRANTED
03818 *iv_return = DB_TIME_NOTGRANTED;
03819 return PERL_constant_ISIV;
03820 #else
03821 return PERL_constant_NOTDEF;
03822 #endif
03823 }
03824 break;
03825 case 'C':
03826 if (memEQ(name, "DB_MUTEX_ALLOCATED", 18)) {
03827
03828 #ifdef DB_MUTEX_ALLOCATED
03829 *iv_return = DB_MUTEX_ALLOCATED;
03830 return PERL_constant_ISIV;
03831 #else
03832 return PERL_constant_NOTDEF;
03833 #endif
03834 }
03835 break;
03836 case 'E':
03837 if (memEQ(name, "DB_TEST_POSTRENAME", 18)) {
03838
03839 #ifdef DB_TEST_POSTRENAME
03840 *iv_return = DB_TEST_POSTRENAME;
03841 return PERL_constant_ISIV;
03842 #else
03843 return PERL_constant_NOTDEF;
03844 #endif
03845 }
03846 break;
03847 case 'G':
03848 if (memEQ(name, "DB_MPOOL_NEW_GROUP", 18)) {
03849
03850 #ifdef DB_MPOOL_NEW_GROUP
03851 *iv_return = DB_MPOOL_NEW_GROUP;
03852 return PERL_constant_ISIV;
03853 #else
03854 return PERL_constant_NOTDEF;
03855 #endif
03856 }
03857 break;
03858 case 'K':
03859 if (memEQ(name, "DB_DURABLE_UNKNOWN", 18)) {
03860
03861 #ifdef DB_DURABLE_UNKNOWN
03862 *iv_return = DB_DURABLE_UNKNOWN;
03863 return PERL_constant_ISIV;
03864 #else
03865 return PERL_constant_NOTDEF;
03866 #endif
03867 }
03868 break;
03869 case 'L':
03870 if (memEQ(name, "DB_SEQUENCE_OLDVER", 18)) {
03871
03872 #ifdef DB_SEQUENCE_OLDVER
03873 *iv_return = DB_SEQUENCE_OLDVER;
03874 return PERL_constant_ISIV;
03875 #else
03876 return PERL_constant_NOTDEF;
03877 #endif
03878 }
03879 break;
03880 case 'M':
03881 if (memEQ(name, "DB_SET_TXN_TIMEOUT", 18)) {
03882
03883 #ifdef DB_SET_TXN_TIMEOUT
03884 *iv_return = DB_SET_TXN_TIMEOUT;
03885 return PERL_constant_ISIV;
03886 #else
03887 return PERL_constant_NOTDEF;
03888 #endif
03889 }
03890 break;
03891 case 'O':
03892 if (memEQ(name, "DB_ALREADY_ABORTED", 18)) {
03893
03894 #ifdef DB_ALREADY_ABORTED
03895 *iv_return = DB_ALREADY_ABORTED;
03896 return PERL_constant_ISIV;
03897 #else
03898 return PERL_constant_NOTDEF;
03899 #endif
03900 }
03901 if (memEQ(name, "DB_ENV_AUTO_COMMIT", 18)) {
03902
03903 #ifdef DB_ENV_AUTO_COMMIT
03904 *iv_return = DB_ENV_AUTO_COMMIT;
03905 return PERL_constant_ISIV;
03906 #else
03907 return PERL_constant_NOTDEF;
03908 #endif
03909 }
03910 break;
03911 case 'P':
03912 if (memEQ(name, "DB_REP_STARTUPDONE", 18)) {
03913
03914 #ifdef DB_REP_STARTUPDONE
03915 *iv_return = DB_REP_STARTUPDONE;
03916 return PERL_constant_ISIV;
03917 #else
03918 return PERL_constant_NOTDEF;
03919 #endif
03920 }
03921 break;
03922 case 'R':
03923 if (memEQ(name, "DB_LOG_NOT_DURABLE", 18)) {
03924
03925 #ifdef DB_LOG_NOT_DURABLE
03926 *iv_return = DB_LOG_NOT_DURABLE;
03927 return PERL_constant_ISIV;
03928 #else
03929 return PERL_constant_NOTDEF;
03930 #endif
03931 }
03932 if (memEQ(name, "DB_TXN_NOT_DURABLE", 18)) {
03933
03934 #ifdef DB_TXN_NOT_DURABLE
03935 *iv_return = DB_TXN_NOT_DURABLE;
03936 return PERL_constant_ISIV;
03937 #else
03938 return PERL_constant_NOTDEF;
03939 #endif
03940 }
03941 break;
03942 case 'S':
03943 if (memEQ(name, "DB_TEST_PREDESTROY", 18)) {
03944
03945 #ifdef DB_TEST_PREDESTROY
03946 *iv_return = DB_TEST_PREDESTROY;
03947 return PERL_constant_ISIV;
03948 #else
03949 return PERL_constant_NOTDEF;
03950 #endif
03951 }
03952 break;
03953 case 'V':
03954 if (memEQ(name, "DB_TEST_ELECTVOTE1", 18)) {
03955
03956 #ifdef DB_TEST_ELECTVOTE1
03957 *iv_return = DB_TEST_ELECTVOTE1;
03958 return PERL_constant_ISIV;
03959 #else
03960 return PERL_constant_NOTDEF;
03961 #endif
03962 }
03963 if (memEQ(name, "DB_TEST_ELECTVOTE2", 18)) {
03964
03965 #ifdef DB_TEST_ELECTVOTE2
03966 *iv_return = DB_TEST_ELECTVOTE2;
03967 return PERL_constant_ISIV;
03968 #else
03969 return PERL_constant_NOTDEF;
03970 #endif
03971 }
03972 break;
03973 case 'W':
03974 if (memEQ(name, "DB_TEST_ELECTWAIT1", 18)) {
03975
03976 #ifdef DB_TEST_ELECTWAIT1
03977 *iv_return = DB_TEST_ELECTWAIT1;
03978 return PERL_constant_ISIV;
03979 #else
03980 return PERL_constant_NOTDEF;
03981 #endif
03982 }
03983 if (memEQ(name, "DB_TEST_ELECTWAIT2", 18)) {
03984
03985 #ifdef DB_TEST_ELECTWAIT2
03986 *iv_return = DB_TEST_ELECTWAIT2;
03987 return PERL_constant_ISIV;
03988 #else
03989 return PERL_constant_NOTDEF;
03990 #endif
03991 }
03992 break;
03993 case 'Y':
03994 if (memEQ(name, "DB_PR_RECOVERYTEST", 18)) {
03995
03996 #ifdef DB_PR_RECOVERYTEST
03997 *iv_return = DB_PR_RECOVERYTEST;
03998 return PERL_constant_ISIV;
03999 #else
04000 return PERL_constant_NOTDEF;
04001 #endif
04002 }
04003 break;
04004 case '_':
04005 if (memEQ(name, "DB_ENV_REGION_INIT", 18)) {
04006
04007 #ifdef DB_ENV_REGION_INIT
04008 *iv_return = DB_ENV_REGION_INIT;
04009 return PERL_constant_ISIV;
04010 #else
04011 return PERL_constant_NOTDEF;
04012 #endif
04013 }
04014 if (memEQ(name, "DB_LOG_BUFFER_FULL", 18)) {
04015
04016 #ifdef DB_LOG_BUFFER_FULL
04017 *iv_return = DB_LOG_BUFFER_FULL;
04018 return PERL_constant_ISIV;
04019 #else
04020 return PERL_constant_NOTDEF;
04021 #endif
04022 }
04023 if (memEQ(name, "DB_REP_HANDLE_DEAD", 18)) {
04024
04025 #ifdef DB_REP_HANDLE_DEAD
04026 *iv_return = DB_REP_HANDLE_DEAD;
04027 return PERL_constant_ISIV;
04028 #else
04029 return PERL_constant_NOTDEF;
04030 #endif
04031 }
04032 break;
04033 }
04034 return PERL_constant_NOTFOUND;
04035 }
04036
04037 static int
04038 constant_19 (pTHX_ const char *name, IV *iv_return) {
04039
04040
04041
04042
04043
04044
04045
04046
04047
04048
04049
04050 switch (name[9]) {
04051 case 'C':
04052 if (memEQ(name, "DB_SEQUENCE_VERSION", 19)) {
04053
04054 #ifdef DB_SEQUENCE_VERSION
04055 *iv_return = DB_SEQUENCE_VERSION;
04056 return PERL_constant_ISIV;
04057 #else
04058 return PERL_constant_NOTDEF;
04059 #endif
04060 }
04061 if (memEQ(name, "DB_SET_LOCK_TIMEOUT", 19)) {
04062
04063 #ifdef DB_SET_LOCK_TIMEOUT
04064 *iv_return = DB_SET_LOCK_TIMEOUT;
04065 return PERL_constant_ISIV;
04066 #else
04067 return PERL_constant_NOTDEF;
04068 #endif
04069 }
04070 break;
04071 case 'E':
04072 if (memEQ(name, "DB_LOCK_GET_TIMEOUT", 19)) {
04073
04074 #if (DB_VERSION_MAJOR > 4) || \
04075 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \
04076 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \
04077 DB_VERSION_PATCH >= 14)
04078 *iv_return = DB_LOCK_GET_TIMEOUT;
04079 return PERL_constant_ISIV;
04080 #else
04081 return PERL_constant_NOTDEF;
04082 #endif
04083 }
04084 if (memEQ(name, "DB_LOCK_SET_TIMEOUT", 19)) {
04085
04086 #ifdef DB_LOCK_SET_TIMEOUT
04087 *iv_return = DB_LOCK_SET_TIMEOUT;
04088 return PERL_constant_ISIV;
04089 #else
04090 return PERL_constant_NOTDEF;
04091 #endif
04092 }
04093 if (memEQ(name, "DB_VERB_REPLICATION", 19)) {
04094
04095 #ifdef DB_VERB_REPLICATION
04096 *iv_return = DB_VERB_REPLICATION;
04097 return PERL_constant_ISIV;
04098 #else
04099 return PERL_constant_NOTDEF;
04100 #endif
04101 }
04102 break;
04103 case 'G':
04104 if (memEQ(name, "DB_ENV_LOG_INMEMORY", 19)) {
04105
04106 #ifdef DB_ENV_LOG_INMEMORY
04107 *iv_return = DB_ENV_LOG_INMEMORY;
04108 return PERL_constant_ISIV;
04109 #else
04110 return PERL_constant_NOTDEF;
04111 #endif
04112 }
04113 if (memEQ(name, "DB_TXN_LOG_UNDOREDO", 19)) {
04114
04115 #ifdef DB_TXN_LOG_UNDOREDO
04116 *iv_return = DB_TXN_LOG_UNDOREDO;
04117 return PERL_constant_ISIV;
04118 #else
04119 return PERL_constant_NOTDEF;
04120 #endif
04121 }
04122 break;
04123 case 'I':
04124 if (memEQ(name, "DB_TXN_WRITE_NOSYNC", 19)) {
04125
04126 #ifdef DB_TXN_WRITE_NOSYNC
04127 *iv_return = DB_TXN_WRITE_NOSYNC;
04128 return PERL_constant_ISIV;
04129 #else
04130 return PERL_constant_NOTDEF;
04131 #endif
04132 }
04133 break;
04134 case 'L':
04135 if (memEQ(name, "DB_REP_HOLDELECTION", 19)) {
04136
04137 #ifdef DB_REP_HOLDELECTION
04138 *iv_return = DB_REP_HOLDELECTION;
04139 return PERL_constant_ISIV;
04140 #else
04141 return PERL_constant_NOTDEF;
04142 #endif
04143 }
04144 break;
04145 case 'N':
04146 if (memEQ(name, "DB_READ_UNCOMMITTED", 19)) {
04147
04148 #ifdef DB_READ_UNCOMMITTED
04149 *iv_return = DB_READ_UNCOMMITTED;
04150 return PERL_constant_ISIV;
04151 #else
04152 return PERL_constant_NOTDEF;
04153 #endif
04154 }
04155 if (memEQ(name, "DB_VERSION_MISMATCH", 19)) {
04156
04157 #ifdef DB_VERSION_MISMATCH
04158 *iv_return = DB_VERSION_MISMATCH;
04159 return PERL_constant_ISIV;
04160 #else
04161 return PERL_constant_NOTDEF;
04162 #endif
04163 }
04164 break;
04165 case 'O':
04166 if (memEQ(name, "DB_STAT_LOCK_PARAMS", 19)) {
04167
04168 #ifdef DB_STAT_LOCK_PARAMS
04169 *iv_return = DB_STAT_LOCK_PARAMS;
04170 return PERL_constant_ISIV;
04171 #else
04172 return PERL_constant_NOTDEF;
04173 #endif
04174 }
04175 if (memEQ(name, "DB_TEST_POSTDESTROY", 19)) {
04176
04177 #ifdef DB_TEST_POSTDESTROY
04178 *iv_return = DB_TEST_POSTDESTROY;
04179 return PERL_constant_ISIV;
04180 #else
04181 return PERL_constant_NOTDEF;
04182 #endif
04183 }
04184 if (memEQ(name, "DB_TEST_POSTLOGMETA", 19)) {
04185
04186 #ifdef DB_TEST_POSTLOGMETA
04187 *iv_return = DB_TEST_POSTLOGMETA;
04188 return PERL_constant_ISIV;
04189 #else
04190 return PERL_constant_NOTDEF;
04191 #endif
04192 }
04193 break;
04194 case 'P':
04195 if (memEQ(name, "DB_ENV_REP_LOGSONLY", 19)) {
04196
04197 #ifdef DB_ENV_REP_LOGSONLY
04198 *iv_return = DB_ENV_REP_LOGSONLY;
04199 return PERL_constant_ISIV;
04200 #else
04201 return PERL_constant_NOTDEF;
04202 #endif
04203 }
04204 break;
04205 case 'R':
04206 if (memEQ(name, "DB_LOCK_FREE_LOCKER", 19)) {
04207
04208 #ifdef DB_LOCK_FREE_LOCKER
04209 *iv_return = DB_LOCK_FREE_LOCKER;
04210 return PERL_constant_ISIV;
04211 #else
04212 return PERL_constant_NOTDEF;
04213 #endif
04214 }
04215 if (memEQ(name, "DB_TXN_FORWARD_ROLL", 19)) {
04216
04217 #if (DB_VERSION_MAJOR > 3) || \
04218 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \
04219 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \
04220 DB_VERSION_PATCH >= 14)
04221 *iv_return = DB_TXN_FORWARD_ROLL;
04222 return PERL_constant_ISIV;
04223 #else
04224 return PERL_constant_NOTDEF;
04225 #endif
04226 }
04227 break;
04228 case 'S':
04229 if (memEQ(name, "DB_MUTEX_SELF_BLOCK", 19)) {
04230
04231 #ifdef DB_MUTEX_SELF_BLOCK
04232 *iv_return = DB_MUTEX_SELF_BLOCK;
04233 return PERL_constant_ISIV;
04234 #else
04235 return PERL_constant_NOTDEF;
04236 #endif
04237 }
04238 break;
04239 case 'T':
04240 if (memEQ(name, "DB_PRIORITY_DEFAULT", 19)) {
04241
04242 #if (DB_VERSION_MAJOR > 4) || \
04243 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
04244 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
04245 DB_VERSION_PATCH >= 24)
04246 *iv_return = DB_PRIORITY_DEFAULT;
04247 return PERL_constant_ISIV;
04248 #else
04249 return PERL_constant_NOTDEF;
04250 #endif
04251 }
04252 break;
04253 case 'U':
04254 if (memEQ(name, "DB_TEST_SUBDB_LOCKS", 19)) {
04255
04256 #ifdef DB_TEST_SUBDB_LOCKS
04257 *iv_return = DB_TEST_SUBDB_LOCKS;
04258 return PERL_constant_ISIV;
04259 #else
04260 return PERL_constant_NOTDEF;
04261 #endif
04262 }
04263 break;
04264 case 'V':
04265 if (memEQ(name, "DB_USE_ENVIRON_ROOT", 19)) {
04266
04267 #ifdef DB_USE_ENVIRON_ROOT
04268 *iv_return = DB_USE_ENVIRON_ROOT;
04269 return PERL_constant_ISIV;
04270 #else
04271 return PERL_constant_NOTDEF;
04272 #endif
04273 }
04274 break;
04275 case '_':
04276 if (memEQ(name, "DB_UPDATE_SECONDARY", 19)) {
04277
04278 #ifdef DB_UPDATE_SECONDARY
04279 *iv_return = DB_UPDATE_SECONDARY;
04280 return PERL_constant_ISIV;
04281 #else
04282 return PERL_constant_NOTDEF;
04283 #endif
04284 }
04285 break;
04286 }
04287 return PERL_constant_NOTFOUND;
04288 }
04289
04290 static int
04291 constant_20 (pTHX_ const char *name, IV *iv_return) {
04292
04293
04294
04295
04296
04297
04298 switch (name[15]) {
04299 case 'C':
04300 if (memEQ(name, "DB_STAT_LOCK_LOCKERS", 20)) {
04301
04302 #ifdef DB_STAT_LOCK_LOCKERS
04303 *iv_return = DB_STAT_LOCK_LOCKERS;
04304 return PERL_constant_ISIV;
04305 #else
04306 return PERL_constant_NOTDEF;
04307 #endif
04308 }
04309 break;
04310 case 'I':
04311 if (memEQ(name, "DB_TXN_LOCK_OPTIMIST", 20)) {
04312
04313 #ifdef DB_TXN_LOCK_OPTIMIST
04314 *iv_return = DB_TXN_LOCK_OPTIMIST;
04315 return PERL_constant_ISIV;
04316 #else
04317 return PERL_constant_NOTDEF;
04318 #endif
04319 }
04320 break;
04321 case 'J':
04322 if (memEQ(name, "DB_STAT_LOCK_OBJECTS", 20)) {
04323
04324 #ifdef DB_STAT_LOCK_OBJECTS
04325 *iv_return = DB_STAT_LOCK_OBJECTS;
04326 return PERL_constant_ISIV;
04327 #else
04328 return PERL_constant_NOTDEF;
04329 #endif
04330 }
04331 break;
04332 case 'L':
04333 if (memEQ(name, "REP_CONF_DELAYCLIENT", 20)) {
04334
04335 #ifdef REP_CONF_DELAYCLIENT
04336 *iv_return = REP_CONF_DELAYCLIENT;
04337 return PERL_constant_ISIV;
04338 #else
04339 return PERL_constant_NOTDEF;
04340 #endif
04341 }
04342 break;
04343 case 'N':
04344 if (memEQ(name, "DB_PANIC_ENVIRONMENT", 20)) {
04345
04346 #ifdef DB_PANIC_ENVIRONMENT
04347 *iv_return = DB_PANIC_ENVIRONMENT;
04348 return PERL_constant_ISIV;
04349 #else
04350 return PERL_constant_NOTDEF;
04351 #endif
04352 }
04353 break;
04354 case 'T':
04355 if (memEQ(name, "DB_CXX_NO_EXCEPTIONS", 20)) {
04356
04357 #ifdef DB_CXX_NO_EXCEPTIONS
04358 *iv_return = DB_CXX_NO_EXCEPTIONS;
04359 return PERL_constant_ISIV;
04360 #else
04361 return PERL_constant_NOTDEF;
04362 #endif
04363 }
04364 break;
04365 case 'V':
04366 if (memEQ(name, "DB_LOGFILEID_INVALID", 20)) {
04367
04368 #ifdef DB_LOGFILEID_INVALID
04369 *iv_return = DB_LOGFILEID_INVALID;
04370 return PERL_constant_ISIV;
04371 #else
04372 return PERL_constant_NOTDEF;
04373 #endif
04374 }
04375 break;
04376 case 'Y':
04377 if (memEQ(name, "DB_PRIORITY_VERY_LOW", 20)) {
04378
04379 #if (DB_VERSION_MAJOR > 4) || \
04380 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
04381 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
04382 DB_VERSION_PATCH >= 24)
04383 *iv_return = DB_PRIORITY_VERY_LOW;
04384 return PERL_constant_ISIV;
04385 #else
04386 return PERL_constant_NOTDEF;
04387 #endif
04388 }
04389 break;
04390 case '_':
04391 if (memEQ(name, "DB_TXN_BACKWARD_ROLL", 20)) {
04392
04393 #if (DB_VERSION_MAJOR > 3) || \
04394 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \
04395 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \
04396 DB_VERSION_PATCH >= 14)
04397 *iv_return = DB_TXN_BACKWARD_ROLL;
04398 return PERL_constant_ISIV;
04399 #else
04400 return PERL_constant_NOTDEF;
04401 #endif
04402 }
04403 break;
04404 }
04405 return PERL_constant_NOTFOUND;
04406 }
04407
04408 static int
04409 constant_21 (pTHX_ const char *name, IV *iv_return) {
04410
04411
04412
04413
04414
04415 switch (name[4]) {
04416 case 'N':
04417 if (memEQ(name, "DB_ENV_LOG_AUTOREMOVE", 21)) {
04418
04419 #ifdef DB_ENV_LOG_AUTOREMOVE
04420 *iv_return = DB_ENV_LOG_AUTOREMOVE;
04421 return PERL_constant_ISIV;
04422 #else
04423 return PERL_constant_NOTDEF;
04424 #endif
04425 }
04426 break;
04427 case 'O':
04428 if (memEQ(name, "DB_LOCK_UPGRADE_WRITE", 21)) {
04429
04430 #if (DB_VERSION_MAJOR > 3) || \
04431 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 3) || \
04432 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 3 && \
04433 DB_VERSION_PATCH >= 11)
04434 *iv_return = DB_LOCK_UPGRADE_WRITE;
04435 return PERL_constant_ISIV;
04436 #else
04437 return PERL_constant_NOTDEF;
04438 #endif
04439 }
04440 break;
04441 case 'R':
04442 if (memEQ(name, "DB_PRIORITY_VERY_HIGH", 21)) {
04443
04444 #if (DB_VERSION_MAJOR > 4) || \
04445 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
04446 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
04447 DB_VERSION_PATCH >= 24)
04448 *iv_return = DB_PRIORITY_VERY_HIGH;
04449 return PERL_constant_ISIV;
04450 #else
04451 return PERL_constant_NOTDEF;
04452 #endif
04453 }
04454 break;
04455 case 'U':
04456 if (memEQ(name, "DB_MUTEX_LOGICAL_LOCK", 21)) {
04457
04458 #ifdef DB_MUTEX_LOGICAL_LOCK
04459 *iv_return = DB_MUTEX_LOGICAL_LOCK;
04460 return PERL_constant_ISIV;
04461 #else
04462 return PERL_constant_NOTDEF;
04463 #endif
04464 }
04465 break;
04466 case 'X':
04467 if (memEQ(name, "DB_TXN_BACKWARD_ALLOC", 21)) {
04468
04469 #if (DB_VERSION_MAJOR > 4) || \
04470 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
04471 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
04472 DB_VERSION_PATCH >= 24)
04473 *iv_return = DB_TXN_BACKWARD_ALLOC;
04474 return PERL_constant_ISIV;
04475 #else
04476 return PERL_constant_NOTDEF;
04477 #endif
04478 }
04479 break;
04480 }
04481 return PERL_constant_NOTFOUND;
04482 }
04483
04484 static int
04485 constant_22 (pTHX_ const char *name, IV *iv_return) {
04486
04487
04488
04489
04490
04491 switch (name[17]) {
04492 case 'A':
04493 if (memEQ(name, "DB_ENV_TIME_NOTGRANTED", 22)) {
04494
04495 #ifdef DB_ENV_TIME_NOTGRANTED
04496 *iv_return = DB_ENV_TIME_NOTGRANTED;
04497 return PERL_constant_ISIV;
04498 #else
04499 return PERL_constant_NOTDEF;
04500 #endif
04501 }
04502 break;
04503 case 'E':
04504 if (memEQ(name, "DB_ASSOC_IMMUTABLE_KEY", 22)) {
04505
04506 #ifdef DB_ASSOC_IMMUTABLE_KEY
04507 *iv_return = DB_ASSOC_IMMUTABLE_KEY;
04508 return PERL_constant_ISIV;
04509 #else
04510 return PERL_constant_NOTDEF;
04511 #endif
04512 }
04513 break;
04514 case 'G':
04515 if (memEQ(name, "DB_ENV_RPCCLIENT_GIVEN", 22)) {
04516
04517 #ifdef DB_ENV_RPCCLIENT_GIVEN
04518 *iv_return = DB_ENV_RPCCLIENT_GIVEN;
04519 return PERL_constant_ISIV;
04520 #else
04521 return PERL_constant_NOTDEF;
04522 #endif
04523 }
04524 break;
04525 case 'I':
04526 if (memEQ(name, "DB_TXN_LOCK_OPTIMISTIC", 22)) {
04527
04528 #ifdef DB_TXN_LOCK_OPTIMISTIC
04529 *iv_return = DB_TXN_LOCK_OPTIMISTIC;
04530 return PERL_constant_ISIV;
04531 #else
04532 return PERL_constant_NOTDEF;
04533 #endif
04534 }
04535 break;
04536 case 'R':
04537 if (memEQ(name, "DB_ENV_TXN_NOT_DURABLE", 22)) {
04538
04539 #ifdef DB_ENV_TXN_NOT_DURABLE
04540 *iv_return = DB_ENV_TXN_NOT_DURABLE;
04541 return PERL_constant_ISIV;
04542 #else
04543 return PERL_constant_NOTDEF;
04544 #endif
04545 }
04546 break;
04547 }
04548 return PERL_constant_NOTFOUND;
04549 }
04550
04551 static int
04552 constant (pTHX_ const char *name, STRLEN len, IV *iv_return, const char **pv_return) {
04553
04554
04555
04556
04557
04558
04559
04560
04561
04562
04563
04564
04565
04566
04567
04568
04569
04570
04571
04572
04573
04574
04575
04576
04577
04578
04579
04580
04581
04582
04583
04584
04585
04586
04587
04588
04589
04590
04591
04592
04593
04594
04595
04596
04597
04598
04599
04600
04601
04602
04603
04604
04605
04606
04607
04608
04609
04610
04611
04612
04613
04614
04615
04616
04617
04618
04619
04620
04621
04622
04623
04624
04625
04626
04627
04628
04629
04630
04631
04632
04633
04634
04635
04636
04637
04638
04639
04640
04641
04642
04643
04644
04645
04646
04647
04648
04649
04650
04651
04652
04653
04654
04655
04656
04657
04658
04659
04660
04661
04662
04663
04664
04665
04666
04667
04668
04669
04670
04671
04672
04673
04674
04675
04676
04677
04678
04679
04680
04681
04682
04683
04684
04685
04686
04687
04688
04689
04690
04691
04692
04693
04694
04695
04696
04697
04698
04699
04700
04701
04702
04703
04704
04705
04706
04707 switch (len) {
04708 case 6:
04709 return constant_6 (aTHX_ name, iv_return);
04710 break;
04711 case 7:
04712 return constant_7 (aTHX_ name, iv_return);
04713 break;
04714 case 8:
04715 return constant_8 (aTHX_ name, iv_return);
04716 break;
04717 case 9:
04718 return constant_9 (aTHX_ name, iv_return);
04719 break;
04720 case 10:
04721 return constant_10 (aTHX_ name, iv_return);
04722 break;
04723 case 11:
04724 return constant_11 (aTHX_ name, iv_return);
04725 break;
04726 case 12:
04727 return constant_12 (aTHX_ name, iv_return);
04728 break;
04729 case 13:
04730 return constant_13 (aTHX_ name, iv_return);
04731 break;
04732 case 14:
04733 return constant_14 (aTHX_ name, iv_return);
04734 break;
04735 case 15:
04736 return constant_15 (aTHX_ name, iv_return);
04737 break;
04738 case 16:
04739 return constant_16 (aTHX_ name, iv_return);
04740 break;
04741 case 17:
04742 return constant_17 (aTHX_ name, iv_return, pv_return);
04743 break;
04744 case 18:
04745 return constant_18 (aTHX_ name, iv_return);
04746 break;
04747 case 19:
04748 return constant_19 (aTHX_ name, iv_return);
04749 break;
04750 case 20:
04751 return constant_20 (aTHX_ name, iv_return);
04752 break;
04753 case 21:
04754 return constant_21 (aTHX_ name, iv_return);
04755 break;
04756 case 22:
04757 return constant_22 (aTHX_ name, iv_return);
04758 break;
04759 case 23:
04760 if (memEQ(name, "DB_ENV_TXN_WRITE_NOSYNC", 23)) {
04761 #ifdef DB_ENV_TXN_WRITE_NOSYNC
04762 *iv_return = DB_ENV_TXN_WRITE_NOSYNC;
04763 return PERL_constant_ISIV;
04764 #else
04765 return PERL_constant_NOTDEF;
04766 #endif
04767 }
04768 break;
04769 }
04770 return PERL_constant_NOTFOUND;
04771 }
04772
