1#define PERL_constant_NOTFOUND 1 2#define PERL_constant_NOTDEF 2 3#define PERL_constant_ISIV 3 4#define PERL_constant_ISNO 4 5#define PERL_constant_ISNV 5 6#define PERL_constant_ISPV 6 7#define PERL_constant_ISPVN 7 8#define PERL_constant_ISSV 8 9#define PERL_constant_ISUNDEF 9 10#define PERL_constant_ISUV 10 11#define PERL_constant_ISYES 11 12 13#ifndef NVTYPE 14typedef double NV; /* 5.6 and later define NVTYPE, and typedef NV to it. */ 15#endif 16#ifndef aTHX_ 17#define aTHX_ /* 5.6 or later define this for threading support. */ 18#endif 19#ifndef pTHX_ 20#define pTHX_ /* 5.6 or later define this for threading support. */ 21#endif 22 23static int 24constant_6 (pTHX_ const char *name, IV *iv_return) { 25 /* When generated this function returned values for the list of names given 26 here. However, subsequent manual editing may have added or removed some. 27 DB_DUP DB_PAD DB_RMW DB_SET */ 28 /* Offset 3 gives the best switch position. */ 29 switch (name[3]) { 30 case 'D': 31 if (memEQ(name, "DB_DUP", 6)) { 32 /* ^ */ 33#ifdef DB_DUP 34 *iv_return = DB_DUP; 35 return PERL_constant_ISIV; 36#else 37 return PERL_constant_NOTDEF; 38#endif 39 } 40 break; 41 case 'P': 42 if (memEQ(name, "DB_PAD", 6)) { 43 /* ^ */ 44#ifdef DB_PAD 45 *iv_return = DB_PAD; 46 return PERL_constant_ISIV; 47#else 48 return PERL_constant_NOTDEF; 49#endif 50 } 51 break; 52 case 'R': 53 if (memEQ(name, "DB_RMW", 6)) { 54 /* ^ */ 55#ifdef DB_RMW 56 *iv_return = DB_RMW; 57 return PERL_constant_ISIV; 58#else 59 return PERL_constant_NOTDEF; 60#endif 61 } 62 break; 63 case 'S': 64 if (memEQ(name, "DB_SET", 6)) { 65 /* ^ */ 66#ifdef DB_SET 67 *iv_return = DB_SET; 68 return PERL_constant_ISIV; 69#else 70 return PERL_constant_NOTDEF; 71#endif 72 } 73 break; 74 } 75 return PERL_constant_NOTFOUND; 76} 77 78static int 79constant_7 (pTHX_ const char *name, IV *iv_return) { 80 /* When generated this function returned values for the list of names given 81 here. However, subsequent manual editing may have added or removed some. 82 DB_EXCL DB_HASH DB_LAST DB_NEXT DB_PREV */ 83 /* Offset 3 gives the best switch position. */ 84 switch (name[3]) { 85 case 'E': 86 if (memEQ(name, "DB_EXCL", 7)) { 87 /* ^ */ 88#ifdef DB_EXCL 89 *iv_return = DB_EXCL; 90 return PERL_constant_ISIV; 91#else 92 return PERL_constant_NOTDEF; 93#endif 94 } 95 break; 96 case 'H': 97 if (memEQ(name, "DB_HASH", 7)) { 98 /* ^ */ 99#if (DB_VERSION_MAJOR > 2) || \ 100 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \ 101 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \ 102 DB_VERSION_PATCH >= 3) 103 *iv_return = DB_HASH; 104 return PERL_constant_ISIV; 105#else 106 return PERL_constant_NOTDEF; 107#endif 108 } 109 break; 110 case 'L': 111 if (memEQ(name, "DB_LAST", 7)) { 112 /* ^ */ 113#ifdef DB_LAST 114 *iv_return = DB_LAST; 115 return PERL_constant_ISIV; 116#else 117 return PERL_constant_NOTDEF; 118#endif 119 } 120 break; 121 case 'N': 122 if (memEQ(name, "DB_NEXT", 7)) { 123 /* ^ */ 124#ifdef DB_NEXT 125 *iv_return = DB_NEXT; 126 return PERL_constant_ISIV; 127#else 128 return PERL_constant_NOTDEF; 129#endif 130 } 131 break; 132 case 'P': 133 if (memEQ(name, "DB_PREV", 7)) { 134 /* ^ */ 135#ifdef DB_PREV 136 *iv_return = DB_PREV; 137 return PERL_constant_ISIV; 138#else 139 return PERL_constant_NOTDEF; 140#endif 141 } 142 break; 143 } 144 return PERL_constant_NOTFOUND; 145} 146 147static int 148constant_8 (pTHX_ const char *name, IV *iv_return) { 149 /* When generated this function returned values for the list of names given 150 here. However, subsequent manual editing may have added or removed some. 151 DB_AFTER DB_BTREE DB_FIRST DB_FLUSH DB_FORCE DB_QUEUE DB_RECNO DB_UNREF */ 152 /* Offset 4 gives the best switch position. */ 153 switch (name[4]) { 154 case 'E': 155 if (memEQ(name, "DB_RECNO", 8)) { 156 /* ^ */ 157#if (DB_VERSION_MAJOR > 2) || \ 158 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \ 159 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \ 160 DB_VERSION_PATCH >= 3) 161 *iv_return = DB_RECNO; 162 return PERL_constant_ISIV; 163#else 164 return PERL_constant_NOTDEF; 165#endif 166 } 167 break; 168 case 'F': 169 if (memEQ(name, "DB_AFTER", 8)) { 170 /* ^ */ 171#ifdef DB_AFTER 172 *iv_return = DB_AFTER; 173 return PERL_constant_ISIV; 174#else 175 return PERL_constant_NOTDEF; 176#endif 177 } 178 break; 179 case 'I': 180 if (memEQ(name, "DB_FIRST", 8)) { 181 /* ^ */ 182#ifdef DB_FIRST 183 *iv_return = DB_FIRST; 184 return PERL_constant_ISIV; 185#else 186 return PERL_constant_NOTDEF; 187#endif 188 } 189 break; 190 case 'L': 191 if (memEQ(name, "DB_FLUSH", 8)) { 192 /* ^ */ 193#ifdef DB_FLUSH 194 *iv_return = DB_FLUSH; 195 return PERL_constant_ISIV; 196#else 197 return PERL_constant_NOTDEF; 198#endif 199 } 200 break; 201 case 'N': 202 if (memEQ(name, "DB_UNREF", 8)) { 203 /* ^ */ 204#ifdef DB_UNREF 205 *iv_return = DB_UNREF; 206 return PERL_constant_ISIV; 207#else 208 return PERL_constant_NOTDEF; 209#endif 210 } 211 break; 212 case 'O': 213 if (memEQ(name, "DB_FORCE", 8)) { 214 /* ^ */ 215#ifdef DB_FORCE 216 *iv_return = DB_FORCE; 217 return PERL_constant_ISIV; 218#else 219 return PERL_constant_NOTDEF; 220#endif 221 } 222 break; 223 case 'T': 224 if (memEQ(name, "DB_BTREE", 8)) { 225 /* ^ */ 226#if (DB_VERSION_MAJOR > 2) || \ 227 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \ 228 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \ 229 DB_VERSION_PATCH >= 3) 230 *iv_return = DB_BTREE; 231 return PERL_constant_ISIV; 232#else 233 return PERL_constant_NOTDEF; 234#endif 235 } 236 break; 237 case 'U': 238 if (memEQ(name, "DB_QUEUE", 8)) { 239 /* ^ */ 240#if (DB_VERSION_MAJOR > 3) || \ 241 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 0) || \ 242 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 0 && \ 243 DB_VERSION_PATCH >= 55) 244 *iv_return = DB_QUEUE; 245 return PERL_constant_ISIV; 246#else 247 return PERL_constant_NOTDEF; 248#endif 249 } 250 break; 251 } 252 return PERL_constant_NOTFOUND; 253} 254 255static int 256constant_9 (pTHX_ const char *name, IV *iv_return) { 257 /* When generated this function returned values for the list of names given 258 here. However, subsequent manual editing may have added or removed some. 259 DB_APPEND DB_BEFORE DB_CHKSUM DB_CLIENT DB_COMMIT DB_CREATE DB_CURLSN 260 DB_DIRECT DB_EXTENT DB_GETREC DB_NOCOPY DB_NOMMAP DB_NOSYNC DB_RDONLY 261 DB_RECNUM DB_THREAD DB_VERIFY */ 262 /* Offset 7 gives the best switch position. */ 263 switch (name[7]) { 264 case 'A': 265 if (memEQ(name, "DB_NOMMAP", 9)) { 266 /* ^ */ 267#ifdef DB_NOMMAP 268 *iv_return = DB_NOMMAP; 269 return PERL_constant_ISIV; 270#else 271 return PERL_constant_NOTDEF; 272#endif 273 } 274 if (memEQ(name, "DB_THREAD", 9)) { 275 /* ^ */ 276#ifdef DB_THREAD 277 *iv_return = DB_THREAD; 278 return PERL_constant_ISIV; 279#else 280 return PERL_constant_NOTDEF; 281#endif 282 } 283 break; 284 case 'C': 285 if (memEQ(name, "DB_DIRECT", 9)) { 286 /* ^ */ 287#ifdef DB_DIRECT 288 *iv_return = DB_DIRECT; 289 return PERL_constant_ISIV; 290#else 291 return PERL_constant_NOTDEF; 292#endif 293 } 294 break; 295 case 'E': 296 if (memEQ(name, "DB_GETREC", 9)) { 297 /* ^ */ 298#ifdef DB_GETREC 299 *iv_return = DB_GETREC; 300 return PERL_constant_ISIV; 301#else 302 return PERL_constant_NOTDEF; 303#endif 304 } 305 break; 306 case 'F': 307 if (memEQ(name, "DB_VERIFY", 9)) { 308 /* ^ */ 309#ifdef DB_VERIFY 310 *iv_return = DB_VERIFY; 311 return PERL_constant_ISIV; 312#else 313 return PERL_constant_NOTDEF; 314#endif 315 } 316 break; 317 case 'I': 318 if (memEQ(name, "DB_COMMIT", 9)) { 319 /* ^ */ 320#ifdef DB_COMMIT 321 *iv_return = DB_COMMIT; 322 return PERL_constant_ISIV; 323#else 324 return PERL_constant_NOTDEF; 325#endif 326 } 327 break; 328 case 'L': 329 if (memEQ(name, "DB_RDONLY", 9)) { 330 /* ^ */ 331#ifdef DB_RDONLY 332 *iv_return = DB_RDONLY; 333 return PERL_constant_ISIV; 334#else 335 return PERL_constant_NOTDEF; 336#endif 337 } 338 break; 339 case 'N': 340 if (memEQ(name, "DB_APPEND", 9)) { 341 /* ^ */ 342#ifdef DB_APPEND 343 *iv_return = DB_APPEND; 344 return PERL_constant_ISIV; 345#else 346 return PERL_constant_NOTDEF; 347#endif 348 } 349 if (memEQ(name, "DB_CLIENT", 9)) { 350 /* ^ */ 351#ifdef DB_CLIENT 352 *iv_return = DB_CLIENT; 353 return PERL_constant_ISIV; 354#else 355 return PERL_constant_NOTDEF; 356#endif 357 } 358 if (memEQ(name, "DB_EXTENT", 9)) { 359 /* ^ */ 360#ifdef DB_EXTENT 361 *iv_return = DB_EXTENT; 362 return PERL_constant_ISIV; 363#else 364 return PERL_constant_NOTDEF; 365#endif 366 } 367 if (memEQ(name, "DB_NOSYNC", 9)) { 368 /* ^ */ 369#ifdef DB_NOSYNC 370 *iv_return = DB_NOSYNC; 371 return PERL_constant_ISIV; 372#else 373 return PERL_constant_NOTDEF; 374#endif 375 } 376 break; 377 case 'P': 378 if (memEQ(name, "DB_NOCOPY", 9)) { 379 /* ^ */ 380#ifdef DB_NOCOPY 381 *iv_return = DB_NOCOPY; 382 return PERL_constant_ISIV; 383#else 384 return PERL_constant_NOTDEF; 385#endif 386 } 387 break; 388 case 'R': 389 if (memEQ(name, "DB_BEFORE", 9)) { 390 /* ^ */ 391#ifdef DB_BEFORE 392 *iv_return = DB_BEFORE; 393 return PERL_constant_ISIV; 394#else 395 return PERL_constant_NOTDEF; 396#endif 397 } 398 break; 399 case 'S': 400 if (memEQ(name, "DB_CURLSN", 9)) { 401 /* ^ */ 402#ifdef DB_CURLSN 403 *iv_return = DB_CURLSN; 404 return PERL_constant_ISIV; 405#else 406 return PERL_constant_NOTDEF; 407#endif 408 } 409 break; 410 case 'T': 411 if (memEQ(name, "DB_CREATE", 9)) { 412 /* ^ */ 413#ifdef DB_CREATE 414 *iv_return = DB_CREATE; 415 return PERL_constant_ISIV; 416#else 417 return PERL_constant_NOTDEF; 418#endif 419 } 420 break; 421 case 'U': 422 if (memEQ(name, "DB_CHKSUM", 9)) { 423 /* ^ */ 424#ifdef DB_CHKSUM 425 *iv_return = DB_CHKSUM; 426 return PERL_constant_ISIV; 427#else 428 return PERL_constant_NOTDEF; 429#endif 430 } 431 if (memEQ(name, "DB_RECNUM", 9)) { 432 /* ^ */ 433#ifdef DB_RECNUM 434 *iv_return = DB_RECNUM; 435 return PERL_constant_ISIV; 436#else 437 return PERL_constant_NOTDEF; 438#endif 439 } 440 break; 441 } 442 return PERL_constant_NOTFOUND; 443} 444 445static int 446constant_10 (pTHX_ const char *name, IV *iv_return) { 447 /* When generated this function returned values for the list of names given 448 here. However, subsequent manual editing may have added or removed some. 449 DB_CONSUME DB_CURRENT DB_DELETED DB_DUPSORT DB_ENCRYPT DB_ENV_CDB 450 DB_ENV_TXN DB_INORDER DB_JOINENV DB_KEYLAST DB_NOPANIC DB_OK_HASH 451 DB_PRIVATE DB_PR_PAGE DB_RECOVER DB_SALVAGE DB_SEQ_DEC DB_SEQ_INC 452 DB_TIMEOUT DB_TXN_CKP DB_UNKNOWN DB_UPGRADE */ 453 /* Offset 5 gives the best switch position. */ 454 switch (name[5]) { 455 case 'C': 456 if (memEQ(name, "DB_ENCRYPT", 10)) { 457 /* ^ */ 458#ifdef DB_ENCRYPT 459 *iv_return = DB_ENCRYPT; 460 return PERL_constant_ISIV; 461#else 462 return PERL_constant_NOTDEF; 463#endif 464 } 465 if (memEQ(name, "DB_RECOVER", 10)) { 466 /* ^ */ 467#ifdef DB_RECOVER 468 *iv_return = DB_RECOVER; 469 return PERL_constant_ISIV; 470#else 471 return PERL_constant_NOTDEF; 472#endif 473 } 474 break; 475 case 'G': 476 if (memEQ(name, "DB_UPGRADE", 10)) { 477 /* ^ */ 478#ifdef DB_UPGRADE 479 *iv_return = DB_UPGRADE; 480 return PERL_constant_ISIV; 481#else 482 return PERL_constant_NOTDEF; 483#endif 484 } 485 break; 486 case 'I': 487 if (memEQ(name, "DB_JOINENV", 10)) { 488 /* ^ */ 489#ifdef DB_JOINENV 490 *iv_return = DB_JOINENV; 491 return PERL_constant_ISIV; 492#else 493 return PERL_constant_NOTDEF; 494#endif 495 } 496 if (memEQ(name, "DB_PRIVATE", 10)) { 497 /* ^ */ 498#ifdef DB_PRIVATE 499 *iv_return = DB_PRIVATE; 500 return PERL_constant_ISIV; 501#else 502 return PERL_constant_NOTDEF; 503#endif 504 } 505 break; 506 case 'K': 507 if (memEQ(name, "DB_UNKNOWN", 10)) { 508 /* ^ */ 509#if (DB_VERSION_MAJOR > 2) || \ 510 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \ 511 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \ 512 DB_VERSION_PATCH >= 3) 513 *iv_return = DB_UNKNOWN; 514 return PERL_constant_ISIV; 515#else 516 return PERL_constant_NOTDEF; 517#endif 518 } 519 break; 520 case 'L': 521 if (memEQ(name, "DB_DELETED", 10)) { 522 /* ^ */ 523#ifdef DB_DELETED 524 *iv_return = DB_DELETED; 525 return PERL_constant_ISIV; 526#else 527 return PERL_constant_NOTDEF; 528#endif 529 } 530 if (memEQ(name, "DB_SALVAGE", 10)) { 531 /* ^ */ 532#ifdef DB_SALVAGE 533 *iv_return = DB_SALVAGE; 534 return PERL_constant_ISIV; 535#else 536 return PERL_constant_NOTDEF; 537#endif 538 } 539 break; 540 case 'M': 541 if (memEQ(name, "DB_TIMEOUT", 10)) { 542 /* ^ */ 543#ifdef DB_TIMEOUT 544 *iv_return = DB_TIMEOUT; 545 return PERL_constant_ISIV; 546#else 547 return PERL_constant_NOTDEF; 548#endif 549 } 550 break; 551 case 'N': 552 if (memEQ(name, "DB_CONSUME", 10)) { 553 /* ^ */ 554#ifdef DB_CONSUME 555 *iv_return = DB_CONSUME; 556 return PERL_constant_ISIV; 557#else 558 return PERL_constant_NOTDEF; 559#endif 560 } 561 if (memEQ(name, "DB_TXN_CKP", 10)) { 562 /* ^ */ 563#ifdef DB_TXN_CKP 564 *iv_return = DB_TXN_CKP; 565 return PERL_constant_ISIV; 566#else 567 return PERL_constant_NOTDEF; 568#endif 569 } 570 break; 571 case 'O': 572 if (memEQ(name, "DB_INORDER", 10)) { 573 /* ^ */ 574#ifdef DB_INORDER 575 *iv_return = DB_INORDER; 576 return PERL_constant_ISIV; 577#else 578 return PERL_constant_NOTDEF; 579#endif 580 } 581 break; 582 case 'P': 583 if (memEQ(name, "DB_DUPSORT", 10)) { 584 /* ^ */ 585#ifdef DB_DUPSORT 586 *iv_return = DB_DUPSORT; 587 return PERL_constant_ISIV; 588#else 589 return PERL_constant_NOTDEF; 590#endif 591 } 592 if (memEQ(name, "DB_NOPANIC", 10)) { 593 /* ^ */ 594#ifdef DB_NOPANIC 595 *iv_return = DB_NOPANIC; 596 return PERL_constant_ISIV; 597#else 598 return PERL_constant_NOTDEF; 599#endif 600 } 601 break; 602 case 'Q': 603 if (memEQ(name, "DB_SEQ_DEC", 10)) { 604 /* ^ */ 605#ifdef DB_SEQ_DEC 606 *iv_return = DB_SEQ_DEC; 607 return PERL_constant_ISIV; 608#else 609 return PERL_constant_NOTDEF; 610#endif 611 } 612 if (memEQ(name, "DB_SEQ_INC", 10)) { 613 /* ^ */ 614#ifdef DB_SEQ_INC 615 *iv_return = DB_SEQ_INC; 616 return PERL_constant_ISIV; 617#else 618 return PERL_constant_NOTDEF; 619#endif 620 } 621 break; 622 case 'R': 623 if (memEQ(name, "DB_CURRENT", 10)) { 624 /* ^ */ 625#ifdef DB_CURRENT 626 *iv_return = DB_CURRENT; 627 return PERL_constant_ISIV; 628#else 629 return PERL_constant_NOTDEF; 630#endif 631 } 632 break; 633 case 'V': 634 if (memEQ(name, "DB_ENV_CDB", 10)) { 635 /* ^ */ 636#ifdef DB_ENV_CDB 637 *iv_return = DB_ENV_CDB; 638 return PERL_constant_ISIV; 639#else 640 return PERL_constant_NOTDEF; 641#endif 642 } 643 if (memEQ(name, "DB_ENV_TXN", 10)) { 644 /* ^ */ 645#ifdef DB_ENV_TXN 646 *iv_return = DB_ENV_TXN; 647 return PERL_constant_ISIV; 648#else 649 return PERL_constant_NOTDEF; 650#endif 651 } 652 break; 653 case 'Y': 654 if (memEQ(name, "DB_KEYLAST", 10)) { 655 /* ^ */ 656#ifdef DB_KEYLAST 657 *iv_return = DB_KEYLAST; 658 return PERL_constant_ISIV; 659#else 660 return PERL_constant_NOTDEF; 661#endif 662 } 663 break; 664 case '_': 665 if (memEQ(name, "DB_OK_HASH", 10)) { 666 /* ^ */ 667#ifdef DB_OK_HASH 668 *iv_return = DB_OK_HASH; 669 return PERL_constant_ISIV; 670#else 671 return PERL_constant_NOTDEF; 672#endif 673 } 674 if (memEQ(name, "DB_PR_PAGE", 10)) { 675 /* ^ */ 676#ifdef DB_PR_PAGE 677 *iv_return = DB_PR_PAGE; 678 return PERL_constant_ISIV; 679#else 680 return PERL_constant_NOTDEF; 681#endif 682 } 683 break; 684 } 685 return PERL_constant_NOTFOUND; 686} 687 688static int 689constant_11 (pTHX_ const char *name, IV *iv_return) { 690 /* When generated this function returned values for the list of names given 691 here. However, subsequent manual editing may have added or removed some. 692 DB_APP_INIT DB_ARCH_ABS DB_ARCH_LOG DB_DEGREE_2 DB_DSYNC_DB DB_FILEOPEN 693 DB_FIXEDLEN DB_GET_BOTH DB_INIT_CDB DB_INIT_LOG DB_INIT_REP DB_INIT_TXN 694 DB_KEYEMPTY DB_KEYEXIST DB_KEYFIRST DB_LOCKDOWN DB_LOCK_GET DB_LOCK_PUT 695 DB_LOGMAGIC DB_LOG_DISK DB_LOG_PERM DB_LOG_ZERO DB_MULTIPLE DB_NEXT_DUP 696 DB_NOSERVER DB_NOTFOUND DB_OK_BTREE DB_OK_QUEUE DB_OK_RECNO DB_POSITION 697 DB_PREV_DUP DB_QAMMAGIC DB_REGISTER DB_RENUMBER DB_SEQ_WRAP DB_SNAPSHOT 698 DB_STAT_ALL DB_ST_DUPOK DB_ST_RELEN DB_TRUNCATE DB_TXNMAGIC DB_TXN_LOCK 699 DB_TXN_REDO DB_TXN_SYNC DB_TXN_UNDO DB_TXN_WAIT DB_WRNOSYNC DB_YIELDCPU */ 700 /* Offset 8 gives the best switch position. */ 701 switch (name[8]) { 702 case 'A': 703 if (memEQ(name, "DB_ARCH_ABS", 11)) { 704 /* ^ */ 705#ifdef DB_ARCH_ABS 706 *iv_return = DB_ARCH_ABS; 707 return PERL_constant_ISIV; 708#else 709 return PERL_constant_NOTDEF; 710#endif 711 } 712 if (memEQ(name, "DB_STAT_ALL", 11)) { 713 /* ^ */ 714#ifdef DB_STAT_ALL 715 *iv_return = DB_STAT_ALL; 716 return PERL_constant_ISIV; 717#else 718 return PERL_constant_NOTDEF; 719#endif 720 } 721 if (memEQ(name, "DB_TRUNCATE", 11)) { 722 /* ^ */ 723#ifdef DB_TRUNCATE 724 *iv_return = DB_TRUNCATE; 725 return PERL_constant_ISIV; 726#else 727 return PERL_constant_NOTDEF; 728#endif 729 } 730 if (memEQ(name, "DB_TXN_WAIT", 11)) { 731 /* ^ */ 732#ifdef DB_TXN_WAIT 733 *iv_return = DB_TXN_WAIT; 734 return PERL_constant_ISIV; 735#else 736 return PERL_constant_NOTDEF; 737#endif 738 } 739 break; 740 case 'B': 741 if (memEQ(name, "DB_RENUMBER", 11)) { 742 /* ^ */ 743#ifdef DB_RENUMBER 744 *iv_return = DB_RENUMBER; 745 return PERL_constant_ISIV; 746#else 747 return PERL_constant_NOTDEF; 748#endif 749 } 750 break; 751 case 'C': 752 if (memEQ(name, "DB_INIT_CDB", 11)) { 753 /* ^ */ 754#ifdef DB_INIT_CDB 755 *iv_return = DB_INIT_CDB; 756 return PERL_constant_ISIV; 757#else 758 return PERL_constant_NOTDEF; 759#endif 760 } 761 if (memEQ(name, "DB_OK_RECNO", 11)) { 762 /* ^ */ 763#ifdef DB_OK_RECNO 764 *iv_return = DB_OK_RECNO; 765 return PERL_constant_ISIV; 766#else 767 return PERL_constant_NOTDEF; 768#endif 769 } 770 if (memEQ(name, "DB_YIELDCPU", 11)) { 771 /* ^ */ 772#ifdef DB_YIELDCPU 773 *iv_return = DB_YIELDCPU; 774 return PERL_constant_ISIV; 775#else 776 return PERL_constant_NOTDEF; 777#endif 778 } 779 break; 780 case 'D': 781 if (memEQ(name, "DB_NEXT_DUP", 11)) { 782 /* ^ */ 783#ifdef DB_NEXT_DUP 784 *iv_return = DB_NEXT_DUP; 785 return PERL_constant_ISIV; 786#else 787 return PERL_constant_NOTDEF; 788#endif 789 } 790 if (memEQ(name, "DB_PREV_DUP", 11)) { 791 /* ^ */ 792#ifdef DB_PREV_DUP 793 *iv_return = DB_PREV_DUP; 794 return PERL_constant_ISIV; 795#else 796 return PERL_constant_NOTDEF; 797#endif 798 } 799 break; 800 case 'E': 801 if (memEQ(name, "DB_DEGREE_2", 11)) { 802 /* ^ */ 803#ifdef DB_DEGREE_2 804 *iv_return = DB_DEGREE_2; 805 return PERL_constant_ISIV; 806#else 807 return PERL_constant_NOTDEF; 808#endif 809 } 810 if (memEQ(name, "DB_LOG_PERM", 11)) { 811 /* ^ */ 812#ifdef DB_LOG_PERM 813 *iv_return = DB_LOG_PERM; 814 return PERL_constant_ISIV; 815#else 816 return PERL_constant_NOTDEF; 817#endif 818 } 819 if (memEQ(name, "DB_LOG_ZERO", 11)) { 820 /* ^ */ 821#ifdef DB_LOG_ZERO 822 *iv_return = DB_LOG_ZERO; 823 return PERL_constant_ISIV; 824#else 825 return PERL_constant_NOTDEF; 826#endif 827 } 828 if (memEQ(name, "DB_OK_QUEUE", 11)) { 829 /* ^ */ 830#ifdef DB_OK_QUEUE 831 *iv_return = DB_OK_QUEUE; 832 return PERL_constant_ISIV; 833#else 834 return PERL_constant_NOTDEF; 835#endif 836 } 837 if (memEQ(name, "DB_TXN_REDO", 11)) { 838 /* ^ */ 839#ifdef DB_TXN_REDO 840 *iv_return = DB_TXN_REDO; 841 return PERL_constant_ISIV; 842#else 843 return PERL_constant_NOTDEF; 844#endif 845 } 846 break; 847 case 'G': 848 if (memEQ(name, "DB_LOCK_GET", 11)) { 849 /* ^ */ 850#if (DB_VERSION_MAJOR > 2) || \ 851 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \ 852 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \ 853 DB_VERSION_PATCH >= 3) 854 *iv_return = DB_LOCK_GET; 855 return PERL_constant_ISIV; 856#else 857 return PERL_constant_NOTDEF; 858#endif 859 } 860 if (memEQ(name, "DB_LOGMAGIC", 11)) { 861 /* ^ */ 862#ifdef DB_LOGMAGIC 863 *iv_return = DB_LOGMAGIC; 864 return PERL_constant_ISIV; 865#else 866 return PERL_constant_NOTDEF; 867#endif 868 } 869 if (memEQ(name, "DB_QAMMAGIC", 11)) { 870 /* ^ */ 871#ifdef DB_QAMMAGIC 872 *iv_return = DB_QAMMAGIC; 873 return PERL_constant_ISIV; 874#else 875 return PERL_constant_NOTDEF; 876#endif 877 } 878 if (memEQ(name, "DB_TXNMAGIC", 11)) { 879 /* ^ */ 880#ifdef DB_TXNMAGIC 881 *iv_return = DB_TXNMAGIC; 882 return PERL_constant_ISIV; 883#else 884 return PERL_constant_NOTDEF; 885#endif 886 } 887 break; 888 case 'H': 889 if (memEQ(name, "DB_SNAPSHOT", 11)) { 890 /* ^ */ 891#ifdef DB_SNAPSHOT 892 *iv_return = DB_SNAPSHOT; 893 return PERL_constant_ISIV; 894#else 895 return PERL_constant_NOTDEF; 896#endif 897 } 898 break; 899 case 'I': 900 if (memEQ(name, "DB_KEYEXIST", 11)) { 901 /* ^ */ 902#ifdef DB_KEYEXIST 903 *iv_return = DB_KEYEXIST; 904 return PERL_constant_ISIV; 905#else 906 return PERL_constant_NOTDEF; 907#endif 908 } 909 if (memEQ(name, "DB_LOG_DISK", 11)) { 910 /* ^ */ 911#ifdef DB_LOG_DISK 912 *iv_return = DB_LOG_DISK; 913 return PERL_constant_ISIV; 914#else 915 return PERL_constant_NOTDEF; 916#endif 917 } 918 if (memEQ(name, "DB_POSITION", 11)) { 919 /* ^ */ 920#ifdef DB_POSITION 921 *iv_return = DB_POSITION; 922 return PERL_constant_ISIV; 923#else 924 return PERL_constant_NOTDEF; 925#endif 926 } 927 break; 928 case 'L': 929 if (memEQ(name, "DB_ARCH_LOG", 11)) { 930 /* ^ */ 931#ifdef DB_ARCH_LOG 932 *iv_return = DB_ARCH_LOG; 933 return PERL_constant_ISIV; 934#else 935 return PERL_constant_NOTDEF; 936#endif 937 } 938 if (memEQ(name, "DB_FIXEDLEN", 11)) { 939 /* ^ */ 940#ifdef DB_FIXEDLEN 941 *iv_return = DB_FIXEDLEN; 942 return PERL_constant_ISIV; 943#else 944 return PERL_constant_NOTDEF; 945#endif 946 } 947 if (memEQ(name, "DB_INIT_LOG", 11)) { 948 /* ^ */ 949#ifdef DB_INIT_LOG 950 *iv_return = DB_INIT_LOG; 951 return PERL_constant_ISIV; 952#else 953 return PERL_constant_NOTDEF; 954#endif 955 } 956 if (memEQ(name, "DB_ST_RELEN", 11)) { 957 /* ^ */ 958#ifdef DB_ST_RELEN 959 *iv_return = DB_ST_RELEN; 960 return PERL_constant_ISIV; 961#else 962 return PERL_constant_NOTDEF; 963#endif 964 } 965 break; 966 case 'N': 967 if (memEQ(name, "DB_APP_INIT", 11)) { 968 /* ^ */ 969#ifdef DB_APP_INIT 970 *iv_return = DB_APP_INIT; 971 return PERL_constant_ISIV; 972#else 973 return PERL_constant_NOTDEF; 974#endif 975 } 976 if (memEQ(name, "DB_TXN_UNDO", 11)) { 977 /* ^ */ 978#ifdef DB_TXN_UNDO 979 *iv_return = DB_TXN_UNDO; 980 return PERL_constant_ISIV; 981#else 982 return PERL_constant_NOTDEF; 983#endif 984 } 985 break; 986 case 'O': 987 if (memEQ(name, "DB_GET_BOTH", 11)) { 988 /* ^ */ 989#ifdef DB_GET_BOTH 990 *iv_return = DB_GET_BOTH; 991 return PERL_constant_ISIV; 992#else 993 return PERL_constant_NOTDEF; 994#endif 995 } 996 if (memEQ(name, "DB_LOCKDOWN", 11)) { 997 /* ^ */ 998#ifdef DB_LOCKDOWN 999 *iv_return = DB_LOCKDOWN; 1000 return PERL_constant_ISIV; 1001#else 1002 return PERL_constant_NOTDEF; 1003#endif 1004 } 1005 if (memEQ(name, "DB_TXN_LOCK", 11)) { 1006 /* ^ */ 1007#ifdef DB_TXN_LOCK 1008 *iv_return = DB_TXN_LOCK; 1009 return PERL_constant_ISIV; 1010#else 1011 return PERL_constant_NOTDEF; 1012#endif 1013 } 1014 break; 1015 case 'P': 1016 if (memEQ(name, "DB_FILEOPEN", 11)) { 1017 /* ^ */ 1018#ifdef DB_FILEOPEN 1019 *iv_return = DB_FILEOPEN; 1020 return PERL_constant_ISIV; 1021#else 1022 return PERL_constant_NOTDEF; 1023#endif 1024 } 1025 if (memEQ(name, "DB_KEYEMPTY", 11)) { 1026 /* ^ */ 1027#ifdef DB_KEYEMPTY 1028 *iv_return = DB_KEYEMPTY; 1029 return PERL_constant_ISIV; 1030#else 1031 return PERL_constant_NOTDEF; 1032#endif 1033 } 1034 if (memEQ(name, "DB_LOCK_PUT", 11)) { 1035 /* ^ */ 1036#if (DB_VERSION_MAJOR > 2) || \ 1037 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \ 1038 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \ 1039 DB_VERSION_PATCH >= 3) 1040 *iv_return = DB_LOCK_PUT; 1041 return PERL_constant_ISIV; 1042#else 1043 return PERL_constant_NOTDEF; 1044#endif 1045 } 1046 if (memEQ(name, "DB_MULTIPLE", 11)) { 1047 /* ^ */ 1048#ifdef DB_MULTIPLE 1049 *iv_return = DB_MULTIPLE; 1050 return PERL_constant_ISIV; 1051#else 1052 return PERL_constant_NOTDEF; 1053#endif 1054 } 1055 if (memEQ(name, "DB_ST_DUPOK", 11)) { 1056 /* ^ */ 1057#ifdef DB_ST_DUPOK 1058 *iv_return = DB_ST_DUPOK; 1059 return PERL_constant_ISIV; 1060#else 1061 return PERL_constant_NOTDEF; 1062#endif 1063 } 1064 break; 1065 case 'R': 1066 if (memEQ(name, "DB_INIT_REP", 11)) { 1067 /* ^ */ 1068#ifdef DB_INIT_REP 1069 *iv_return = DB_INIT_REP; 1070 return PERL_constant_ISIV; 1071#else 1072 return PERL_constant_NOTDEF; 1073#endif 1074 } 1075 if (memEQ(name, "DB_KEYFIRST", 11)) { 1076 /* ^ */ 1077#ifdef DB_KEYFIRST 1078 *iv_return = DB_KEYFIRST; 1079 return PERL_constant_ISIV; 1080#else 1081 return PERL_constant_NOTDEF; 1082#endif 1083 } 1084 if (memEQ(name, "DB_OK_BTREE", 11)) { 1085 /* ^ */ 1086#ifdef DB_OK_BTREE 1087 *iv_return = DB_OK_BTREE; 1088 return PERL_constant_ISIV; 1089#else 1090 return PERL_constant_NOTDEF; 1091#endif 1092 } 1093 if (memEQ(name, "DB_SEQ_WRAP", 11)) { 1094 /* ^ */ 1095#ifdef DB_SEQ_WRAP 1096 *iv_return = DB_SEQ_WRAP; 1097 return PERL_constant_ISIV; 1098#else 1099 return PERL_constant_NOTDEF; 1100#endif 1101 } 1102 break; 1103 case 'T': 1104 if (memEQ(name, "DB_INIT_TXN", 11)) { 1105 /* ^ */ 1106#ifdef DB_INIT_TXN 1107 *iv_return = DB_INIT_TXN; 1108 return PERL_constant_ISIV; 1109#else 1110 return PERL_constant_NOTDEF; 1111#endif 1112 } 1113 if (memEQ(name, "DB_REGISTER", 11)) { 1114 /* ^ */ 1115#ifdef DB_REGISTER 1116 *iv_return = DB_REGISTER; 1117 return PERL_constant_ISIV; 1118#else 1119 return PERL_constant_NOTDEF; 1120#endif 1121 } 1122 break; 1123 case 'U': 1124 if (memEQ(name, "DB_NOTFOUND", 11)) { 1125 /* ^ */ 1126#ifdef DB_NOTFOUND 1127 *iv_return = DB_NOTFOUND; 1128 return PERL_constant_ISIV; 1129#else 1130 return PERL_constant_NOTDEF; 1131#endif 1132 } 1133 break; 1134 case 'V': 1135 if (memEQ(name, "DB_NOSERVER", 11)) { 1136 /* ^ */ 1137#ifdef DB_NOSERVER 1138 *iv_return = DB_NOSERVER; 1139 return PERL_constant_ISIV; 1140#else 1141 return PERL_constant_NOTDEF; 1142#endif 1143 } 1144 break; 1145 case 'Y': 1146 if (memEQ(name, "DB_TXN_SYNC", 11)) { 1147 /* ^ */ 1148#ifdef DB_TXN_SYNC 1149 *iv_return = DB_TXN_SYNC; 1150 return PERL_constant_ISIV; 1151#else 1152 return PERL_constant_NOTDEF; 1153#endif 1154 } 1155 if (memEQ(name, "DB_WRNOSYNC", 11)) { 1156 /* ^ */ 1157#ifdef DB_WRNOSYNC 1158 *iv_return = DB_WRNOSYNC; 1159 return PERL_constant_ISIV; 1160#else 1161 return PERL_constant_NOTDEF; 1162#endif 1163 } 1164 break; 1165 case '_': 1166 if (memEQ(name, "DB_DSYNC_DB", 11)) { 1167 /* ^ */ 1168#ifdef DB_DSYNC_DB 1169 *iv_return = DB_DSYNC_DB; 1170 return PERL_constant_ISIV; 1171#else 1172 return PERL_constant_NOTDEF; 1173#endif 1174 } 1175 break; 1176 } 1177 return PERL_constant_NOTFOUND; 1178} 1179 1180static int 1181constant_12 (pTHX_ const char *name, IV *iv_return) { 1182 /* When generated this function returned values for the list of names given 1183 here. However, subsequent manual editing may have added or removed some. 1184 DB_ARCH_DATA DB_CDB_ALLDB DB_CL_WRITER DB_DELIMITER DB_DIRECT_DB 1185 DB_DSYNC_LOG DB_DUPCURSOR DB_ENV_FATAL DB_FAST_STAT DB_GET_BOTHC 1186 DB_GET_RECNO DB_HASHMAGIC DB_INIT_LOCK DB_JOIN_ITEM DB_LOCKMAGIC 1187 DB_LOCK_DUMP DB_LOCK_RW_N DB_LOGOLDVER DB_LOG_DSYNC DB_MAX_PAGES 1188 DB_MPOOL_NEW DB_NEEDSPLIT DB_NODUPDATA DB_NOLOCKING DB_NORECURSE 1189 DB_OVERWRITE DB_PAGEYIELD DB_PAGE_LOCK DB_PERMANENT DB_POSITIONI 1190 DB_PRINTABLE DB_QAMOLDVER DB_RPCCLIENT DB_SET_RANGE DB_SET_RECNO 1191 DB_ST_DUPSET DB_ST_RECNUM DB_SWAPBYTES DB_TEMPORARY DB_TXN_ABORT 1192 DB_TXN_APPLY DB_TXN_PRINT DB_WRITELOCK DB_WRITEOPEN DB_XA_CREATE */ 1193 /* Offset 3 gives the best switch position. */ 1194 switch (name[3]) { 1195 case 'A': 1196 if (memEQ(name, "DB_ARCH_DATA", 12)) { 1197 /* ^ */ 1198#ifdef DB_ARCH_DATA 1199 *iv_return = DB_ARCH_DATA; 1200 return PERL_constant_ISIV; 1201#else 1202 return PERL_constant_NOTDEF; 1203#endif 1204 } 1205 break; 1206 case 'C': 1207 if (memEQ(name, "DB_CDB_ALLDB", 12)) { 1208 /* ^ */ 1209#ifdef DB_CDB_ALLDB 1210 *iv_return = DB_CDB_ALLDB; 1211 return PERL_constant_ISIV; 1212#else 1213 return PERL_constant_NOTDEF; 1214#endif 1215 } 1216 if (memEQ(name, "DB_CL_WRITER", 12)) { 1217 /* ^ */ 1218#ifdef DB_CL_WRITER 1219 *iv_return = DB_CL_WRITER; 1220 return PERL_constant_ISIV; 1221#else 1222 return PERL_constant_NOTDEF; 1223#endif 1224 } 1225 break; 1226 case 'D': 1227 if (memEQ(name, "DB_DELIMITER", 12)) { 1228 /* ^ */ 1229#ifdef DB_DELIMITER 1230 *iv_return = DB_DELIMITER; 1231 return PERL_constant_ISIV; 1232#else 1233 return PERL_constant_NOTDEF; 1234#endif 1235 } 1236 if (memEQ(name, "DB_DIRECT_DB", 12)) { 1237 /* ^ */ 1238#ifdef DB_DIRECT_DB 1239 *iv_return = DB_DIRECT_DB; 1240 return PERL_constant_ISIV; 1241#else 1242 return PERL_constant_NOTDEF; 1243#endif 1244 } 1245 if (memEQ(name, "DB_DSYNC_LOG", 12)) { 1246 /* ^ */ 1247#ifdef DB_DSYNC_LOG 1248 *iv_return = DB_DSYNC_LOG; 1249 return PERL_constant_ISIV; 1250#else 1251 return PERL_constant_NOTDEF; 1252#endif 1253 } 1254 if (memEQ(name, "DB_DUPCURSOR", 12)) { 1255 /* ^ */ 1256#ifdef DB_DUPCURSOR 1257 *iv_return = DB_DUPCURSOR; 1258 return PERL_constant_ISIV; 1259#else 1260 return PERL_constant_NOTDEF; 1261#endif 1262 } 1263 break; 1264 case 'E': 1265 if (memEQ(name, "DB_ENV_FATAL", 12)) { 1266 /* ^ */ 1267#ifdef DB_ENV_FATAL 1268 *iv_return = DB_ENV_FATAL; 1269 return PERL_constant_ISIV; 1270#else 1271 return PERL_constant_NOTDEF; 1272#endif 1273 } 1274 break; 1275 case 'F': 1276 if (memEQ(name, "DB_FAST_STAT", 12)) { 1277 /* ^ */ 1278#ifdef DB_FAST_STAT 1279 *iv_return = DB_FAST_STAT; 1280 return PERL_constant_ISIV; 1281#else 1282 return PERL_constant_NOTDEF; 1283#endif 1284 } 1285 break; 1286 case 'G': 1287 if (memEQ(name, "DB_GET_BOTHC", 12)) { 1288 /* ^ */ 1289#ifdef DB_GET_BOTHC 1290 *iv_return = DB_GET_BOTHC; 1291 return PERL_constant_ISIV; 1292#else 1293 return PERL_constant_NOTDEF; 1294#endif 1295 } 1296 if (memEQ(name, "DB_GET_RECNO", 12)) { 1297 /* ^ */ 1298#ifdef DB_GET_RECNO 1299 *iv_return = DB_GET_RECNO; 1300 return PERL_constant_ISIV; 1301#else 1302 return PERL_constant_NOTDEF; 1303#endif 1304 } 1305 break; 1306 case 'H': 1307 if (memEQ(name, "DB_HASHMAGIC", 12)) { 1308 /* ^ */ 1309#ifdef DB_HASHMAGIC 1310 *iv_return = DB_HASHMAGIC; 1311 return PERL_constant_ISIV; 1312#else 1313 return PERL_constant_NOTDEF; 1314#endif 1315 } 1316 break; 1317 case 'I': 1318 if (memEQ(name, "DB_INIT_LOCK", 12)) { 1319 /* ^ */ 1320#ifdef DB_INIT_LOCK 1321 *iv_return = DB_INIT_LOCK; 1322 return PERL_constant_ISIV; 1323#else 1324 return PERL_constant_NOTDEF; 1325#endif 1326 } 1327 break; 1328 case 'J': 1329 if (memEQ(name, "DB_JOIN_ITEM", 12)) { 1330 /* ^ */ 1331#ifdef DB_JOIN_ITEM 1332 *iv_return = DB_JOIN_ITEM; 1333 return PERL_constant_ISIV; 1334#else 1335 return PERL_constant_NOTDEF; 1336#endif 1337 } 1338 break; 1339 case 'L': 1340 if (memEQ(name, "DB_LOCKMAGIC", 12)) { 1341 /* ^ */ 1342#ifdef DB_LOCKMAGIC 1343 *iv_return = DB_LOCKMAGIC; 1344 return PERL_constant_ISIV; 1345#else 1346 return PERL_constant_NOTDEF; 1347#endif 1348 } 1349 if (memEQ(name, "DB_LOCK_DUMP", 12)) { 1350 /* ^ */ 1351#if (DB_VERSION_MAJOR > 2) || \ 1352 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \ 1353 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \ 1354 DB_VERSION_PATCH >= 3) 1355 *iv_return = DB_LOCK_DUMP; 1356 return PERL_constant_ISIV; 1357#else 1358 return PERL_constant_NOTDEF; 1359#endif 1360 } 1361 if (memEQ(name, "DB_LOCK_RW_N", 12)) { 1362 /* ^ */ 1363#ifdef DB_LOCK_RW_N 1364 *iv_return = DB_LOCK_RW_N; 1365 return PERL_constant_ISIV; 1366#else 1367 return PERL_constant_NOTDEF; 1368#endif 1369 } 1370 if (memEQ(name, "DB_LOGOLDVER", 12)) { 1371 /* ^ */ 1372#ifdef DB_LOGOLDVER 1373 *iv_return = DB_LOGOLDVER; 1374 return PERL_constant_ISIV; 1375#else 1376 return PERL_constant_NOTDEF; 1377#endif 1378 } 1379 if (memEQ(name, "DB_LOG_DSYNC", 12)) { 1380 /* ^ */ 1381#ifdef DB_LOG_DSYNC 1382 *iv_return = DB_LOG_DSYNC; 1383 return PERL_constant_ISIV; 1384#else 1385 return PERL_constant_NOTDEF; 1386#endif 1387 } 1388 break; 1389 case 'M': 1390 if (memEQ(name, "DB_MAX_PAGES", 12)) { 1391 /* ^ */ 1392#ifdef DB_MAX_PAGES 1393 *iv_return = DB_MAX_PAGES; 1394 return PERL_constant_ISIV; 1395#else 1396 return PERL_constant_NOTDEF; 1397#endif 1398 } 1399 if (memEQ(name, "DB_MPOOL_NEW", 12)) { 1400 /* ^ */ 1401#ifdef DB_MPOOL_NEW 1402 *iv_return = DB_MPOOL_NEW; 1403 return PERL_constant_ISIV; 1404#else 1405 return PERL_constant_NOTDEF; 1406#endif 1407 } 1408 break; 1409 case 'N': 1410 if (memEQ(name, "DB_NEEDSPLIT", 12)) { 1411 /* ^ */ 1412#ifdef DB_NEEDSPLIT 1413 *iv_return = DB_NEEDSPLIT; 1414 return PERL_constant_ISIV; 1415#else 1416 return PERL_constant_NOTDEF; 1417#endif 1418 } 1419 if (memEQ(name, "DB_NODUPDATA", 12)) { 1420 /* ^ */ 1421#ifdef DB_NODUPDATA 1422 *iv_return = DB_NODUPDATA; 1423 return PERL_constant_ISIV; 1424#else 1425 return PERL_constant_NOTDEF; 1426#endif 1427 } 1428 if (memEQ(name, "DB_NOLOCKING", 12)) { 1429 /* ^ */ 1430#ifdef DB_NOLOCKING 1431 *iv_return = DB_NOLOCKING; 1432 return PERL_constant_ISIV; 1433#else 1434 return PERL_constant_NOTDEF; 1435#endif 1436 } 1437 if (memEQ(name, "DB_NORECURSE", 12)) { 1438 /* ^ */ 1439#ifdef DB_NORECURSE 1440 *iv_return = DB_NORECURSE; 1441 return PERL_constant_ISIV; 1442#else 1443 return PERL_constant_NOTDEF; 1444#endif 1445 } 1446 break; 1447 case 'O': 1448 if (memEQ(name, "DB_OVERWRITE", 12)) { 1449 /* ^ */ 1450#ifdef DB_OVERWRITE 1451 *iv_return = DB_OVERWRITE; 1452 return PERL_constant_ISIV; 1453#else 1454 return PERL_constant_NOTDEF; 1455#endif 1456 } 1457 break; 1458 case 'P': 1459 if (memEQ(name, "DB_PAGEYIELD", 12)) { 1460 /* ^ */ 1461#ifdef DB_PAGEYIELD 1462 *iv_return = DB_PAGEYIELD; 1463 return PERL_constant_ISIV; 1464#else 1465 return PERL_constant_NOTDEF; 1466#endif 1467 } 1468 if (memEQ(name, "DB_PAGE_LOCK", 12)) { 1469 /* ^ */ 1470#ifdef DB_PAGE_LOCK 1471 *iv_return = DB_PAGE_LOCK; 1472 return PERL_constant_ISIV; 1473#else 1474 return PERL_constant_NOTDEF; 1475#endif 1476 } 1477 if (memEQ(name, "DB_PERMANENT", 12)) { 1478 /* ^ */ 1479#ifdef DB_PERMANENT 1480 *iv_return = DB_PERMANENT; 1481 return PERL_constant_ISIV; 1482#else 1483 return PERL_constant_NOTDEF; 1484#endif 1485 } 1486 if (memEQ(name, "DB_POSITIONI", 12)) { 1487 /* ^ */ 1488#ifdef DB_POSITIONI 1489 *iv_return = DB_POSITIONI; 1490 return PERL_constant_ISIV; 1491#else 1492 return PERL_constant_NOTDEF; 1493#endif 1494 } 1495 if (memEQ(name, "DB_PRINTABLE", 12)) { 1496 /* ^ */ 1497#ifdef DB_PRINTABLE 1498 *iv_return = DB_PRINTABLE; 1499 return PERL_constant_ISIV; 1500#else 1501 return PERL_constant_NOTDEF; 1502#endif 1503 } 1504 break; 1505 case 'Q': 1506 if (memEQ(name, "DB_QAMOLDVER", 12)) { 1507 /* ^ */ 1508#ifdef DB_QAMOLDVER 1509 *iv_return = DB_QAMOLDVER; 1510 return PERL_constant_ISIV; 1511#else 1512 return PERL_constant_NOTDEF; 1513#endif 1514 } 1515 break; 1516 case 'R': 1517 if (memEQ(name, "DB_RPCCLIENT", 12)) { 1518 /* ^ */ 1519#ifdef DB_RPCCLIENT 1520 *iv_return = DB_RPCCLIENT; 1521 return PERL_constant_ISIV; 1522#else 1523 return PERL_constant_NOTDEF; 1524#endif 1525 } 1526 break; 1527 case 'S': 1528 if (memEQ(name, "DB_SET_RANGE", 12)) { 1529 /* ^ */ 1530#ifdef DB_SET_RANGE 1531 *iv_return = DB_SET_RANGE; 1532 return PERL_constant_ISIV; 1533#else 1534 return PERL_constant_NOTDEF; 1535#endif 1536 } 1537 if (memEQ(name, "DB_SET_RECNO", 12)) { 1538 /* ^ */ 1539#ifdef DB_SET_RECNO 1540 *iv_return = DB_SET_RECNO; 1541 return PERL_constant_ISIV; 1542#else 1543 return PERL_constant_NOTDEF; 1544#endif 1545 } 1546 if (memEQ(name, "DB_ST_DUPSET", 12)) { 1547 /* ^ */ 1548#ifdef DB_ST_DUPSET 1549 *iv_return = DB_ST_DUPSET; 1550 return PERL_constant_ISIV; 1551#else 1552 return PERL_constant_NOTDEF; 1553#endif 1554 } 1555 if (memEQ(name, "DB_ST_RECNUM", 12)) { 1556 /* ^ */ 1557#ifdef DB_ST_RECNUM 1558 *iv_return = DB_ST_RECNUM; 1559 return PERL_constant_ISIV; 1560#else 1561 return PERL_constant_NOTDEF; 1562#endif 1563 } 1564 if (memEQ(name, "DB_SWAPBYTES", 12)) { 1565 /* ^ */ 1566#ifdef DB_SWAPBYTES 1567 *iv_return = DB_SWAPBYTES; 1568 return PERL_constant_ISIV; 1569#else 1570 return PERL_constant_NOTDEF; 1571#endif 1572 } 1573 break; 1574 case 'T': 1575 if (memEQ(name, "DB_TEMPORARY", 12)) { 1576 /* ^ */ 1577#ifdef DB_TEMPORARY 1578 *iv_return = DB_TEMPORARY; 1579 return PERL_constant_ISIV; 1580#else 1581 return PERL_constant_NOTDEF; 1582#endif 1583 } 1584 if (memEQ(name, "DB_TXN_ABORT", 12)) { 1585 /* ^ */ 1586#if (DB_VERSION_MAJOR > 3) || \ 1587 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \ 1588 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \ 1589 DB_VERSION_PATCH >= 14) 1590 *iv_return = DB_TXN_ABORT; 1591 return PERL_constant_ISIV; 1592#else 1593 return PERL_constant_NOTDEF; 1594#endif 1595 } 1596 if (memEQ(name, "DB_TXN_APPLY", 12)) { 1597 /* ^ */ 1598#if (DB_VERSION_MAJOR > 4) || \ 1599 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \ 1600 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \ 1601 DB_VERSION_PATCH >= 14) 1602 *iv_return = DB_TXN_APPLY; 1603 return PERL_constant_ISIV; 1604#else 1605 return PERL_constant_NOTDEF; 1606#endif 1607 } 1608 if (memEQ(name, "DB_TXN_PRINT", 12)) { 1609 /* ^ */ 1610#if (DB_VERSION_MAJOR > 4) || \ 1611 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \ 1612 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \ 1613 DB_VERSION_PATCH >= 24) 1614 *iv_return = DB_TXN_PRINT; 1615 return PERL_constant_ISIV; 1616#else 1617 return PERL_constant_NOTDEF; 1618#endif 1619 } 1620 break; 1621 case 'W': 1622 if (memEQ(name, "DB_WRITELOCK", 12)) { 1623 /* ^ */ 1624#ifdef DB_WRITELOCK 1625 *iv_return = DB_WRITELOCK; 1626 return PERL_constant_ISIV; 1627#else 1628 return PERL_constant_NOTDEF; 1629#endif 1630 } 1631 if (memEQ(name, "DB_WRITEOPEN", 12)) { 1632 /* ^ */ 1633#ifdef DB_WRITEOPEN 1634 *iv_return = DB_WRITEOPEN; 1635 return PERL_constant_ISIV; 1636#else 1637 return PERL_constant_NOTDEF; 1638#endif 1639 } 1640 break; 1641 case 'X': 1642 if (memEQ(name, "DB_XA_CREATE", 12)) { 1643 /* ^ */ 1644#ifdef DB_XA_CREATE 1645 *iv_return = DB_XA_CREATE; 1646 return PERL_constant_ISIV; 1647#else 1648 return PERL_constant_NOTDEF; 1649#endif 1650 } 1651 break; 1652 } 1653 return PERL_constant_NOTFOUND; 1654} 1655 1656static int 1657constant_13 (pTHX_ const char *name, IV *iv_return) { 1658 /* When generated this function returned values for the list of names given 1659 here. However, subsequent manual editing may have added or removed some. 1660 DB_AGGRESSIVE DB_BTREEMAGIC DB_CHECKPOINT DB_DIRECT_LOG DB_DIRTY_READ 1661 DB_DONOTINDEX DB_ENV_CREATE DB_ENV_NOMMAP DB_ENV_THREAD DB_FREE_SPACE 1662 DB_HASHOLDVER DB_INCOMPLETE DB_INIT_MPOOL DB_LOCK_ABORT DB_LOCK_NORUN 1663 DB_LOCK_RIW_N DB_LOCK_TRADE DB_LOGVERSION DB_LOG_CHKPNT DB_LOG_COMMIT 1664 DB_LOG_DIRECT DB_LOG_LOCKED DB_LOG_NOCOPY DB_LOG_RESEND DB_MPOOL_EDIT 1665 DB_MPOOL_FREE DB_MPOOL_LAST DB_MUTEXDEBUG DB_MUTEXLOCKS DB_NEXT_NODUP 1666 DB_NOORDERCHK DB_PREV_NODUP DB_PR_HEADERS DB_QAMVERSION DB_RDWRMASTER 1667 DB_REGISTERED DB_REP_CLIENT DB_REP_CREATE DB_REP_IGNORE DB_REP_ISPERM 1668 DB_REP_MASTER DB_SEQUENTIAL DB_SPARE_FLAG DB_STAT_CLEAR DB_ST_DUPSORT 1669 DB_SYSTEM_MEM DB_TXNVERSION DB_TXN_NOSYNC DB_TXN_NOWAIT DB_VERIFY_BAD 1670 DB_debug_FLAG DB_user_BEGIN */ 1671 /* Offset 8 gives the best switch position. */ 1672 switch (name[8]) { 1673 case 'A': 1674 if (memEQ(name, "DB_LOCK_ABORT", 13)) { 1675 /* ^ */ 1676#ifdef DB_LOCK_ABORT 1677 *iv_return = DB_LOCK_ABORT; 1678 return PERL_constant_ISIV; 1679#else 1680 return PERL_constant_NOTDEF; 1681#endif 1682 } 1683 if (memEQ(name, "DB_PR_HEADERS", 13)) { 1684 /* ^ */ 1685#ifdef DB_PR_HEADERS 1686 *iv_return = DB_PR_HEADERS; 1687 return PERL_constant_ISIV; 1688#else 1689 return PERL_constant_NOTDEF; 1690#endif 1691 } 1692 if (memEQ(name, "DB_RDWRMASTER", 13)) { 1693 /* ^ */ 1694#ifdef DB_RDWRMASTER 1695 *iv_return = DB_RDWRMASTER; 1696 return PERL_constant_ISIV; 1697#else 1698 return PERL_constant_NOTDEF; 1699#endif 1700 } 1701 if (memEQ(name, "DB_REP_MASTER", 13)) { 1702 /* ^ */ 1703#ifdef DB_REP_MASTER 1704 *iv_return = DB_REP_MASTER; 1705 return PERL_constant_ISIV; 1706#else 1707 return PERL_constant_NOTDEF; 1708#endif 1709 } 1710 break; 1711 case 'B': 1712 if (memEQ(name, "DB_user_BEGIN", 13)) { 1713 /* ^ */ 1714#ifdef DB_user_BEGIN 1715 *iv_return = DB_user_BEGIN; 1716 return PERL_constant_ISIV; 1717#else 1718 return PERL_constant_NOTDEF; 1719#endif 1720 } 1721 break; 1722 case 'C': 1723 if (memEQ(name, "DB_STAT_CLEAR", 13)) { 1724 /* ^ */ 1725#ifdef DB_STAT_CLEAR 1726 *iv_return = DB_STAT_CLEAR; 1727 return PERL_constant_ISIV; 1728#else 1729 return PERL_constant_NOTDEF; 1730#endif 1731 } 1732 break; 1733 case 'D': 1734 if (memEQ(name, "DB_MUTEXDEBUG", 13)) { 1735 /* ^ */ 1736#ifdef DB_MUTEXDEBUG 1737 *iv_return = DB_MUTEXDEBUG; 1738 return PERL_constant_ISIV; 1739#else 1740 return PERL_constant_NOTDEF; 1741#endif 1742 } 1743 break; 1744 case 'E': 1745 if (memEQ(name, "DB_LOG_RESEND", 13)) { 1746 /* ^ */ 1747#ifdef DB_LOG_RESEND 1748 *iv_return = DB_LOG_RESEND; 1749 return PERL_constant_ISIV; 1750#else 1751 return PERL_constant_NOTDEF; 1752#endif 1753 } 1754 if (memEQ(name, "DB_NOORDERCHK", 13)) { 1755 /* ^ */ 1756#ifdef DB_NOORDERCHK 1757 *iv_return = DB_NOORDERCHK; 1758 return PERL_constant_ISIV; 1759#else 1760 return PERL_constant_NOTDEF; 1761#endif 1762 } 1763 break; 1764 case 'G': 1765 if (memEQ(name, "DB_REP_IGNORE", 13)) { 1766 /* ^ */ 1767#ifdef DB_REP_IGNORE 1768 *iv_return = DB_REP_IGNORE; 1769 return PERL_constant_ISIV; 1770#else 1771 return PERL_constant_NOTDEF; 1772#endif 1773 } 1774 break; 1775 case 'H': 1776 if (memEQ(name, "DB_ENV_THREAD", 13)) { 1777 /* ^ */ 1778#ifdef DB_ENV_THREAD 1779 *iv_return = DB_ENV_THREAD; 1780 return PERL_constant_ISIV; 1781#else 1782 return PERL_constant_NOTDEF; 1783#endif 1784 } 1785 if (memEQ(name, "DB_LOG_CHKPNT", 13)) { 1786 /* ^ */ 1787#ifdef DB_LOG_CHKPNT 1788 *iv_return = DB_LOG_CHKPNT; 1789 return PERL_constant_ISIV; 1790#else 1791 return PERL_constant_NOTDEF; 1792#endif 1793 } 1794 break; 1795 case 'I': 1796 if (memEQ(name, "DB_DONOTINDEX", 13)) { 1797 /* ^ */ 1798#ifdef DB_DONOTINDEX 1799 *iv_return = DB_DONOTINDEX; 1800 return PERL_constant_ISIV; 1801#else 1802 return PERL_constant_NOTDEF; 1803#endif 1804 } 1805 if (memEQ(name, "DB_LOG_DIRECT", 13)) { 1806 /* ^ */ 1807#ifdef DB_LOG_DIRECT 1808 *iv_return = DB_LOG_DIRECT; 1809 return PERL_constant_ISIV; 1810#else 1811 return PERL_constant_NOTDEF; 1812#endif 1813 } 1814 break; 1815 case 'L': 1816 if (memEQ(name, "DB_HASHOLDVER", 13)) { 1817 /* ^ */ 1818#ifdef DB_HASHOLDVER 1819 *iv_return = DB_HASHOLDVER; 1820 return PERL_constant_ISIV; 1821#else 1822 return PERL_constant_NOTDEF; 1823#endif 1824 } 1825 if (memEQ(name, "DB_MUTEXLOCKS", 13)) { 1826 /* ^ */ 1827#ifdef DB_MUTEXLOCKS 1828 *iv_return = DB_MUTEXLOCKS; 1829 return PERL_constant_ISIV; 1830#else 1831 return PERL_constant_NOTDEF; 1832#endif 1833 } 1834 if (memEQ(name, "DB_REP_CLIENT", 13)) { 1835 /* ^ */ 1836#ifdef DB_REP_CLIENT 1837 *iv_return = DB_REP_CLIENT; 1838 return PERL_constant_ISIV; 1839#else 1840 return PERL_constant_NOTDEF; 1841#endif 1842 } 1843 break; 1844 case 'M': 1845 if (memEQ(name, "DB_BTREEMAGIC", 13)) { 1846 /* ^ */ 1847#ifdef DB_BTREEMAGIC 1848 *iv_return = DB_BTREEMAGIC; 1849 return PERL_constant_ISIV; 1850#else 1851 return PERL_constant_NOTDEF; 1852#endif 1853 } 1854 if (memEQ(name, "DB_INIT_MPOOL", 13)) { 1855 /* ^ */ 1856#ifdef DB_INIT_MPOOL 1857 *iv_return = DB_INIT_MPOOL; 1858 return PERL_constant_ISIV; 1859#else 1860 return PERL_constant_NOTDEF; 1861#endif 1862 } 1863 if (memEQ(name, "DB_SYSTEM_MEM", 13)) { 1864 /* ^ */ 1865#ifdef DB_SYSTEM_MEM 1866 *iv_return = DB_SYSTEM_MEM; 1867 return PERL_constant_ISIV; 1868#else 1869 return PERL_constant_NOTDEF; 1870#endif 1871 } 1872 break; 1873 case 'N': 1874 if (memEQ(name, "DB_LOCK_NORUN", 13)) { 1875 /* ^ */ 1876#ifdef DB_LOCK_NORUN 1877 *iv_return = DB_LOCK_NORUN; 1878 return PERL_constant_ISIV; 1879#else 1880 return PERL_constant_NOTDEF; 1881#endif 1882 } 1883 if (memEQ(name, "DB_NEXT_NODUP", 13)) { 1884 /* ^ */ 1885#ifdef DB_NEXT_NODUP 1886 *iv_return = DB_NEXT_NODUP; 1887 return PERL_constant_ISIV; 1888#else 1889 return PERL_constant_NOTDEF; 1890#endif 1891 } 1892 if (memEQ(name, "DB_PREV_NODUP", 13)) { 1893 /* ^ */ 1894#ifdef DB_PREV_NODUP 1895 *iv_return = DB_PREV_NODUP; 1896 return PERL_constant_ISIV; 1897#else 1898 return PERL_constant_NOTDEF; 1899#endif 1900 } 1901 if (memEQ(name, "DB_SEQUENTIAL", 13)) { 1902 /* ^ */ 1903#ifdef DB_SEQUENTIAL 1904 *iv_return = DB_SEQUENTIAL; 1905 return PERL_constant_ISIV; 1906#else 1907 return PERL_constant_NOTDEF; 1908#endif 1909 } 1910 break; 1911 case 'O': 1912 if (memEQ(name, "DB_ENV_NOMMAP", 13)) { 1913 /* ^ */ 1914#ifdef DB_ENV_NOMMAP 1915 *iv_return = DB_ENV_NOMMAP; 1916 return PERL_constant_ISIV; 1917#else 1918 return PERL_constant_NOTDEF; 1919#endif 1920 } 1921 if (memEQ(name, "DB_LOG_COMMIT", 13)) { 1922 /* ^ */ 1923#ifdef DB_LOG_COMMIT 1924 *iv_return = DB_LOG_COMMIT; 1925 return PERL_constant_ISIV; 1926#else 1927 return PERL_constant_NOTDEF; 1928#endif 1929 } 1930 if (memEQ(name, "DB_LOG_LOCKED", 13)) { 1931 /* ^ */ 1932#ifdef DB_LOG_LOCKED 1933 *iv_return = DB_LOG_LOCKED; 1934 return PERL_constant_ISIV; 1935#else 1936 return PERL_constant_NOTDEF; 1937#endif 1938 } 1939 if (memEQ(name, "DB_LOG_NOCOPY", 13)) { 1940 /* ^ */ 1941#ifdef DB_LOG_NOCOPY 1942 *iv_return = DB_LOG_NOCOPY; 1943 return PERL_constant_ISIV; 1944#else 1945 return PERL_constant_NOTDEF; 1946#endif 1947 } 1948 if (memEQ(name, "DB_TXN_NOSYNC", 13)) { 1949 /* ^ */ 1950#ifdef DB_TXN_NOSYNC 1951 *iv_return = DB_TXN_NOSYNC; 1952 return PERL_constant_ISIV; 1953#else 1954 return PERL_constant_NOTDEF; 1955#endif 1956 } 1957 if (memEQ(name, "DB_TXN_NOWAIT", 13)) { 1958 /* ^ */ 1959#ifdef DB_TXN_NOWAIT 1960 *iv_return = DB_TXN_NOWAIT; 1961 return PERL_constant_ISIV; 1962#else 1963 return PERL_constant_NOTDEF; 1964#endif 1965 } 1966 break; 1967 case 'P': 1968 if (memEQ(name, "DB_CHECKPOINT", 13)) { 1969 /* ^ */ 1970#ifdef DB_CHECKPOINT 1971 *iv_return = DB_CHECKPOINT; 1972 return PERL_constant_ISIV; 1973#else 1974 return PERL_constant_NOTDEF; 1975#endif 1976 } 1977 if (memEQ(name, "DB_INCOMPLETE", 13)) { 1978 /* ^ */ 1979#ifdef DB_INCOMPLETE 1980 *iv_return = DB_INCOMPLETE; 1981 return PERL_constant_ISIV; 1982#else 1983 return PERL_constant_NOTDEF; 1984#endif 1985 } 1986 if (memEQ(name, "DB_ST_DUPSORT", 13)) { 1987 /* ^ */ 1988#ifdef DB_ST_DUPSORT 1989 *iv_return = DB_ST_DUPSORT; 1990 return PERL_constant_ISIV; 1991#else 1992 return PERL_constant_NOTDEF; 1993#endif 1994 } 1995 break; 1996 case 'R': 1997 if (memEQ(name, "DB_ENV_CREATE", 13)) { 1998 /* ^ */ 1999#ifdef DB_ENV_CREATE 2000 *iv_return = DB_ENV_CREATE; 2001 return PERL_constant_ISIV; 2002#else 2003 return PERL_constant_NOTDEF; 2004#endif 2005 } 2006 if (memEQ(name, "DB_LOCK_RIW_N", 13)) { 2007 /* ^ */ 2008#ifdef DB_LOCK_RIW_N 2009 *iv_return = DB_LOCK_RIW_N; 2010 return PERL_constant_ISIV; 2011#else 2012 return PERL_constant_NOTDEF; 2013#endif 2014 } 2015 if (memEQ(name, "DB_LOGVERSION", 13)) { 2016 /* ^ */ 2017#ifdef DB_LOGVERSION 2018 *iv_return = DB_LOGVERSION; 2019 return PERL_constant_ISIV; 2020#else 2021 return PERL_constant_NOTDEF; 2022#endif 2023 } 2024 if (memEQ(name, "DB_QAMVERSION", 13)) { 2025 /* ^ */ 2026#ifdef DB_QAMVERSION 2027 *iv_return = DB_QAMVERSION; 2028 return PERL_constant_ISIV; 2029#else 2030 return PERL_constant_NOTDEF; 2031#endif 2032 } 2033 if (memEQ(name, "DB_REP_CREATE", 13)) { 2034 /* ^ */ 2035#ifdef DB_REP_CREATE 2036 *iv_return = DB_REP_CREATE; 2037 return PERL_constant_ISIV; 2038#else 2039 return PERL_constant_NOTDEF; 2040#endif 2041 } 2042 if (memEQ(name, "DB_TXNVERSION", 13)) { 2043 /* ^ */ 2044#ifdef DB_TXNVERSION 2045 *iv_return = DB_TXNVERSION; 2046 return PERL_constant_ISIV; 2047#else 2048 return PERL_constant_NOTDEF; 2049#endif 2050 } 2051 break; 2052 case 'S': 2053 if (memEQ(name, "DB_AGGRESSIVE", 13)) { 2054 /* ^ */ 2055#ifdef DB_AGGRESSIVE 2056 *iv_return = DB_AGGRESSIVE; 2057 return PERL_constant_ISIV; 2058#else 2059 return PERL_constant_NOTDEF; 2060#endif 2061 } 2062 if (memEQ(name, "DB_FREE_SPACE", 13)) { 2063 /* ^ */ 2064#ifdef DB_FREE_SPACE 2065 *iv_return = DB_FREE_SPACE; 2066 return PERL_constant_ISIV; 2067#else 2068 return PERL_constant_NOTDEF; 2069#endif 2070 } 2071 if (memEQ(name, "DB_REP_ISPERM", 13)) { 2072 /* ^ */ 2073#ifdef DB_REP_ISPERM 2074 *iv_return = DB_REP_ISPERM; 2075 return PERL_constant_ISIV; 2076#else 2077 return PERL_constant_NOTDEF; 2078#endif 2079 } 2080 break; 2081 case 'T': 2082 if (memEQ(name, "DB_DIRECT_LOG", 13)) { 2083 /* ^ */ 2084#ifdef DB_DIRECT_LOG 2085 *iv_return = DB_DIRECT_LOG; 2086 return PERL_constant_ISIV; 2087#else 2088 return PERL_constant_NOTDEF; 2089#endif 2090 } 2091 if (memEQ(name, "DB_LOCK_TRADE", 13)) { 2092 /* ^ */ 2093#if (DB_VERSION_MAJOR > 4) || \ 2094 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \ 2095 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \ 2096 DB_VERSION_PATCH >= 24) 2097 *iv_return = DB_LOCK_TRADE; 2098 return PERL_constant_ISIV; 2099#else 2100 return PERL_constant_NOTDEF; 2101#endif 2102 } 2103 if (memEQ(name, "DB_REGISTERED", 13)) { 2104 /* ^ */ 2105#ifdef DB_REGISTERED 2106 *iv_return = DB_REGISTERED; 2107 return PERL_constant_ISIV; 2108#else 2109 return PERL_constant_NOTDEF; 2110#endif 2111 } 2112 break; 2113 case 'Y': 2114 if (memEQ(name, "DB_VERIFY_BAD", 13)) { 2115 /* ^ */ 2116#ifdef DB_VERIFY_BAD 2117 *iv_return = DB_VERIFY_BAD; 2118 return PERL_constant_ISIV; 2119#else 2120 return PERL_constant_NOTDEF; 2121#endif 2122 } 2123 break; 2124 case '_': 2125 if (memEQ(name, "DB_DIRTY_READ", 13)) { 2126 /* ^ */ 2127#ifdef DB_DIRTY_READ 2128 *iv_return = DB_DIRTY_READ; 2129 return PERL_constant_ISIV; 2130#else 2131 return PERL_constant_NOTDEF; 2132#endif 2133 } 2134 if (memEQ(name, "DB_MPOOL_EDIT", 13)) { 2135 /* ^ */ 2136#ifdef DB_MPOOL_EDIT 2137 *iv_return = DB_MPOOL_EDIT; 2138 return PERL_constant_ISIV; 2139#else 2140 return PERL_constant_NOTDEF; 2141#endif 2142 } 2143 if (memEQ(name, "DB_MPOOL_FREE", 13)) { 2144 /* ^ */ 2145#ifdef DB_MPOOL_FREE 2146 *iv_return = DB_MPOOL_FREE; 2147 return PERL_constant_ISIV; 2148#else 2149 return PERL_constant_NOTDEF; 2150#endif 2151 } 2152 if (memEQ(name, "DB_MPOOL_LAST", 13)) { 2153 /* ^ */ 2154#ifdef DB_MPOOL_LAST 2155 *iv_return = DB_MPOOL_LAST; 2156 return PERL_constant_ISIV; 2157#else 2158 return PERL_constant_NOTDEF; 2159#endif 2160 } 2161 if (memEQ(name, "DB_SPARE_FLAG", 13)) { 2162 /* ^ */ 2163#ifdef DB_SPARE_FLAG 2164 *iv_return = DB_SPARE_FLAG; 2165 return PERL_constant_ISIV; 2166#else 2167 return PERL_constant_NOTDEF; 2168#endif 2169 } 2170 if (memEQ(name, "DB_debug_FLAG", 13)) { 2171 /* ^ */ 2172#ifdef DB_debug_FLAG 2173 *iv_return = DB_debug_FLAG; 2174 return PERL_constant_ISIV; 2175#else 2176 return PERL_constant_NOTDEF; 2177#endif 2178 } 2179 break; 2180 } 2181 return PERL_constant_NOTFOUND; 2182} 2183 2184static int 2185constant_14 (pTHX_ const char *name, IV *iv_return) { 2186 /* When generated this function returned values for the list of names given 2187 here. However, subsequent manual editing may have added or removed some. 2188 DB_ARCH_REMOVE DB_AUTO_COMMIT DB_BTREEOLDVER DB_CHKSUM_SHA1 DB_EID_INVALID 2189 DB_ENCRYPT_AES DB_ENV_APPINIT DB_ENV_DBLOCAL DB_ENV_LOCKING DB_ENV_LOGGING 2190 DB_ENV_NOPANIC DB_ENV_PRIVATE DB_EVENT_PANIC DB_FILE_ID_LEN DB_HANDLE_LOCK 2191 DB_HASHVERSION DB_JOIN_NOSORT DB_LOCKVERSION DB_LOCK_EXPIRE DB_LOCK_NOWAIT 2192 DB_LOCK_OLDEST DB_LOCK_RANDOM DB_LOCK_RECORD DB_LOCK_REMOVE DB_LOCK_SWITCH 2193 DB_MAX_RECORDS DB_MPOOL_CLEAN DB_MPOOL_DIRTY DB_NOOVERWRITE DB_NOSERVER_ID 2194 DB_ODDFILESIZE DB_OLD_VERSION DB_OPEN_CALLED DB_RECORDCOUNT DB_RECORD_LOCK 2195 DB_REGION_ANON DB_REGION_INIT DB_REGION_NAME DB_RENAMEMAGIC DB_REPMGR_PEER 2196 DB_REP_BULKOVF DB_REP_EGENCHG DB_REP_LOCKOUT DB_REP_NEWSITE DB_REP_NOTPERM 2197 DB_REP_UNAVAIL DB_REVSPLITOFF DB_RUNRECOVERY DB_SEQ_WRAPPED DB_SET_TXN_NOW 2198 DB_ST_IS_RECNO DB_ST_TOPLEVEL DB_USE_ENVIRON DB_WRITECURSOR DB_XIDDATASIZE 2199 */ 2200 /* Offset 10 gives the best switch position. */ 2201 switch (name[10]) { 2202 case 'A': 2203 if (memEQ(name, "DB_EID_INVALID", 14)) { 2204 /* ^ */ 2205#ifdef DB_EID_INVALID 2206 *iv_return = DB_EID_INVALID; 2207 return PERL_constant_ISIV; 2208#else 2209 return PERL_constant_NOTDEF; 2210#endif 2211 } 2212 if (memEQ(name, "DB_ENV_NOPANIC", 14)) { 2213 /* ^ */ 2214#ifdef DB_ENV_NOPANIC 2215 *iv_return = DB_ENV_NOPANIC; 2216 return PERL_constant_ISIV; 2217#else 2218 return PERL_constant_NOTDEF; 2219#endif 2220 } 2221 if (memEQ(name, "DB_EVENT_PANIC", 14)) { 2222 /* ^ */ 2223#ifdef DB_EVENT_PANIC 2224 *iv_return = DB_EVENT_PANIC; 2225 return PERL_constant_ISIV; 2226#else 2227 return PERL_constant_NOTDEF; 2228#endif 2229 } 2230 if (memEQ(name, "DB_REGION_ANON", 14)) { 2231 /* ^ */ 2232#ifdef DB_REGION_ANON 2233 *iv_return = DB_REGION_ANON; 2234 return PERL_constant_ISIV; 2235#else 2236 return PERL_constant_NOTDEF; 2237#endif 2238 } 2239 if (memEQ(name, "DB_RENAMEMAGIC", 14)) { 2240 /* ^ */ 2241#ifdef DB_RENAMEMAGIC 2242 *iv_return = DB_RENAMEMAGIC; 2243 return PERL_constant_ISIV; 2244#else 2245 return PERL_constant_NOTDEF; 2246#endif 2247 } 2248 break; 2249 case 'C': 2250 if (memEQ(name, "DB_LOCK_RECORD", 14)) { 2251 /* ^ */ 2252#ifdef DB_LOCK_RECORD 2253 *iv_return = DB_LOCK_RECORD; 2254 return PERL_constant_ISIV; 2255#else 2256 return PERL_constant_NOTDEF; 2257#endif 2258 } 2259 break; 2260 case 'D': 2261 if (memEQ(name, "DB_BTREEOLDVER", 14)) { 2262 /* ^ */ 2263#ifdef DB_BTREEOLDVER 2264 *iv_return = DB_BTREEOLDVER; 2265 return PERL_constant_ISIV; 2266#else 2267 return PERL_constant_NOTDEF; 2268#endif 2269 } 2270 if (memEQ(name, "DB_LOCK_OLDEST", 14)) { 2271 /* ^ */ 2272#ifdef DB_LOCK_OLDEST 2273 *iv_return = DB_LOCK_OLDEST; 2274 return PERL_constant_ISIV; 2275#else 2276 return PERL_constant_NOTDEF; 2277#endif 2278 } 2279 break; 2280 case 'E': 2281 if (memEQ(name, "DB_ST_IS_RECNO", 14)) { 2282 /* ^ */ 2283#ifdef DB_ST_IS_RECNO 2284 *iv_return = DB_ST_IS_RECNO; 2285 return PERL_constant_ISIV; 2286#else 2287 return PERL_constant_NOTDEF; 2288#endif 2289 } 2290 if (memEQ(name, "DB_ST_TOPLEVEL", 14)) { 2291 /* ^ */ 2292#ifdef DB_ST_TOPLEVEL 2293 *iv_return = DB_ST_TOPLEVEL; 2294 return PERL_constant_ISIV; 2295#else 2296 return PERL_constant_NOTDEF; 2297#endif 2298 } 2299 break; 2300 case 'G': 2301 if (memEQ(name, "DB_ENV_LOGGING", 14)) { 2302 /* ^ */ 2303#ifdef DB_ENV_LOGGING 2304 *iv_return = DB_ENV_LOGGING; 2305 return PERL_constant_ISIV; 2306#else 2307 return PERL_constant_NOTDEF; 2308#endif 2309 } 2310 break; 2311 case 'I': 2312 if (memEQ(name, "DB_ENV_APPINIT", 14)) { 2313 /* ^ */ 2314#ifdef DB_ENV_APPINIT 2315 *iv_return = DB_ENV_APPINIT; 2316 return PERL_constant_ISIV; 2317#else 2318 return PERL_constant_NOTDEF; 2319#endif 2320 } 2321 if (memEQ(name, "DB_LOCK_SWITCH", 14)) { 2322 /* ^ */ 2323#ifdef DB_LOCK_SWITCH 2324 *iv_return = DB_LOCK_SWITCH; 2325 return PERL_constant_ISIV; 2326#else 2327 return PERL_constant_NOTDEF; 2328#endif 2329 } 2330 if (memEQ(name, "DB_MPOOL_DIRTY", 14)) { 2331 /* ^ */ 2332#ifdef DB_MPOOL_DIRTY 2333 *iv_return = DB_MPOOL_DIRTY; 2334 return PERL_constant_ISIV; 2335#else 2336 return PERL_constant_NOTDEF; 2337#endif 2338 } 2339 if (memEQ(name, "DB_REGION_INIT", 14)) { 2340 /* ^ */ 2341#ifdef DB_REGION_INIT 2342 *iv_return = DB_REGION_INIT; 2343 return PERL_constant_ISIV; 2344#else 2345 return PERL_constant_NOTDEF; 2346#endif 2347 } 2348 if (memEQ(name, "DB_USE_ENVIRON", 14)) { 2349 /* ^ */ 2350#ifdef DB_USE_ENVIRON 2351 *iv_return = DB_USE_ENVIRON; 2352 return PERL_constant_ISIV; 2353#else 2354 return PERL_constant_NOTDEF; 2355#endif 2356 } 2357 break; 2358 case 'K': 2359 if (memEQ(name, "DB_ENV_LOCKING", 14)) { 2360 /* ^ */ 2361#ifdef DB_ENV_LOCKING 2362 *iv_return = DB_ENV_LOCKING; 2363 return PERL_constant_ISIV; 2364#else 2365 return PERL_constant_NOTDEF; 2366#endif 2367 } 2368 if (memEQ(name, "DB_REP_BULKOVF", 14)) { 2369 /* ^ */ 2370#ifdef DB_REP_BULKOVF 2371 *iv_return = DB_REP_BULKOVF; 2372 return PERL_constant_ISIV; 2373#else 2374 return PERL_constant_NOTDEF; 2375#endif 2376 } 2377 if (memEQ(name, "DB_REP_LOCKOUT", 14)) { 2378 /* ^ */ 2379#ifdef DB_REP_LOCKOUT 2380 *iv_return = DB_REP_LOCKOUT; 2381 return PERL_constant_ISIV; 2382#else 2383 return PERL_constant_NOTDEF; 2384#endif 2385 } 2386 break; 2387 case 'L': 2388 if (memEQ(name, "DB_HANDLE_LOCK", 14)) { 2389 /* ^ */ 2390#ifdef DB_HANDLE_LOCK 2391 *iv_return = DB_HANDLE_LOCK; 2392 return PERL_constant_ISIV; 2393#else 2394 return PERL_constant_NOTDEF; 2395#endif 2396 } 2397 if (memEQ(name, "DB_MPOOL_CLEAN", 14)) { 2398 /* ^ */ 2399#ifdef DB_MPOOL_CLEAN 2400 *iv_return = DB_MPOOL_CLEAN; 2401 return PERL_constant_ISIV; 2402#else 2403 return PERL_constant_NOTDEF; 2404#endif 2405 } 2406 if (memEQ(name, "DB_OPEN_CALLED", 14)) { 2407 /* ^ */ 2408#ifdef DB_OPEN_CALLED 2409 *iv_return = DB_OPEN_CALLED; 2410 return PERL_constant_ISIV; 2411#else 2412 return PERL_constant_NOTDEF; 2413#endif 2414 } 2415 if (memEQ(name, "DB_RECORD_LOCK", 14)) { 2416 /* ^ */ 2417#ifdef DB_RECORD_LOCK 2418 *iv_return = DB_RECORD_LOCK; 2419 return PERL_constant_ISIV; 2420#else 2421 return PERL_constant_NOTDEF; 2422#endif 2423 } 2424 break; 2425 case 'M': 2426 if (memEQ(name, "DB_ARCH_REMOVE", 14)) { 2427 /* ^ */ 2428#ifdef DB_ARCH_REMOVE 2429 *iv_return = DB_ARCH_REMOVE; 2430 return PERL_constant_ISIV; 2431#else 2432 return PERL_constant_NOTDEF; 2433#endif 2434 } 2435 if (memEQ(name, "DB_AUTO_COMMIT", 14)) { 2436 /* ^ */ 2437#ifdef DB_AUTO_COMMIT 2438 *iv_return = DB_AUTO_COMMIT; 2439 return PERL_constant_ISIV; 2440#else 2441 return PERL_constant_NOTDEF; 2442#endif 2443 } 2444 if (memEQ(name, "DB_LOCK_REMOVE", 14)) { 2445 /* ^ */ 2446#ifdef DB_LOCK_REMOVE 2447 *iv_return = DB_LOCK_REMOVE; 2448 return PERL_constant_ISIV; 2449#else 2450 return PERL_constant_NOTDEF; 2451#endif 2452 } 2453 break; 2454 case 'N': 2455 if (memEQ(name, "DB_LOCK_RANDOM", 14)) { 2456 /* ^ */ 2457#ifdef DB_LOCK_RANDOM 2458 *iv_return = DB_LOCK_RANDOM; 2459 return PERL_constant_ISIV; 2460#else 2461 return PERL_constant_NOTDEF; 2462#endif 2463 } 2464 if (memEQ(name, "DB_REGION_NAME", 14)) { 2465 /* ^ */ 2466#ifdef DB_REGION_NAME 2467 *iv_return = DB_REGION_NAME; 2468 return PERL_constant_ISIV; 2469#else 2470 return PERL_constant_NOTDEF; 2471#endif 2472 } 2473 if (memEQ(name, "DB_REP_EGENCHG", 14)) { 2474 /* ^ */ 2475#ifdef DB_REP_EGENCHG 2476 *iv_return = DB_REP_EGENCHG; 2477 return PERL_constant_ISIV; 2478#else 2479 return PERL_constant_NOTDEF; 2480#endif 2481 } 2482 break; 2483 case 'O': 2484 if (memEQ(name, "DB_ENV_DBLOCAL", 14)) { 2485 /* ^ */ 2486#ifdef DB_ENV_DBLOCAL 2487 *iv_return = DB_ENV_DBLOCAL; 2488 return PERL_constant_ISIV; 2489#else 2490 return PERL_constant_NOTDEF; 2491#endif 2492 } 2493 if (memEQ(name, "DB_MAX_RECORDS", 14)) { 2494 /* ^ */ 2495#ifdef DB_MAX_RECORDS 2496 *iv_return = DB_MAX_RECORDS; 2497 return PERL_constant_ISIV; 2498#else 2499 return PERL_constant_NOTDEF; 2500#endif 2501 } 2502 if (memEQ(name, "DB_RECORDCOUNT", 14)) { 2503 /* ^ */ 2504#ifdef DB_RECORDCOUNT 2505 *iv_return = DB_RECORDCOUNT; 2506 return PERL_constant_ISIV; 2507#else 2508 return PERL_constant_NOTDEF; 2509#endif 2510 } 2511 break; 2512 case 'P': 2513 if (memEQ(name, "DB_LOCK_EXPIRE", 14)) { 2514 /* ^ */ 2515#ifdef DB_LOCK_EXPIRE 2516 *iv_return = DB_LOCK_EXPIRE; 2517 return PERL_constant_ISIV; 2518#else 2519 return PERL_constant_NOTDEF; 2520#endif 2521 } 2522 if (memEQ(name, "DB_REPMGR_PEER", 14)) { 2523 /* ^ */ 2524#ifdef DB_REPMGR_PEER 2525 *iv_return = DB_REPMGR_PEER; 2526 return PERL_constant_ISIV; 2527#else 2528 return PERL_constant_NOTDEF; 2529#endif 2530 } 2531 if (memEQ(name, "DB_REP_NOTPERM", 14)) { 2532 /* ^ */ 2533#ifdef DB_REP_NOTPERM 2534 *iv_return = DB_REP_NOTPERM; 2535 return PERL_constant_ISIV; 2536#else 2537 return PERL_constant_NOTDEF; 2538#endif 2539 } 2540 if (memEQ(name, "DB_SEQ_WRAPPED", 14)) { 2541 /* ^ */ 2542#ifdef DB_SEQ_WRAPPED 2543 *iv_return = DB_SEQ_WRAPPED; 2544 return PERL_constant_ISIV; 2545#else 2546 return PERL_constant_NOTDEF; 2547#endif 2548 } 2549 break; 2550 case 'R': 2551 if (memEQ(name, "DB_NOOVERWRITE", 14)) { 2552 /* ^ */ 2553#ifdef DB_NOOVERWRITE 2554 *iv_return = DB_NOOVERWRITE; 2555 return PERL_constant_ISIV; 2556#else 2557 return PERL_constant_NOTDEF; 2558#endif 2559 } 2560 if (memEQ(name, "DB_NOSERVER_ID", 14)) { 2561 /* ^ */ 2562#ifdef DB_NOSERVER_ID 2563 *iv_return = DB_NOSERVER_ID; 2564 return PERL_constant_ISIV; 2565#else 2566 return PERL_constant_NOTDEF; 2567#endif 2568 } 2569 if (memEQ(name, "DB_WRITECURSOR", 14)) { 2570 /* ^ */ 2571#ifdef DB_WRITECURSOR 2572 *iv_return = DB_WRITECURSOR; 2573 return PERL_constant_ISIV; 2574#else 2575 return PERL_constant_NOTDEF; 2576#endif 2577 } 2578 break; 2579 case 'S': 2580 if (memEQ(name, "DB_CHKSUM_SHA1", 14)) { 2581 /* ^ */ 2582#ifdef DB_CHKSUM_SHA1 2583 *iv_return = DB_CHKSUM_SHA1; 2584 return PERL_constant_ISIV; 2585#else 2586 return PERL_constant_NOTDEF; 2587#endif 2588 } 2589 if (memEQ(name, "DB_HASHVERSION", 14)) { 2590 /* ^ */ 2591#ifdef DB_HASHVERSION 2592 *iv_return = DB_HASHVERSION; 2593 return PERL_constant_ISIV; 2594#else 2595 return PERL_constant_NOTDEF; 2596#endif 2597 } 2598 if (memEQ(name, "DB_JOIN_NOSORT", 14)) { 2599 /* ^ */ 2600#ifdef DB_JOIN_NOSORT 2601 *iv_return = DB_JOIN_NOSORT; 2602 return PERL_constant_ISIV; 2603#else 2604 return PERL_constant_NOTDEF; 2605#endif 2606 } 2607 if (memEQ(name, "DB_LOCKVERSION", 14)) { 2608 /* ^ */ 2609#ifdef DB_LOCKVERSION 2610 *iv_return = DB_LOCKVERSION; 2611 return PERL_constant_ISIV; 2612#else 2613 return PERL_constant_NOTDEF; 2614#endif 2615 } 2616 if (memEQ(name, "DB_ODDFILESIZE", 14)) { 2617 /* ^ */ 2618#ifdef DB_ODDFILESIZE 2619 *iv_return = DB_ODDFILESIZE; 2620 return PERL_constant_ISIV; 2621#else 2622 return PERL_constant_NOTDEF; 2623#endif 2624 } 2625 if (memEQ(name, "DB_OLD_VERSION", 14)) { 2626 /* ^ */ 2627#ifdef DB_OLD_VERSION 2628 *iv_return = DB_OLD_VERSION; 2629 return PERL_constant_ISIV; 2630#else 2631 return PERL_constant_NOTDEF; 2632#endif 2633 } 2634 if (memEQ(name, "DB_REP_NEWSITE", 14)) { 2635 /* ^ */ 2636#ifdef DB_REP_NEWSITE 2637 *iv_return = DB_REP_NEWSITE; 2638 return PERL_constant_ISIV; 2639#else 2640 return PERL_constant_NOTDEF; 2641#endif 2642 } 2643 if (memEQ(name, "DB_XIDDATASIZE", 14)) { 2644 /* ^ */ 2645#ifdef DB_XIDDATASIZE 2646 *iv_return = DB_XIDDATASIZE; 2647 return PERL_constant_ISIV; 2648#else 2649 return PERL_constant_NOTDEF; 2650#endif 2651 } 2652 break; 2653 case 'T': 2654 if (memEQ(name, "DB_REVSPLITOFF", 14)) { 2655 /* ^ */ 2656#ifdef DB_REVSPLITOFF 2657 *iv_return = DB_REVSPLITOFF; 2658 return PERL_constant_ISIV; 2659#else 2660 return PERL_constant_NOTDEF; 2661#endif 2662 } 2663 break; 2664 case 'V': 2665 if (memEQ(name, "DB_ENV_PRIVATE", 14)) { 2666 /* ^ */ 2667#ifdef DB_ENV_PRIVATE 2668 *iv_return = DB_ENV_PRIVATE; 2669 return PERL_constant_ISIV; 2670#else 2671 return PERL_constant_NOTDEF; 2672#endif 2673 } 2674 if (memEQ(name, "DB_REP_UNAVAIL", 14)) { 2675 /* ^ */ 2676#ifdef DB_REP_UNAVAIL 2677 *iv_return = DB_REP_UNAVAIL; 2678 return PERL_constant_ISIV; 2679#else 2680 return PERL_constant_NOTDEF; 2681#endif 2682 } 2683 if (memEQ(name, "DB_RUNRECOVERY", 14)) { 2684 /* ^ */ 2685#ifdef DB_RUNRECOVERY 2686 *iv_return = DB_RUNRECOVERY; 2687 return PERL_constant_ISIV; 2688#else 2689 return PERL_constant_NOTDEF; 2690#endif 2691 } 2692 break; 2693 case 'W': 2694 if (memEQ(name, "DB_LOCK_NOWAIT", 14)) { 2695 /* ^ */ 2696#ifdef DB_LOCK_NOWAIT 2697 *iv_return = DB_LOCK_NOWAIT; 2698 return PERL_constant_ISIV; 2699#else 2700 return PERL_constant_NOTDEF; 2701#endif 2702 } 2703 break; 2704 case '_': 2705 if (memEQ(name, "DB_ENCRYPT_AES", 14)) { 2706 /* ^ */ 2707#ifdef DB_ENCRYPT_AES 2708 *iv_return = DB_ENCRYPT_AES; 2709 return PERL_constant_ISIV; 2710#else 2711 return PERL_constant_NOTDEF; 2712#endif 2713 } 2714 if (memEQ(name, "DB_FILE_ID_LEN", 14)) { 2715 /* ^ */ 2716#ifdef DB_FILE_ID_LEN 2717 *iv_return = DB_FILE_ID_LEN; 2718 return PERL_constant_ISIV; 2719#else 2720 return PERL_constant_NOTDEF; 2721#endif 2722 } 2723 if (memEQ(name, "DB_SET_TXN_NOW", 14)) { 2724 /* ^ */ 2725#ifdef DB_SET_TXN_NOW 2726 *iv_return = DB_SET_TXN_NOW; 2727 return PERL_constant_ISIV; 2728#else 2729 return PERL_constant_NOTDEF; 2730#endif 2731 } 2732 break; 2733 } 2734 return PERL_constant_NOTFOUND; 2735} 2736 2737static int 2738constant_15 (pTHX_ const char *name, IV *iv_return) { 2739 /* When generated this function returned values for the list of names given 2740 here. However, subsequent manual editing may have added or removed some. 2741 DB_APPLY_LOGREG DB_BTREEVERSION DB_BUFFER_SMALL DB_CKP_INTERNAL 2742 DB_CONSUME_WAIT DB_ENV_DSYNC_DB DB_ENV_LOCKDOWN DB_ENV_PANIC_OK 2743 DB_ENV_YIELDCPU DB_IGNORE_LEASE DB_LOCK_DEFAULT DB_LOCK_INHERIT 2744 DB_LOCK_NOTHELD DB_LOCK_PUT_ALL DB_LOCK_PUT_OBJ DB_LOCK_TIMEOUT 2745 DB_LOCK_UPGRADE DB_LOG_INMEMORY DB_LOG_WRNOSYNC DB_MPOOL_CREATE 2746 DB_MPOOL_EXTENT DB_MPOOL_NOFILE DB_MPOOL_NOLOCK DB_MPOOL_UNLINK 2747 DB_MULTIPLE_KEY DB_MULTIVERSION DB_MUTEX_LOCKED DB_MUTEX_THREAD 2748 DB_OPFLAGS_MASK DB_ORDERCHKONLY DB_PRIORITY_LOW DB_REGION_MAGIC 2749 DB_REP_ANYWHERE DB_REP_ELECTION DB_REP_LOGREADY DB_REP_LOGSONLY 2750 DB_REP_NOBUFFER DB_REP_OUTDATED DB_REP_PAGEDONE DB_STAT_NOERROR 2751 DB_ST_OVFL_LEAF DB_SURPRISE_KID DB_TEST_POSTLOG DB_TEST_PREOPEN 2752 DB_TEST_RECYCLE DB_TXN_LOCK_2PL DB_TXN_LOG_MASK DB_TXN_LOG_REDO 2753 DB_TXN_LOG_UNDO DB_TXN_SNAPSHOT DB_VERB_FILEOPS DB_VERIFY_FATAL */ 2754 /* Offset 10 gives the best switch position. */ 2755 switch (name[10]) { 2756 case 'C': 2757 if (memEQ(name, "DB_REP_ELECTION", 15)) { 2758 /* ^ */ 2759#ifdef DB_REP_ELECTION 2760 *iv_return = DB_REP_ELECTION; 2761 return PERL_constant_ISIV; 2762#else 2763 return PERL_constant_NOTDEF; 2764#endif 2765 } 2766 if (memEQ(name, "DB_TEST_RECYCLE", 15)) { 2767 /* ^ */ 2768#ifdef DB_TEST_RECYCLE 2769 *iv_return = DB_TEST_RECYCLE; 2770 return PERL_constant_ISIV; 2771#else 2772 return PERL_constant_NOTDEF; 2773#endif 2774 } 2775 break; 2776 case 'D': 2777 if (memEQ(name, "DB_REP_OUTDATED", 15)) { 2778 /* ^ */ 2779#ifdef DB_REP_OUTDATED 2780 *iv_return = DB_REP_OUTDATED; 2781 return PERL_constant_ISIV; 2782#else 2783 return PERL_constant_NOTDEF; 2784#endif 2785 } 2786 break; 2787 case 'E': 2788 if (memEQ(name, "DB_CKP_INTERNAL", 15)) { 2789 /* ^ */ 2790#ifdef DB_CKP_INTERNAL 2791 *iv_return = DB_CKP_INTERNAL; 2792 return PERL_constant_ISIV; 2793#else 2794 return PERL_constant_NOTDEF; 2795#endif 2796 } 2797 if (memEQ(name, "DB_LOG_INMEMORY", 15)) { 2798 /* ^ */ 2799#ifdef DB_LOG_INMEMORY 2800 *iv_return = DB_LOG_INMEMORY; 2801 return PERL_constant_ISIV; 2802#else 2803 return PERL_constant_NOTDEF; 2804#endif 2805 } 2806 if (memEQ(name, "DB_MULTIPLE_KEY", 15)) { 2807 /* ^ */ 2808#ifdef DB_MULTIPLE_KEY 2809 *iv_return = DB_MULTIPLE_KEY; 2810 return PERL_constant_ISIV; 2811#else 2812 return PERL_constant_NOTDEF; 2813#endif 2814 } 2815 if (memEQ(name, "DB_REP_PAGEDONE", 15)) { 2816 /* ^ */ 2817#ifdef DB_REP_PAGEDONE 2818 *iv_return = DB_REP_PAGEDONE; 2819 return PERL_constant_ISIV; 2820#else 2821 return PERL_constant_NOTDEF; 2822#endif 2823 } 2824 if (memEQ(name, "DB_STAT_NOERROR", 15)) { 2825 /* ^ */ 2826#ifdef DB_STAT_NOERROR 2827 *iv_return = DB_STAT_NOERROR; 2828 return PERL_constant_ISIV; 2829#else 2830 return PERL_constant_NOTDEF; 2831#endif 2832 } 2833 if (memEQ(name, "DB_SURPRISE_KID", 15)) { 2834 /* ^ */ 2835#ifdef DB_SURPRISE_KID 2836 *iv_return = DB_SURPRISE_KID; 2837 return PERL_constant_ISIV; 2838#else 2839 return PERL_constant_NOTDEF; 2840#endif 2841 } 2842 if (memEQ(name, "DB_TEST_PREOPEN", 15)) { 2843 /* ^ */ 2844#ifdef DB_TEST_PREOPEN 2845 *iv_return = DB_TEST_PREOPEN; 2846 return PERL_constant_ISIV; 2847#else 2848 return PERL_constant_NOTDEF; 2849#endif 2850 } 2851 break; 2852 case 'F': 2853 if (memEQ(name, "DB_LOCK_DEFAULT", 15)) { 2854 /* ^ */ 2855#ifdef DB_LOCK_DEFAULT 2856 *iv_return = DB_LOCK_DEFAULT; 2857 return PERL_constant_ISIV; 2858#else 2859 return PERL_constant_NOTDEF; 2860#endif 2861 } 2862 if (memEQ(name, "DB_VERIFY_FATAL", 15)) { 2863 /* ^ */ 2864#ifdef DB_VERIFY_FATAL 2865 *iv_return = DB_VERIFY_FATAL; 2866 return PERL_constant_ISIV; 2867#else 2868 return PERL_constant_NOTDEF; 2869#endif 2870 } 2871 break; 2872 case 'G': 2873 if (memEQ(name, "DB_LOCK_UPGRADE", 15)) { 2874 /* ^ */ 2875#ifdef DB_LOCK_UPGRADE 2876 *iv_return = DB_LOCK_UPGRADE; 2877 return PERL_constant_ISIV; 2878#else 2879 return PERL_constant_NOTDEF; 2880#endif 2881 } 2882 break; 2883 case 'H': 2884 if (memEQ(name, "DB_LOCK_INHERIT", 15)) { 2885 /* ^ */ 2886#if (DB_VERSION_MAJOR > 2) || \ 2887 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 7) || \ 2888 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 7 && \ 2889 DB_VERSION_PATCH >= 1) 2890 *iv_return = DB_LOCK_INHERIT; 2891 return PERL_constant_ISIV; 2892#else 2893 return PERL_constant_NOTDEF; 2894#endif 2895 } 2896 if (memEQ(name, "DB_MUTEX_THREAD", 15)) { 2897 /* ^ */ 2898#ifdef DB_MUTEX_THREAD 2899 *iv_return = DB_MUTEX_THREAD; 2900 return PERL_constant_ISIV; 2901#else 2902 return PERL_constant_NOTDEF; 2903#endif 2904 } 2905 break; 2906 case 'I': 2907 if (memEQ(name, "DB_ENV_PANIC_OK", 15)) { 2908 /* ^ */ 2909#ifdef DB_ENV_PANIC_OK 2910 *iv_return = DB_ENV_PANIC_OK; 2911 return PERL_constant_ISIV; 2912#else 2913 return PERL_constant_NOTDEF; 2914#endif 2915 } 2916 break; 2917 case 'K': 2918 if (memEQ(name, "DB_ENV_LOCKDOWN", 15)) { 2919 /* ^ */ 2920#ifdef DB_ENV_LOCKDOWN 2921 *iv_return = DB_ENV_LOCKDOWN; 2922 return PERL_constant_ISIV; 2923#else 2924 return PERL_constant_NOTDEF; 2925#endif 2926 } 2927 if (memEQ(name, "DB_ORDERCHKONLY", 15)) { 2928 /* ^ */ 2929#ifdef DB_ORDERCHKONLY 2930 *iv_return = DB_ORDERCHKONLY; 2931 return PERL_constant_ISIV; 2932#else 2933 return PERL_constant_NOTDEF; 2934#endif 2935 } 2936 if (memEQ(name, "DB_TXN_LOCK_2PL", 15)) { 2937 /* ^ */ 2938#ifdef DB_TXN_LOCK_2PL 2939 *iv_return = DB_TXN_LOCK_2PL; 2940 return PERL_constant_ISIV; 2941#else 2942 return PERL_constant_NOTDEF; 2943#endif 2944 } 2945 break; 2946 case 'L': 2947 if (memEQ(name, "DB_ENV_YIELDCPU", 15)) { 2948 /* ^ */ 2949#ifdef DB_ENV_YIELDCPU 2950 *iv_return = DB_ENV_YIELDCPU; 2951 return PERL_constant_ISIV; 2952#else 2953 return PERL_constant_NOTDEF; 2954#endif 2955 } 2956 if (memEQ(name, "DB_IGNORE_LEASE", 15)) { 2957 /* ^ */ 2958#ifdef DB_IGNORE_LEASE 2959 *iv_return = DB_IGNORE_LEASE; 2960 return PERL_constant_ISIV; 2961#else 2962 return PERL_constant_NOTDEF; 2963#endif 2964 } 2965 if (memEQ(name, "DB_VERB_FILEOPS", 15)) { 2966 /* ^ */ 2967#ifdef DB_VERB_FILEOPS 2968 *iv_return = DB_VERB_FILEOPS; 2969 return PERL_constant_ISIV; 2970#else 2971 return PERL_constant_NOTDEF; 2972#endif 2973 } 2974 break; 2975 case 'M': 2976 if (memEQ(name, "DB_LOCK_TIMEOUT", 15)) { 2977 /* ^ */ 2978#if (DB_VERSION_MAJOR > 4) || \ 2979 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \ 2980 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \ 2981 DB_VERSION_PATCH >= 14) 2982 *iv_return = DB_LOCK_TIMEOUT; 2983 return PERL_constant_ISIV; 2984#else 2985 return PERL_constant_NOTDEF; 2986#endif 2987 } 2988 if (memEQ(name, "DB_REGION_MAGIC", 15)) { 2989 /* ^ */ 2990#ifdef DB_REGION_MAGIC 2991 *iv_return = DB_REGION_MAGIC; 2992 return PERL_constant_ISIV; 2993#else 2994 return PERL_constant_NOTDEF; 2995#endif 2996 } 2997 break; 2998 case 'N': 2999 if (memEQ(name, "DB_ENV_DSYNC_DB", 15)) { 3000 /* ^ */ 3001#ifdef DB_ENV_DSYNC_DB 3002 *iv_return = DB_ENV_DSYNC_DB; 3003 return PERL_constant_ISIV; 3004#else 3005 return PERL_constant_NOTDEF; 3006#endif 3007 } 3008 if (memEQ(name, "DB_MPOOL_UNLINK", 15)) { 3009 /* ^ */ 3010#ifdef DB_MPOOL_UNLINK 3011 *iv_return = DB_MPOOL_UNLINK; 3012 return PERL_constant_ISIV; 3013#else 3014 return PERL_constant_NOTDEF; 3015#endif 3016 } 3017 break; 3018 case 'O': 3019 if (memEQ(name, "DB_APPLY_LOGREG", 15)) { 3020 /* ^ */ 3021#ifdef DB_APPLY_LOGREG 3022 *iv_return = DB_APPLY_LOGREG; 3023 return PERL_constant_ISIV; 3024#else 3025 return PERL_constant_NOTDEF; 3026#endif 3027 } 3028 if (memEQ(name, "DB_LOG_WRNOSYNC", 15)) { 3029 /* ^ */ 3030#ifdef DB_LOG_WRNOSYNC 3031 *iv_return = DB_LOG_WRNOSYNC; 3032 return PERL_constant_ISIV; 3033#else 3034 return PERL_constant_NOTDEF; 3035#endif 3036 } 3037 if (memEQ(name, "DB_MPOOL_NOFILE", 15)) { 3038 /* ^ */ 3039#ifdef DB_MPOOL_NOFILE 3040 *iv_return = DB_MPOOL_NOFILE; 3041 return PERL_constant_ISIV; 3042#else 3043 return PERL_constant_NOTDEF; 3044#endif 3045 } 3046 if (memEQ(name, "DB_MPOOL_NOLOCK", 15)) { 3047 /* ^ */ 3048#ifdef DB_MPOOL_NOLOCK 3049 *iv_return = DB_MPOOL_NOLOCK; 3050 return PERL_constant_ISIV; 3051#else 3052 return PERL_constant_NOTDEF; 3053#endif 3054 } 3055 if (memEQ(name, "DB_MUTEX_LOCKED", 15)) { 3056 /* ^ */ 3057#ifdef DB_MUTEX_LOCKED 3058 *iv_return = DB_MUTEX_LOCKED; 3059 return PERL_constant_ISIV; 3060#else 3061 return PERL_constant_NOTDEF; 3062#endif 3063 } 3064 break; 3065 case 'P': 3066 if (memEQ(name, "DB_TXN_SNAPSHOT", 15)) { 3067 /* ^ */ 3068#ifdef DB_TXN_SNAPSHOT 3069 *iv_return = DB_TXN_SNAPSHOT; 3070 return PERL_constant_ISIV; 3071#else 3072 return PERL_constant_NOTDEF; 3073#endif 3074 } 3075 break; 3076 case 'R': 3077 if (memEQ(name, "DB_BTREEVERSION", 15)) { 3078 /* ^ */ 3079#ifdef DB_BTREEVERSION 3080 *iv_return = DB_BTREEVERSION; 3081 return PERL_constant_ISIV; 3082#else 3083 return PERL_constant_NOTDEF; 3084#endif 3085 } 3086 if (memEQ(name, "DB_MPOOL_CREATE", 15)) { 3087 /* ^ */ 3088#ifdef DB_MPOOL_CREATE 3089 *iv_return = DB_MPOOL_CREATE; 3090 return PERL_constant_ISIV; 3091#else 3092 return PERL_constant_NOTDEF; 3093#endif 3094 } 3095 if (memEQ(name, "DB_MULTIVERSION", 15)) { 3096 /* ^ */ 3097#ifdef DB_MULTIVERSION 3098 *iv_return = DB_MULTIVERSION; 3099 return PERL_constant_ISIV; 3100#else 3101 return PERL_constant_NOTDEF; 3102#endif 3103 } 3104 if (memEQ(name, "DB_REP_LOGREADY", 15)) { 3105 /* ^ */ 3106#ifdef DB_REP_LOGREADY 3107 *iv_return = DB_REP_LOGREADY; 3108 return PERL_constant_ISIV; 3109#else 3110 return PERL_constant_NOTDEF; 3111#endif 3112 } 3113 break; 3114 case 'S': 3115 if (memEQ(name, "DB_BUFFER_SMALL", 15)) { 3116 /* ^ */ 3117#ifdef DB_BUFFER_SMALL 3118 *iv_return = DB_BUFFER_SMALL; 3119 return PERL_constant_ISIV; 3120#else 3121 return PERL_constant_NOTDEF; 3122#endif 3123 } 3124 if (memEQ(name, "DB_REP_LOGSONLY", 15)) { 3125 /* ^ */ 3126#ifdef DB_REP_LOGSONLY 3127 *iv_return = DB_REP_LOGSONLY; 3128 return PERL_constant_ISIV; 3129#else 3130 return PERL_constant_NOTDEF; 3131#endif 3132 } 3133 if (memEQ(name, "DB_TEST_POSTLOG", 15)) { 3134 /* ^ */ 3135#ifdef DB_TEST_POSTLOG 3136 *iv_return = DB_TEST_POSTLOG; 3137 return PERL_constant_ISIV; 3138#else 3139 return PERL_constant_NOTDEF; 3140#endif 3141 } 3142 break; 3143 case 'T': 3144 if (memEQ(name, "DB_LOCK_NOTHELD", 15)) { 3145 /* ^ */ 3146#ifdef DB_LOCK_NOTHELD 3147 *iv_return = DB_LOCK_NOTHELD; 3148 return PERL_constant_ISIV; 3149#else 3150 return PERL_constant_NOTDEF; 3151#endif 3152 } 3153 if (memEQ(name, "DB_LOCK_PUT_ALL", 15)) { 3154 /* ^ */ 3155#if (DB_VERSION_MAJOR > 2) || \ 3156 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \ 3157 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \ 3158 DB_VERSION_PATCH >= 3) 3159 *iv_return = DB_LOCK_PUT_ALL; 3160 return PERL_constant_ISIV; 3161#else 3162 return PERL_constant_NOTDEF; 3163#endif 3164 } 3165 if (memEQ(name, "DB_LOCK_PUT_OBJ", 15)) { 3166 /* ^ */ 3167#if (DB_VERSION_MAJOR > 2) || \ 3168 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \ 3169 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \ 3170 DB_VERSION_PATCH >= 3) 3171 *iv_return = DB_LOCK_PUT_OBJ; 3172 return PERL_constant_ISIV; 3173#else 3174 return PERL_constant_NOTDEF; 3175#endif 3176 } 3177 break; 3178 case 'U': 3179 if (memEQ(name, "DB_REP_NOBUFFER", 15)) { 3180 /* ^ */ 3181#ifdef DB_REP_NOBUFFER 3182 *iv_return = DB_REP_NOBUFFER; 3183 return PERL_constant_ISIV; 3184#else 3185 return PERL_constant_NOTDEF; 3186#endif 3187 } 3188 break; 3189 case 'W': 3190 if (memEQ(name, "DB_REP_ANYWHERE", 15)) { 3191 /* ^ */ 3192#ifdef DB_REP_ANYWHERE 3193 *iv_return = DB_REP_ANYWHERE; 3194 return PERL_constant_ISIV; 3195#else 3196 return PERL_constant_NOTDEF; 3197#endif 3198 } 3199 break; 3200 case 'X': 3201 if (memEQ(name, "DB_MPOOL_EXTENT", 15)) { 3202 /* ^ */ 3203#ifdef DB_MPOOL_EXTENT 3204 *iv_return = DB_MPOOL_EXTENT; 3205 return PERL_constant_ISIV; 3206#else 3207 return PERL_constant_NOTDEF; 3208#endif 3209 } 3210 break; 3211 case 'Y': 3212 if (memEQ(name, "DB_PRIORITY_LOW", 15)) { 3213 /* ^ */ 3214#if (DB_VERSION_MAJOR > 4) || \ 3215 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \ 3216 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \ 3217 DB_VERSION_PATCH >= 24) 3218 *iv_return = DB_PRIORITY_LOW; 3219 return PERL_constant_ISIV; 3220#else 3221 return PERL_constant_NOTDEF; 3222#endif 3223 } 3224 break; 3225 case '_': 3226 if (memEQ(name, "DB_CONSUME_WAIT", 15)) { 3227 /* ^ */ 3228#ifdef DB_CONSUME_WAIT 3229 *iv_return = DB_CONSUME_WAIT; 3230 return PERL_constant_ISIV; 3231#else 3232 return PERL_constant_NOTDEF; 3233#endif 3234 } 3235 if (memEQ(name, "DB_OPFLAGS_MASK", 15)) { 3236 /* ^ */ 3237#ifdef DB_OPFLAGS_MASK 3238 *iv_return = DB_OPFLAGS_MASK; 3239 return PERL_constant_ISIV; 3240#else 3241 return PERL_constant_NOTDEF; 3242#endif 3243 } 3244 if (memEQ(name, "DB_ST_OVFL_LEAF", 15)) { 3245 /* ^ */ 3246#ifdef DB_ST_OVFL_LEAF 3247 *iv_return = DB_ST_OVFL_LEAF; 3248 return PERL_constant_ISIV; 3249#else 3250 return PERL_constant_NOTDEF; 3251#endif 3252 } 3253 if (memEQ(name, "DB_TXN_LOG_MASK", 15)) { 3254 /* ^ */ 3255#ifdef DB_TXN_LOG_MASK 3256 *iv_return = DB_TXN_LOG_MASK; 3257 return PERL_constant_ISIV; 3258#else 3259 return PERL_constant_NOTDEF; 3260#endif 3261 } 3262 if (memEQ(name, "DB_TXN_LOG_REDO", 15)) { 3263 /* ^ */ 3264#ifdef DB_TXN_LOG_REDO 3265 *iv_return = DB_TXN_LOG_REDO; 3266 return PERL_constant_ISIV; 3267#else 3268 return PERL_constant_NOTDEF; 3269#endif 3270 } 3271 if (memEQ(name, "DB_TXN_LOG_UNDO", 15)) { 3272 /* ^ */ 3273#ifdef DB_TXN_LOG_UNDO 3274 *iv_return = DB_TXN_LOG_UNDO; 3275 return PERL_constant_ISIV; 3276#else 3277 return PERL_constant_NOTDEF; 3278#endif 3279 } 3280 break; 3281 } 3282 return PERL_constant_NOTFOUND; 3283} 3284 3285static int 3286constant_16 (pTHX_ const char *name, IV *iv_return) { 3287 /* When generated this function returned values for the list of names given 3288 here. However, subsequent manual editing may have added or removed some. 3289 DB_CACHED_COUNTS DB_COMPACT_FLAGS DB_EID_BROADCAST DB_ENV_CDB_ALLDB 3290 DB_ENV_DIRECT_DB DB_ENV_DSYNC_LOG DB_ENV_NOLOCKING DB_ENV_OVERWRITE 3291 DB_ENV_RPCCLIENT DB_FCNTL_LOCKING DB_FOREIGN_ABORT DB_FREELIST_ONLY 3292 DB_IMMUTABLE_KEY DB_JAVA_CALLBACK DB_LOCK_CONFLICT DB_LOCK_DEADLOCK 3293 DB_LOCK_MAXLOCKS DB_LOCK_MAXWRITE DB_LOCK_MINLOCKS DB_LOCK_MINWRITE 3294 DB_LOCK_NOTEXIST DB_LOCK_PUT_READ DB_LOCK_YOUNGEST DB_LOGC_BUF_SIZE 3295 DB_LOG_IN_MEMORY DB_MPOOL_DISCARD DB_MPOOL_PRIVATE DB_NOSERVER_HOME 3296 DB_PAGE_NOTFOUND DB_PRIORITY_HIGH DB_RECOVER_FATAL DB_REPFLAGS_MASK 3297 DB_REP_CONF_BULK DB_REP_DUPMASTER DB_REP_NEWMASTER DB_REP_PERMANENT 3298 DB_REP_REREQUEST DB_SECONDARY_BAD DB_SEQ_RANGE_SET DB_TEST_POSTOPEN 3299 DB_TEST_POSTSYNC DB_TXN_LOCK_MASK DB_TXN_OPENFILES DB_VERB_CHKPOINT 3300 DB_VERB_DEADLOCK DB_VERB_RECOVERY DB_VERB_REGISTER DB_VERB_REP_MISC 3301 DB_VERB_REP_MSGS DB_VERB_REP_SYNC DB_VERB_WAITSFOR DB_VERSION_MAJOR 3302 DB_VERSION_MINOR DB_VERSION_PATCH DB_VRFY_FLAGMASK */ 3303 /* Offset 10 gives the best switch position. */ 3304 switch (name[10]) { 3305 case 'A': 3306 if (memEQ(name, "DB_EID_BROADCAST", 16)) { 3307 /* ^ */ 3308#ifdef DB_EID_BROADCAST 3309 *iv_return = DB_EID_BROADCAST; 3310 return PERL_constant_ISIV; 3311#else 3312 return PERL_constant_NOTDEF; 3313#endif 3314 } 3315 if (memEQ(name, "DB_LOCK_DEADLOCK", 16)) { 3316 /* ^ */ 3317#ifdef DB_LOCK_DEADLOCK 3318 *iv_return = DB_LOCK_DEADLOCK; 3319 return PERL_constant_ISIV; 3320#else 3321 return PERL_constant_NOTDEF; 3322#endif 3323 } 3324 if (memEQ(name, "DB_VERB_DEADLOCK", 16)) { 3325 /* ^ */ 3326#ifdef DB_VERB_DEADLOCK 3327 *iv_return = DB_VERB_DEADLOCK; 3328 return PERL_constant_ISIV; 3329#else 3330 return PERL_constant_NOTDEF; 3331#endif 3332 } 3333 if (memEQ(name, "DB_VRFY_FLAGMASK", 16)) { 3334 /* ^ */ 3335#ifdef DB_VRFY_FLAGMASK 3336 *iv_return = DB_VRFY_FLAGMASK; 3337 return PERL_constant_ISIV; 3338#else 3339 return PERL_constant_NOTDEF; 3340#endif 3341 } 3342 break; 3343 case 'C': 3344 if (memEQ(name, "DB_CACHED_COUNTS", 16)) { 3345 /* ^ */ 3346#ifdef DB_CACHED_COUNTS 3347 *iv_return = DB_CACHED_COUNTS; 3348 return PERL_constant_ISIV; 3349#else 3350 return PERL_constant_NOTDEF; 3351#endif 3352 } 3353 if (memEQ(name, "DB_ENV_RPCCLIENT", 16)) { 3354 /* ^ */ 3355#ifdef DB_ENV_RPCCLIENT 3356 *iv_return = DB_ENV_RPCCLIENT; 3357 return PERL_constant_ISIV; 3358#else 3359 return PERL_constant_NOTDEF; 3360#endif 3361 } 3362 if (memEQ(name, "DB_VERB_RECOVERY", 16)) { 3363 /* ^ */ 3364#ifdef DB_VERB_RECOVERY 3365 *iv_return = DB_VERB_RECOVERY; 3366 return PERL_constant_ISIV; 3367#else 3368 return PERL_constant_NOTDEF; 3369#endif 3370 } 3371 break; 3372 case 'E': 3373 if (memEQ(name, "DB_ENV_DIRECT_DB", 16)) { 3374 /* ^ */ 3375#ifdef DB_ENV_DIRECT_DB 3376 *iv_return = DB_ENV_DIRECT_DB; 3377 return PERL_constant_ISIV; 3378#else 3379 return PERL_constant_NOTDEF; 3380#endif 3381 } 3382 if (memEQ(name, "DB_REP_REREQUEST", 16)) { 3383 /* ^ */ 3384#ifdef DB_REP_REREQUEST 3385 *iv_return = DB_REP_REREQUEST; 3386 return PERL_constant_ISIV; 3387#else 3388 return PERL_constant_NOTDEF; 3389#endif 3390 } 3391 break; 3392 case 'F': 3393 if (memEQ(name, "DB_LOGC_BUF_SIZE", 16)) { 3394 /* ^ */ 3395#ifdef DB_LOGC_BUF_SIZE 3396 *iv_return = DB_LOGC_BUF_SIZE; 3397 return PERL_constant_ISIV; 3398#else 3399 return PERL_constant_NOTDEF; 3400#endif 3401 } 3402 if (memEQ(name, "DB_REP_CONF_BULK", 16)) { 3403 /* ^ */ 3404#ifdef DB_REP_CONF_BULK 3405 *iv_return = DB_REP_CONF_BULK; 3406 return PERL_constant_ISIV; 3407#else 3408 return PERL_constant_NOTDEF; 3409#endif 3410 } 3411 break; 3412 case 'G': 3413 if (memEQ(name, "DB_SEQ_RANGE_SET", 16)) { 3414 /* ^ */ 3415#ifdef DB_SEQ_RANGE_SET 3416 *iv_return = DB_SEQ_RANGE_SET; 3417 return PERL_constant_ISIV; 3418#else 3419 return PERL_constant_NOTDEF; 3420#endif 3421 } 3422 if (memEQ(name, "DB_VERB_REGISTER", 16)) { 3423 /* ^ */ 3424#ifdef DB_VERB_REGISTER 3425 *iv_return = DB_VERB_REGISTER; 3426 return PERL_constant_ISIV; 3427#else 3428 return PERL_constant_NOTDEF; 3429#endif 3430 } 3431 break; 3432 case 'I': 3433 if (memEQ(name, "DB_MPOOL_DISCARD", 16)) { 3434 /* ^ */ 3435#ifdef DB_MPOOL_DISCARD 3436 *iv_return = DB_MPOOL_DISCARD; 3437 return PERL_constant_ISIV; 3438#else 3439 return PERL_constant_NOTDEF; 3440#endif 3441 } 3442 if (memEQ(name, "DB_VERB_WAITSFOR", 16)) { 3443 /* ^ */ 3444#ifdef DB_VERB_WAITSFOR 3445 *iv_return = DB_VERB_WAITSFOR; 3446 return PERL_constant_ISIV; 3447#else 3448 return PERL_constant_NOTDEF; 3449#endif 3450 } 3451 break; 3452 case 'K': 3453 if (memEQ(name, "DB_TXN_LOCK_MASK", 16)) { 3454 /* ^ */ 3455#ifdef DB_TXN_LOCK_MASK 3456 *iv_return = DB_TXN_LOCK_MASK; 3457 return PERL_constant_ISIV; 3458#else 3459 return PERL_constant_NOTDEF; 3460#endif 3461 } 3462 if (memEQ(name, "DB_VERB_CHKPOINT", 16)) { 3463 /* ^ */ 3464#ifdef DB_VERB_CHKPOINT 3465 *iv_return = DB_VERB_CHKPOINT; 3466 return PERL_constant_ISIV; 3467#else 3468 return PERL_constant_NOTDEF; 3469#endif 3470 } 3471 break; 3472 case 'L': 3473 if (memEQ(name, "DB_IMMUTABLE_KEY", 16)) { 3474 /* ^ */ 3475#ifdef DB_IMMUTABLE_KEY 3476 *iv_return = DB_IMMUTABLE_KEY; 3477 return PERL_constant_ISIV; 3478#else 3479 return PERL_constant_NOTDEF; 3480#endif 3481 } 3482 if (memEQ(name, "DB_JAVA_CALLBACK", 16)) { 3483 /* ^ */ 3484#ifdef DB_JAVA_CALLBACK 3485 *iv_return = DB_JAVA_CALLBACK; 3486 return PERL_constant_ISIV; 3487#else 3488 return PERL_constant_NOTDEF; 3489#endif 3490 } 3491 break; 3492 case 'M': 3493 if (memEQ(name, "DB_LOG_IN_MEMORY", 16)) { 3494 /* ^ */ 3495#ifdef DB_LOG_IN_MEMORY 3496 *iv_return = DB_LOG_IN_MEMORY; 3497 return PERL_constant_ISIV; 3498#else 3499 return PERL_constant_NOTDEF; 3500#endif 3501 } 3502 if (memEQ(name, "DB_REP_DUPMASTER", 16)) { 3503 /* ^ */ 3504#ifdef DB_REP_DUPMASTER 3505 *iv_return = DB_REP_DUPMASTER; 3506 return PERL_constant_ISIV; 3507#else 3508 return PERL_constant_NOTDEF; 3509#endif 3510 } 3511 if (memEQ(name, "DB_REP_NEWMASTER", 16)) { 3512 /* ^ */ 3513#ifdef DB_REP_NEWMASTER 3514 *iv_return = DB_REP_NEWMASTER; 3515 return PERL_constant_ISIV; 3516#else 3517 return PERL_constant_NOTDEF; 3518#endif 3519 } 3520 if (memEQ(name, "DB_REP_PERMANENT", 16)) { 3521 /* ^ */ 3522#ifdef DB_REP_PERMANENT 3523 *iv_return = DB_REP_PERMANENT; 3524 return PERL_constant_ISIV; 3525#else 3526 return PERL_constant_NOTDEF; 3527#endif 3528 } 3529 break; 3530 case 'N': 3531 if (memEQ(name, "DB_ENV_DSYNC_LOG", 16)) { 3532 /* ^ */ 3533#ifdef DB_ENV_DSYNC_LOG 3534 *iv_return = DB_ENV_DSYNC_LOG; 3535 return PERL_constant_ISIV; 3536#else 3537 return PERL_constant_NOTDEF; 3538#endif 3539 } 3540 if (memEQ(name, "DB_LOCK_CONFLICT", 16)) { 3541 /* ^ */ 3542#ifdef DB_LOCK_CONFLICT 3543 *iv_return = DB_LOCK_CONFLICT; 3544 return PERL_constant_ISIV; 3545#else 3546 return PERL_constant_NOTDEF; 3547#endif 3548 } 3549 if (memEQ(name, "DB_LOCK_MINLOCKS", 16)) { 3550 /* ^ */ 3551#ifdef DB_LOCK_MINLOCKS 3552 *iv_return = DB_LOCK_MINLOCKS; 3553 return PERL_constant_ISIV; 3554#else 3555 return PERL_constant_NOTDEF; 3556#endif 3557 } 3558 if (memEQ(name, "DB_LOCK_MINWRITE", 16)) { 3559 /* ^ */ 3560#ifdef DB_LOCK_MINWRITE 3561 *iv_return = DB_LOCK_MINWRITE; 3562 return PERL_constant_ISIV; 3563#else 3564 return PERL_constant_NOTDEF; 3565#endif 3566 } 3567 if (memEQ(name, "DB_TXN_OPENFILES", 16)) { 3568 /* ^ */ 3569#if (DB_VERSION_MAJOR > 3) || \ 3570 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \ 3571 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \ 3572 DB_VERSION_PATCH >= 14) 3573 *iv_return = DB_TXN_OPENFILES; 3574 return PERL_constant_ISIV; 3575#else 3576 return PERL_constant_NOTDEF; 3577#endif 3578 } 3579 break; 3580 case 'O': 3581 if (memEQ(name, "DB_ENV_NOLOCKING", 16)) { 3582 /* ^ */ 3583#ifdef DB_ENV_NOLOCKING 3584 *iv_return = DB_ENV_NOLOCKING; 3585 return PERL_constant_ISIV; 3586#else 3587 return PERL_constant_NOTDEF; 3588#endif 3589 } 3590 if (memEQ(name, "DB_FCNTL_LOCKING", 16)) { 3591 /* ^ */ 3592#ifdef DB_FCNTL_LOCKING 3593 *iv_return = DB_FCNTL_LOCKING; 3594 return PERL_constant_ISIV; 3595#else 3596 return PERL_constant_NOTDEF; 3597#endif 3598 } 3599 break; 3600 case 'P': 3601 if (memEQ(name, "DB_VERB_REP_MISC", 16)) { 3602 /* ^ */ 3603#ifdef DB_VERB_REP_MISC 3604 *iv_return = DB_VERB_REP_MISC; 3605 return PERL_constant_ISIV; 3606#else 3607 return PERL_constant_NOTDEF; 3608#endif 3609 } 3610 if (memEQ(name, "DB_VERB_REP_MSGS", 16)) { 3611 /* ^ */ 3612#ifdef DB_VERB_REP_MSGS 3613 *iv_return = DB_VERB_REP_MSGS; 3614 return PERL_constant_ISIV; 3615#else 3616 return PERL_constant_NOTDEF; 3617#endif 3618 } 3619 if (memEQ(name, "DB_VERB_REP_SYNC", 16)) { 3620 /* ^ */ 3621#ifdef DB_VERB_REP_SYNC 3622 *iv_return = DB_VERB_REP_SYNC; 3623 return PERL_constant_ISIV; 3624#else 3625 return PERL_constant_NOTDEF; 3626#endif 3627 } 3628 break; 3629 case 'R': 3630 if (memEQ(name, "DB_ENV_OVERWRITE", 16)) { 3631 /* ^ */ 3632#ifdef DB_ENV_OVERWRITE 3633 *iv_return = DB_ENV_OVERWRITE; 3634 return PERL_constant_ISIV; 3635#else 3636 return PERL_constant_NOTDEF; 3637#endif 3638 } 3639 if (memEQ(name, "DB_MPOOL_PRIVATE", 16)) { 3640 /* ^ */ 3641#ifdef DB_MPOOL_PRIVATE 3642 *iv_return = DB_MPOOL_PRIVATE; 3643 return PERL_constant_ISIV; 3644#else 3645 return PERL_constant_NOTDEF; 3646#endif 3647 } 3648 if (memEQ(name, "DB_NOSERVER_HOME", 16)) { 3649 /* ^ */ 3650#ifdef DB_NOSERVER_HOME 3651 *iv_return = DB_NOSERVER_HOME; 3652 return PERL_constant_ISIV; 3653#else 3654 return PERL_constant_NOTDEF; 3655#endif 3656 } 3657 if (memEQ(name, "DB_SECONDARY_BAD", 16)) { 3658 /* ^ */ 3659#ifdef DB_SECONDARY_BAD 3660 *iv_return = DB_SECONDARY_BAD; 3661 return PERL_constant_ISIV; 3662#else 3663 return PERL_constant_NOTDEF; 3664#endif 3665 } 3666 break; 3667 case 'S': 3668 if (memEQ(name, "DB_REPFLAGS_MASK", 16)) { 3669 /* ^ */ 3670#ifdef DB_REPFLAGS_MASK 3671 *iv_return = DB_REPFLAGS_MASK; 3672 return PERL_constant_ISIV; 3673#else 3674 return PERL_constant_NOTDEF; 3675#endif 3676 } 3677 if (memEQ(name, "DB_TEST_POSTOPEN", 16)) { 3678 /* ^ */ 3679#ifdef DB_TEST_POSTOPEN 3680 *iv_return = DB_TEST_POSTOPEN; 3681 return PERL_constant_ISIV; 3682#else 3683 return PERL_constant_NOTDEF; 3684#endif 3685 } 3686 if (memEQ(name, "DB_TEST_POSTSYNC", 16)) { 3687 /* ^ */ 3688#ifdef DB_TEST_POSTSYNC 3689 *iv_return = DB_TEST_POSTSYNC; 3690 return PERL_constant_ISIV; 3691#else 3692 return PERL_constant_NOTDEF; 3693#endif 3694 } 3695 break; 3696 case 'T': 3697 if (memEQ(name, "DB_FREELIST_ONLY", 16)) { 3698 /* ^ */ 3699#ifdef DB_FREELIST_ONLY 3700 *iv_return = DB_FREELIST_ONLY; 3701 return PERL_constant_ISIV; 3702#else 3703 return PERL_constant_NOTDEF; 3704#endif 3705 } 3706 if (memEQ(name, "DB_LOCK_NOTEXIST", 16)) { 3707 /* ^ */ 3708#ifdef DB_LOCK_NOTEXIST 3709 *iv_return = DB_LOCK_NOTEXIST; 3710 return PERL_constant_ISIV; 3711#else 3712 return PERL_constant_NOTDEF; 3713#endif 3714 } 3715 if (memEQ(name, "DB_LOCK_PUT_READ", 16)) { 3716 /* ^ */ 3717#if (DB_VERSION_MAJOR > 4) || \ 3718 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \ 3719 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \ 3720 DB_VERSION_PATCH >= 14) 3721 *iv_return = DB_LOCK_PUT_READ; 3722 return PERL_constant_ISIV; 3723#else 3724 return PERL_constant_NOTDEF; 3725#endif 3726 } 3727 if (memEQ(name, "DB_PAGE_NOTFOUND", 16)) { 3728 /* ^ */ 3729#ifdef DB_PAGE_NOTFOUND 3730 *iv_return = DB_PAGE_NOTFOUND; 3731 return PERL_constant_ISIV; 3732#else 3733 return PERL_constant_NOTDEF; 3734#endif 3735 } 3736 break; 3737 case 'U': 3738 if (memEQ(name, "DB_LOCK_YOUNGEST", 16)) { 3739 /* ^ */ 3740#ifdef DB_LOCK_YOUNGEST 3741 *iv_return = DB_LOCK_YOUNGEST; 3742 return PERL_constant_ISIV; 3743#else 3744 return PERL_constant_NOTDEF; 3745#endif 3746 } 3747 break; 3748 case 'X': 3749 if (memEQ(name, "DB_LOCK_MAXLOCKS", 16)) { 3750 /* ^ */ 3751#ifdef DB_LOCK_MAXLOCKS 3752 *iv_return = DB_LOCK_MAXLOCKS; 3753 return PERL_constant_ISIV; 3754#else 3755 return PERL_constant_NOTDEF; 3756#endif 3757 } 3758 if (memEQ(name, "DB_LOCK_MAXWRITE", 16)) { 3759 /* ^ */ 3760#ifdef DB_LOCK_MAXWRITE 3761 *iv_return = DB_LOCK_MAXWRITE; 3762 return PERL_constant_ISIV; 3763#else 3764 return PERL_constant_NOTDEF; 3765#endif 3766 } 3767 break; 3768 case 'Y': 3769 if (memEQ(name, "DB_PRIORITY_HIGH", 16)) { 3770 /* ^ */ 3771#if (DB_VERSION_MAJOR > 4) || \ 3772 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \ 3773 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \ 3774 DB_VERSION_PATCH >= 24) 3775 *iv_return = DB_PRIORITY_HIGH; 3776 return PERL_constant_ISIV; 3777#else 3778 return PERL_constant_NOTDEF; 3779#endif 3780 } 3781 break; 3782 case '_': 3783 if (memEQ(name, "DB_COMPACT_FLAGS", 16)) { 3784 /* ^ */ 3785#ifdef DB_COMPACT_FLAGS 3786 *iv_return = DB_COMPACT_FLAGS; 3787 return PERL_constant_ISIV; 3788#else 3789 return PERL_constant_NOTDEF; 3790#endif 3791 } 3792 if (memEQ(name, "DB_ENV_CDB_ALLDB", 16)) { 3793 /* ^ */ 3794#ifdef DB_ENV_CDB_ALLDB 3795 *iv_return = DB_ENV_CDB_ALLDB; 3796 return PERL_constant_ISIV; 3797#else 3798 return PERL_constant_NOTDEF; 3799#endif 3800 } 3801 if (memEQ(name, "DB_FOREIGN_ABORT", 16)) { 3802 /* ^ */ 3803#ifdef DB_FOREIGN_ABORT 3804 *iv_return = DB_FOREIGN_ABORT; 3805 return PERL_constant_ISIV; 3806#else 3807 return PERL_constant_NOTDEF; 3808#endif 3809 } 3810 if (memEQ(name, "DB_RECOVER_FATAL", 16)) { 3811 /* ^ */ 3812#ifdef DB_RECOVER_FATAL 3813 *iv_return = DB_RECOVER_FATAL; 3814 return PERL_constant_ISIV; 3815#else 3816 return PERL_constant_NOTDEF; 3817#endif 3818 } 3819 if (memEQ(name, "DB_VERSION_MAJOR", 16)) { 3820 /* ^ */ 3821#ifdef DB_VERSION_MAJOR 3822 *iv_return = DB_VERSION_MAJOR; 3823 return PERL_constant_ISIV; 3824#else 3825 return PERL_constant_NOTDEF; 3826#endif 3827 } 3828 if (memEQ(name, "DB_VERSION_MINOR", 16)) { 3829 /* ^ */ 3830#ifdef DB_VERSION_MINOR 3831 *iv_return = DB_VERSION_MINOR; 3832 return PERL_constant_ISIV; 3833#else 3834 return PERL_constant_NOTDEF; 3835#endif 3836 } 3837 if (memEQ(name, "DB_VERSION_PATCH", 16)) { 3838 /* ^ */ 3839#ifdef DB_VERSION_PATCH 3840 *iv_return = DB_VERSION_PATCH; 3841 return PERL_constant_ISIV; 3842#else 3843 return PERL_constant_NOTDEF; 3844#endif 3845 } 3846 break; 3847 } 3848 return PERL_constant_NOTFOUND; 3849} 3850 3851static int 3852constant_17 (pTHX_ const char *name, IV *iv_return, const char **pv_return) { 3853 /* When generated this function returned values for the list of names given 3854 here. However, subsequent manual editing may have added or removed some. 3855 DB_ENV_DIRECT_LOG DB_ENV_REP_CLIENT DB_ENV_REP_MASTER DB_ENV_STANDALONE 3856 DB_ENV_SYSTEM_MEM DB_ENV_TXN_NOSYNC DB_ENV_TXN_NOWAIT DB_ENV_USER_ALLOC 3857 DB_GET_BOTH_RANGE DB_LOG_AUTOREMOVE DB_LOG_SILENT_ERR DB_NO_AUTO_COMMIT 3858 DB_READ_COMMITTED DB_REP_CONF_LEASE DB_RPC_SERVERPROG DB_RPC_SERVERVERS 3859 DB_STAT_LOCK_CONF DB_STAT_MEMP_HASH DB_STAT_SUBSYSTEM DB_TEST_ELECTINIT 3860 DB_TEST_ELECTSEND DB_TEST_PRERENAME DB_TXN_POPENFILES DB_VERB_REP_ELECT 3861 DB_VERB_REP_LEASE DB_VERSION_STRING */ 3862 /* Offset 13 gives the best switch position. */ 3863 switch (name[13]) { 3864 case 'A': 3865 if (memEQ(name, "DB_GET_BOTH_RANGE", 17)) { 3866 /* ^ */ 3867#ifdef DB_GET_BOTH_RANGE 3868 *iv_return = DB_GET_BOTH_RANGE; 3869 return PERL_constant_ISIV; 3870#else 3871 return PERL_constant_NOTDEF; 3872#endif 3873 } 3874 break; 3875 case 'C': 3876 if (memEQ(name, "DB_STAT_LOCK_CONF", 17)) { 3877 /* ^ */ 3878#ifdef DB_STAT_LOCK_CONF 3879 *iv_return = DB_STAT_LOCK_CONF; 3880 return PERL_constant_ISIV; 3881#else 3882 return PERL_constant_NOTDEF; 3883#endif 3884 } 3885 break; 3886 case 'E': 3887 if (memEQ(name, "DB_REP_CONF_LEASE", 17)) { 3888 /* ^ */ 3889#ifdef DB_REP_CONF_LEASE 3890 *iv_return = DB_REP_CONF_LEASE; 3891 return PERL_constant_ISIV; 3892#else 3893 return PERL_constant_NOTDEF; 3894#endif 3895 } 3896 if (memEQ(name, "DB_VERB_REP_LEASE", 17)) { 3897 /* ^ */ 3898#ifdef DB_VERB_REP_LEASE 3899 *iv_return = DB_VERB_REP_LEASE; 3900 return PERL_constant_ISIV; 3901#else 3902 return PERL_constant_NOTDEF; 3903#endif 3904 } 3905 break; 3906 case 'H': 3907 if (memEQ(name, "DB_STAT_MEMP_HASH", 17)) { 3908 /* ^ */ 3909#ifdef DB_STAT_MEMP_HASH 3910 *iv_return = DB_STAT_MEMP_HASH; 3911 return PERL_constant_ISIV; 3912#else 3913 return PERL_constant_NOTDEF; 3914#endif 3915 } 3916 break; 3917 case 'I': 3918 if (memEQ(name, "DB_ENV_REP_CLIENT", 17)) { 3919 /* ^ */ 3920#ifdef DB_ENV_REP_CLIENT 3921 *iv_return = DB_ENV_REP_CLIENT; 3922 return PERL_constant_ISIV; 3923#else 3924 return PERL_constant_NOTDEF; 3925#endif 3926 } 3927 if (memEQ(name, "DB_TEST_ELECTINIT", 17)) { 3928 /* ^ */ 3929#ifdef DB_TEST_ELECTINIT 3930 *iv_return = DB_TEST_ELECTINIT; 3931 return PERL_constant_ISIV; 3932#else 3933 return PERL_constant_NOTDEF; 3934#endif 3935 } 3936 if (memEQ(name, "DB_TXN_POPENFILES", 17)) { 3937 /* ^ */ 3938#if (DB_VERSION_MAJOR > 3) || \ 3939 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 3) || \ 3940 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 3 && \ 3941 DB_VERSION_PATCH >= 11) 3942 *iv_return = DB_TXN_POPENFILES; 3943 return PERL_constant_ISIV; 3944#else 3945 return PERL_constant_NOTDEF; 3946#endif 3947 } 3948 break; 3949 case 'L': 3950 if (memEQ(name, "DB_ENV_STANDALONE", 17)) { 3951 /* ^ */ 3952#ifdef DB_ENV_STANDALONE 3953 *iv_return = DB_ENV_STANDALONE; 3954 return PERL_constant_ISIV; 3955#else 3956 return PERL_constant_NOTDEF; 3957#endif 3958 } 3959 if (memEQ(name, "DB_ENV_USER_ALLOC", 17)) { 3960 /* ^ */ 3961#ifdef DB_ENV_USER_ALLOC 3962 *iv_return = DB_ENV_USER_ALLOC; 3963 return PERL_constant_ISIV; 3964#else 3965 return PERL_constant_NOTDEF; 3966#endif 3967 } 3968 if (memEQ(name, "DB_VERB_REP_ELECT", 17)) { 3969 /* ^ */ 3970#ifdef DB_VERB_REP_ELECT 3971 *iv_return = DB_VERB_REP_ELECT; 3972 return PERL_constant_ISIV; 3973#else 3974 return PERL_constant_NOTDEF; 3975#endif 3976 } 3977 break; 3978 case 'M': 3979 if (memEQ(name, "DB_LOG_AUTOREMOVE", 17)) { 3980 /* ^ */ 3981#ifdef DB_LOG_AUTOREMOVE 3982 *iv_return = DB_LOG_AUTOREMOVE; 3983 return PERL_constant_ISIV; 3984#else 3985 return PERL_constant_NOTDEF; 3986#endif 3987 } 3988 if (memEQ(name, "DB_NO_AUTO_COMMIT", 17)) { 3989 /* ^ */ 3990#ifdef DB_NO_AUTO_COMMIT 3991 *iv_return = DB_NO_AUTO_COMMIT; 3992 return PERL_constant_ISIV; 3993#else 3994 return PERL_constant_NOTDEF; 3995#endif 3996 } 3997 break; 3998 case 'N': 3999 if (memEQ(name, "DB_TEST_PRERENAME", 17)) { 4000 /* ^ */ 4001#ifdef DB_TEST_PRERENAME 4002 *iv_return = DB_TEST_PRERENAME; 4003 return PERL_constant_ISIV; 4004#else 4005 return PERL_constant_NOTDEF; 4006#endif 4007 } 4008 break; 4009 case 'P': 4010 if (memEQ(name, "DB_RPC_SERVERPROG", 17)) { 4011 /* ^ */ 4012#ifdef DB_RPC_SERVERPROG 4013 *iv_return = DB_RPC_SERVERPROG; 4014 return PERL_constant_ISIV; 4015#else 4016 return PERL_constant_NOTDEF; 4017#endif 4018 } 4019 break; 4020 case 'R': 4021 if (memEQ(name, "DB_VERSION_STRING", 17)) { 4022 /* ^ */ 4023#ifdef DB_VERSION_STRING 4024 *pv_return = DB_VERSION_STRING; 4025 return PERL_constant_ISPV; 4026#else 4027 return PERL_constant_NOTDEF; 4028#endif 4029 } 4030 break; 4031 case 'S': 4032 if (memEQ(name, "DB_ENV_REP_MASTER", 17)) { 4033 /* ^ */ 4034#ifdef DB_ENV_REP_MASTER 4035 *iv_return = DB_ENV_REP_MASTER; 4036 return PERL_constant_ISIV; 4037#else 4038 return PERL_constant_NOTDEF; 4039#endif 4040 } 4041 if (memEQ(name, "DB_ENV_TXN_NOSYNC", 17)) { 4042 /* ^ */ 4043#ifdef DB_ENV_TXN_NOSYNC 4044 *iv_return = DB_ENV_TXN_NOSYNC; 4045 return PERL_constant_ISIV; 4046#else 4047 return PERL_constant_NOTDEF; 4048#endif 4049 } 4050 if (memEQ(name, "DB_STAT_SUBSYSTEM", 17)) { 4051 /* ^ */ 4052#ifdef DB_STAT_SUBSYSTEM 4053 *iv_return = DB_STAT_SUBSYSTEM; 4054 return PERL_constant_ISIV; 4055#else 4056 return PERL_constant_NOTDEF; 4057#endif 4058 } 4059 if (memEQ(name, "DB_TEST_ELECTSEND", 17)) { 4060 /* ^ */ 4061#ifdef DB_TEST_ELECTSEND 4062 *iv_return = DB_TEST_ELECTSEND; 4063 return PERL_constant_ISIV; 4064#else 4065 return PERL_constant_NOTDEF; 4066#endif 4067 } 4068 break; 4069 case 'T': 4070 if (memEQ(name, "DB_READ_COMMITTED", 17)) { 4071 /* ^ */ 4072#ifdef DB_READ_COMMITTED 4073 *iv_return = DB_READ_COMMITTED; 4074 return PERL_constant_ISIV; 4075#else 4076 return PERL_constant_NOTDEF; 4077#endif 4078 } 4079 break; 4080 case 'V': 4081 if (memEQ(name, "DB_RPC_SERVERVERS", 17)) { 4082 /* ^ */ 4083#ifdef DB_RPC_SERVERVERS 4084 *iv_return = DB_RPC_SERVERVERS; 4085 return PERL_constant_ISIV; 4086#else 4087 return PERL_constant_NOTDEF; 4088#endif 4089 } 4090 break; 4091 case 'W': 4092 if (memEQ(name, "DB_ENV_TXN_NOWAIT", 17)) { 4093 /* ^ */ 4094#ifdef DB_ENV_TXN_NOWAIT 4095 *iv_return = DB_ENV_TXN_NOWAIT; 4096 return PERL_constant_ISIV; 4097#else 4098 return PERL_constant_NOTDEF; 4099#endif 4100 } 4101 break; 4102 case '_': 4103 if (memEQ(name, "DB_ENV_DIRECT_LOG", 17)) { 4104 /* ^ */ 4105#ifdef DB_ENV_DIRECT_LOG 4106 *iv_return = DB_ENV_DIRECT_LOG; 4107 return PERL_constant_ISIV; 4108#else 4109 return PERL_constant_NOTDEF; 4110#endif 4111 } 4112 if (memEQ(name, "DB_ENV_SYSTEM_MEM", 17)) { 4113 /* ^ */ 4114#ifdef DB_ENV_SYSTEM_MEM 4115 *iv_return = DB_ENV_SYSTEM_MEM; 4116 return PERL_constant_ISIV; 4117#else 4118 return PERL_constant_NOTDEF; 4119#endif 4120 } 4121 if (memEQ(name, "DB_LOG_SILENT_ERR", 17)) { 4122 /* ^ */ 4123#ifdef DB_LOG_SILENT_ERR 4124 *iv_return = DB_LOG_SILENT_ERR; 4125 return PERL_constant_ISIV; 4126#else 4127 return PERL_constant_NOTDEF; 4128#endif 4129 } 4130 break; 4131 } 4132 return PERL_constant_NOTFOUND; 4133} 4134 4135static int 4136constant_18 (pTHX_ const char *name, IV *iv_return) { 4137 /* When generated this function returned values for the list of names given 4138 here. However, subsequent manual editing may have added or removed some. 4139 DB_ALREADY_ABORTED DB_DURABLE_UNKNOWN DB_ENV_AUTO_COMMIT 4140 DB_ENV_OPEN_CALLED DB_ENV_REF_COUNTED DB_ENV_REGION_INIT 4141 DB_FOREIGN_CASCADE DB_FOREIGN_NULLIFY DB_LOCK_NOTGRANTED 4142 DB_LOG_AUTO_REMOVE DB_LOG_BUFFER_FULL DB_LOG_NOT_DURABLE 4143 DB_MPOOL_NEW_GROUP DB_MUTEX_ALLOCATED DB_PR_RECOVERYTEST 4144 DB_REPMGR_ACKS_ALL DB_REPMGR_ACKS_ONE DB_REP_ACK_TIMEOUT 4145 DB_REP_CONF_NOWAIT DB_REP_HANDLE_DEAD DB_REP_STARTUPDONE 4146 DB_SA_SKIPFIRSTKEY DB_SEQUENCE_OLDVER DB_SET_TXN_TIMEOUT 4147 DB_TEST_ELECTVOTE1 DB_TEST_ELECTVOTE2 DB_TEST_ELECTWAIT1 4148 DB_TEST_ELECTWAIT2 DB_TEST_POSTRENAME DB_TEST_PREDESTROY 4149 DB_THREADID_STRLEN DB_TIME_NOTGRANTED DB_TXN_NOT_DURABLE */ 4150 /* Offset 13 gives the best switch position. */ 4151 switch (name[13]) { 4152 case 'A': 4153 if (memEQ(name, "DB_ENV_OPEN_CALLED", 18)) { 4154 /* ^ */ 4155#ifdef DB_ENV_OPEN_CALLED 4156 *iv_return = DB_ENV_OPEN_CALLED; 4157 return PERL_constant_ISIV; 4158#else 4159 return PERL_constant_NOTDEF; 4160#endif 4161 } 4162 if (memEQ(name, "DB_LOCK_NOTGRANTED", 18)) { 4163 /* ^ */ 4164#ifdef DB_LOCK_NOTGRANTED 4165 *iv_return = DB_LOCK_NOTGRANTED; 4166 return PERL_constant_ISIV; 4167#else 4168 return PERL_constant_NOTDEF; 4169#endif 4170 } 4171 if (memEQ(name, "DB_TIME_NOTGRANTED", 18)) { 4172 /* ^ */ 4173#ifdef DB_TIME_NOTGRANTED 4174 *iv_return = DB_TIME_NOTGRANTED; 4175 return PERL_constant_ISIV; 4176#else 4177 return PERL_constant_NOTDEF; 4178#endif 4179 } 4180 break; 4181 case 'C': 4182 if (memEQ(name, "DB_MUTEX_ALLOCATED", 18)) { 4183 /* ^ */ 4184#ifdef DB_MUTEX_ALLOCATED 4185 *iv_return = DB_MUTEX_ALLOCATED; 4186 return PERL_constant_ISIV; 4187#else 4188 return PERL_constant_NOTDEF; 4189#endif 4190 } 4191 break; 4192 case 'E': 4193 if (memEQ(name, "DB_LOG_AUTO_REMOVE", 18)) { 4194 /* ^ */ 4195#ifdef DB_LOG_AUTO_REMOVE 4196 *iv_return = DB_LOG_AUTO_REMOVE; 4197 return PERL_constant_ISIV; 4198#else 4199 return PERL_constant_NOTDEF; 4200#endif 4201 } 4202 if (memEQ(name, "DB_TEST_POSTRENAME", 18)) { 4203 /* ^ */ 4204#ifdef DB_TEST_POSTRENAME 4205 *iv_return = DB_TEST_POSTRENAME; 4206 return PERL_constant_ISIV; 4207#else 4208 return PERL_constant_NOTDEF; 4209#endif 4210 } 4211 break; 4212 case 'G': 4213 if (memEQ(name, "DB_MPOOL_NEW_GROUP", 18)) { 4214 /* ^ */ 4215#ifdef DB_MPOOL_NEW_GROUP 4216 *iv_return = DB_MPOOL_NEW_GROUP; 4217 return PERL_constant_ISIV; 4218#else 4219 return PERL_constant_NOTDEF; 4220#endif 4221 } 4222 break; 4223 case 'K': 4224 if (memEQ(name, "DB_DURABLE_UNKNOWN", 18)) { 4225 /* ^ */ 4226#ifdef DB_DURABLE_UNKNOWN 4227 *iv_return = DB_DURABLE_UNKNOWN; 4228 return PERL_constant_ISIV; 4229#else 4230 return PERL_constant_NOTDEF; 4231#endif 4232 } 4233 break; 4234 case 'L': 4235 if (memEQ(name, "DB_FOREIGN_NULLIFY", 18)) { 4236 /* ^ */ 4237#ifdef DB_FOREIGN_NULLIFY 4238 *iv_return = DB_FOREIGN_NULLIFY; 4239 return PERL_constant_ISIV; 4240#else 4241 return PERL_constant_NOTDEF; 4242#endif 4243 } 4244 if (memEQ(name, "DB_SEQUENCE_OLDVER", 18)) { 4245 /* ^ */ 4246#ifdef DB_SEQUENCE_OLDVER 4247 *iv_return = DB_SEQUENCE_OLDVER; 4248 return PERL_constant_ISIV; 4249#else 4250 return PERL_constant_NOTDEF; 4251#endif 4252 } 4253 break; 4254 case 'M': 4255 if (memEQ(name, "DB_REP_ACK_TIMEOUT", 18)) { 4256 /* ^ */ 4257#ifdef DB_REP_ACK_TIMEOUT 4258 *iv_return = DB_REP_ACK_TIMEOUT; 4259 return PERL_constant_ISIV; 4260#else 4261 return PERL_constant_NOTDEF; 4262#endif 4263 } 4264 if (memEQ(name, "DB_SET_TXN_TIMEOUT", 18)) { 4265 /* ^ */ 4266#ifdef DB_SET_TXN_TIMEOUT 4267 *iv_return = DB_SET_TXN_TIMEOUT; 4268 return PERL_constant_ISIV; 4269#else 4270 return PERL_constant_NOTDEF; 4271#endif 4272 } 4273 break; 4274 case 'O': 4275 if (memEQ(name, "DB_ALREADY_ABORTED", 18)) { 4276 /* ^ */ 4277#ifdef DB_ALREADY_ABORTED 4278 *iv_return = DB_ALREADY_ABORTED; 4279 return PERL_constant_ISIV; 4280#else 4281 return PERL_constant_NOTDEF; 4282#endif 4283 } 4284 if (memEQ(name, "DB_ENV_AUTO_COMMIT", 18)) { 4285 /* ^ */ 4286#ifdef DB_ENV_AUTO_COMMIT 4287 *iv_return = DB_ENV_AUTO_COMMIT; 4288 return PERL_constant_ISIV; 4289#else 4290 return PERL_constant_NOTDEF; 4291#endif 4292 } 4293 if (memEQ(name, "DB_REP_CONF_NOWAIT", 18)) { 4294 /* ^ */ 4295#ifdef DB_REP_CONF_NOWAIT 4296 *iv_return = DB_REP_CONF_NOWAIT; 4297 return PERL_constant_ISIV; 4298#else 4299 return PERL_constant_NOTDEF; 4300#endif 4301 } 4302 break; 4303 case 'P': 4304 if (memEQ(name, "DB_REP_STARTUPDONE", 18)) { 4305 /* ^ */ 4306#ifdef DB_REP_STARTUPDONE 4307 *iv_return = DB_REP_STARTUPDONE; 4308 return PERL_constant_ISIV; 4309#else 4310 return PERL_constant_NOTDEF; 4311#endif 4312 } 4313 break; 4314 case 'R': 4315 if (memEQ(name, "DB_LOG_NOT_DURABLE", 18)) { 4316 /* ^ */ 4317#ifdef DB_LOG_NOT_DURABLE 4318 *iv_return = DB_LOG_NOT_DURABLE; 4319 return PERL_constant_ISIV; 4320#else 4321 return PERL_constant_NOTDEF; 4322#endif 4323 } 4324 if (memEQ(name, "DB_TXN_NOT_DURABLE", 18)) { 4325 /* ^ */ 4326#ifdef DB_TXN_NOT_DURABLE 4327 *iv_return = DB_TXN_NOT_DURABLE; 4328 return PERL_constant_ISIV; 4329#else 4330 return PERL_constant_NOTDEF; 4331#endif 4332 } 4333 break; 4334 case 'S': 4335 if (memEQ(name, "DB_FOREIGN_CASCADE", 18)) { 4336 /* ^ */ 4337#ifdef DB_FOREIGN_CASCADE 4338 *iv_return = DB_FOREIGN_CASCADE; 4339 return PERL_constant_ISIV; 4340#else 4341 return PERL_constant_NOTDEF; 4342#endif 4343 } 4344 if (memEQ(name, "DB_REPMGR_ACKS_ALL", 18)) { 4345 /* ^ */ 4346#ifdef DB_REPMGR_ACKS_ALL 4347 *iv_return = DB_REPMGR_ACKS_ALL; 4348 return PERL_constant_ISIV; 4349#else 4350 return PERL_constant_NOTDEF; 4351#endif 4352 } 4353 if (memEQ(name, "DB_REPMGR_ACKS_ONE", 18)) { 4354 /* ^ */ 4355#ifdef DB_REPMGR_ACKS_ONE 4356 *iv_return = DB_REPMGR_ACKS_ONE; 4357 return PERL_constant_ISIV; 4358#else 4359 return PERL_constant_NOTDEF; 4360#endif 4361 } 4362 if (memEQ(name, "DB_SA_SKIPFIRSTKEY", 18)) { 4363 /* ^ */ 4364#ifdef DB_SA_SKIPFIRSTKEY 4365 *iv_return = DB_SA_SKIPFIRSTKEY; 4366 return PERL_constant_ISIV; 4367#else 4368 return PERL_constant_NOTDEF; 4369#endif 4370 } 4371 if (memEQ(name, "DB_TEST_PREDESTROY", 18)) { 4372 /* ^ */ 4373#ifdef DB_TEST_PREDESTROY 4374 *iv_return = DB_TEST_PREDESTROY; 4375 return PERL_constant_ISIV; 4376#else 4377 return PERL_constant_NOTDEF; 4378#endif 4379 } 4380 break; 4381 case 'T': 4382 if (memEQ(name, "DB_THREADID_STRLEN", 18)) { 4383 /* ^ */ 4384#ifdef DB_THREADID_STRLEN 4385 *iv_return = DB_THREADID_STRLEN; 4386 return PERL_constant_ISIV; 4387#else 4388 return PERL_constant_NOTDEF; 4389#endif 4390 } 4391 break; 4392 case 'U': 4393 if (memEQ(name, "DB_ENV_REF_COUNTED", 18)) { 4394 /* ^ */ 4395#ifdef DB_ENV_REF_COUNTED 4396 *iv_return = DB_ENV_REF_COUNTED; 4397 return PERL_constant_ISIV; 4398#else 4399 return PERL_constant_NOTDEF; 4400#endif 4401 } 4402 break; 4403 case 'V': 4404 if (memEQ(name, "DB_TEST_ELECTVOTE1", 18)) { 4405 /* ^ */ 4406#ifdef DB_TEST_ELECTVOTE1 4407 *iv_return = DB_TEST_ELECTVOTE1; 4408 return PERL_constant_ISIV; 4409#else 4410 return PERL_constant_NOTDEF; 4411#endif 4412 } 4413 if (memEQ(name, "DB_TEST_ELECTVOTE2", 18)) { 4414 /* ^ */ 4415#ifdef DB_TEST_ELECTVOTE2 4416 *iv_return = DB_TEST_ELECTVOTE2; 4417 return PERL_constant_ISIV; 4418#else 4419 return PERL_constant_NOTDEF; 4420#endif 4421 } 4422 break; 4423 case 'W': 4424 if (memEQ(name, "DB_TEST_ELECTWAIT1", 18)) { 4425 /* ^ */ 4426#ifdef DB_TEST_ELECTWAIT1 4427 *iv_return = DB_TEST_ELECTWAIT1; 4428 return PERL_constant_ISIV; 4429#else 4430 return PERL_constant_NOTDEF; 4431#endif 4432 } 4433 if (memEQ(name, "DB_TEST_ELECTWAIT2", 18)) { 4434 /* ^ */ 4435#ifdef DB_TEST_ELECTWAIT2 4436 *iv_return = DB_TEST_ELECTWAIT2; 4437 return PERL_constant_ISIV; 4438#else 4439 return PERL_constant_NOTDEF; 4440#endif 4441 } 4442 break; 4443 case 'Y': 4444 if (memEQ(name, "DB_PR_RECOVERYTEST", 18)) { 4445 /* ^ */ 4446#ifdef DB_PR_RECOVERYTEST 4447 *iv_return = DB_PR_RECOVERYTEST; 4448 return PERL_constant_ISIV; 4449#else 4450 return PERL_constant_NOTDEF; 4451#endif 4452 } 4453 break; 4454 case '_': 4455 if (memEQ(name, "DB_ENV_REGION_INIT", 18)) { 4456 /* ^ */ 4457#ifdef DB_ENV_REGION_INIT 4458 *iv_return = DB_ENV_REGION_INIT; 4459 return PERL_constant_ISIV; 4460#else 4461 return PERL_constant_NOTDEF; 4462#endif 4463 } 4464 if (memEQ(name, "DB_LOG_BUFFER_FULL", 18)) { 4465 /* ^ */ 4466#ifdef DB_LOG_BUFFER_FULL 4467 *iv_return = DB_LOG_BUFFER_FULL; 4468 return PERL_constant_ISIV; 4469#else 4470 return PERL_constant_NOTDEF; 4471#endif 4472 } 4473 if (memEQ(name, "DB_REP_HANDLE_DEAD", 18)) { 4474 /* ^ */ 4475#ifdef DB_REP_HANDLE_DEAD 4476 *iv_return = DB_REP_HANDLE_DEAD; 4477 return PERL_constant_ISIV; 4478#else 4479 return PERL_constant_NOTDEF; 4480#endif 4481 } 4482 break; 4483 } 4484 return PERL_constant_NOTFOUND; 4485} 4486 4487static int 4488constant_19 (pTHX_ const char *name, IV *iv_return) { 4489 /* When generated this function returned values for the list of names given 4490 here. However, subsequent manual editing may have added or removed some. 4491 DB_ENV_LOG_INMEMORY DB_ENV_MULTIVERSION DB_ENV_REP_LOGSONLY 4492 DB_ENV_TXN_SNAPSHOT DB_EVENT_REP_CLIENT DB_EVENT_REP_MASTER 4493 DB_FOREIGN_CONFLICT DB_LOCK_FREE_LOCKER DB_LOCK_GET_TIMEOUT 4494 DB_LOCK_SET_TIMEOUT DB_MUTEX_SELF_BLOCK DB_PRIORITY_DEFAULT 4495 DB_READ_UNCOMMITTED DB_REPMGR_ACKS_NONE DB_REPMGR_CONNECTED 4496 DB_REP_HOLDELECTION DB_REP_JOIN_FAILURE DB_SEQUENCE_VERSION 4497 DB_SET_LOCK_TIMEOUT DB_STAT_LOCK_PARAMS DB_TEST_POSTDESTROY 4498 DB_TEST_POSTLOGMETA DB_TEST_SUBDB_LOCKS DB_TXN_FORWARD_ROLL 4499 DB_TXN_LOG_UNDOREDO DB_TXN_WRITE_NOSYNC DB_UPDATE_SECONDARY 4500 DB_USERCOPY_GETDATA DB_USERCOPY_SETDATA DB_USE_ENVIRON_ROOT 4501 DB_VERB_FILEOPS_ALL DB_VERB_REPLICATION DB_VERB_REPMGR_MISC 4502 DB_VERSION_MISMATCH */ 4503 /* Offset 14 gives the best switch position. */ 4504 switch (name[14]) { 4505 case 'A': 4506 if (memEQ(name, "DB_EVENT_REP_MASTER", 19)) { 4507 /* ^ */ 4508#ifdef DB_EVENT_REP_MASTER 4509 *iv_return = DB_EVENT_REP_MASTER; 4510 return PERL_constant_ISIV; 4511#else 4512 return PERL_constant_NOTDEF; 4513#endif 4514 } 4515 if (memEQ(name, "DB_STAT_LOCK_PARAMS", 19)) { 4516 /* ^ */ 4517#ifdef DB_STAT_LOCK_PARAMS 4518 *iv_return = DB_STAT_LOCK_PARAMS; 4519 return PERL_constant_ISIV; 4520#else 4521 return PERL_constant_NOTDEF; 4522#endif 4523 } 4524 if (memEQ(name, "DB_VERB_REPLICATION", 19)) { 4525 /* ^ */ 4526#ifdef DB_VERB_REPLICATION 4527 *iv_return = DB_VERB_REPLICATION; 4528 return PERL_constant_ISIV; 4529#else 4530 return PERL_constant_NOTDEF; 4531#endif 4532 } 4533 break; 4534 case 'B': 4535 if (memEQ(name, "DB_MUTEX_SELF_BLOCK", 19)) { 4536 /* ^ */ 4537#ifdef DB_MUTEX_SELF_BLOCK 4538 *iv_return = DB_MUTEX_SELF_BLOCK; 4539 return PERL_constant_ISIV; 4540#else 4541 return PERL_constant_NOTDEF; 4542#endif 4543 } 4544 break; 4545 case 'C': 4546 if (memEQ(name, "DB_REP_HOLDELECTION", 19)) { 4547 /* ^ */ 4548#ifdef DB_REP_HOLDELECTION 4549 *iv_return = DB_REP_HOLDELECTION; 4550 return PERL_constant_ISIV; 4551#else 4552 return PERL_constant_NOTDEF; 4553#endif 4554 } 4555 break; 4556 case 'E': 4557 if (memEQ(name, "DB_ENV_LOG_INMEMORY", 19)) { 4558 /* ^ */ 4559#ifdef DB_ENV_LOG_INMEMORY 4560 *iv_return = DB_ENV_LOG_INMEMORY; 4561 return PERL_constant_ISIV; 4562#else 4563 return PERL_constant_NOTDEF; 4564#endif 4565 } 4566 if (memEQ(name, "DB_REPMGR_CONNECTED", 19)) { 4567 /* ^ */ 4568#ifdef DB_REPMGR_CONNECTED 4569 *iv_return = DB_REPMGR_CONNECTED; 4570 return PERL_constant_ISIV; 4571#else 4572 return PERL_constant_NOTDEF; 4573#endif 4574 } 4575 break; 4576 case 'F': 4577 if (memEQ(name, "DB_FOREIGN_CONFLICT", 19)) { 4578 /* ^ */ 4579#ifdef DB_FOREIGN_CONFLICT 4580 *iv_return = DB_FOREIGN_CONFLICT; 4581 return PERL_constant_ISIV; 4582#else 4583 return PERL_constant_NOTDEF; 4584#endif 4585 } 4586 if (memEQ(name, "DB_PRIORITY_DEFAULT", 19)) { 4587 /* ^ */ 4588#if (DB_VERSION_MAJOR > 4) || \ 4589 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \ 4590 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \ 4591 DB_VERSION_PATCH >= 24) 4592 *iv_return = DB_PRIORITY_DEFAULT; 4593 return PERL_constant_ISIV; 4594#else 4595 return PERL_constant_NOTDEF; 4596#endif 4597 } 4598 break; 4599 case 'G': 4600 if (memEQ(name, "DB_TEST_POSTLOGMETA", 19)) { 4601 /* ^ */ 4602#ifdef DB_TEST_POSTLOGMETA 4603 *iv_return = DB_TEST_POSTLOGMETA; 4604 return PERL_constant_ISIV; 4605#else 4606 return PERL_constant_NOTDEF; 4607#endif 4608 } 4609 break; 4610 case 'I': 4611 if (memEQ(name, "DB_READ_UNCOMMITTED", 19)) { 4612 /* ^ */ 4613#ifdef DB_READ_UNCOMMITTED 4614 *iv_return = DB_READ_UNCOMMITTED; 4615 return PERL_constant_ISIV; 4616#else 4617 return PERL_constant_NOTDEF; 4618#endif 4619 } 4620 if (memEQ(name, "DB_REP_JOIN_FAILURE", 19)) { 4621 /* ^ */ 4622#ifdef DB_REP_JOIN_FAILURE 4623 *iv_return = DB_REP_JOIN_FAILURE; 4624 return PERL_constant_ISIV; 4625#else 4626 return PERL_constant_NOTDEF; 4627#endif 4628 } 4629 break; 4630 case 'L': 4631 if (memEQ(name, "DB_EVENT_REP_CLIENT", 19)) { 4632 /* ^ */ 4633#ifdef DB_EVENT_REP_CLIENT 4634 *iv_return = DB_EVENT_REP_CLIENT; 4635 return PERL_constant_ISIV; 4636#else 4637 return PERL_constant_NOTDEF; 4638#endif 4639 } 4640 if (memEQ(name, "DB_TEST_SUBDB_LOCKS", 19)) { 4641 /* ^ */ 4642#ifdef DB_TEST_SUBDB_LOCKS 4643 *iv_return = DB_TEST_SUBDB_LOCKS; 4644 return PERL_constant_ISIV; 4645#else 4646 return PERL_constant_NOTDEF; 4647#endif 4648 } 4649 break; 4650 case 'M': 4651 if (memEQ(name, "DB_LOCK_GET_TIMEOUT", 19)) { 4652 /* ^ */ 4653#if (DB_VERSION_MAJOR > 4) || \ 4654 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \ 4655 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \ 4656 DB_VERSION_PATCH >= 14) 4657 *iv_return = DB_LOCK_GET_TIMEOUT; 4658 return PERL_constant_ISIV; 4659#else 4660 return PERL_constant_NOTDEF; 4661#endif 4662 } 4663 if (memEQ(name, "DB_LOCK_SET_TIMEOUT", 19)) { 4664 /* ^ */ 4665#ifdef DB_LOCK_SET_TIMEOUT 4666 *iv_return = DB_LOCK_SET_TIMEOUT; 4667 return PERL_constant_ISIV; 4668#else 4669 return PERL_constant_NOTDEF; 4670#endif 4671 } 4672 if (memEQ(name, "DB_SET_LOCK_TIMEOUT", 19)) { 4673 /* ^ */ 4674#ifdef DB_SET_LOCK_TIMEOUT 4675 *iv_return = DB_SET_LOCK_TIMEOUT; 4676 return PERL_constant_ISIV; 4677#else 4678 return PERL_constant_NOTDEF; 4679#endif 4680 } 4681 if (memEQ(name, "DB_VERSION_MISMATCH", 19)) { 4682 /* ^ */ 4683#ifdef DB_VERSION_MISMATCH 4684 *iv_return = DB_VERSION_MISMATCH; 4685 return PERL_constant_ISIV; 4686#else 4687 return PERL_constant_NOTDEF; 4688#endif 4689 } 4690 break; 4691 case 'N': 4692 if (memEQ(name, "DB_UPDATE_SECONDARY", 19)) { 4693 /* ^ */ 4694#ifdef DB_UPDATE_SECONDARY 4695 *iv_return = DB_UPDATE_SECONDARY; 4696 return PERL_constant_ISIV; 4697#else 4698 return PERL_constant_NOTDEF; 4699#endif 4700 } 4701 break; 4702 case 'O': 4703 if (memEQ(name, "DB_LOCK_FREE_LOCKER", 19)) { 4704 /* ^ */ 4705#ifdef DB_LOCK_FREE_LOCKER 4706 *iv_return = DB_LOCK_FREE_LOCKER; 4707 return PERL_constant_ISIV; 4708#else 4709 return PERL_constant_NOTDEF; 4710#endif 4711 } 4712 if (memEQ(name, "DB_TXN_LOG_UNDOREDO", 19)) { 4713 /* ^ */ 4714#ifdef DB_TXN_LOG_UNDOREDO 4715 *iv_return = DB_TXN_LOG_UNDOREDO; 4716 return PERL_constant_ISIV; 4717#else 4718 return PERL_constant_NOTDEF; 4719#endif 4720 } 4721 if (memEQ(name, "DB_TXN_WRITE_NOSYNC", 19)) { 4722 /* ^ */ 4723#ifdef DB_TXN_WRITE_NOSYNC 4724 *iv_return = DB_TXN_WRITE_NOSYNC; 4725 return PERL_constant_ISIV; 4726#else 4727 return PERL_constant_NOTDEF; 4728#endif 4729 } 4730 break; 4731 case 'P': 4732 if (memEQ(name, "DB_ENV_TXN_SNAPSHOT", 19)) { 4733 /* ^ */ 4734#ifdef DB_ENV_TXN_SNAPSHOT 4735 *iv_return = DB_ENV_TXN_SNAPSHOT; 4736 return PERL_constant_ISIV; 4737#else 4738 return PERL_constant_NOTDEF; 4739#endif 4740 } 4741 break; 4742 case 'R': 4743 if (memEQ(name, "DB_ENV_MULTIVERSION", 19)) { 4744 /* ^ */ 4745#ifdef DB_ENV_MULTIVERSION 4746 *iv_return = DB_ENV_MULTIVERSION; 4747 return PERL_constant_ISIV; 4748#else 4749 return PERL_constant_NOTDEF; 4750#endif 4751 } 4752 if (memEQ(name, "DB_SEQUENCE_VERSION", 19)) { 4753 /* ^ */ 4754#ifdef DB_SEQUENCE_VERSION 4755 *iv_return = DB_SEQUENCE_VERSION; 4756 return PERL_constant_ISIV; 4757#else 4758 return PERL_constant_NOTDEF; 4759#endif 4760 } 4761 break; 4762 case 'S': 4763 if (memEQ(name, "DB_ENV_REP_LOGSONLY", 19)) { 4764 /* ^ */ 4765#ifdef DB_ENV_REP_LOGSONLY 4766 *iv_return = DB_ENV_REP_LOGSONLY; 4767 return PERL_constant_ISIV; 4768#else 4769 return PERL_constant_NOTDEF; 4770#endif 4771 } 4772 if (memEQ(name, "DB_TEST_POSTDESTROY", 19)) { 4773 /* ^ */ 4774#ifdef DB_TEST_POSTDESTROY 4775 *iv_return = DB_TEST_POSTDESTROY; 4776 return PERL_constant_ISIV; 4777#else 4778 return PERL_constant_NOTDEF; 4779#endif 4780 } 4781 if (memEQ(name, "DB_VERB_FILEOPS_ALL", 19)) { 4782 /* ^ */ 4783#ifdef DB_VERB_FILEOPS_ALL 4784 *iv_return = DB_VERB_FILEOPS_ALL; 4785 return PERL_constant_ISIV; 4786#else 4787 return PERL_constant_NOTDEF; 4788#endif 4789 } 4790 break; 4791 case 'T': 4792 if (memEQ(name, "DB_USERCOPY_GETDATA", 19)) { 4793 /* ^ */ 4794#ifdef DB_USERCOPY_GETDATA 4795 *iv_return = DB_USERCOPY_GETDATA; 4796 return PERL_constant_ISIV; 4797#else 4798 return PERL_constant_NOTDEF; 4799#endif 4800 } 4801 if (memEQ(name, "DB_USERCOPY_SETDATA", 19)) { 4802 /* ^ */ 4803#ifdef DB_USERCOPY_SETDATA 4804 *iv_return = DB_USERCOPY_SETDATA; 4805 return PERL_constant_ISIV; 4806#else 4807 return PERL_constant_NOTDEF; 4808#endif 4809 } 4810 break; 4811 case '_': 4812 if (memEQ(name, "DB_REPMGR_ACKS_NONE", 19)) { 4813 /* ^ */ 4814#ifdef DB_REPMGR_ACKS_NONE 4815 *iv_return = DB_REPMGR_ACKS_NONE; 4816 return PERL_constant_ISIV; 4817#else 4818 return PERL_constant_NOTDEF; 4819#endif 4820 } 4821 if (memEQ(name, "DB_TXN_FORWARD_ROLL", 19)) { 4822 /* ^ */ 4823#if (DB_VERSION_MAJOR > 3) || \ 4824 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \ 4825 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \ 4826 DB_VERSION_PATCH >= 14) 4827 *iv_return = DB_TXN_FORWARD_ROLL; 4828 return PERL_constant_ISIV; 4829#else 4830 return PERL_constant_NOTDEF; 4831#endif 4832 } 4833 if (memEQ(name, "DB_USE_ENVIRON_ROOT", 19)) { 4834 /* ^ */ 4835#ifdef DB_USE_ENVIRON_ROOT 4836 *iv_return = DB_USE_ENVIRON_ROOT; 4837 return PERL_constant_ISIV; 4838#else 4839 return PERL_constant_NOTDEF; 4840#endif 4841 } 4842 if (memEQ(name, "DB_VERB_REPMGR_MISC", 19)) { 4843 /* ^ */ 4844#ifdef DB_VERB_REPMGR_MISC 4845 *iv_return = DB_VERB_REPMGR_MISC; 4846 return PERL_constant_ISIV; 4847#else 4848 return PERL_constant_NOTDEF; 4849#endif 4850 } 4851 break; 4852 } 4853 return PERL_constant_NOTFOUND; 4854} 4855 4856static int 4857constant_20 (pTHX_ const char *name, IV *iv_return) { 4858 /* When generated this function returned values for the list of names given 4859 here. However, subsequent manual editing may have added or removed some. 4860 DB_CXX_NO_EXCEPTIONS DB_ENV_NO_OUTPUT_SET DB_ENV_RECOVER_FATAL 4861 DB_EVENT_NOT_HANDLED DB_EVENT_REP_ELECTED DB_LOGFILEID_INVALID 4862 DB_PANIC_ENVIRONMENT DB_PRIORITY_VERY_LOW DB_REP_FULL_ELECTION 4863 DB_REP_LEASE_EXPIRED DB_REP_LEASE_TIMEOUT DB_STAT_LOCK_LOCKERS 4864 DB_STAT_LOCK_OBJECTS DB_STAT_MEMP_NOERROR DB_TXN_BACKWARD_ROLL 4865 DB_TXN_LOCK_OPTIMIST */ 4866 /* Offset 14 gives the best switch position. */ 4867 switch (name[14]) { 4868 case 'A': 4869 if (memEQ(name, "DB_EVENT_NOT_HANDLED", 20)) { 4870 /* ^ */ 4871#ifdef DB_EVENT_NOT_HANDLED 4872 *iv_return = DB_EVENT_NOT_HANDLED; 4873 return PERL_constant_ISIV; 4874#else 4875 return PERL_constant_NOTDEF; 4876#endif 4877 } 4878 break; 4879 case 'B': 4880 if (memEQ(name, "DB_STAT_LOCK_OBJECTS", 20)) { 4881 /* ^ */ 4882#ifdef DB_STAT_LOCK_OBJECTS 4883 *iv_return = DB_STAT_LOCK_OBJECTS; 4884 return PERL_constant_ISIV; 4885#else 4886 return PERL_constant_NOTDEF; 4887#endif 4888 } 4889 break; 4890 case 'D': 4891 if (memEQ(name, "DB_TXN_BACKWARD_ROLL", 20)) { 4892 /* ^ */ 4893#if (DB_VERSION_MAJOR > 3) || \ 4894 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \ 4895 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \ 4896 DB_VERSION_PATCH >= 14) 4897 *iv_return = DB_TXN_BACKWARD_ROLL; 4898 return PERL_constant_ISIV; 4899#else 4900 return PERL_constant_NOTDEF; 4901#endif 4902 } 4903 break; 4904 case 'E': 4905 if (memEQ(name, "DB_REP_FULL_ELECTION", 20)) { 4906 /* ^ */ 4907#ifdef DB_REP_FULL_ELECTION 4908 *iv_return = DB_REP_FULL_ELECTION; 4909 return PERL_constant_ISIV; 4910#else 4911 return PERL_constant_NOTDEF; 4912#endif 4913 } 4914 break; 4915 case 'I': 4916 if (memEQ(name, "DB_REP_LEASE_TIMEOUT", 20)) { 4917 /* ^ */ 4918#ifdef DB_REP_LEASE_TIMEOUT 4919 *iv_return = DB_REP_LEASE_TIMEOUT; 4920 return PERL_constant_ISIV; 4921#else 4922 return PERL_constant_NOTDEF; 4923#endif 4924 } 4925 break; 4926 case 'L': 4927 if (memEQ(name, "DB_EVENT_REP_ELECTED", 20)) { 4928 /* ^ */ 4929#ifdef DB_EVENT_REP_ELECTED 4930 *iv_return = DB_EVENT_REP_ELECTED; 4931 return PERL_constant_ISIV; 4932#else 4933 return PERL_constant_NOTDEF; 4934#endif 4935 } 4936 break; 4937 case 'N': 4938 if (memEQ(name, "DB_LOGFILEID_INVALID", 20)) { 4939 /* ^ */ 4940#ifdef DB_LOGFILEID_INVALID 4941 *iv_return = DB_LOGFILEID_INVALID; 4942 return PERL_constant_ISIV; 4943#else 4944 return PERL_constant_NOTDEF; 4945#endif 4946 } 4947 break; 4948 case 'O': 4949 if (memEQ(name, "DB_PANIC_ENVIRONMENT", 20)) { 4950 /* ^ */ 4951#ifdef DB_PANIC_ENVIRONMENT 4952 *iv_return = DB_PANIC_ENVIRONMENT; 4953 return PERL_constant_ISIV; 4954#else 4955 return PERL_constant_NOTDEF; 4956#endif 4957 } 4958 if (memEQ(name, "DB_STAT_LOCK_LOCKERS", 20)) { 4959 /* ^ */ 4960#ifdef DB_STAT_LOCK_LOCKERS 4961 *iv_return = DB_STAT_LOCK_LOCKERS; 4962 return PERL_constant_ISIV; 4963#else 4964 return PERL_constant_NOTDEF; 4965#endif 4966 } 4967 if (memEQ(name, "DB_STAT_MEMP_NOERROR", 20)) { 4968 /* ^ */ 4969#ifdef DB_STAT_MEMP_NOERROR 4970 *iv_return = DB_STAT_MEMP_NOERROR; 4971 return PERL_constant_ISIV; 4972#else 4973 return PERL_constant_NOTDEF; 4974#endif 4975 } 4976 break; 4977 case 'P': 4978 if (memEQ(name, "DB_CXX_NO_EXCEPTIONS", 20)) { 4979 /* ^ */ 4980#ifdef DB_CXX_NO_EXCEPTIONS 4981 *iv_return = DB_CXX_NO_EXCEPTIONS; 4982 return PERL_constant_ISIV; 4983#else 4984 return PERL_constant_NOTDEF; 4985#endif 4986 } 4987 break; 4988 case 'R': 4989 if (memEQ(name, "DB_PRIORITY_VERY_LOW", 20)) { 4990 /* ^ */ 4991#if (DB_VERSION_MAJOR > 4) || \ 4992 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \ 4993 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \ 4994 DB_VERSION_PATCH >= 24) 4995 *iv_return = DB_PRIORITY_VERY_LOW; 4996 return PERL_constant_ISIV; 4997#else 4998 return PERL_constant_NOTDEF; 4999#endif 5000 } 5001 break; 5002 case 'T': 5003 if (memEQ(name, "DB_TXN_LOCK_OPTIMIST", 20)) { 5004 /* ^ */ 5005#ifdef DB_TXN_LOCK_OPTIMIST 5006 *iv_return = DB_TXN_LOCK_OPTIMIST; 5007 return PERL_constant_ISIV; 5008#else 5009 return PERL_constant_NOTDEF; 5010#endif 5011 } 5012 break; 5013 case 'U': 5014 if (memEQ(name, "DB_ENV_NO_OUTPUT_SET", 20)) { 5015 /* ^ */ 5016#ifdef DB_ENV_NO_OUTPUT_SET 5017 *iv_return = DB_ENV_NO_OUTPUT_SET; 5018 return PERL_constant_ISIV; 5019#else 5020 return PERL_constant_NOTDEF; 5021#endif 5022 } 5023 break; 5024 case 'X': 5025 if (memEQ(name, "DB_REP_LEASE_EXPIRED", 20)) { 5026 /* ^ */ 5027#ifdef DB_REP_LEASE_EXPIRED 5028 *iv_return = DB_REP_LEASE_EXPIRED; 5029 return PERL_constant_ISIV; 5030#else 5031 return PERL_constant_NOTDEF; 5032#endif 5033 } 5034 break; 5035 case '_': 5036 if (memEQ(name, "DB_ENV_RECOVER_FATAL", 20)) { 5037 /* ^ */ 5038#ifdef DB_ENV_RECOVER_FATAL 5039 *iv_return = DB_ENV_RECOVER_FATAL; 5040 return PERL_constant_ISIV; 5041#else 5042 return PERL_constant_NOTDEF; 5043#endif 5044 } 5045 break; 5046 } 5047 return PERL_constant_NOTFOUND; 5048} 5049 5050static int 5051constant_21 (pTHX_ const char *name, IV *iv_return) { 5052 /* When generated this function returned values for the list of names given 5053 here. However, subsequent manual editing may have added or removed some. 5054 DB_ENV_LOG_AUTOREMOVE DB_EVENT_WRITE_FAILED DB_LOCK_UPGRADE_WRITE 5055 DB_MUTEX_LOGICAL_LOCK DB_MUTEX_PROCESS_ONLY DB_PRIORITY_UNCHANGED 5056 DB_PRIORITY_VERY_HIGH DB_REPMGR_ACKS_QUORUM DB_REP_ELECTION_RETRY 5057 DB_REP_HEARTBEAT_SEND */ 5058 /* Offset 17 gives the best switch position. */ 5059 switch (name[17]) { 5060 case 'E': 5061 if (memEQ(name, "DB_REP_ELECTION_RETRY", 21)) { 5062 /* ^ */ 5063#ifdef DB_REP_ELECTION_RETRY 5064 *iv_return = DB_REP_ELECTION_RETRY; 5065 return PERL_constant_ISIV; 5066#else 5067 return PERL_constant_NOTDEF; 5068#endif 5069 } 5070 break; 5071 case 'H': 5072 if (memEQ(name, "DB_PRIORITY_VERY_HIGH", 21)) { 5073 /* ^ */ 5074#if (DB_VERSION_MAJOR > 4) || \ 5075 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \ 5076 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \ 5077 DB_VERSION_PATCH >= 24) 5078 *iv_return = DB_PRIORITY_VERY_HIGH; 5079 return PERL_constant_ISIV; 5080#else 5081 return PERL_constant_NOTDEF; 5082#endif 5083 } 5084 break; 5085 case 'I': 5086 if (memEQ(name, "DB_EVENT_WRITE_FAILED", 21)) { 5087 /* ^ */ 5088#ifdef DB_EVENT_WRITE_FAILED 5089 *iv_return = DB_EVENT_WRITE_FAILED; 5090 return PERL_constant_ISIV; 5091#else 5092 return PERL_constant_NOTDEF; 5093#endif 5094 } 5095 break; 5096 case 'L': 5097 if (memEQ(name, "DB_MUTEX_LOGICAL_LOCK", 21)) { 5098 /* ^ */ 5099#ifdef DB_MUTEX_LOGICAL_LOCK 5100 *iv_return = DB_MUTEX_LOGICAL_LOCK; 5101 return PERL_constant_ISIV; 5102#else 5103 return PERL_constant_NOTDEF; 5104#endif 5105 } 5106 break; 5107 case 'M': 5108 if (memEQ(name, "DB_ENV_LOG_AUTOREMOVE", 21)) { 5109 /* ^ */ 5110#ifdef DB_ENV_LOG_AUTOREMOVE 5111 *iv_return = DB_ENV_LOG_AUTOREMOVE; 5112 return PERL_constant_ISIV; 5113#else 5114 return PERL_constant_NOTDEF; 5115#endif 5116 } 5117 break; 5118 case 'N': 5119 if (memEQ(name, "DB_PRIORITY_UNCHANGED", 21)) { 5120 /* ^ */ 5121#if (DB_VERSION_MAJOR > 4) || \ 5122 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 6) || \ 5123 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 6 && \ 5124 DB_VERSION_PATCH >= 11) 5125 *iv_return = DB_PRIORITY_UNCHANGED; 5126 return PERL_constant_ISIV; 5127#else 5128 return PERL_constant_NOTDEF; 5129#endif 5130 } 5131 break; 5132 case 'O': 5133 if (memEQ(name, "DB_MUTEX_PROCESS_ONLY", 21)) { 5134 /* ^ */ 5135#ifdef DB_MUTEX_PROCESS_ONLY 5136 *iv_return = DB_MUTEX_PROCESS_ONLY; 5137 return PERL_constant_ISIV; 5138#else 5139 return PERL_constant_NOTDEF; 5140#endif 5141 } 5142 if (memEQ(name, "DB_REPMGR_ACKS_QUORUM", 21)) { 5143 /* ^ */ 5144#ifdef DB_REPMGR_ACKS_QUORUM 5145 *iv_return = DB_REPMGR_ACKS_QUORUM; 5146 return PERL_constant_ISIV; 5147#else 5148 return PERL_constant_NOTDEF; 5149#endif 5150 } 5151 break; 5152 case 'R': 5153 if (memEQ(name, "DB_LOCK_UPGRADE_WRITE", 21)) { 5154 /* ^ */ 5155#if (DB_VERSION_MAJOR > 3) || \ 5156 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 3) || \ 5157 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 3 && \ 5158 DB_VERSION_PATCH >= 11) 5159 *iv_return = DB_LOCK_UPGRADE_WRITE; 5160 return PERL_constant_ISIV; 5161#else 5162 return PERL_constant_NOTDEF; 5163#endif 5164 } 5165 break; 5166 case 'S': 5167 if (memEQ(name, "DB_REP_HEARTBEAT_SEND", 21)) { 5168 /* ^ */ 5169#ifdef DB_REP_HEARTBEAT_SEND 5170 *iv_return = DB_REP_HEARTBEAT_SEND; 5171 return PERL_constant_ISIV; 5172#else 5173 return PERL_constant_NOTDEF; 5174#endif 5175 } 5176 break; 5177 } 5178 return PERL_constant_NOTFOUND; 5179} 5180 5181static int 5182constant_22 (pTHX_ const char *name, IV *iv_return) { 5183 /* When generated this function returned values for the list of names given 5184 here. However, subsequent manual editing may have added or removed some. 5185 DB_ASSOC_IMMUTABLE_KEY DB_ENV_RPCCLIENT_GIVEN DB_ENV_TIME_NOTGRANTED 5186 DB_ENV_TXN_NOT_DURABLE DB_EVENT_NO_SUCH_EVENT DB_EVENT_REP_NEWMASTER 5187 DB_REPMGR_DISCONNECTED DB_REP_CONF_NOAUTOINIT DB_TXN_LOCK_OPTIMISTIC */ 5188 /* Offset 15 gives the best switch position. */ 5189 switch (name[15]) { 5190 case 'B': 5191 if (memEQ(name, "DB_ASSOC_IMMUTABLE_KEY", 22)) { 5192 /* ^ */ 5193#ifdef DB_ASSOC_IMMUTABLE_KEY 5194 *iv_return = DB_ASSOC_IMMUTABLE_KEY; 5195 return PERL_constant_ISIV; 5196#else 5197 return PERL_constant_NOTDEF; 5198#endif 5199 } 5200 break; 5201 case 'D': 5202 if (memEQ(name, "DB_ENV_TXN_NOT_DURABLE", 22)) { 5203 /* ^ */ 5204#ifdef DB_ENV_TXN_NOT_DURABLE 5205 *iv_return = DB_ENV_TXN_NOT_DURABLE; 5206 return PERL_constant_ISIV; 5207#else 5208 return PERL_constant_NOTDEF; 5209#endif 5210 } 5211 break; 5212 case 'G': 5213 if (memEQ(name, "DB_ENV_TIME_NOTGRANTED", 22)) { 5214 /* ^ */ 5215#ifdef DB_ENV_TIME_NOTGRANTED 5216 *iv_return = DB_ENV_TIME_NOTGRANTED; 5217 return PERL_constant_ISIV; 5218#else 5219 return PERL_constant_NOTDEF; 5220#endif 5221 } 5222 break; 5223 case 'H': 5224 if (memEQ(name, "DB_EVENT_NO_SUCH_EVENT", 22)) { 5225 /* ^ */ 5226#ifdef DB_EVENT_NO_SUCH_EVENT 5227 *iv_return = DB_EVENT_NO_SUCH_EVENT; 5228 return PERL_constant_ISIV; 5229#else 5230 return PERL_constant_NOTDEF; 5231#endif 5232 } 5233 break; 5234 case 'I': 5235 if (memEQ(name, "DB_TXN_LOCK_OPTIMISTIC", 22)) { 5236 /* ^ */ 5237#ifdef DB_TXN_LOCK_OPTIMISTIC 5238 *iv_return = DB_TXN_LOCK_OPTIMISTIC; 5239 return PERL_constant_ISIV; 5240#else 5241 return PERL_constant_NOTDEF; 5242#endif 5243 } 5244 break; 5245 case 'N': 5246 if (memEQ(name, "DB_REPMGR_DISCONNECTED", 22)) { 5247 /* ^ */ 5248#ifdef DB_REPMGR_DISCONNECTED 5249 *iv_return = DB_REPMGR_DISCONNECTED; 5250 return PERL_constant_ISIV; 5251#else 5252 return PERL_constant_NOTDEF; 5253#endif 5254 } 5255 break; 5256 case 'T': 5257 if (memEQ(name, "DB_ENV_RPCCLIENT_GIVEN", 22)) { 5258 /* ^ */ 5259#ifdef DB_ENV_RPCCLIENT_GIVEN 5260 *iv_return = DB_ENV_RPCCLIENT_GIVEN; 5261 return PERL_constant_ISIV; 5262#else 5263 return PERL_constant_NOTDEF; 5264#endif 5265 } 5266 break; 5267 case 'U': 5268 if (memEQ(name, "DB_REP_CONF_NOAUTOINIT", 22)) { 5269 /* ^ */ 5270#ifdef DB_REP_CONF_NOAUTOINIT 5271 *iv_return = DB_REP_CONF_NOAUTOINIT; 5272 return PERL_constant_ISIV; 5273#else 5274 return PERL_constant_NOTDEF; 5275#endif 5276 } 5277 break; 5278 case 'W': 5279 if (memEQ(name, "DB_EVENT_REP_NEWMASTER", 22)) { 5280 /* ^ */ 5281#ifdef DB_EVENT_REP_NEWMASTER 5282 *iv_return = DB_EVENT_REP_NEWMASTER; 5283 return PERL_constant_ISIV; 5284#else 5285 return PERL_constant_NOTDEF; 5286#endif 5287 } 5288 break; 5289 } 5290 return PERL_constant_NOTFOUND; 5291} 5292 5293static int 5294constant_23 (pTHX_ const char *name, IV *iv_return) { 5295 /* When generated this function returned values for the list of names given 5296 here. However, subsequent manual editing may have added or removed some. 5297 DB_ENV_TXN_WRITE_NOSYNC DB_REPMGR_ACKS_ONE_PEER DB_REP_CHECKPOINT_DELAY 5298 DB_REP_CONF_DELAYCLIENT DB_REP_CONNECTION_RETRY DB_REP_DEFAULT_PRIORITY 5299 DB_REP_ELECTION_TIMEOUT DB_VERB_REPMGR_CONNFAIL */ 5300 /* Offset 12 gives the best switch position. */ 5301 switch (name[12]) { 5302 case 'C': 5303 if (memEQ(name, "DB_REP_CONNECTION_RETRY", 23)) { 5304 /* ^ */ 5305#ifdef DB_REP_CONNECTION_RETRY 5306 *iv_return = DB_REP_CONNECTION_RETRY; 5307 return PERL_constant_ISIV; 5308#else 5309 return PERL_constant_NOTDEF; 5310#endif 5311 } 5312 break; 5313 case 'D': 5314 if (memEQ(name, "DB_REP_CONF_DELAYCLIENT", 23)) { 5315 /* ^ */ 5316#ifdef DB_REP_CONF_DELAYCLIENT 5317 *iv_return = DB_REP_CONF_DELAYCLIENT; 5318 return PERL_constant_ISIV; 5319#else 5320 return PERL_constant_NOTDEF; 5321#endif 5322 } 5323 break; 5324 case 'G': 5325 if (memEQ(name, "DB_VERB_REPMGR_CONNFAIL", 23)) { 5326 /* ^ */ 5327#ifdef DB_VERB_REPMGR_CONNFAIL 5328 *iv_return = DB_VERB_REPMGR_CONNFAIL; 5329 return PERL_constant_ISIV; 5330#else 5331 return PERL_constant_NOTDEF; 5332#endif 5333 } 5334 break; 5335 case 'I': 5336 if (memEQ(name, "DB_REP_ELECTION_TIMEOUT", 23)) { 5337 /* ^ */ 5338#ifdef DB_REP_ELECTION_TIMEOUT 5339 *iv_return = DB_REP_ELECTION_TIMEOUT; 5340 return PERL_constant_ISIV; 5341#else 5342 return PERL_constant_NOTDEF; 5343#endif 5344 } 5345 break; 5346 case 'K': 5347 if (memEQ(name, "DB_REPMGR_ACKS_ONE_PEER", 23)) { 5348 /* ^ */ 5349#ifdef DB_REPMGR_ACKS_ONE_PEER 5350 *iv_return = DB_REPMGR_ACKS_ONE_PEER; 5351 return PERL_constant_ISIV; 5352#else 5353 return PERL_constant_NOTDEF; 5354#endif 5355 } 5356 break; 5357 case 'L': 5358 if (memEQ(name, "DB_REP_DEFAULT_PRIORITY", 23)) { 5359 /* ^ */ 5360#ifdef DB_REP_DEFAULT_PRIORITY 5361 *iv_return = DB_REP_DEFAULT_PRIORITY; 5362 return PERL_constant_ISIV; 5363#else 5364 return PERL_constant_NOTDEF; 5365#endif 5366 } 5367 break; 5368 case 'P': 5369 if (memEQ(name, "DB_REP_CHECKPOINT_DELAY", 23)) { 5370 /* ^ */ 5371#ifdef DB_REP_CHECKPOINT_DELAY 5372 *iv_return = DB_REP_CHECKPOINT_DELAY; 5373 return PERL_constant_ISIV; 5374#else 5375 return PERL_constant_NOTDEF; 5376#endif 5377 } 5378 break; 5379 case 'R': 5380 if (memEQ(name, "DB_ENV_TXN_WRITE_NOSYNC", 23)) { 5381 /* ^ */ 5382#ifdef DB_ENV_TXN_WRITE_NOSYNC 5383 *iv_return = DB_ENV_TXN_WRITE_NOSYNC; 5384 return PERL_constant_ISIV; 5385#else 5386 return PERL_constant_NOTDEF; 5387#endif 5388 } 5389 break; 5390 } 5391 return PERL_constant_NOTFOUND; 5392} 5393 5394static int 5395constant_24 (pTHX_ const char *name, IV *iv_return) { 5396 /* When generated this function returned values for the list of names given 5397 here. However, subsequent manual editing may have added or removed some. 5398 DB_EVENT_REP_PERM_FAILED DB_EVENT_REP_STARTUPDONE DB_REPMGR_ACKS_ALL_PEERS 5399 DB_REP_HEARTBEAT_MONITOR */ 5400 /* Offset 22 gives the best switch position. */ 5401 switch (name[22]) { 5402 case 'E': 5403 if (memEQ(name, "DB_EVENT_REP_PERM_FAILED", 24)) { 5404 /* ^ */ 5405#ifdef DB_EVENT_REP_PERM_FAILED 5406 *iv_return = DB_EVENT_REP_PERM_FAILED; 5407 return PERL_constant_ISIV; 5408#else 5409 return PERL_constant_NOTDEF; 5410#endif 5411 } 5412 break; 5413 case 'N': 5414 if (memEQ(name, "DB_EVENT_REP_STARTUPDONE", 24)) { 5415 /* ^ */ 5416#ifdef DB_EVENT_REP_STARTUPDONE 5417 *iv_return = DB_EVENT_REP_STARTUPDONE; 5418 return PERL_constant_ISIV; 5419#else 5420 return PERL_constant_NOTDEF; 5421#endif 5422 } 5423 break; 5424 case 'O': 5425 if (memEQ(name, "DB_REP_HEARTBEAT_MONITOR", 24)) { 5426 /* ^ */ 5427#ifdef DB_REP_HEARTBEAT_MONITOR 5428 *iv_return = DB_REP_HEARTBEAT_MONITOR; 5429 return PERL_constant_ISIV; 5430#else 5431 return PERL_constant_NOTDEF; 5432#endif 5433 } 5434 break; 5435 case 'R': 5436 if (memEQ(name, "DB_REPMGR_ACKS_ALL_PEERS", 24)) { 5437 /* ^ */ 5438#ifdef DB_REPMGR_ACKS_ALL_PEERS 5439 *iv_return = DB_REPMGR_ACKS_ALL_PEERS; 5440 return PERL_constant_ISIV; 5441#else 5442 return PERL_constant_NOTDEF; 5443#endif 5444 } 5445 break; 5446 } 5447 return PERL_constant_NOTFOUND; 5448} 5449 5450static int 5451constant (pTHX_ const char *name, STRLEN len, IV *iv_return, const char **pv_return) { 5452 /* Initially switch on the length of the name. */ 5453 /* When generated this function returned values for the list of names given 5454 in this section of perl code. Rather than manually editing these functions 5455 to add or remove constants, which would result in this comment and section 5456 of code becoming inaccurate, we recommend that you edit this section of 5457 code, and use it to regenerate a new set of constant functions which you 5458 then use to replace the originals. 5459 5460 Regenerate these constant functions by feeding this entire source file to 5461 perl -x 5462 5463#!/usr/bin/perl5.8.6 -w 5464use ExtUtils::Constant qw (constant_types C_constant XS_constant); 5465 5466my $types = {map {($_, 1)} qw(IV PV)}; 5467my @names = (qw(DB_AFTER DB_AGGRESSIVE DB_ALREADY_ABORTED DB_APPEND 5468 DB_APPLY_LOGREG DB_APP_INIT DB_ARCH_ABS DB_ARCH_DATA DB_ARCH_LOG 5469 DB_ARCH_REMOVE DB_ASSOC_IMMUTABLE_KEY DB_AUTO_COMMIT DB_BEFORE 5470 DB_BTREEMAGIC DB_BTREEOLDVER DB_BTREEVERSION DB_BUFFER_SMALL 5471 DB_CACHED_COUNTS DB_CDB_ALLDB DB_CHECKPOINT DB_CHKSUM 5472 DB_CHKSUM_SHA1 DB_CKP_INTERNAL DB_CLIENT DB_CL_WRITER DB_COMMIT 5473 DB_COMPACT_FLAGS DB_CONSUME DB_CONSUME_WAIT DB_CREATE DB_CURLSN 5474 DB_CURRENT DB_CXX_NO_EXCEPTIONS DB_DEGREE_2 DB_DELETED 5475 DB_DELIMITER DB_DIRECT DB_DIRECT_DB DB_DIRECT_LOG DB_DIRTY_READ 5476 DB_DONOTINDEX DB_DSYNC_DB DB_DSYNC_LOG DB_DUP DB_DUPCURSOR 5477 DB_DUPSORT DB_DURABLE_UNKNOWN DB_EID_BROADCAST DB_EID_INVALID 5478 DB_ENCRYPT DB_ENCRYPT_AES DB_ENV_APPINIT DB_ENV_AUTO_COMMIT 5479 DB_ENV_CDB DB_ENV_CDB_ALLDB DB_ENV_CREATE DB_ENV_DBLOCAL 5480 DB_ENV_DIRECT_DB DB_ENV_DIRECT_LOG DB_ENV_DSYNC_DB 5481 DB_ENV_DSYNC_LOG DB_ENV_FATAL DB_ENV_LOCKDOWN DB_ENV_LOCKING 5482 DB_ENV_LOGGING DB_ENV_LOG_AUTOREMOVE DB_ENV_LOG_INMEMORY 5483 DB_ENV_MULTIVERSION DB_ENV_NOLOCKING DB_ENV_NOMMAP 5484 DB_ENV_NOPANIC DB_ENV_NO_OUTPUT_SET DB_ENV_OPEN_CALLED 5485 DB_ENV_OVERWRITE DB_ENV_PANIC_OK DB_ENV_PRIVATE 5486 DB_ENV_RECOVER_FATAL DB_ENV_REF_COUNTED DB_ENV_REGION_INIT 5487 DB_ENV_REP_CLIENT DB_ENV_REP_LOGSONLY DB_ENV_REP_MASTER 5488 DB_ENV_RPCCLIENT DB_ENV_RPCCLIENT_GIVEN DB_ENV_STANDALONE 5489 DB_ENV_SYSTEM_MEM DB_ENV_THREAD DB_ENV_TIME_NOTGRANTED 5490 DB_ENV_TXN DB_ENV_TXN_NOSYNC DB_ENV_TXN_NOT_DURABLE 5491 DB_ENV_TXN_NOWAIT DB_ENV_TXN_SNAPSHOT DB_ENV_TXN_WRITE_NOSYNC 5492 DB_ENV_USER_ALLOC DB_ENV_YIELDCPU DB_EVENT_NOT_HANDLED 5493 DB_EVENT_NO_SUCH_EVENT DB_EVENT_PANIC DB_EVENT_REP_CLIENT 5494 DB_EVENT_REP_ELECTED DB_EVENT_REP_MASTER DB_EVENT_REP_NEWMASTER 5495 DB_EVENT_REP_PERM_FAILED DB_EVENT_REP_STARTUPDONE 5496 DB_EVENT_WRITE_FAILED DB_EXCL DB_EXTENT DB_FAST_STAT 5497 DB_FCNTL_LOCKING DB_FILEOPEN DB_FILE_ID_LEN DB_FIRST DB_FIXEDLEN 5498 DB_FLUSH DB_FORCE DB_FOREIGN_ABORT DB_FOREIGN_CASCADE 5499 DB_FOREIGN_CONFLICT DB_FOREIGN_NULLIFY DB_FREELIST_ONLY 5500 DB_FREE_SPACE DB_GETREC DB_GET_BOTH DB_GET_BOTHC 5501 DB_GET_BOTH_RANGE DB_GET_RECNO DB_HANDLE_LOCK DB_HASHMAGIC 5502 DB_HASHOLDVER DB_HASHVERSION DB_IGNORE_LEASE DB_IMMUTABLE_KEY 5503 DB_INCOMPLETE DB_INIT_CDB DB_INIT_LOCK DB_INIT_LOG DB_INIT_MPOOL 5504 DB_INIT_REP DB_INIT_TXN DB_INORDER DB_JAVA_CALLBACK DB_JOINENV 5505 DB_JOIN_ITEM DB_JOIN_NOSORT DB_KEYEMPTY DB_KEYEXIST DB_KEYFIRST 5506 DB_KEYLAST DB_LAST DB_LOCKDOWN DB_LOCKMAGIC DB_LOCKVERSION 5507 DB_LOCK_ABORT DB_LOCK_CONFLICT DB_LOCK_DEADLOCK DB_LOCK_DEFAULT 5508 DB_LOCK_EXPIRE DB_LOCK_FREE_LOCKER DB_LOCK_MAXLOCKS 5509 DB_LOCK_MAXWRITE DB_LOCK_MINLOCKS DB_LOCK_MINWRITE DB_LOCK_NORUN 5510 DB_LOCK_NOTEXIST DB_LOCK_NOTGRANTED DB_LOCK_NOTHELD 5511 DB_LOCK_NOWAIT DB_LOCK_OLDEST DB_LOCK_RANDOM DB_LOCK_RECORD 5512 DB_LOCK_REMOVE DB_LOCK_RIW_N DB_LOCK_RW_N DB_LOCK_SET_TIMEOUT 5513 DB_LOCK_SWITCH DB_LOCK_UPGRADE DB_LOCK_YOUNGEST DB_LOGC_BUF_SIZE 5514 DB_LOGFILEID_INVALID DB_LOGMAGIC DB_LOGOLDVER DB_LOGVERSION 5515 DB_LOG_AUTOREMOVE DB_LOG_AUTO_REMOVE DB_LOG_BUFFER_FULL 5516 DB_LOG_CHKPNT DB_LOG_COMMIT DB_LOG_DIRECT DB_LOG_DISK 5517 DB_LOG_DSYNC DB_LOG_INMEMORY DB_LOG_IN_MEMORY DB_LOG_LOCKED 5518 DB_LOG_NOCOPY DB_LOG_NOT_DURABLE DB_LOG_PERM DB_LOG_RESEND 5519 DB_LOG_SILENT_ERR DB_LOG_WRNOSYNC DB_LOG_ZERO DB_MAX_PAGES 5520 DB_MAX_RECORDS DB_MPOOL_CLEAN DB_MPOOL_CREATE DB_MPOOL_DIRTY 5521 DB_MPOOL_DISCARD DB_MPOOL_EDIT DB_MPOOL_EXTENT DB_MPOOL_FREE 5522 DB_MPOOL_LAST DB_MPOOL_NEW DB_MPOOL_NEW_GROUP DB_MPOOL_NOFILE 5523 DB_MPOOL_NOLOCK DB_MPOOL_PRIVATE DB_MPOOL_UNLINK DB_MULTIPLE 5524 DB_MULTIPLE_KEY DB_MULTIVERSION DB_MUTEXDEBUG DB_MUTEXLOCKS 5525 DB_MUTEX_ALLOCATED DB_MUTEX_LOCKED DB_MUTEX_LOGICAL_LOCK 5526 DB_MUTEX_PROCESS_ONLY DB_MUTEX_SELF_BLOCK DB_MUTEX_THREAD 5527 DB_NEEDSPLIT DB_NEXT DB_NEXT_DUP DB_NEXT_NODUP DB_NOCOPY 5528 DB_NODUPDATA DB_NOLOCKING DB_NOMMAP DB_NOORDERCHK DB_NOOVERWRITE 5529 DB_NOPANIC DB_NORECURSE DB_NOSERVER DB_NOSERVER_HOME 5530 DB_NOSERVER_ID DB_NOSYNC DB_NOTFOUND DB_NO_AUTO_COMMIT 5531 DB_ODDFILESIZE DB_OK_BTREE DB_OK_HASH DB_OK_QUEUE DB_OK_RECNO 5532 DB_OLD_VERSION DB_OPEN_CALLED DB_OPFLAGS_MASK DB_ORDERCHKONLY 5533 DB_OVERWRITE DB_PAD DB_PAGEYIELD DB_PAGE_LOCK DB_PAGE_NOTFOUND 5534 DB_PANIC_ENVIRONMENT DB_PERMANENT DB_POSITION DB_POSITIONI 5535 DB_PREV DB_PREV_DUP DB_PREV_NODUP DB_PRINTABLE DB_PRIVATE 5536 DB_PR_HEADERS DB_PR_PAGE DB_PR_RECOVERYTEST DB_QAMMAGIC 5537 DB_QAMOLDVER DB_QAMVERSION DB_RDONLY DB_RDWRMASTER 5538 DB_READ_COMMITTED DB_READ_UNCOMMITTED DB_RECNUM DB_RECORDCOUNT 5539 DB_RECORD_LOCK DB_RECOVER DB_RECOVER_FATAL DB_REGION_ANON 5540 DB_REGION_INIT DB_REGION_MAGIC DB_REGION_NAME DB_REGISTER 5541 DB_REGISTERED DB_RENAMEMAGIC DB_RENUMBER DB_REPFLAGS_MASK 5542 DB_REPMGR_ACKS_ALL DB_REPMGR_ACKS_ALL_PEERS DB_REPMGR_ACKS_NONE 5543 DB_REPMGR_ACKS_ONE DB_REPMGR_ACKS_ONE_PEER DB_REPMGR_ACKS_QUORUM 5544 DB_REPMGR_CONF_2SITE_STRICT DB_REPMGR_CONNECTED 5545 DB_REPMGR_DISCONNECTED DB_REPMGR_PEER DB_REP_ACK_TIMEOUT 5546 DB_REP_ANYWHERE DB_REP_BULKOVF DB_REP_CHECKPOINT_DELAY 5547 DB_REP_CLIENT DB_REP_CONF_BULK DB_REP_CONF_DELAYCLIENT 5548 DB_REP_CONF_LEASE DB_REP_CONF_NOAUTOINIT DB_REP_CONF_NOWAIT 5549 DB_REP_CONNECTION_RETRY DB_REP_CREATE DB_REP_DEFAULT_PRIORITY 5550 DB_REP_DUPMASTER DB_REP_EGENCHG DB_REP_ELECTION 5551 DB_REP_ELECTION_RETRY DB_REP_ELECTION_TIMEOUT 5552 DB_REP_FULL_ELECTION DB_REP_FULL_ELECTION_TIMEOUT 5553 DB_REP_HANDLE_DEAD DB_REP_HEARTBEAT_MONITOR 5554 DB_REP_HEARTBEAT_SEND DB_REP_HOLDELECTION DB_REP_IGNORE 5555 DB_REP_ISPERM DB_REP_JOIN_FAILURE DB_REP_LEASE_EXPIRED 5556 DB_REP_LEASE_TIMEOUT DB_REP_LOCKOUT DB_REP_LOGREADY 5557 DB_REP_LOGSONLY DB_REP_MASTER DB_REP_NEWMASTER DB_REP_NEWSITE 5558 DB_REP_NOBUFFER DB_REP_NOTPERM DB_REP_OUTDATED DB_REP_PAGEDONE 5559 DB_REP_PERMANENT DB_REP_REREQUEST DB_REP_STARTUPDONE 5560 DB_REP_UNAVAIL DB_REVSPLITOFF DB_RMW DB_RPCCLIENT 5561 DB_RPC_SERVERPROG DB_RPC_SERVERVERS DB_RUNRECOVERY DB_SALVAGE 5562 DB_SA_SKIPFIRSTKEY DB_SECONDARY_BAD DB_SEQUENCE_OLDVER 5563 DB_SEQUENCE_VERSION DB_SEQUENTIAL DB_SEQ_DEC DB_SEQ_INC 5564 DB_SEQ_RANGE_SET DB_SEQ_WRAP DB_SEQ_WRAPPED DB_SET 5565 DB_SET_LOCK_TIMEOUT DB_SET_RANGE DB_SET_RECNO DB_SET_TXN_NOW 5566 DB_SET_TXN_TIMEOUT DB_SNAPSHOT DB_SPARE_FLAG DB_STAT_ALL 5567 DB_STAT_CLEAR DB_STAT_LOCK_CONF DB_STAT_LOCK_LOCKERS 5568 DB_STAT_LOCK_OBJECTS DB_STAT_LOCK_PARAMS DB_STAT_MEMP_HASH 5569 DB_STAT_MEMP_NOERROR DB_STAT_NOERROR DB_STAT_SUBSYSTEM 5570 DB_ST_DUPOK DB_ST_DUPSET DB_ST_DUPSORT DB_ST_IS_RECNO 5571 DB_ST_OVFL_LEAF DB_ST_RECNUM DB_ST_RELEN DB_ST_TOPLEVEL 5572 DB_SURPRISE_KID DB_SWAPBYTES DB_SYSTEM_MEM DB_TEMPORARY 5573 DB_TEST_ELECTINIT DB_TEST_ELECTSEND DB_TEST_ELECTVOTE1 5574 DB_TEST_ELECTVOTE2 DB_TEST_ELECTWAIT1 DB_TEST_ELECTWAIT2 5575 DB_TEST_POSTDESTROY DB_TEST_POSTLOG DB_TEST_POSTLOGMETA 5576 DB_TEST_POSTOPEN DB_TEST_POSTRENAME DB_TEST_POSTSYNC 5577 DB_TEST_PREDESTROY DB_TEST_PREOPEN DB_TEST_PRERENAME 5578 DB_TEST_RECYCLE DB_TEST_SUBDB_LOCKS DB_THREAD DB_THREADID_STRLEN 5579 DB_TIMEOUT DB_TIME_NOTGRANTED DB_TRUNCATE DB_TXNMAGIC 5580 DB_TXNVERSION DB_TXN_CKP DB_TXN_LOCK DB_TXN_LOCK_2PL 5581 DB_TXN_LOCK_MASK DB_TXN_LOCK_OPTIMIST DB_TXN_LOCK_OPTIMISTIC 5582 DB_TXN_LOG_MASK DB_TXN_LOG_REDO DB_TXN_LOG_UNDO 5583 DB_TXN_LOG_UNDOREDO DB_TXN_NOSYNC DB_TXN_NOT_DURABLE 5584 DB_TXN_NOWAIT DB_TXN_REDO DB_TXN_SNAPSHOT DB_TXN_SYNC 5585 DB_TXN_UNDO DB_TXN_WAIT DB_TXN_WRITE_NOSYNC DB_UNREF 5586 DB_UPDATE_SECONDARY DB_UPGRADE DB_USERCOPY_GETDATA 5587 DB_USERCOPY_SETDATA DB_USE_ENVIRON DB_USE_ENVIRON_ROOT 5588 DB_VERB_CHKPOINT DB_VERB_DEADLOCK DB_VERB_FILEOPS 5589 DB_VERB_FILEOPS_ALL DB_VERB_RECOVERY DB_VERB_REGISTER 5590 DB_VERB_REPLICATION DB_VERB_REPMGR_CONNFAIL DB_VERB_REPMGR_MISC 5591 DB_VERB_REP_ELECT DB_VERB_REP_LEASE DB_VERB_REP_MISC 5592 DB_VERB_REP_MSGS DB_VERB_REP_SYNC DB_VERB_WAITSFOR DB_VERIFY 5593 DB_VERIFY_BAD DB_VERIFY_FATAL DB_VERSION_MAJOR DB_VERSION_MINOR 5594 DB_VERSION_MISMATCH DB_VERSION_PATCH DB_VRFY_FLAGMASK 5595 DB_WRITECURSOR DB_WRITELOCK DB_WRITEOPEN DB_WRNOSYNC 5596 DB_XA_CREATE DB_XIDDATASIZE DB_YIELDCPU DB_debug_FLAG 5597 DB_user_BEGIN), 5598 {name=>"DB_BTREE", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 2) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 3)\n", "#endif\n"]}, 5599 {name=>"DB_HASH", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 2) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 3)\n", "#endif\n"]}, 5600 {name=>"DB_LOCK_DUMP", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 2) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 3)\n", "#endif\n"]}, 5601 {name=>"DB_LOCK_GET", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 2) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 3)\n", "#endif\n"]}, 5602 {name=>"DB_LOCK_GET_TIMEOUT", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 14)\n", "#endif\n"]}, 5603 {name=>"DB_LOCK_INHERIT", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 2) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 7) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 7 && \\\n DB_VERSION_PATCH >= 1)\n", "#endif\n"]}, 5604 {name=>"DB_LOCK_PUT", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 2) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 3)\n", "#endif\n"]}, 5605 {name=>"DB_LOCK_PUT_ALL", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 2) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 3)\n", "#endif\n"]}, 5606 {name=>"DB_LOCK_PUT_OBJ", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 2) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 3)\n", "#endif\n"]}, 5607 {name=>"DB_LOCK_PUT_READ", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 14)\n", "#endif\n"]}, 5608 {name=>"DB_LOCK_TIMEOUT", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 14)\n", "#endif\n"]}, 5609 {name=>"DB_LOCK_TRADE", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 24)\n", "#endif\n"]}, 5610 {name=>"DB_LOCK_UPGRADE_WRITE", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 3) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 3) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 3 && \\\n DB_VERSION_PATCH >= 11)\n", "#endif\n"]}, 5611 {name=>"DB_PRIORITY_DEFAULT", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 24)\n", "#endif\n"]}, 5612 {name=>"DB_PRIORITY_HIGH", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 24)\n", "#endif\n"]}, 5613 {name=>"DB_PRIORITY_LOW", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 24)\n", "#endif\n"]}, 5614 {name=>"DB_PRIORITY_UNCHANGED", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 6) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 6 && \\\n DB_VERSION_PATCH >= 11)\n", "#endif\n"]}, 5615 {name=>"DB_PRIORITY_VERY_HIGH", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 24)\n", "#endif\n"]}, 5616 {name=>"DB_PRIORITY_VERY_LOW", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 24)\n", "#endif\n"]}, 5617 {name=>"DB_QUEUE", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 3) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 55)\n", "#endif\n"]}, 5618 {name=>"DB_RECNO", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 2) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 3)\n", "#endif\n"]}, 5619 {name=>"DB_TXN_ABORT", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 3) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 14)\n", "#endif\n"]}, 5620 {name=>"DB_TXN_APPLY", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 14)\n", "#endif\n"]}, 5621 {name=>"DB_TXN_BACKWARD_ROLL", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 3) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 14)\n", "#endif\n"]}, 5622 {name=>"DB_TXN_FORWARD_ROLL", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 3) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 14)\n", "#endif\n"]}, 5623 {name=>"DB_TXN_OPENFILES", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 3) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 14)\n", "#endif\n"]}, 5624 {name=>"DB_TXN_POPENFILES", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 3) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 3) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 3 && \\\n DB_VERSION_PATCH >= 11)\n", "#endif\n"]}, 5625 {name=>"DB_TXN_PRINT", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 24)\n", "#endif\n"]}, 5626 {name=>"DB_UNKNOWN", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 2) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 3)\n", "#endif\n"]}, 5627 {name=>"DB_VERSION_STRING", type=>"PV"}); 5628 5629print constant_types(); # macro defs 5630foreach (C_constant ("BerkeleyDB", 'constant', 'IV', $types, undef, 3, @names) ) { 5631 print $_, "\n"; # C constant subs 5632} 5633print "#### XS Section:\n"; 5634print XS_constant ("BerkeleyDB", $types); 5635__END__ 5636 */ 5637 5638 switch (len) { 5639 case 6: 5640 return constant_6 (aTHX_ name, iv_return); 5641 break; 5642 case 7: 5643 return constant_7 (aTHX_ name, iv_return); 5644 break; 5645 case 8: 5646 return constant_8 (aTHX_ name, iv_return); 5647 break; 5648 case 9: 5649 return constant_9 (aTHX_ name, iv_return); 5650 break; 5651 case 10: 5652 return constant_10 (aTHX_ name, iv_return); 5653 break; 5654 case 11: 5655 return constant_11 (aTHX_ name, iv_return); 5656 break; 5657 case 12: 5658 return constant_12 (aTHX_ name, iv_return); 5659 break; 5660 case 13: 5661 return constant_13 (aTHX_ name, iv_return); 5662 break; 5663 case 14: 5664 return constant_14 (aTHX_ name, iv_return); 5665 break; 5666 case 15: 5667 return constant_15 (aTHX_ name, iv_return); 5668 break; 5669 case 16: 5670 return constant_16 (aTHX_ name, iv_return); 5671 break; 5672 case 17: 5673 return constant_17 (aTHX_ name, iv_return, pv_return); 5674 break; 5675 case 18: 5676 return constant_18 (aTHX_ name, iv_return); 5677 break; 5678 case 19: 5679 return constant_19 (aTHX_ name, iv_return); 5680 break; 5681 case 20: 5682 return constant_20 (aTHX_ name, iv_return); 5683 break; 5684 case 21: 5685 return constant_21 (aTHX_ name, iv_return); 5686 break; 5687 case 22: 5688 return constant_22 (aTHX_ name, iv_return); 5689 break; 5690 case 23: 5691 return constant_23 (aTHX_ name, iv_return); 5692 break; 5693 case 24: 5694 return constant_24 (aTHX_ name, iv_return); 5695 break; 5696 case 27: 5697 if (memEQ(name, "DB_REPMGR_CONF_2SITE_STRICT", 27)) { 5698#ifdef DB_REPMGR_CONF_2SITE_STRICT 5699 *iv_return = DB_REPMGR_CONF_2SITE_STRICT; 5700 return PERL_constant_ISIV; 5701#else 5702 return PERL_constant_NOTDEF; 5703#endif 5704 } 5705 break; 5706 case 28: 5707 if (memEQ(name, "DB_REP_FULL_ELECTION_TIMEOUT", 28)) { 5708#ifdef DB_REP_FULL_ELECTION_TIMEOUT 5709 *iv_return = DB_REP_FULL_ELECTION_TIMEOUT; 5710 return PERL_constant_ISIV; 5711#else 5712 return PERL_constant_NOTDEF; 5713#endif 5714 } 5715 break; 5716 } 5717 return PERL_constant_NOTFOUND; 5718} 5719 5720