开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > MySQL数据库 > 查看源码
constants.h
资源名称：mysql-4.1.16-win-src.zip　[点击查看]
上传用户：romrleung
上传日期：2022-05-23
资源大小：18897k
文件大小：114k
源码类别：

MySQL数据库

开发平台：

Visual C++

constants.h：源码内容
  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
  13. #ifndef NVTYPE
  14. typedef 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
  23. static int
  24. constant_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. }
  78. static int
  79. constant_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 >= 0)
  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. }
  147. static int
  148. constant_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 */
  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 >= 0)
  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 'O':
  202.     if (memEQ(name, "DB_FORCE", 8)) {
  203.     /*                   ^         */
  204. #ifdef DB_FORCE
  205.       *iv_return = DB_FORCE;
  206.       return PERL_constant_ISIV;
  207. #else
  208.       return PERL_constant_NOTDEF;
  209. #endif
  210.     }
  211.     break;
  212.   case 'T':
  213.     if (memEQ(name, "DB_BTREE", 8)) {
  214.     /*                   ^         */
  215. #if (DB_VERSION_MAJOR > 2) || 
  216.     (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || 
  217.     (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && 
  218.      DB_VERSION_PATCH >= 0)
  219.       *iv_return = DB_BTREE;
  220.       return PERL_constant_ISIV;
  221. #else
  222.       return PERL_constant_NOTDEF;
  223. #endif
  224.     }
  225.     break;
  226.   case 'U':
  227.     if (memEQ(name, "DB_QUEUE", 8)) {
  228.     /*                   ^         */
  229. #if (DB_VERSION_MAJOR > 3) || 
  230.     (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 0) || 
  231.     (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 0 && 
  232.      DB_VERSION_PATCH >= 55)
  233.       *iv_return = DB_QUEUE;
  234.       return PERL_constant_ISIV;
  235. #else
  236.       return PERL_constant_NOTDEF;
  237. #endif
  238.     }
  239.     break;
  240.   }
  241.   return PERL_constant_NOTFOUND;
  242. }
  244. static int
  245. constant_9 (pTHX_ const char *name, IV *iv_return) {
  246.   /* When generated this function returned values for the list of names given
  247.      here.  However, subsequent manual editing may have added or removed some.
  248.      DB_APPEND DB_BEFORE DB_CLIENT DB_COMMIT DB_CREATE DB_CURLSN DB_DIRECT
  249.      DB_EXTENT DB_GETREC DB_NOCOPY DB_NOMMAP DB_NOSYNC DB_RDONLY DB_RECNUM
  250.      DB_THREAD DB_VERIFY */
  251.   /* Offset 7 gives the best switch position.  */
  252.   switch (name[7]) {
  253.   case 'A':
  254.     if (memEQ(name, "DB_NOMMAP", 9)) {
  255.     /*                      ^       */
  256. #ifdef DB_NOMMAP
  257.       *iv_return = DB_NOMMAP;
  258.       return PERL_constant_ISIV;
  259. #else
  260.       return PERL_constant_NOTDEF;
  261. #endif
  262.     }
  263.     if (memEQ(name, "DB_THREAD", 9)) {
  264.     /*                      ^       */
  265. #ifdef DB_THREAD
  266.       *iv_return = DB_THREAD;
  267.       return PERL_constant_ISIV;
  268. #else
  269.       return PERL_constant_NOTDEF;
  270. #endif
  271.     }
  272.     break;
  273.   case 'C':
  274.     if (memEQ(name, "DB_DIRECT", 9)) {
  275.     /*                      ^       */
  276. #ifdef DB_DIRECT
  277.       *iv_return = DB_DIRECT;
  278.       return PERL_constant_ISIV;
  279. #else
  280.       return PERL_constant_NOTDEF;
  281. #endif
  282.     }
  283.     break;
  284.   case 'E':
  285.     if (memEQ(name, "DB_GETREC", 9)) {
  286.     /*                      ^       */
  287. #ifdef DB_GETREC
  288.       *iv_return = DB_GETREC;
  289.       return PERL_constant_ISIV;
  290. #else
  291.       return PERL_constant_NOTDEF;
  292. #endif
  293.     }
  294.     break;
  295.   case 'F':
  296.     if (memEQ(name, "DB_VERIFY", 9)) {
  297.     /*                      ^       */
  298. #ifdef DB_VERIFY
  299.       *iv_return = DB_VERIFY;
  300.       return PERL_constant_ISIV;
  301. #else
  302.       return PERL_constant_NOTDEF;
  303. #endif
  304.     }
  305.     break;
  306.   case 'I':
  307.     if (memEQ(name, "DB_COMMIT", 9)) {
  308.     /*                      ^       */
  309. #ifdef DB_COMMIT
  310.       *iv_return = DB_COMMIT;
  311.       return PERL_constant_ISIV;
  312. #else
  313.       return PERL_constant_NOTDEF;
  314. #endif
  315.     }
  316.     break;
  317.   case 'L':
  318.     if (memEQ(name, "DB_RDONLY", 9)) {
  319.     /*                      ^       */
  320. #ifdef DB_RDONLY
  321.       *iv_return = DB_RDONLY;
  322.       return PERL_constant_ISIV;
  323. #else
  324.       return PERL_constant_NOTDEF;
  325. #endif
  326.     }
  327.     break;
  328.   case 'N':
  329.     if (memEQ(name, "DB_APPEND", 9)) {
  330.     /*                      ^       */
  331. #ifdef DB_APPEND
  332.       *iv_return = DB_APPEND;
  333.       return PERL_constant_ISIV;
  334. #else
  335.       return PERL_constant_NOTDEF;
  336. #endif
  337.     }
  338.     if (memEQ(name, "DB_CLIENT", 9)) {
  339.     /*                      ^       */
  340. #ifdef DB_CLIENT
  341.       *iv_return = DB_CLIENT;
  342.       return PERL_constant_ISIV;
  343. #else
  344.       return PERL_constant_NOTDEF;
  345. #endif
  346.     }
  347.     if (memEQ(name, "DB_EXTENT", 9)) {
  348.     /*                      ^       */
  349. #ifdef DB_EXTENT
  350.       *iv_return = DB_EXTENT;
  351.       return PERL_constant_ISIV;
  352. #else
  353.       return PERL_constant_NOTDEF;
  354. #endif
  355.     }
  356.     if (memEQ(name, "DB_NOSYNC", 9)) {
  357.     /*                      ^       */
  358. #ifdef DB_NOSYNC
  359.       *iv_return = DB_NOSYNC;
  360.       return PERL_constant_ISIV;
  361. #else
  362.       return PERL_constant_NOTDEF;
  363. #endif
  364.     }
  365.     break;
  366.   case 'P':
  367.     if (memEQ(name, "DB_NOCOPY", 9)) {
  368.     /*                      ^       */
  369. #ifdef DB_NOCOPY
  370.       *iv_return = DB_NOCOPY;
  371.       return PERL_constant_ISIV;
  372. #else
  373.       return PERL_constant_NOTDEF;
  374. #endif
  375.     }
  376.     break;
  377.   case 'R':
  378.     if (memEQ(name, "DB_BEFORE", 9)) {
  379.     /*                      ^       */
  380. #ifdef DB_BEFORE
  381.       *iv_return = DB_BEFORE;
  382.       return PERL_constant_ISIV;
  383. #else
  384.       return PERL_constant_NOTDEF;
  385. #endif
  386.     }
  387.     break;
  388.   case 'S':
  389.     if (memEQ(name, "DB_CURLSN", 9)) {
  390.     /*                      ^       */
  391. #ifdef DB_CURLSN
  392.       *iv_return = DB_CURLSN;
  393.       return PERL_constant_ISIV;
  394. #else
  395.       return PERL_constant_NOTDEF;
  396. #endif
  397.     }
  398.     break;
  399.   case 'T':
  400.     if (memEQ(name, "DB_CREATE", 9)) {
  401.     /*                      ^       */
  402. #ifdef DB_CREATE
  403.       *iv_return = DB_CREATE;
  404.       return PERL_constant_ISIV;
  405. #else
  406.       return PERL_constant_NOTDEF;
  407. #endif
  408.     }
  409.     break;
  410.   case 'U':
  411.     if (memEQ(name, "DB_RECNUM", 9)) {
  412.     /*                      ^       */
  413. #ifdef DB_RECNUM
  414.       *iv_return = DB_RECNUM;
  415.       return PERL_constant_ISIV;
  416. #else
  417.       return PERL_constant_NOTDEF;
  418. #endif
  419.     }
  420.     break;
  421.   }
  422.   return PERL_constant_NOTFOUND;
  423. }
  425. static int
  426. constant_10 (pTHX_ const char *name, IV *iv_return) {
  427.   /* When generated this function returned values for the list of names given
  428.      here.  However, subsequent manual editing may have added or removed some.
  429.      DB_CONSUME DB_CURRENT DB_DELETED DB_DUPSORT DB_ENCRYPT DB_ENV_CDB
  430.      DB_ENV_TXN DB_JOINENV DB_KEYLAST DB_NOPANIC DB_OK_HASH DB_PRIVATE
  431.      DB_PR_PAGE DB_RECOVER DB_SALVAGE DB_TIMEOUT DB_TXN_CKP DB_UNKNOWN
  432.      DB_UPGRADE */
  433.   /* Offset 8 gives the best switch position.  */
  434.   switch (name[8]) {
  435.   case 'D':
  436.     if (memEQ(name, "DB_ENV_CDB", 10)) {
  437.     /*                       ^        */
  438. #ifdef DB_ENV_CDB
  439.       *iv_return = DB_ENV_CDB;
  440.       return PERL_constant_ISIV;
  441. #else
  442.       return PERL_constant_NOTDEF;
  443. #endif
  444.     }
  445.     if (memEQ(name, "DB_UPGRADE", 10)) {
  446.     /*                       ^        */
  447. #ifdef DB_UPGRADE
  448.       *iv_return = DB_UPGRADE;
  449.       return PERL_constant_ISIV;
  450. #else
  451.       return PERL_constant_NOTDEF;
  452. #endif
  453.     }
  454.     break;
  455.   case 'E':
  456.     if (memEQ(name, "DB_DELETED", 10)) {
  457.     /*                       ^        */
  458. #ifdef DB_DELETED
  459.       *iv_return = DB_DELETED;
  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_PR_PAGE", 10)) {
  477.     /*                       ^        */
  478. #ifdef DB_PR_PAGE
  479.       *iv_return = DB_PR_PAGE;
  480.       return PERL_constant_ISIV;
  481. #else
  482.       return PERL_constant_NOTDEF;
  483. #endif
  484.     }
  485.     if (memEQ(name, "DB_SALVAGE", 10)) {
  486.     /*                       ^        */
  487. #ifdef DB_SALVAGE
  488.       *iv_return = DB_SALVAGE;
  489.       return PERL_constant_ISIV;
  490. #else
  491.       return PERL_constant_NOTDEF;
  492. #endif
  493.     }
  494.     break;
  495.   case 'I':
  496.     if (memEQ(name, "DB_NOPANIC", 10)) {
  497.     /*                       ^        */
  498. #ifdef DB_NOPANIC
  499.       *iv_return = DB_NOPANIC;
  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_TXN_CKP", 10)) {
  508.     /*                       ^        */
  509. #ifdef DB_TXN_CKP
  510.       *iv_return = DB_TXN_CKP;
  511.       return PERL_constant_ISIV;
  512. #else
  513.       return PERL_constant_NOTDEF;
  514. #endif
  515.     }
  516.     break;
  517.   case 'M':
  518.     if (memEQ(name, "DB_CONSUME", 10)) {
  519.     /*                       ^        */
  520. #ifdef DB_CONSUME
  521.       *iv_return = DB_CONSUME;
  522.       return PERL_constant_ISIV;
  523. #else
  524.       return PERL_constant_NOTDEF;
  525. #endif
  526.     }
  527.     break;
  528.   case 'N':
  529.     if (memEQ(name, "DB_CURRENT", 10)) {
  530.     /*                       ^        */
  531. #ifdef DB_CURRENT
  532.       *iv_return = DB_CURRENT;
  533.       return PERL_constant_ISIV;
  534. #else
  535.       return PERL_constant_NOTDEF;
  536. #endif
  537.     }
  538.     if (memEQ(name, "DB_JOINENV", 10)) {
  539.     /*                       ^        */
  540. #ifdef DB_JOINENV
  541.       *iv_return = DB_JOINENV;
  542.       return PERL_constant_ISIV;
  543. #else
  544.       return PERL_constant_NOTDEF;
  545. #endif
  546.     }
  547.     break;
  548.   case 'P':
  549.     if (memEQ(name, "DB_ENCRYPT", 10)) {
  550.     /*                       ^        */
  551. #ifdef DB_ENCRYPT
  552.       *iv_return = DB_ENCRYPT;
  553.       return PERL_constant_ISIV;
  554. #else
  555.       return PERL_constant_NOTDEF;
  556. #endif
  557.     }
  558.     break;
  559.   case 'R':
  560.     if (memEQ(name, "DB_DUPSORT", 10)) {
  561.     /*                       ^        */
  562. #ifdef DB_DUPSORT
  563.       *iv_return = DB_DUPSORT;
  564.       return PERL_constant_ISIV;
  565. #else
  566.       return PERL_constant_NOTDEF;
  567. #endif
  568.     }
  569.     break;
  570.   case 'S':
  571.     if (memEQ(name, "DB_KEYLAST", 10)) {
  572.     /*                       ^        */
  573. #ifdef DB_KEYLAST
  574.       *iv_return = DB_KEYLAST;
  575.       return PERL_constant_ISIV;
  576. #else
  577.       return PERL_constant_NOTDEF;
  578. #endif
  579.     }
  580.     if (memEQ(name, "DB_OK_HASH", 10)) {
  581.     /*                       ^        */
  582. #ifdef DB_OK_HASH
  583.       *iv_return = DB_OK_HASH;
  584.       return PERL_constant_ISIV;
  585. #else
  586.       return PERL_constant_NOTDEF;
  587. #endif
  588.     }
  589.     break;
  590.   case 'T':
  591.     if (memEQ(name, "DB_PRIVATE", 10)) {
  592.     /*                       ^        */
  593. #ifdef DB_PRIVATE
  594.       *iv_return = DB_PRIVATE;
  595.       return PERL_constant_ISIV;
  596. #else
  597.       return PERL_constant_NOTDEF;
  598. #endif
  599.     }
  600.     break;
  601.   case 'U':
  602.     if (memEQ(name, "DB_TIMEOUT", 10)) {
  603.     /*                       ^        */
  604. #ifdef DB_TIMEOUT
  605.       *iv_return = DB_TIMEOUT;
  606.       return PERL_constant_ISIV;
  607. #else
  608.       return PERL_constant_NOTDEF;
  609. #endif
  610.     }
  611.     break;
  612.   case 'W':
  613.     if (memEQ(name, "DB_UNKNOWN", 10)) {
  614.     /*                       ^        */
  615. #if (DB_VERSION_MAJOR > 2) || 
  616.     (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || 
  617.     (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && 
  618.      DB_VERSION_PATCH >= 0)
  619.       *iv_return = DB_UNKNOWN;
  620.       return PERL_constant_ISIV;
  621. #else
  622.       return PERL_constant_NOTDEF;
  623. #endif
  624.     }
  625.     break;
  626.   case 'X':
  627.     if (memEQ(name, "DB_ENV_TXN", 10)) {
  628.     /*                       ^        */
  629. #ifdef DB_ENV_TXN
  630.       *iv_return = DB_ENV_TXN;
  631.       return PERL_constant_ISIV;
  632. #else
  633.       return PERL_constant_NOTDEF;
  634. #endif
  635.     }
  636.     break;
  637.   }
  638.   return PERL_constant_NOTFOUND;
  639. }
  641. static int
  642. constant_11 (pTHX_ const char *name, IV *iv_return) {
  643.   /* When generated this function returned values for the list of names given
  644.      here.  However, subsequent manual editing may have added or removed some.
  645.      DB_APP_INIT DB_ARCH_ABS DB_ARCH_LOG DB_FIXEDLEN DB_GET_BOTH DB_INIT_CDB
  646.      DB_INIT_LOG DB_INIT_TXN DB_KEYEMPTY DB_KEYEXIST DB_KEYFIRST DB_LOCKDOWN
  647.      DB_LOCK_GET DB_LOCK_PUT DB_LOGMAGIC DB_LOG_DISK DB_MULTIPLE DB_NEXT_DUP
  648.      DB_NOSERVER DB_NOTFOUND DB_OK_BTREE DB_OK_QUEUE DB_OK_RECNO DB_POSITION
  649.      DB_QAMMAGIC DB_RENUMBER DB_SNAPSHOT DB_TRUNCATE DB_TXNMAGIC DB_TXN_LOCK
  650.      DB_TXN_REDO DB_TXN_SYNC DB_TXN_UNDO DB_WRNOSYNC DB_YIELDCPU */
  651.   /* Offset 8 gives the best switch position.  */
  652.   switch (name[8]) {
  653.   case 'A':
  654.     if (memEQ(name, "DB_ARCH_ABS", 11)) {
  655.     /*                       ^         */
  656. #ifdef DB_ARCH_ABS
  657.       *iv_return = DB_ARCH_ABS;
  658.       return PERL_constant_ISIV;
  659. #else
  660.       return PERL_constant_NOTDEF;
  661. #endif
  662.     }
  663.     if (memEQ(name, "DB_TRUNCATE", 11)) {
  664.     /*                       ^         */
  665. #ifdef DB_TRUNCATE
  666.       *iv_return = DB_TRUNCATE;
  667.       return PERL_constant_ISIV;
  668. #else
  669.       return PERL_constant_NOTDEF;
  670. #endif
  671.     }
  672.     break;
  673.   case 'B':
  674.     if (memEQ(name, "DB_RENUMBER", 11)) {
  675.     /*                       ^         */
  676. #ifdef DB_RENUMBER
  677.       *iv_return = DB_RENUMBER;
  678.       return PERL_constant_ISIV;
  679. #else
  680.       return PERL_constant_NOTDEF;
  681. #endif
  682.     }
  683.     break;
  684.   case 'C':
  685.     if (memEQ(name, "DB_INIT_CDB", 11)) {
  686.     /*                       ^         */
  687. #ifdef DB_INIT_CDB
  688.       *iv_return = DB_INIT_CDB;
  689.       return PERL_constant_ISIV;
  690. #else
  691.       return PERL_constant_NOTDEF;
  692. #endif
  693.     }
  694.     if (memEQ(name, "DB_OK_RECNO", 11)) {
  695.     /*                       ^         */
  696. #ifdef DB_OK_RECNO
  697.       *iv_return = DB_OK_RECNO;
  698.       return PERL_constant_ISIV;
  699. #else
  700.       return PERL_constant_NOTDEF;
  701. #endif
  702.     }
  703.     if (memEQ(name, "DB_YIELDCPU", 11)) {
  704.     /*                       ^         */
  705. #ifdef DB_YIELDCPU
  706.       *iv_return = DB_YIELDCPU;
  707.       return PERL_constant_ISIV;
  708. #else
  709.       return PERL_constant_NOTDEF;
  710. #endif
  711.     }
  712.     break;
  713.   case 'D':
  714.     if (memEQ(name, "DB_NEXT_DUP", 11)) {
  715.     /*                       ^         */
  716. #ifdef DB_NEXT_DUP
  717.       *iv_return = DB_NEXT_DUP;
  718.       return PERL_constant_ISIV;
  719. #else
  720.       return PERL_constant_NOTDEF;
  721. #endif
  722.     }
  723.     break;
  724.   case 'E':
  725.     if (memEQ(name, "DB_OK_QUEUE", 11)) {
  726.     /*                       ^         */
  727. #ifdef DB_OK_QUEUE
  728.       *iv_return = DB_OK_QUEUE;
  729.       return PERL_constant_ISIV;
  730. #else
  731.       return PERL_constant_NOTDEF;
  732. #endif
  733.     }
  734.     if (memEQ(name, "DB_TXN_REDO", 11)) {
  735.     /*                       ^         */
  736. #ifdef DB_TXN_REDO
  737.       *iv_return = DB_TXN_REDO;
  738.       return PERL_constant_ISIV;
  739. #else
  740.       return PERL_constant_NOTDEF;
  741. #endif
  742.     }
  743.     break;
  744.   case 'G':
  745.     if (memEQ(name, "DB_LOCK_GET", 11)) {
  746.     /*                       ^         */
  747. #if (DB_VERSION_MAJOR > 2) || 
  748.     (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || 
  749.     (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && 
  750.      DB_VERSION_PATCH >= 0)
  751.       *iv_return = DB_LOCK_GET;
  752.       return PERL_constant_ISIV;
  753. #else
  754.       return PERL_constant_NOTDEF;
  755. #endif
  756.     }
  757.     if (memEQ(name, "DB_LOGMAGIC", 11)) {
  758.     /*                       ^         */
  759. #ifdef DB_LOGMAGIC
  760.       *iv_return = DB_LOGMAGIC;
  761.       return PERL_constant_ISIV;
  762. #else
  763.       return PERL_constant_NOTDEF;
  764. #endif
  765.     }
  766.     if (memEQ(name, "DB_QAMMAGIC", 11)) {
  767.     /*                       ^         */
  768. #ifdef DB_QAMMAGIC
  769.       *iv_return = DB_QAMMAGIC;
  770.       return PERL_constant_ISIV;
  771. #else
  772.       return PERL_constant_NOTDEF;
  773. #endif
  774.     }
  775.     if (memEQ(name, "DB_TXNMAGIC", 11)) {
  776.     /*                       ^         */
  777. #ifdef DB_TXNMAGIC
  778.       *iv_return = DB_TXNMAGIC;
  779.       return PERL_constant_ISIV;
  780. #else
  781.       return PERL_constant_NOTDEF;
  782. #endif
  783.     }
  784.     break;
  785.   case 'H':
  786.     if (memEQ(name, "DB_SNAPSHOT", 11)) {
  787.     /*                       ^         */
  788. #ifdef DB_SNAPSHOT
  789.       *iv_return = DB_SNAPSHOT;
  790.       return PERL_constant_ISIV;
  791. #else
  792.       return PERL_constant_NOTDEF;
  793. #endif
  794.     }
  795.     break;
  796.   case 'I':
  797.     if (memEQ(name, "DB_KEYEXIST", 11)) {
  798.     /*                       ^         */
  799. #ifdef DB_KEYEXIST
  800.       *iv_return = DB_KEYEXIST;
  801.       return PERL_constant_ISIV;
  802. #else
  803.       return PERL_constant_NOTDEF;
  804. #endif
  805.     }
  806.     if (memEQ(name, "DB_LOG_DISK", 11)) {
  807.     /*                       ^         */
  808. #ifdef DB_LOG_DISK
  809.       *iv_return = DB_LOG_DISK;
  810.       return PERL_constant_ISIV;
  811. #else
  812.       return PERL_constant_NOTDEF;
  813. #endif
  814.     }
  815.     if (memEQ(name, "DB_POSITION", 11)) {
  816.     /*                       ^         */
  817. #ifdef DB_POSITION
  818.       *iv_return = DB_POSITION;
  819.       return PERL_constant_ISIV;
  820. #else
  821.       return PERL_constant_NOTDEF;
  822. #endif
  823.     }
  824.     break;
  825.   case 'L':
  826.     if (memEQ(name, "DB_ARCH_LOG", 11)) {
  827.     /*                       ^         */
  828. #ifdef DB_ARCH_LOG
  829.       *iv_return = DB_ARCH_LOG;
  830.       return PERL_constant_ISIV;
  831. #else
  832.       return PERL_constant_NOTDEF;
  833. #endif
  834.     }
  835.     if (memEQ(name, "DB_FIXEDLEN", 11)) {
  836.     /*                       ^         */
  837. #ifdef DB_FIXEDLEN
  838.       *iv_return = DB_FIXEDLEN;
  839.       return PERL_constant_ISIV;
  840. #else
  841.       return PERL_constant_NOTDEF;
  842. #endif
  843.     }
  844.     if (memEQ(name, "DB_INIT_LOG", 11)) {
  845.     /*                       ^         */
  846. #ifdef DB_INIT_LOG
  847.       *iv_return = DB_INIT_LOG;
  848.       return PERL_constant_ISIV;
  849. #else
  850.       return PERL_constant_NOTDEF;
  851. #endif
  852.     }
  853.     break;
  854.   case 'N':
  855.     if (memEQ(name, "DB_APP_INIT", 11)) {
  856.     /*                       ^         */
  857. #ifdef DB_APP_INIT
  858.       *iv_return = DB_APP_INIT;
  859.       return PERL_constant_ISIV;
  860. #else
  861.       return PERL_constant_NOTDEF;
  862. #endif
  863.     }
  864.     if (memEQ(name, "DB_TXN_UNDO", 11)) {
  865.     /*                       ^         */
  866. #ifdef DB_TXN_UNDO
  867.       *iv_return = DB_TXN_UNDO;
  868.       return PERL_constant_ISIV;
  869. #else
  870.       return PERL_constant_NOTDEF;
  871. #endif
  872.     }
  873.     break;
  874.   case 'O':
  875.     if (memEQ(name, "DB_GET_BOTH", 11)) {
  876.     /*                       ^         */
  877. #ifdef DB_GET_BOTH
  878.       *iv_return = DB_GET_BOTH;
  879.       return PERL_constant_ISIV;
  880. #else
  881.       return PERL_constant_NOTDEF;
  882. #endif
  883.     }
  884.     if (memEQ(name, "DB_LOCKDOWN", 11)) {
  885.     /*                       ^         */
  886. #ifdef DB_LOCKDOWN
  887.       *iv_return = DB_LOCKDOWN;
  888.       return PERL_constant_ISIV;
  889. #else
  890.       return PERL_constant_NOTDEF;
  891. #endif
  892.     }
  893.     if (memEQ(name, "DB_TXN_LOCK", 11)) {
  894.     /*                       ^         */
  895. #ifdef DB_TXN_LOCK
  896.       *iv_return = DB_TXN_LOCK;
  897.       return PERL_constant_ISIV;
  898. #else
  899.       return PERL_constant_NOTDEF;
  900. #endif
  901.     }
  902.     break;
  903.   case 'P':
  904.     if (memEQ(name, "DB_KEYEMPTY", 11)) {
  905.     /*                       ^         */
  906. #ifdef DB_KEYEMPTY
  907.       *iv_return = DB_KEYEMPTY;
  908.       return PERL_constant_ISIV;
  909. #else
  910.       return PERL_constant_NOTDEF;
  911. #endif
  912.     }
  913.     if (memEQ(name, "DB_LOCK_PUT", 11)) {
  914.     /*                       ^         */
  915. #if (DB_VERSION_MAJOR > 2) || 
  916.     (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || 
  917.     (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && 
  918.      DB_VERSION_PATCH >= 0)
  919.       *iv_return = DB_LOCK_PUT;
  920.       return PERL_constant_ISIV;
  921. #else
  922.       return PERL_constant_NOTDEF;
  923. #endif
  924.     }
  925.     if (memEQ(name, "DB_MULTIPLE", 11)) {
  926.     /*                       ^         */
  927. #ifdef DB_MULTIPLE
  928.       *iv_return = DB_MULTIPLE;
  929.       return PERL_constant_ISIV;
  930. #else
  931.       return PERL_constant_NOTDEF;
  932. #endif
  933.     }
  934.     break;
  935.   case 'R':
  936.     if (memEQ(name, "DB_KEYFIRST", 11)) {
  937.     /*                       ^         */
  938. #ifdef DB_KEYFIRST
  939.       *iv_return = DB_KEYFIRST;
  940.       return PERL_constant_ISIV;
  941. #else
  942.       return PERL_constant_NOTDEF;
  943. #endif
  944.     }
  945.     if (memEQ(name, "DB_OK_BTREE", 11)) {
  946.     /*                       ^         */
  947. #ifdef DB_OK_BTREE
  948.       *iv_return = DB_OK_BTREE;
  949.       return PERL_constant_ISIV;
  950. #else
  951.       return PERL_constant_NOTDEF;
  952. #endif
  953.     }
  954.     break;
  955.   case 'T':
  956.     if (memEQ(name, "DB_INIT_TXN", 11)) {
  957.     /*                       ^         */
  958. #ifdef DB_INIT_TXN
  959.       *iv_return = DB_INIT_TXN;
  960.       return PERL_constant_ISIV;
  961. #else
  962.       return PERL_constant_NOTDEF;
  963. #endif
  964.     }
  965.     break;
  966.   case 'U':
  967.     if (memEQ(name, "DB_NOTFOUND", 11)) {
  968.     /*                       ^         */
  969. #ifdef DB_NOTFOUND
  970.       *iv_return = DB_NOTFOUND;
  971.       return PERL_constant_ISIV;
  972. #else
  973.       return PERL_constant_NOTDEF;
  974. #endif
  975.     }
  976.     break;
  977.   case 'V':
  978.     if (memEQ(name, "DB_NOSERVER", 11)) {
  979.     /*                       ^         */
  980. #ifdef DB_NOSERVER
  981.       *iv_return = DB_NOSERVER;
  982.       return PERL_constant_ISIV;
  983. #else
  984.       return PERL_constant_NOTDEF;
  985. #endif
  986.     }
  987.     break;
  988.   case 'Y':
  989.     if (memEQ(name, "DB_TXN_SYNC", 11)) {
  990.     /*                       ^         */
  991. #ifdef DB_TXN_SYNC
  992.       *iv_return = DB_TXN_SYNC;
  993.       return PERL_constant_ISIV;
  994. #else
  995.       return PERL_constant_NOTDEF;
  996. #endif
  997.     }
  998.     if (memEQ(name, "DB_WRNOSYNC", 11)) {
  999.     /*                       ^         */
  1000. #ifdef DB_WRNOSYNC
  1001.       *iv_return = DB_WRNOSYNC;
  1002.       return PERL_constant_ISIV;
  1003. #else
  1004.       return PERL_constant_NOTDEF;
  1005. #endif
  1006.     }
  1007.     break;
  1008.   }
  1009.   return PERL_constant_NOTFOUND;
  1010. }
  1012. static int
  1013. constant_12 (pTHX_ const char *name, IV *iv_return) {
  1014.   /* When generated this function returned values for the list of names given
  1015.      here.  However, subsequent manual editing may have added or removed some.
  1016.      DB_ARCH_DATA DB_CDB_ALLDB DB_CL_WRITER DB_DELIMITER DB_DIRECT_DB
  1017.      DB_DUPCURSOR DB_ENV_FATAL DB_FAST_STAT DB_GET_BOTHC DB_GET_RECNO
  1018.      DB_HASHMAGIC DB_INIT_LOCK DB_JOIN_ITEM DB_LOCKMAGIC DB_LOCK_DUMP
  1019.      DB_LOCK_RW_N DB_LOGOLDVER DB_MAX_PAGES DB_MPOOL_NEW DB_NEEDSPLIT
  1020.      DB_NODUPDATA DB_NOLOCKING DB_NORECURSE DB_OVERWRITE DB_PAGEYIELD
  1021.      DB_PAGE_LOCK DB_PERMANENT DB_POSITIONI DB_PRINTABLE DB_QAMOLDVER
  1022.      DB_SET_RANGE DB_SET_RECNO DB_SWAPBYTES DB_TEMPORARY DB_TXN_ABORT
  1023.      DB_TXN_APPLY DB_TXN_PRINT DB_WRITELOCK DB_WRITEOPEN DB_XA_CREATE */
  1024.   /* Offset 3 gives the best switch position.  */
  1025.   switch (name[3]) {
  1026.   case 'A':
  1027.     if (memEQ(name, "DB_ARCH_DATA", 12)) {
  1028.     /*                  ^               */
  1029. #ifdef DB_ARCH_DATA
  1030.       *iv_return = DB_ARCH_DATA;
  1031.       return PERL_constant_ISIV;
  1032. #else
  1033.       return PERL_constant_NOTDEF;
  1034. #endif
  1035.     }
  1036.     break;
  1037.   case 'C':
  1038.     if (memEQ(name, "DB_CDB_ALLDB", 12)) {
  1039.     /*                  ^               */
  1040. #ifdef DB_CDB_ALLDB
  1041.       *iv_return = DB_CDB_ALLDB;
  1042.       return PERL_constant_ISIV;
  1043. #else
  1044.       return PERL_constant_NOTDEF;
  1045. #endif
  1046.     }
  1047.     if (memEQ(name, "DB_CL_WRITER", 12)) {
  1048.     /*                  ^               */
  1049. #ifdef DB_CL_WRITER
  1050.       *iv_return = DB_CL_WRITER;
  1051.       return PERL_constant_ISIV;
  1052. #else
  1053.       return PERL_constant_NOTDEF;
  1054. #endif
  1055.     }
  1056.     break;
  1057.   case 'D':
  1058.     if (memEQ(name, "DB_DELIMITER", 12)) {
  1059.     /*                  ^               */
  1060. #ifdef DB_DELIMITER
  1061.       *iv_return = DB_DELIMITER;
  1062.       return PERL_constant_ISIV;
  1063. #else
  1064.       return PERL_constant_NOTDEF;
  1065. #endif
  1066.     }
  1067.     if (memEQ(name, "DB_DIRECT_DB", 12)) {
  1068.     /*                  ^               */
  1069. #ifdef DB_DIRECT_DB
  1070.       *iv_return = DB_DIRECT_DB;
  1071.       return PERL_constant_ISIV;
  1072. #else
  1073.       return PERL_constant_NOTDEF;
  1074. #endif
  1075.     }
  1076.     if (memEQ(name, "DB_DUPCURSOR", 12)) {
  1077.     /*                  ^               */
  1078. #ifdef DB_DUPCURSOR
  1079.       *iv_return = DB_DUPCURSOR;
  1080.       return PERL_constant_ISIV;
  1081. #else
  1082.       return PERL_constant_NOTDEF;
  1083. #endif
  1084.     }
  1085.     break;
  1086.   case 'E':
  1087.     if (memEQ(name, "DB_ENV_FATAL", 12)) {
  1088.     /*                  ^               */
  1089. #ifdef DB_ENV_FATAL
  1090.       *iv_return = DB_ENV_FATAL;
  1091.       return PERL_constant_ISIV;
  1092. #else
  1093.       return PERL_constant_NOTDEF;
  1094. #endif
  1095.     }
  1096.     break;
  1097.   case 'F':
  1098.     if (memEQ(name, "DB_FAST_STAT", 12)) {
  1099.     /*                  ^               */
  1100. #ifdef DB_FAST_STAT
  1101.       *iv_return = DB_FAST_STAT;
  1102.       return PERL_constant_ISIV;
  1103. #else
  1104.       return PERL_constant_NOTDEF;
  1105. #endif
  1106.     }
  1107.     break;
  1108.   case 'G':
  1109.     if (memEQ(name, "DB_GET_BOTHC", 12)) {
  1110.     /*                  ^               */
  1111. #ifdef DB_GET_BOTHC
  1112.       *iv_return = DB_GET_BOTHC;
  1113.       return PERL_constant_ISIV;
  1114. #else
  1115.       return PERL_constant_NOTDEF;
  1116. #endif
  1117.     }
  1118.     if (memEQ(name, "DB_GET_RECNO", 12)) {
  1119.     /*                  ^               */
  1120. #ifdef DB_GET_RECNO
  1121.       *iv_return = DB_GET_RECNO;
  1122.       return PERL_constant_ISIV;
  1123. #else
  1124.       return PERL_constant_NOTDEF;
  1125. #endif
  1126.     }
  1127.     break;
  1128.   case 'H':
  1129.     if (memEQ(name, "DB_HASHMAGIC", 12)) {
  1130.     /*                  ^               */
  1131. #ifdef DB_HASHMAGIC
  1132.       *iv_return = DB_HASHMAGIC;
  1133.       return PERL_constant_ISIV;
  1134. #else
  1135.       return PERL_constant_NOTDEF;
  1136. #endif
  1137.     }
  1138.     break;
  1139.   case 'I':
  1140.     if (memEQ(name, "DB_INIT_LOCK", 12)) {
  1141.     /*                  ^               */
  1142. #ifdef DB_INIT_LOCK
  1143.       *iv_return = DB_INIT_LOCK;
  1144.       return PERL_constant_ISIV;
  1145. #else
  1146.       return PERL_constant_NOTDEF;
  1147. #endif
  1148.     }
  1149.     break;
  1150.   case 'J':
  1151.     if (memEQ(name, "DB_JOIN_ITEM", 12)) {
  1152.     /*                  ^               */
  1153. #ifdef DB_JOIN_ITEM
  1154.       *iv_return = DB_JOIN_ITEM;
  1155.       return PERL_constant_ISIV;
  1156. #else
  1157.       return PERL_constant_NOTDEF;
  1158. #endif
  1159.     }
  1160.     break;
  1161.   case 'L':
  1162.     if (memEQ(name, "DB_LOCKMAGIC", 12)) {
  1163.     /*                  ^               */
  1164. #ifdef DB_LOCKMAGIC
  1165.       *iv_return = DB_LOCKMAGIC;
  1166.       return PERL_constant_ISIV;
  1167. #else
  1168.       return PERL_constant_NOTDEF;
  1169. #endif
  1170.     }
  1171.     if (memEQ(name, "DB_LOCK_DUMP", 12)) {
  1172.     /*                  ^               */
  1173. #if (DB_VERSION_MAJOR > 2) || 
  1174.     (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || 
  1175.     (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && 
  1176.      DB_VERSION_PATCH >= 0)
  1177.       *iv_return = DB_LOCK_DUMP;
  1178.       return PERL_constant_ISIV;
  1179. #else
  1180.       return PERL_constant_NOTDEF;
  1181. #endif
  1182.     }
  1183.     if (memEQ(name, "DB_LOCK_RW_N", 12)) {
  1184.     /*                  ^               */
  1185. #ifdef DB_LOCK_RW_N
  1186.       *iv_return = DB_LOCK_RW_N;
  1187.       return PERL_constant_ISIV;
  1188. #else
  1189.       return PERL_constant_NOTDEF;
  1190. #endif
  1191.     }
  1192.     if (memEQ(name, "DB_LOGOLDVER", 12)) {
  1193.     /*                  ^               */
  1194. #ifdef DB_LOGOLDVER
  1195.       *iv_return = DB_LOGOLDVER;
  1196.       return PERL_constant_ISIV;
  1197. #else
  1198.       return PERL_constant_NOTDEF;
  1199. #endif
  1200.     }
  1201.     break;
  1202.   case 'M':
  1203.     if (memEQ(name, "DB_MAX_PAGES", 12)) {
  1204.     /*                  ^               */
  1205. #ifdef DB_MAX_PAGES
  1206.       *iv_return = DB_MAX_PAGES;
  1207.       return PERL_constant_ISIV;
  1208. #else
  1209.       return PERL_constant_NOTDEF;
  1210. #endif
  1211.     }
  1212.     if (memEQ(name, "DB_MPOOL_NEW", 12)) {
  1213.     /*                  ^               */
  1214. #ifdef DB_MPOOL_NEW
  1215.       *iv_return = DB_MPOOL_NEW;
  1216.       return PERL_constant_ISIV;
  1217. #else
  1218.       return PERL_constant_NOTDEF;
  1219. #endif
  1220.     }
  1221.     break;
  1222.   case 'N':
  1223.     if (memEQ(name, "DB_NEEDSPLIT", 12)) {
  1224.     /*                  ^               */
  1225. #ifdef DB_NEEDSPLIT
  1226.       *iv_return = DB_NEEDSPLIT;
  1227.       return PERL_constant_ISIV;
  1228. #else
  1229.       return PERL_constant_NOTDEF;
  1230. #endif
  1231.     }
  1232.     if (memEQ(name, "DB_NODUPDATA", 12)) {
  1233.     /*                  ^               */
  1234. #ifdef DB_NODUPDATA
  1235.       *iv_return = DB_NODUPDATA;
  1236.       return PERL_constant_ISIV;
  1237. #else
  1238.       return PERL_constant_NOTDEF;
  1239. #endif
  1240.     }
  1241.     if (memEQ(name, "DB_NOLOCKING", 12)) {
  1242.     /*                  ^               */
  1243. #ifdef DB_NOLOCKING
  1244.       *iv_return = DB_NOLOCKING;
  1245.       return PERL_constant_ISIV;
  1246. #else
  1247.       return PERL_constant_NOTDEF;
  1248. #endif
  1249.     }
  1250.     if (memEQ(name, "DB_NORECURSE", 12)) {
  1251.     /*                  ^               */
  1252. #ifdef DB_NORECURSE
  1253.       *iv_return = DB_NORECURSE;
  1254.       return PERL_constant_ISIV;
  1255. #else
  1256.       return PERL_constant_NOTDEF;
  1257. #endif
  1258.     }
  1259.     break;
  1260.   case 'O':
  1261.     if (memEQ(name, "DB_OVERWRITE", 12)) {
  1262.     /*                  ^               */
  1263. #ifdef DB_OVERWRITE
  1264.       *iv_return = DB_OVERWRITE;
  1265.       return PERL_constant_ISIV;
  1266. #else
  1267.       return PERL_constant_NOTDEF;
  1268. #endif
  1269.     }
  1270.     break;
  1271.   case 'P':
  1272.     if (memEQ(name, "DB_PAGEYIELD", 12)) {
  1273.     /*                  ^               */
  1274. #ifdef DB_PAGEYIELD
  1275.       *iv_return = DB_PAGEYIELD;
  1276.       return PERL_constant_ISIV;
  1277. #else
  1278.       return PERL_constant_NOTDEF;
  1279. #endif
  1280.     }
  1281.     if (memEQ(name, "DB_PAGE_LOCK", 12)) {
  1282.     /*                  ^               */
  1283. #ifdef DB_PAGE_LOCK
  1284.       *iv_return = DB_PAGE_LOCK;
  1285.       return PERL_constant_ISIV;
  1286. #else
  1287.       return PERL_constant_NOTDEF;
  1288. #endif
  1289.     }
  1290.     if (memEQ(name, "DB_PERMANENT", 12)) {
  1291.     /*                  ^               */
  1292. #ifdef DB_PERMANENT
  1293.       *iv_return = DB_PERMANENT;
  1294.       return PERL_constant_ISIV;
  1295. #else
  1296.       return PERL_constant_NOTDEF;
  1297. #endif
  1298.     }
  1299.     if (memEQ(name, "DB_POSITIONI", 12)) {
  1300.     /*                  ^               */
  1301. #ifdef DB_POSITIONI
  1302.       *iv_return = DB_POSITIONI;
  1303.       return PERL_constant_ISIV;
  1304. #else
  1305.       return PERL_constant_NOTDEF;
  1306. #endif
  1307.     }
  1308.     if (memEQ(name, "DB_PRINTABLE", 12)) {
  1309.     /*                  ^               */
  1310. #ifdef DB_PRINTABLE
  1311.       *iv_return = DB_PRINTABLE;
  1312.       return PERL_constant_ISIV;
  1313. #else
  1314.       return PERL_constant_NOTDEF;
  1315. #endif
  1316.     }
  1317.     break;
  1318.   case 'Q':
  1319.     if (memEQ(name, "DB_QAMOLDVER", 12)) {
  1320.     /*                  ^               */
  1321. #ifdef DB_QAMOLDVER
  1322.       *iv_return = DB_QAMOLDVER;
  1323.       return PERL_constant_ISIV;
  1324. #else
  1325.       return PERL_constant_NOTDEF;
  1326. #endif
  1327.     }
  1328.     break;
  1329.   case 'S':
  1330.     if (memEQ(name, "DB_SET_RANGE", 12)) {
  1331.     /*                  ^               */
  1332. #ifdef DB_SET_RANGE
  1333.       *iv_return = DB_SET_RANGE;
  1334.       return PERL_constant_ISIV;
  1335. #else
  1336.       return PERL_constant_NOTDEF;
  1337. #endif
  1338.     }
  1339.     if (memEQ(name, "DB_SET_RECNO", 12)) {
  1340.     /*                  ^               */
  1341. #ifdef DB_SET_RECNO
  1342.       *iv_return = DB_SET_RECNO;
  1343.       return PERL_constant_ISIV;
  1344. #else
  1345.       return PERL_constant_NOTDEF;
  1346. #endif
  1347.     }
  1348.     if (memEQ(name, "DB_SWAPBYTES", 12)) {
  1349.     /*                  ^               */
  1350. #ifdef DB_SWAPBYTES
  1351.       *iv_return = DB_SWAPBYTES;
  1352.       return PERL_constant_ISIV;
  1353. #else
  1354.       return PERL_constant_NOTDEF;
  1355. #endif
  1356.     }
  1357.     break;
  1358.   case 'T':
  1359.     if (memEQ(name, "DB_TEMPORARY", 12)) {
  1360.     /*                  ^               */
  1361. #ifdef DB_TEMPORARY
  1362.       *iv_return = DB_TEMPORARY;
  1363.       return PERL_constant_ISIV;
  1364. #else
  1365.       return PERL_constant_NOTDEF;
  1366. #endif
  1367.     }
  1368.     if (memEQ(name, "DB_TXN_ABORT", 12)) {
  1369.     /*                  ^               */
  1370. #if (DB_VERSION_MAJOR > 3) || 
  1371.     (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || 
  1372.     (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && 
  1373.      DB_VERSION_PATCH >= 12)
  1374.       *iv_return = DB_TXN_ABORT;
  1375.       return PERL_constant_ISIV;
  1376. #else
  1377.       return PERL_constant_NOTDEF;
  1378. #endif
  1379.     }
  1380.     if (memEQ(name, "DB_TXN_APPLY", 12)) {
  1381.     /*                  ^               */
  1382. #if (DB_VERSION_MAJOR > 4) || 
  1383.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || 
  1384.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && 
  1385.      DB_VERSION_PATCH >= 7)
  1386.       *iv_return = DB_TXN_APPLY;
  1387.       return PERL_constant_ISIV;
  1388. #else
  1389.       return PERL_constant_NOTDEF;
  1390. #endif
  1391.     }
  1392.     if (memEQ(name, "DB_TXN_PRINT", 12)) {
  1393.     /*                  ^               */
  1394. #if (DB_VERSION_MAJOR > 4) || 
  1395.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || 
  1396.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && 
  1397.      DB_VERSION_PATCH >= 17)
  1398.       *iv_return = DB_TXN_PRINT;
  1399.       return PERL_constant_ISIV;
  1400. #else
  1401.       return PERL_constant_NOTDEF;
  1402. #endif
  1403.     }
  1404.     break;
  1405.   case 'W':
  1406.     if (memEQ(name, "DB_WRITELOCK", 12)) {
  1407.     /*                  ^               */
  1408. #ifdef DB_WRITELOCK
  1409.       *iv_return = DB_WRITELOCK;
  1410.       return PERL_constant_ISIV;
  1411. #else
  1412.       return PERL_constant_NOTDEF;
  1413. #endif
  1414.     }
  1415.     if (memEQ(name, "DB_WRITEOPEN", 12)) {
  1416.     /*                  ^               */
  1417. #ifdef DB_WRITEOPEN
  1418.       *iv_return = DB_WRITEOPEN;
  1419.       return PERL_constant_ISIV;
  1420. #else
  1421.       return PERL_constant_NOTDEF;
  1422. #endif
  1423.     }
  1424.     break;
  1425.   case 'X':
  1426.     if (memEQ(name, "DB_XA_CREATE", 12)) {
  1427.     /*                  ^               */
  1428. #ifdef DB_XA_CREATE
  1429.       *iv_return = DB_XA_CREATE;
  1430.       return PERL_constant_ISIV;
  1431. #else
  1432.       return PERL_constant_NOTDEF;
  1433. #endif
  1434.     }
  1435.     break;
  1436.   }
  1437.   return PERL_constant_NOTFOUND;
  1438. }
  1440. static int
  1441. constant_13 (pTHX_ const char *name, IV *iv_return) {
  1442.   /* When generated this function returned values for the list of names given
  1443.      here.  However, subsequent manual editing may have added or removed some.
  1444.      DB_AGGRESSIVE DB_BTREEMAGIC DB_CHECKPOINT DB_DIRECT_LOG DB_DIRTY_READ
  1445.      DB_DONOTINDEX DB_ENV_CREATE DB_ENV_NOMMAP DB_ENV_THREAD DB_HASHOLDVER
  1446.      DB_INCOMPLETE DB_INIT_MPOOL DB_LOCK_NORUN DB_LOCK_RIW_N DB_LOCK_TRADE
  1447.      DB_LOGVERSION DB_LOG_LOCKED DB_MPOOL_LAST DB_MUTEXDEBUG DB_MUTEXLOCKS
  1448.      DB_NEXT_NODUP DB_NOORDERCHK DB_PREV_NODUP DB_PR_HEADERS DB_QAMVERSION
  1449.      DB_RDWRMASTER DB_REGISTERED DB_REP_CLIENT DB_REP_MASTER DB_SEQUENTIAL
  1450.      DB_STAT_CLEAR DB_SYSTEM_MEM DB_TXNVERSION DB_TXN_NOSYNC DB_TXN_NOWAIT
  1451.      DB_VERIFY_BAD */
  1452.   /* Offset 5 gives the best switch position.  */
  1453.   switch (name[5]) {
  1454.   case 'A':
  1455.     if (memEQ(name, "DB_STAT_CLEAR", 13)) {
  1456.     /*                    ^              */
  1457. #ifdef DB_STAT_CLEAR
  1458.       *iv_return = DB_STAT_CLEAR;
  1459.       return PERL_constant_ISIV;
  1460. #else
  1461.       return PERL_constant_NOTDEF;
  1462. #endif
  1463.     }
  1464.     break;
  1465.   case 'C':
  1466.     if (memEQ(name, "DB_INCOMPLETE", 13)) {
  1467.     /*                    ^              */
  1468. #ifdef DB_INCOMPLETE
  1469.       *iv_return = DB_INCOMPLETE;
  1470.       return PERL_constant_ISIV;
  1471. #else
  1472.       return PERL_constant_NOTDEF;
  1473. #endif
  1474.     }
  1475.     if (memEQ(name, "DB_LOCK_NORUN", 13)) {
  1476.     /*                    ^              */
  1477. #ifdef DB_LOCK_NORUN
  1478.       *iv_return = DB_LOCK_NORUN;
  1479.       return PERL_constant_ISIV;
  1480. #else
  1481.       return PERL_constant_NOTDEF;
  1482. #endif
  1483.     }
  1484.     if (memEQ(name, "DB_LOCK_RIW_N", 13)) {
  1485.     /*                    ^              */
  1486. #ifdef DB_LOCK_RIW_N
  1487.       *iv_return = DB_LOCK_RIW_N;
  1488.       return PERL_constant_ISIV;
  1489. #else
  1490.       return PERL_constant_NOTDEF;
  1491. #endif
  1492.     }
  1493.     if (memEQ(name, "DB_LOCK_TRADE", 13)) {
  1494.     /*                    ^              */
  1495. #if (DB_VERSION_MAJOR > 4) || 
  1496.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || 
  1497.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && 
  1498.      DB_VERSION_PATCH >= 17)
  1499.       *iv_return = DB_LOCK_TRADE;
  1500.       return PERL_constant_ISIV;
  1501. #else
  1502.       return PERL_constant_NOTDEF;
  1503. #endif
  1504.     }
  1505.     break;
  1506.   case 'E':
  1507.     if (memEQ(name, "DB_CHECKPOINT", 13)) {
  1508.     /*                    ^              */
  1509. #ifdef DB_CHECKPOINT
  1510.       *iv_return = DB_CHECKPOINT;
  1511.       return PERL_constant_ISIV;
  1512. #else
  1513.       return PERL_constant_NOTDEF;
  1514. #endif
  1515.     }
  1516.     if (memEQ(name, "DB_PREV_NODUP", 13)) {
  1517.     /*                    ^              */
  1518. #ifdef DB_PREV_NODUP
  1519.       *iv_return = DB_PREV_NODUP;
  1520.       return PERL_constant_ISIV;
  1521. #else
  1522.       return PERL_constant_NOTDEF;
  1523. #endif
  1524.     }
  1525.     break;
  1526.   case 'G':
  1527.     if (memEQ(name, "DB_AGGRESSIVE", 13)) {
  1528.     /*                    ^              */
  1529. #ifdef DB_AGGRESSIVE
  1530.       *iv_return = DB_AGGRESSIVE;
  1531.       return PERL_constant_ISIV;
  1532. #else
  1533.       return PERL_constant_NOTDEF;
  1534. #endif
  1535.     }
  1536.     if (memEQ(name, "DB_LOGVERSION", 13)) {
  1537.     /*                    ^              */
  1538. #ifdef DB_LOGVERSION
  1539.       *iv_return = DB_LOGVERSION;
  1540.       return PERL_constant_ISIV;
  1541. #else
  1542.       return PERL_constant_NOTDEF;
  1543. #endif
  1544.     }
  1545.     if (memEQ(name, "DB_LOG_LOCKED", 13)) {
  1546.     /*                    ^              */
  1547. #ifdef DB_LOG_LOCKED
  1548.       *iv_return = DB_LOG_LOCKED;
  1549.       return PERL_constant_ISIV;
  1550. #else
  1551.       return PERL_constant_NOTDEF;
  1552. #endif
  1553.     }
  1554.     if (memEQ(name, "DB_REGISTERED", 13)) {
  1555.     /*                    ^              */
  1556. #ifdef DB_REGISTERED
  1557.       *iv_return = DB_REGISTERED;
  1558.       return PERL_constant_ISIV;
  1559. #else
  1560.       return PERL_constant_NOTDEF;
  1561. #endif
  1562.     }
  1563.     break;
  1564.   case 'I':
  1565.     if (memEQ(name, "DB_INIT_MPOOL", 13)) {
  1566.     /*                    ^              */
  1567. #ifdef DB_INIT_MPOOL
  1568.       *iv_return = DB_INIT_MPOOL;
  1569.       return PERL_constant_ISIV;
  1570. #else
  1571.       return PERL_constant_NOTDEF;
  1572. #endif
  1573.     }
  1574.     break;
  1575.   case 'M':
  1576.     if (memEQ(name, "DB_QAMVERSION", 13)) {
  1577.     /*                    ^              */
  1578. #ifdef DB_QAMVERSION
  1579.       *iv_return = DB_QAMVERSION;
  1580.       return PERL_constant_ISIV;
  1581. #else
  1582.       return PERL_constant_NOTDEF;
  1583. #endif
  1584.     }
  1585.     break;
  1586.   case 'N':
  1587.     if (memEQ(name, "DB_DONOTINDEX", 13)) {
  1588.     /*                    ^              */
  1589. #ifdef DB_DONOTINDEX
  1590.       *iv_return = DB_DONOTINDEX;
  1591.       return PERL_constant_ISIV;
  1592. #else
  1593.       return PERL_constant_NOTDEF;
  1594. #endif
  1595.     }
  1596.     if (memEQ(name, "DB_TXNVERSION", 13)) {
  1597.     /*                    ^              */
  1598. #ifdef DB_TXNVERSION
  1599.       *iv_return = DB_TXNVERSION;
  1600.       return PERL_constant_ISIV;
  1601. #else
  1602.       return PERL_constant_NOTDEF;
  1603. #endif
  1604.     }
  1605.     if (memEQ(name, "DB_TXN_NOSYNC", 13)) {
  1606.     /*                    ^              */
  1607. #ifdef DB_TXN_NOSYNC
  1608.       *iv_return = DB_TXN_NOSYNC;
  1609.       return PERL_constant_ISIV;
  1610. #else
  1611.       return PERL_constant_NOTDEF;
  1612. #endif
  1613.     }
  1614.     if (memEQ(name, "DB_TXN_NOWAIT", 13)) {
  1615.     /*                    ^              */
  1616. #ifdef DB_TXN_NOWAIT
  1617.       *iv_return = DB_TXN_NOWAIT;
  1618.       return PERL_constant_ISIV;
  1619. #else
  1620.       return PERL_constant_NOTDEF;
  1621. #endif
  1622.     }
  1623.     break;
  1624.   case 'O':
  1625.     if (memEQ(name, "DB_MPOOL_LAST", 13)) {
  1626.     /*                    ^              */
  1627. #ifdef DB_MPOOL_LAST
  1628.       *iv_return = DB_MPOOL_LAST;
  1629.       return PERL_constant_ISIV;
  1630. #else
  1631.       return PERL_constant_NOTDEF;
  1632. #endif
  1633.     }
  1634.     if (memEQ(name, "DB_NOORDERCHK", 13)) {
  1635.     /*                    ^              */
  1636. #ifdef DB_NOORDERCHK
  1637.       *iv_return = DB_NOORDERCHK;
  1638.       return PERL_constant_ISIV;
  1639. #else
  1640.       return PERL_constant_NOTDEF;
  1641. #endif
  1642.     }
  1643.     break;
  1644.   case 'P':
  1645.     if (memEQ(name, "DB_REP_CLIENT", 13)) {
  1646.     /*                    ^              */
  1647. #ifdef DB_REP_CLIENT
  1648.       *iv_return = DB_REP_CLIENT;
  1649.       return PERL_constant_ISIV;
  1650. #else
  1651.       return PERL_constant_NOTDEF;
  1652. #endif
  1653.     }
  1654.     if (memEQ(name, "DB_REP_MASTER", 13)) {
  1655.     /*                    ^              */
  1656. #ifdef DB_REP_MASTER
  1657.       *iv_return = DB_REP_MASTER;
  1658.       return PERL_constant_ISIV;
  1659. #else
  1660.       return PERL_constant_NOTDEF;
  1661. #endif
  1662.     }
  1663.     break;
  1664.   case 'Q':
  1665.     if (memEQ(name, "DB_SEQUENTIAL", 13)) {
  1666.     /*                    ^              */
  1667. #ifdef DB_SEQUENTIAL
  1668.       *iv_return = DB_SEQUENTIAL;
  1669.       return PERL_constant_ISIV;
  1670. #else
  1671.       return PERL_constant_NOTDEF;
  1672. #endif
  1673.     }
  1674.     break;
  1675.   case 'R':
  1676.     if (memEQ(name, "DB_BTREEMAGIC", 13)) {
  1677.     /*                    ^              */
  1678. #ifdef DB_BTREEMAGIC
  1679.       *iv_return = DB_BTREEMAGIC;
  1680.       return PERL_constant_ISIV;
  1681. #else
  1682.       return PERL_constant_NOTDEF;
  1683. #endif
  1684.     }
  1685.     if (memEQ(name, "DB_DIRECT_LOG", 13)) {
  1686.     /*                    ^              */
  1687. #ifdef DB_DIRECT_LOG
  1688.       *iv_return = DB_DIRECT_LOG;
  1689.       return PERL_constant_ISIV;
  1690. #else
  1691.       return PERL_constant_NOTDEF;
  1692. #endif
  1693.     }
  1694.     if (memEQ(name, "DB_DIRTY_READ", 13)) {
  1695.     /*                    ^              */
  1696. #ifdef DB_DIRTY_READ
  1697.       *iv_return = DB_DIRTY_READ;
  1698.       return PERL_constant_ISIV;
  1699. #else
  1700.       return PERL_constant_NOTDEF;
  1701. #endif
  1702.     }
  1703.     if (memEQ(name, "DB_VERIFY_BAD", 13)) {
  1704.     /*                    ^              */
  1705. #ifdef DB_VERIFY_BAD
  1706.       *iv_return = DB_VERIFY_BAD;
  1707.       return PERL_constant_ISIV;
  1708. #else
  1709.       return PERL_constant_NOTDEF;
  1710. #endif
  1711.     }
  1712.     break;
  1713.   case 'S':
  1714.     if (memEQ(name, "DB_HASHOLDVER", 13)) {
  1715.     /*                    ^              */
  1716. #ifdef DB_HASHOLDVER
  1717.       *iv_return = DB_HASHOLDVER;
  1718.       return PERL_constant_ISIV;
  1719. #else
  1720.       return PERL_constant_NOTDEF;
  1721. #endif
  1722.     }
  1723.     if (memEQ(name, "DB_SYSTEM_MEM", 13)) {
  1724.     /*                    ^              */
  1725. #ifdef DB_SYSTEM_MEM
  1726.       *iv_return = DB_SYSTEM_MEM;
  1727.       return PERL_constant_ISIV;
  1728. #else
  1729.       return PERL_constant_NOTDEF;
  1730. #endif
  1731.     }
  1732.     break;
  1733.   case 'T':
  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.     if (memEQ(name, "DB_MUTEXLOCKS", 13)) {
  1744.     /*                    ^              */
  1745. #ifdef DB_MUTEXLOCKS
  1746.       *iv_return = DB_MUTEXLOCKS;
  1747.       return PERL_constant_ISIV;
  1748. #else
  1749.       return PERL_constant_NOTDEF;
  1750. #endif
  1751.     }
  1752.     break;
  1753.   case 'V':
  1754.     if (memEQ(name, "DB_ENV_CREATE", 13)) {
  1755.     /*                    ^              */
  1756. #ifdef DB_ENV_CREATE
  1757.       *iv_return = DB_ENV_CREATE;
  1758.       return PERL_constant_ISIV;
  1759. #else
  1760.       return PERL_constant_NOTDEF;
  1761. #endif
  1762.     }
  1763.     if (memEQ(name, "DB_ENV_NOMMAP", 13)) {
  1764.     /*                    ^              */
  1765. #ifdef DB_ENV_NOMMAP
  1766.       *iv_return = DB_ENV_NOMMAP;
  1767.       return PERL_constant_ISIV;
  1768. #else
  1769.       return PERL_constant_NOTDEF;
  1770. #endif
  1771.     }
  1772.     if (memEQ(name, "DB_ENV_THREAD", 13)) {
  1773.     /*                    ^              */
  1774. #ifdef DB_ENV_THREAD
  1775.       *iv_return = DB_ENV_THREAD;
  1776.       return PERL_constant_ISIV;
  1777. #else
  1778.       return PERL_constant_NOTDEF;
  1779. #endif
  1780.     }
  1781.     break;
  1782.   case 'W':
  1783.     if (memEQ(name, "DB_RDWRMASTER", 13)) {
  1784.     /*                    ^              */
  1785. #ifdef DB_RDWRMASTER
  1786.       *iv_return = DB_RDWRMASTER;
  1787.       return PERL_constant_ISIV;
  1788. #else
  1789.       return PERL_constant_NOTDEF;
  1790. #endif
  1791.     }
  1792.     break;
  1793.   case 'X':
  1794.     if (memEQ(name, "DB_NEXT_NODUP", 13)) {
  1795.     /*                    ^              */
  1796. #ifdef DB_NEXT_NODUP
  1797.       *iv_return = DB_NEXT_NODUP;
  1798.       return PERL_constant_ISIV;
  1799. #else
  1800.       return PERL_constant_NOTDEF;
  1801. #endif
  1802.     }
  1803.     break;
  1804.   case '_':
  1805.     if (memEQ(name, "DB_PR_HEADERS", 13)) {
  1806.     /*                    ^              */
  1807. #ifdef DB_PR_HEADERS
  1808.       *iv_return = DB_PR_HEADERS;
  1809.       return PERL_constant_ISIV;
  1810. #else
  1811.       return PERL_constant_NOTDEF;
  1812. #endif
  1813.     }
  1814.     break;
  1815.   }
  1816.   return PERL_constant_NOTFOUND;
  1817. }
  1819. static int
  1820. constant_14 (pTHX_ const char *name, IV *iv_return) {
  1821.   /* When generated this function returned values for the list of names given
  1822.      here.  However, subsequent manual editing may have added or removed some.
  1823.      DB_AUTO_COMMIT DB_BTREEOLDVER DB_CHKSUM_SHA1 DB_EID_INVALID DB_ENCRYPT_AES
  1824.      DB_ENV_APPINIT DB_ENV_DBLOCAL DB_ENV_LOCKING DB_ENV_LOGGING DB_ENV_NOPANIC
  1825.      DB_ENV_PRIVATE DB_FILE_ID_LEN DB_HANDLE_LOCK DB_HASHVERSION DB_INVALID_EID
  1826.      DB_JOIN_NOSORT DB_LOCKVERSION DB_LOCK_EXPIRE DB_LOCK_NOWAIT DB_LOCK_OLDEST
  1827.      DB_LOCK_RANDOM DB_LOCK_RECORD DB_LOCK_REMOVE DB_LOCK_SWITCH DB_MAX_RECORDS
  1828.      DB_MPOOL_CLEAN DB_MPOOL_DIRTY DB_NOOVERWRITE DB_NOSERVER_ID DB_ODDFILESIZE
  1829.      DB_OLD_VERSION DB_OPEN_CALLED DB_RECORDCOUNT DB_RECORD_LOCK DB_REGION_ANON
  1830.      DB_REGION_INIT DB_REGION_NAME DB_RENAMEMAGIC DB_REP_NEWSITE DB_REP_UNAVAIL
  1831.      DB_REVSPLITOFF DB_RUNRECOVERY DB_SET_TXN_NOW DB_USE_ENVIRON DB_WRITECURSOR
  1832.      DB_XIDDATASIZE */
  1833.   /* Offset 9 gives the best switch position.  */
  1834.   switch (name[9]) {
  1835.   case 'A':
  1836.     if (memEQ(name, "DB_LOCK_RANDOM", 14)) {
  1837.     /*                        ^           */
  1838. #ifdef DB_LOCK_RANDOM
  1839.       *iv_return = DB_LOCK_RANDOM;
  1840.       return PERL_constant_ISIV;
  1841. #else
  1842.       return PERL_constant_NOTDEF;
  1843. #endif
  1844.     }
  1845.     if (memEQ(name, "DB_OPEN_CALLED", 14)) {
  1846.     /*                        ^           */
  1847. #ifdef DB_OPEN_CALLED
  1848.       *iv_return = DB_OPEN_CALLED;
  1849.       return PERL_constant_ISIV;
  1850. #else
  1851.       return PERL_constant_NOTDEF;
  1852. #endif
  1853.     }
  1854.     if (memEQ(name, "DB_REP_UNAVAIL", 14)) {
  1855.     /*                        ^           */
  1856. #ifdef DB_REP_UNAVAIL
  1857.       *iv_return = DB_REP_UNAVAIL;
  1858.       return PERL_constant_ISIV;
  1859. #else
  1860.       return PERL_constant_NOTDEF;
  1861. #endif
  1862.     }
  1863.     if (memEQ(name, "DB_XIDDATASIZE", 14)) {
  1864.     /*                        ^           */
  1865. #ifdef DB_XIDDATASIZE
  1866.       *iv_return = DB_XIDDATASIZE;
  1867.       return PERL_constant_ISIV;
  1868. #else
  1869.       return PERL_constant_NOTDEF;
  1870. #endif
  1871.     }
  1872.     break;
  1873.   case 'C':
  1874.     if (memEQ(name, "DB_ENV_LOCKING", 14)) {
  1875.     /*                        ^           */
  1876. #ifdef DB_ENV_LOCKING
  1877.       *iv_return = DB_ENV_LOCKING;
  1878.       return PERL_constant_ISIV;
  1879. #else
  1880.       return PERL_constant_NOTDEF;
  1881. #endif
  1882.     }
  1883.     if (memEQ(name, "DB_MAX_RECORDS", 14)) {
  1884.     /*                        ^           */
  1885. #ifdef DB_MAX_RECORDS
  1886.       *iv_return = DB_MAX_RECORDS;
  1887.       return PERL_constant_ISIV;
  1888. #else
  1889.       return PERL_constant_NOTDEF;
  1890. #endif
  1891.     }
  1892.     if (memEQ(name, "DB_MPOOL_CLEAN", 14)) {
  1893.     /*                        ^           */
  1894. #ifdef DB_MPOOL_CLEAN
  1895.       *iv_return = DB_MPOOL_CLEAN;
  1896.       return PERL_constant_ISIV;
  1897. #else
  1898.       return PERL_constant_NOTDEF;
  1899. #endif
  1900.     }
  1901.     if (memEQ(name, "DB_RECORDCOUNT", 14)) {
  1902.     /*                        ^           */
  1903. #ifdef DB_RECORDCOUNT
  1904.       *iv_return = DB_RECORDCOUNT;
  1905.       return PERL_constant_ISIV;
  1906. #else
  1907.       return PERL_constant_NOTDEF;
  1908. #endif
  1909.     }
  1910.     break;
  1911.   case 'D':
  1912.     if (memEQ(name, "DB_FILE_ID_LEN", 14)) {
  1913.     /*                        ^           */
  1914. #ifdef DB_FILE_ID_LEN
  1915.       *iv_return = DB_FILE_ID_LEN;
  1916.       return PERL_constant_ISIV;
  1917. #else
  1918.       return PERL_constant_NOTDEF;
  1919. #endif
  1920.     }
  1921.     if (memEQ(name, "DB_INVALID_EID", 14)) {
  1922.     /*                        ^           */
  1923. #ifdef DB_INVALID_EID
  1924.       *iv_return = DB_INVALID_EID;
  1925.       return PERL_constant_ISIV;
  1926. #else
  1927.       return PERL_constant_NOTDEF;
  1928. #endif
  1929.     }
  1930.     if (memEQ(name, "DB_MPOOL_DIRTY", 14)) {
  1931.     /*                        ^           */
  1932. #ifdef DB_MPOOL_DIRTY
  1933.       *iv_return = DB_MPOOL_DIRTY;
  1934.       return PERL_constant_ISIV;
  1935. #else
  1936.       return PERL_constant_NOTDEF;
  1937. #endif
  1938.     }
  1939.     break;
  1940.   case 'E':
  1941.     if (memEQ(name, "DB_LOCK_RECORD", 14)) {
  1942.     /*                        ^           */
  1943. #ifdef DB_LOCK_RECORD
  1944.       *iv_return = DB_LOCK_RECORD;
  1945.       return PERL_constant_ISIV;
  1946. #else
  1947.       return PERL_constant_NOTDEF;
  1948. #endif
  1949.     }
  1950.     if (memEQ(name, "DB_LOCK_REMOVE", 14)) {
  1951.     /*                        ^           */
  1952. #ifdef DB_LOCK_REMOVE
  1953.       *iv_return = DB_LOCK_REMOVE;
  1954.       return PERL_constant_ISIV;
  1955. #else
  1956.       return PERL_constant_NOTDEF;
  1957. #endif
  1958.     }
  1959.     if (memEQ(name, "DB_NOSERVER_ID", 14)) {
  1960.     /*                        ^           */
  1961. #ifdef DB_NOSERVER_ID
  1962.       *iv_return = DB_NOSERVER_ID;
  1963.       return PERL_constant_ISIV;
  1964. #else
  1965.       return PERL_constant_NOTDEF;
  1966. #endif
  1967.     }
  1968.     if (memEQ(name, "DB_ODDFILESIZE", 14)) {
  1969.     /*                        ^           */
  1970. #ifdef DB_ODDFILESIZE
  1971.       *iv_return = DB_ODDFILESIZE;
  1972.       return PERL_constant_ISIV;
  1973. #else
  1974.       return PERL_constant_NOTDEF;
  1975. #endif
  1976.     }
  1977.     break;
  1978.   case 'G':
  1979.     if (memEQ(name, "DB_ENV_LOGGING", 14)) {
  1980.     /*                        ^           */
  1981. #ifdef DB_ENV_LOGGING
  1982.       *iv_return = DB_ENV_LOGGING;
  1983.       return PERL_constant_ISIV;
  1984. #else
  1985.       return PERL_constant_NOTDEF;
  1986. #endif
  1987.     }
  1988.     break;
  1989.   case 'I':
  1990.     if (memEQ(name, "DB_ENV_PRIVATE", 14)) {
  1991.     /*                        ^           */
  1992. #ifdef DB_ENV_PRIVATE
  1993.       *iv_return = DB_ENV_PRIVATE;
  1994.       return PERL_constant_ISIV;
  1995. #else
  1996.       return PERL_constant_NOTDEF;
  1997. #endif
  1998.     }
  1999.     if (memEQ(name, "DB_REVSPLITOFF", 14)) {
  2000.     /*                        ^           */
  2001. #ifdef DB_REVSPLITOFF
  2002.       *iv_return = DB_REVSPLITOFF;
  2003.       return PERL_constant_ISIV;
  2004. #else
  2005.       return PERL_constant_NOTDEF;
  2006. #endif
  2007.     }
  2008.     break;
  2009.   case 'L':
  2010.     if (memEQ(name, "DB_BTREEOLDVER", 14)) {
  2011.     /*                        ^           */
  2012. #ifdef DB_BTREEOLDVER
  2013.       *iv_return = DB_BTREEOLDVER;
  2014.       return PERL_constant_ISIV;
  2015. #else
  2016.       return PERL_constant_NOTDEF;
  2017. #endif
  2018.     }
  2019.     if (memEQ(name, "DB_ENV_DBLOCAL", 14)) {
  2020.     /*                        ^           */
  2021. #ifdef DB_ENV_DBLOCAL
  2022.       *iv_return = DB_ENV_DBLOCAL;
  2023.       return PERL_constant_ISIV;
  2024. #else
  2025.       return PERL_constant_NOTDEF;
  2026. #endif
  2027.     }
  2028.     if (memEQ(name, "DB_LOCK_OLDEST", 14)) {
  2029.     /*                        ^           */
  2030. #ifdef DB_LOCK_OLDEST
  2031.       *iv_return = DB_LOCK_OLDEST;
  2032.       return PERL_constant_ISIV;
  2033. #else
  2034.       return PERL_constant_NOTDEF;
  2035. #endif
  2036.     }
  2037.     break;
  2038.   case 'M':
  2039.     if (memEQ(name, "DB_RENAMEMAGIC", 14)) {
  2040.     /*                        ^           */
  2041. #ifdef DB_RENAMEMAGIC
  2042.       *iv_return = DB_RENAMEMAGIC;
  2043.       return PERL_constant_ISIV;
  2044. #else
  2045.       return PERL_constant_NOTDEF;
  2046. #endif
  2047.     }
  2048.     break;
  2049.   case 'N':
  2050.     if (memEQ(name, "DB_SET_TXN_NOW", 14)) {
  2051.     /*                        ^           */
  2052. #ifdef DB_SET_TXN_NOW
  2053.       *iv_return = DB_SET_TXN_NOW;
  2054.       return PERL_constant_ISIV;
  2055. #else
  2056.       return PERL_constant_NOTDEF;
  2057. #endif
  2058.     }
  2059.     break;
  2060.   case 'O':
  2061.     if (memEQ(name, "DB_AUTO_COMMIT", 14)) {
  2062.     /*                        ^           */
  2063. #ifdef DB_AUTO_COMMIT
  2064.       *iv_return = DB_AUTO_COMMIT;
  2065.       return PERL_constant_ISIV;
  2066. #else
  2067.       return PERL_constant_NOTDEF;
  2068. #endif
  2069.     }
  2070.     if (memEQ(name, "DB_JOIN_NOSORT", 14)) {
  2071.     /*                        ^           */
  2072. #ifdef DB_JOIN_NOSORT
  2073.       *iv_return = DB_JOIN_NOSORT;
  2074.       return PERL_constant_ISIV;
  2075. #else
  2076.       return PERL_constant_NOTDEF;
  2077. #endif
  2078.     }
  2079.     if (memEQ(name, "DB_LOCK_NOWAIT", 14)) {
  2080.     /*                        ^           */
  2081. #ifdef DB_LOCK_NOWAIT
  2082.       *iv_return = DB_LOCK_NOWAIT;
  2083.       return PERL_constant_ISIV;
  2084. #else
  2085.       return PERL_constant_NOTDEF;
  2086. #endif
  2087.     }
  2088.     if (memEQ(name, "DB_RUNRECOVERY", 14)) {
  2089.     /*                        ^           */
  2090. #ifdef DB_RUNRECOVERY
  2091.       *iv_return = DB_RUNRECOVERY;
  2092.       return PERL_constant_ISIV;
  2093. #else
  2094.       return PERL_constant_NOTDEF;
  2095. #endif
  2096.     }
  2097.     break;
  2098.   case 'P':
  2099.     if (memEQ(name, "DB_ENV_APPINIT", 14)) {
  2100.     /*                        ^           */
  2101. #ifdef DB_ENV_APPINIT
  2102.       *iv_return = DB_ENV_APPINIT;
  2103.       return PERL_constant_ISIV;
  2104. #else
  2105.       return PERL_constant_NOTDEF;
  2106. #endif
  2107.     }
  2108.     if (memEQ(name, "DB_ENV_NOPANIC", 14)) {
  2109.     /*                        ^           */
  2110. #ifdef DB_ENV_NOPANIC
  2111.       *iv_return = DB_ENV_NOPANIC;
  2112.       return PERL_constant_ISIV;
  2113. #else
  2114.       return PERL_constant_NOTDEF;
  2115. #endif
  2116.     }
  2117.     break;
  2118.   case 'R':
  2119.     if (memEQ(name, "DB_HASHVERSION", 14)) {
  2120.     /*                        ^           */
  2121. #ifdef DB_HASHVERSION
  2122.       *iv_return = DB_HASHVERSION;
  2123.       return PERL_constant_ISIV;
  2124. #else
  2125.       return PERL_constant_NOTDEF;
  2126. #endif
  2127.     }
  2128.     if (memEQ(name, "DB_LOCKVERSION", 14)) {
  2129.     /*                        ^           */
  2130. #ifdef DB_LOCKVERSION
  2131.       *iv_return = DB_LOCKVERSION;
  2132.       return PERL_constant_ISIV;
  2133. #else
  2134.       return PERL_constant_NOTDEF;
  2135. #endif
  2136.     }
  2137.     if (memEQ(name, "DB_OLD_VERSION", 14)) {
  2138.     /*                        ^           */
  2139. #ifdef DB_OLD_VERSION
  2140.       *iv_return = DB_OLD_VERSION;
  2141.       return PERL_constant_ISIV;
  2142. #else
  2143.       return PERL_constant_NOTDEF;
  2144. #endif
  2145.     }
  2146.     break;
  2147.   case 'T':
  2148.     if (memEQ(name, "DB_ENCRYPT_AES", 14)) {
  2149.     /*                        ^           */
  2150. #ifdef DB_ENCRYPT_AES
  2151.       *iv_return = DB_ENCRYPT_AES;
  2152.       return PERL_constant_ISIV;
  2153. #else
  2154.       return PERL_constant_NOTDEF;
  2155. #endif
  2156.     }
  2157.     break;
  2158.   case 'U':
  2159.     if (memEQ(name, "DB_WRITECURSOR", 14)) {
  2160.     /*                        ^           */
  2161. #ifdef DB_WRITECURSOR
  2162.       *iv_return = DB_WRITECURSOR;
  2163.       return PERL_constant_ISIV;
  2164. #else
  2165.       return PERL_constant_NOTDEF;
  2166. #endif
  2167.     }
  2168.     break;
  2169.   case 'V':
  2170.     if (memEQ(name, "DB_EID_INVALID", 14)) {
  2171.     /*                        ^           */
  2172. #ifdef DB_EID_INVALID
  2173.       *iv_return = DB_EID_INVALID;
  2174.       return PERL_constant_ISIV;
  2175. #else
  2176.       return PERL_constant_NOTDEF;
  2177. #endif
  2178.     }
  2179.     if (memEQ(name, "DB_USE_ENVIRON", 14)) {
  2180.     /*                        ^           */
  2181. #ifdef DB_USE_ENVIRON
  2182.       *iv_return = DB_USE_ENVIRON;
  2183.       return PERL_constant_ISIV;
  2184. #else
  2185.       return PERL_constant_NOTDEF;
  2186. #endif
  2187.     }
  2188.     break;
  2189.   case 'W':
  2190.     if (memEQ(name, "DB_LOCK_SWITCH", 14)) {
  2191.     /*                        ^           */
  2192. #ifdef DB_LOCK_SWITCH
  2193.       *iv_return = DB_LOCK_SWITCH;
  2194.       return PERL_constant_ISIV;
  2195. #else
  2196.       return PERL_constant_NOTDEF;
  2197. #endif
  2198.     }
  2199.     if (memEQ(name, "DB_NOOVERWRITE", 14)) {
  2200.     /*                        ^           */
  2201. #ifdef DB_NOOVERWRITE
  2202.       *iv_return = DB_NOOVERWRITE;
  2203.       return PERL_constant_ISIV;
  2204. #else
  2205.       return PERL_constant_NOTDEF;
  2206. #endif
  2207.     }
  2208.     if (memEQ(name, "DB_REP_NEWSITE", 14)) {
  2209.     /*                        ^           */
  2210. #ifdef DB_REP_NEWSITE
  2211.       *iv_return = DB_REP_NEWSITE;
  2212.       return PERL_constant_ISIV;
  2213. #else
  2214.       return PERL_constant_NOTDEF;
  2215. #endif
  2216.     }
  2217.     break;
  2218.   case 'X':
  2219.     if (memEQ(name, "DB_LOCK_EXPIRE", 14)) {
  2220.     /*                        ^           */
  2221. #ifdef DB_LOCK_EXPIRE
  2222.       *iv_return = DB_LOCK_EXPIRE;
  2223.       return PERL_constant_ISIV;
  2224. #else
  2225.       return PERL_constant_NOTDEF;
  2226. #endif
  2227.     }
  2228.     break;
  2229.   case '_':
  2230.     if (memEQ(name, "DB_CHKSUM_SHA1", 14)) {
  2231.     /*                        ^           */
  2232. #ifdef DB_CHKSUM_SHA1
  2233.       *iv_return = DB_CHKSUM_SHA1;
  2234.       return PERL_constant_ISIV;
  2235. #else
  2236.       return PERL_constant_NOTDEF;
  2237. #endif
  2238.     }
  2239.     if (memEQ(name, "DB_HANDLE_LOCK", 14)) {
  2240.     /*                        ^           */
  2241. #ifdef DB_HANDLE_LOCK
  2242.       *iv_return = DB_HANDLE_LOCK;
  2243.       return PERL_constant_ISIV;
  2244. #else
  2245.       return PERL_constant_NOTDEF;
  2246. #endif
  2247.     }
  2248.     if (memEQ(name, "DB_RECORD_LOCK", 14)) {
  2249.     /*                        ^           */
  2250. #ifdef DB_RECORD_LOCK
  2251.       *iv_return = DB_RECORD_LOCK;
  2252.       return PERL_constant_ISIV;
  2253. #else
  2254.       return PERL_constant_NOTDEF;
  2255. #endif
  2256.     }
  2257.     if (memEQ(name, "DB_REGION_ANON", 14)) {
  2258.     /*                        ^           */
  2259. #ifdef DB_REGION_ANON
  2260.       *iv_return = DB_REGION_ANON;
  2261.       return PERL_constant_ISIV;
  2262. #else
  2263.       return PERL_constant_NOTDEF;
  2264. #endif
  2265.     }
  2266.     if (memEQ(name, "DB_REGION_INIT", 14)) {
  2267.     /*                        ^           */
  2268. #ifdef DB_REGION_INIT
  2269.       *iv_return = DB_REGION_INIT;
  2270.       return PERL_constant_ISIV;
  2271. #else
  2272.       return PERL_constant_NOTDEF;
  2273. #endif
  2274.     }
  2275.     if (memEQ(name, "DB_REGION_NAME", 14)) {
  2276.     /*                        ^           */
  2277. #ifdef DB_REGION_NAME
  2278.       *iv_return = DB_REGION_NAME;
  2279.       return PERL_constant_ISIV;
  2280. #else
  2281.       return PERL_constant_NOTDEF;
  2282. #endif
  2283.     }
  2284.     break;
  2285.   }
  2286.   return PERL_constant_NOTFOUND;
  2287. }
  2289. static int
  2290. constant_15 (pTHX_ const char *name, IV *iv_return) {
  2291.   /* When generated this function returned values for the list of names given
  2292.      here.  However, subsequent manual editing may have added or removed some.
  2293.      DB_APPLY_LOGREG DB_BTREEVERSION DB_CONSUME_WAIT DB_ENV_LOCKDOWN
  2294.      DB_ENV_PANIC_OK DB_ENV_YIELDCPU DB_LOCK_DEFAULT DB_LOCK_INHERIT
  2295.      DB_LOCK_NOTHELD DB_LOCK_PUT_ALL DB_LOCK_PUT_OBJ DB_LOCK_TIMEOUT
  2296.      DB_LOCK_UPGRADE DB_MPOOL_CREATE DB_MPOOL_EXTENT DB_MULTIPLE_KEY
  2297.      DB_OPFLAGS_MASK DB_ORDERCHKONLY DB_PRIORITY_LOW DB_REGION_MAGIC
  2298.      DB_REP_LOGSONLY DB_REP_OUTDATED DB_SURPRISE_KID DB_TEST_POSTLOG
  2299.      DB_TEST_PREOPEN DB_TXN_GETPGNOS DB_TXN_LOCK_2PL DB_TXN_LOG_MASK
  2300.      DB_TXN_LOG_REDO DB_TXN_LOG_UNDO DB_VERIFY_FATAL */
  2301.   /* Offset 10 gives the best switch position.  */
  2302.   switch (name[10]) {
  2303.   case 'D':
  2304.     if (memEQ(name, "DB_REP_OUTDATED", 15)) {
  2305.     /*                         ^           */
  2306. #ifdef DB_REP_OUTDATED
  2307.       *iv_return = DB_REP_OUTDATED;
  2308.       return PERL_constant_ISIV;
  2309. #else
  2310.       return PERL_constant_NOTDEF;
  2311. #endif
  2312.     }
  2313.     break;
  2314.   case 'E':
  2315.     if (memEQ(name, "DB_MULTIPLE_KEY", 15)) {
  2316.     /*                         ^           */
  2317. #ifdef DB_MULTIPLE_KEY
  2318.       *iv_return = DB_MULTIPLE_KEY;
  2319.       return PERL_constant_ISIV;
  2320. #else
  2321.       return PERL_constant_NOTDEF;
  2322. #endif
  2323.     }
  2324.     if (memEQ(name, "DB_SURPRISE_KID", 15)) {
  2325.     /*                         ^           */
  2326. #ifdef DB_SURPRISE_KID
  2327.       *iv_return = DB_SURPRISE_KID;
  2328.       return PERL_constant_ISIV;
  2329. #else
  2330.       return PERL_constant_NOTDEF;
  2331. #endif
  2332.     }
  2333.     if (memEQ(name, "DB_TEST_PREOPEN", 15)) {
  2334.     /*                         ^           */
  2335. #ifdef DB_TEST_PREOPEN
  2336.       *iv_return = DB_TEST_PREOPEN;
  2337.       return PERL_constant_ISIV;
  2338. #else
  2339.       return PERL_constant_NOTDEF;
  2340. #endif
  2341.     }
  2342.     break;
  2343.   case 'F':
  2344.     if (memEQ(name, "DB_LOCK_DEFAULT", 15)) {
  2345.     /*                         ^           */
  2346. #ifdef DB_LOCK_DEFAULT
  2347.       *iv_return = DB_LOCK_DEFAULT;
  2348.       return PERL_constant_ISIV;
  2349. #else
  2350.       return PERL_constant_NOTDEF;
  2351. #endif
  2352.     }
  2353.     if (memEQ(name, "DB_VERIFY_FATAL", 15)) {
  2354.     /*                         ^           */
  2355. #ifdef DB_VERIFY_FATAL
  2356.       *iv_return = DB_VERIFY_FATAL;
  2357.       return PERL_constant_ISIV;
  2358. #else
  2359.       return PERL_constant_NOTDEF;
  2360. #endif
  2361.     }
  2362.     break;
  2363.   case 'G':
  2364.     if (memEQ(name, "DB_LOCK_UPGRADE", 15)) {
  2365.     /*                         ^           */
  2366. #ifdef DB_LOCK_UPGRADE
  2367.       *iv_return = DB_LOCK_UPGRADE;
  2368.       return PERL_constant_ISIV;
  2369. #else
  2370.       return PERL_constant_NOTDEF;
  2371. #endif
  2372.     }
  2373.     break;
  2374.   case 'H':
  2375.     if (memEQ(name, "DB_LOCK_INHERIT", 15)) {
  2376.     /*                         ^           */
  2377. #if (DB_VERSION_MAJOR > 2) || 
  2378.     (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 7) || 
  2379.     (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 7 && 
  2380.      DB_VERSION_PATCH >= 1)
  2381.       *iv_return = DB_LOCK_INHERIT;
  2382.       return PERL_constant_ISIV;
  2383. #else
  2384.       return PERL_constant_NOTDEF;
  2385. #endif
  2386.     }
  2387.     break;
  2388.   case 'I':
  2389.     if (memEQ(name, "DB_ENV_PANIC_OK", 15)) {
  2390.     /*                         ^           */
  2391. #ifdef DB_ENV_PANIC_OK
  2392.       *iv_return = DB_ENV_PANIC_OK;
  2393.       return PERL_constant_ISIV;
  2394. #else
  2395.       return PERL_constant_NOTDEF;
  2396. #endif
  2397.     }
  2398.     break;
  2399.   case 'K':
  2400.     if (memEQ(name, "DB_ENV_LOCKDOWN", 15)) {
  2401.     /*                         ^           */
  2402. #ifdef DB_ENV_LOCKDOWN
  2403.       *iv_return = DB_ENV_LOCKDOWN;
  2404.       return PERL_constant_ISIV;
  2405. #else
  2406.       return PERL_constant_NOTDEF;
  2407. #endif
  2408.     }
  2409.     if (memEQ(name, "DB_ORDERCHKONLY", 15)) {
  2410.     /*                         ^           */
  2411. #ifdef DB_ORDERCHKONLY
  2412.       *iv_return = DB_ORDERCHKONLY;
  2413.       return PERL_constant_ISIV;
  2414. #else
  2415.       return PERL_constant_NOTDEF;
  2416. #endif
  2417.     }
  2418.     if (memEQ(name, "DB_TXN_LOCK_2PL", 15)) {
  2419.     /*                         ^           */
  2420. #ifdef DB_TXN_LOCK_2PL
  2421.       *iv_return = DB_TXN_LOCK_2PL;
  2422.       return PERL_constant_ISIV;
  2423. #else
  2424.       return PERL_constant_NOTDEF;
  2425. #endif
  2426.     }
  2427.     break;
  2428.   case 'L':
  2429.     if (memEQ(name, "DB_ENV_YIELDCPU", 15)) {
  2430.     /*                         ^           */
  2431. #ifdef DB_ENV_YIELDCPU
  2432.       *iv_return = DB_ENV_YIELDCPU;
  2433.       return PERL_constant_ISIV;
  2434. #else
  2435.       return PERL_constant_NOTDEF;
  2436. #endif
  2437.     }
  2438.     break;
  2439.   case 'M':
  2440.     if (memEQ(name, "DB_LOCK_TIMEOUT", 15)) {
  2441.     /*                         ^           */
  2442. #if (DB_VERSION_MAJOR > 4) || 
  2443.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || 
  2444.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && 
  2445.      DB_VERSION_PATCH >= 7)
  2446.       *iv_return = DB_LOCK_TIMEOUT;
  2447.       return PERL_constant_ISIV;
  2448. #else
  2449.       return PERL_constant_NOTDEF;
  2450. #endif
  2451.     }
  2452.     if (memEQ(name, "DB_REGION_MAGIC", 15)) {
  2453.     /*                         ^           */
  2454. #ifdef DB_REGION_MAGIC
  2455.       *iv_return = DB_REGION_MAGIC;
  2456.       return PERL_constant_ISIV;
  2457. #else
  2458.       return PERL_constant_NOTDEF;
  2459. #endif
  2460.     }
  2461.     break;
  2462.   case 'O':
  2463.     if (memEQ(name, "DB_APPLY_LOGREG", 15)) {
  2464.     /*                         ^           */
  2465. #ifdef DB_APPLY_LOGREG
  2466.       *iv_return = DB_APPLY_LOGREG;
  2467.       return PERL_constant_ISIV;
  2468. #else
  2469.       return PERL_constant_NOTDEF;
  2470. #endif
  2471.     }
  2472.     break;
  2473.   case 'P':
  2474.     if (memEQ(name, "DB_TXN_GETPGNOS", 15)) {
  2475.     /*                         ^           */
  2476. #if (DB_VERSION_MAJOR > 4) || 
  2477.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || 
  2478.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && 
  2479.      DB_VERSION_PATCH >= 17)
  2480.       *iv_return = DB_TXN_GETPGNOS;
  2481.       return PERL_constant_ISIV;
  2482. #else
  2483.       return PERL_constant_NOTDEF;
  2484. #endif
  2485.     }
  2486.     break;
  2487.   case 'R':
  2488.     if (memEQ(name, "DB_BTREEVERSION", 15)) {
  2489.     /*                         ^           */
  2490. #ifdef DB_BTREEVERSION
  2491.       *iv_return = DB_BTREEVERSION;
  2492.       return PERL_constant_ISIV;
  2493. #else
  2494.       return PERL_constant_NOTDEF;
  2495. #endif
  2496.     }
  2497.     if (memEQ(name, "DB_MPOOL_CREATE", 15)) {
  2498.     /*                         ^           */
  2499. #ifdef DB_MPOOL_CREATE
  2500.       *iv_return = DB_MPOOL_CREATE;
  2501.       return PERL_constant_ISIV;
  2502. #else
  2503.       return PERL_constant_NOTDEF;
  2504. #endif
  2505.     }
  2506.     break;
  2507.   case 'S':
  2508.     if (memEQ(name, "DB_REP_LOGSONLY", 15)) {
  2509.     /*                         ^           */
  2510. #ifdef DB_REP_LOGSONLY
  2511.       *iv_return = DB_REP_LOGSONLY;
  2512.       return PERL_constant_ISIV;
  2513. #else
  2514.       return PERL_constant_NOTDEF;
  2515. #endif
  2516.     }
  2517.     if (memEQ(name, "DB_TEST_POSTLOG", 15)) {
  2518.     /*                         ^           */
  2519. #ifdef DB_TEST_POSTLOG
  2520.       *iv_return = DB_TEST_POSTLOG;
  2521.       return PERL_constant_ISIV;
  2522. #else
  2523.       return PERL_constant_NOTDEF;
  2524. #endif
  2525.     }
  2526.     break;
  2527.   case 'T':
  2528.     if (memEQ(name, "DB_LOCK_NOTHELD", 15)) {
  2529.     /*                         ^           */
  2530. #ifdef DB_LOCK_NOTHELD
  2531.       *iv_return = DB_LOCK_NOTHELD;
  2532.       return PERL_constant_ISIV;
  2533. #else
  2534.       return PERL_constant_NOTDEF;
  2535. #endif
  2536.     }
  2537.     if (memEQ(name, "DB_LOCK_PUT_ALL", 15)) {
  2538.     /*                         ^           */
  2539. #if (DB_VERSION_MAJOR > 2) || 
  2540.     (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || 
  2541.     (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && 
  2542.      DB_VERSION_PATCH >= 0)
  2543.       *iv_return = DB_LOCK_PUT_ALL;
  2544.       return PERL_constant_ISIV;
  2545. #else
  2546.       return PERL_constant_NOTDEF;
  2547. #endif
  2548.     }
  2549.     if (memEQ(name, "DB_LOCK_PUT_OBJ", 15)) {
  2550.     /*                         ^           */
  2551. #if (DB_VERSION_MAJOR > 2) || 
  2552.     (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || 
  2553.     (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && 
  2554.      DB_VERSION_PATCH >= 0)
  2555.       *iv_return = DB_LOCK_PUT_OBJ;
  2556.       return PERL_constant_ISIV;
  2557. #else
  2558.       return PERL_constant_NOTDEF;
  2559. #endif
  2560.     }
  2561.     break;
  2562.   case 'X':
  2563.     if (memEQ(name, "DB_MPOOL_EXTENT", 15)) {
  2564.     /*                         ^           */
  2565. #ifdef DB_MPOOL_EXTENT
  2566.       *iv_return = DB_MPOOL_EXTENT;
  2567.       return PERL_constant_ISIV;
  2568. #else
  2569.       return PERL_constant_NOTDEF;
  2570. #endif
  2571.     }
  2572.     break;
  2573.   case 'Y':
  2574.     if (memEQ(name, "DB_PRIORITY_LOW", 15)) {
  2575.     /*                         ^           */
  2576. #if (DB_VERSION_MAJOR > 4) || 
  2577.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || 
  2578.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && 
  2579.      DB_VERSION_PATCH >= 17)
  2580.       *iv_return = DB_PRIORITY_LOW;
  2581.       return PERL_constant_ISIV;
  2582. #else
  2583.       return PERL_constant_NOTDEF;
  2584. #endif
  2585.     }
  2586.     break;
  2587.   case '_':
  2588.     if (memEQ(name, "DB_CONSUME_WAIT", 15)) {
  2589.     /*                         ^           */
  2590. #ifdef DB_CONSUME_WAIT
  2591.       *iv_return = DB_CONSUME_WAIT;
  2592.       return PERL_constant_ISIV;
  2593. #else
  2594.       return PERL_constant_NOTDEF;
  2595. #endif
  2596.     }
  2597.     if (memEQ(name, "DB_OPFLAGS_MASK", 15)) {
  2598.     /*                         ^           */
  2599. #ifdef DB_OPFLAGS_MASK
  2600.       *iv_return = DB_OPFLAGS_MASK;
  2601.       return PERL_constant_ISIV;
  2602. #else
  2603.       return PERL_constant_NOTDEF;
  2604. #endif
  2605.     }
  2606.     if (memEQ(name, "DB_TXN_LOG_MASK", 15)) {
  2607.     /*                         ^           */
  2608. #ifdef DB_TXN_LOG_MASK
  2609.       *iv_return = DB_TXN_LOG_MASK;
  2610.       return PERL_constant_ISIV;
  2611. #else
  2612.       return PERL_constant_NOTDEF;
  2613. #endif
  2614.     }
  2615.     if (memEQ(name, "DB_TXN_LOG_REDO", 15)) {
  2616.     /*                         ^           */
  2617. #ifdef DB_TXN_LOG_REDO
  2618.       *iv_return = DB_TXN_LOG_REDO;
  2619.       return PERL_constant_ISIV;
  2620. #else
  2621.       return PERL_constant_NOTDEF;
  2622. #endif
  2623.     }
  2624.     if (memEQ(name, "DB_TXN_LOG_UNDO", 15)) {
  2625.     /*                         ^           */
  2626. #ifdef DB_TXN_LOG_UNDO
  2627.       *iv_return = DB_TXN_LOG_UNDO;
  2628.       return PERL_constant_ISIV;
  2629. #else
  2630.       return PERL_constant_NOTDEF;
  2631. #endif
  2632.     }
  2633.     break;
  2634.   }
  2635.   return PERL_constant_NOTFOUND;
  2636. }
  2638. static int
  2639. constant_16 (pTHX_ const char *name, IV *iv_return) {
  2640.   /* When generated this function returned values for the list of names given
  2641.      here.  However, subsequent manual editing may have added or removed some.
  2642.      DB_BROADCAST_EID DB_CACHED_COUNTS DB_EID_BROADCAST DB_ENV_CDB_ALLDB
  2643.      DB_ENV_DIRECT_DB DB_ENV_NOLOCKING DB_ENV_OVERWRITE DB_ENV_RPCCLIENT
  2644.      DB_FCNTL_LOCKING DB_JAVA_CALLBACK DB_LOCK_CONFLICT DB_LOCK_DEADLOCK
  2645.      DB_LOCK_MAXLOCKS DB_LOCK_MINLOCKS DB_LOCK_MINWRITE DB_LOCK_NOTEXIST
  2646.      DB_LOCK_PUT_READ DB_LOCK_YOUNGEST DB_LOGC_BUF_SIZE DB_MPOOL_DISCARD
  2647.      DB_MPOOL_PRIVATE DB_NOSERVER_HOME DB_PAGE_NOTFOUND DB_PRIORITY_HIGH
  2648.      DB_RECOVER_FATAL DB_REP_DUPMASTER DB_REP_NEWMASTER DB_REP_PERMANENT
  2649.      DB_SECONDARY_BAD DB_TEST_POSTOPEN DB_TEST_POSTSYNC DB_TXN_LOCK_MASK
  2650.      DB_TXN_OPENFILES DB_VERB_CHKPOINT DB_VERB_DEADLOCK DB_VERB_RECOVERY
  2651.      DB_VERB_WAITSFOR DB_VERSION_MAJOR DB_VERSION_MINOR DB_VERSION_PATCH
  2652.      DB_VRFY_FLAGMASK */
  2653.   /* Offset 12 gives the best switch position.  */
  2654.   switch (name[12]) {
  2655.   case 'A':
  2656.     if (memEQ(name, "DB_RECOVER_FATAL", 16)) {
  2657.     /*                           ^          */
  2658. #ifdef DB_RECOVER_FATAL
  2659.       *iv_return = DB_RECOVER_FATAL;
  2660.       return PERL_constant_ISIV;
  2661. #else
  2662.       return PERL_constant_NOTDEF;
  2663. #endif
  2664.     }
  2665.     if (memEQ(name, "DB_VERSION_MAJOR", 16)) {
  2666.     /*                           ^          */
  2667. #ifdef DB_VERSION_MAJOR
  2668.       *iv_return = DB_VERSION_MAJOR;
  2669.       return PERL_constant_ISIV;
  2670. #else
  2671.       return PERL_constant_NOTDEF;
  2672. #endif
  2673.     }
  2674.     if (memEQ(name, "DB_VERSION_PATCH", 16)) {
  2675.     /*                           ^          */
  2676. #ifdef DB_VERSION_PATCH
  2677.       *iv_return = DB_VERSION_PATCH;
  2678.       return PERL_constant_ISIV;
  2679. #else
  2680.       return PERL_constant_NOTDEF;
  2681. #endif
  2682.     }
  2683.     break;
  2684.   case 'B':
  2685.     if (memEQ(name, "DB_JAVA_CALLBACK", 16)) {
  2686.     /*                           ^          */
  2687. #ifdef DB_JAVA_CALLBACK
  2688.       *iv_return = DB_JAVA_CALLBACK;
  2689.       return PERL_constant_ISIV;
  2690. #else
  2691.       return PERL_constant_NOTDEF;
  2692. #endif
  2693.     }
  2694.     break;
  2695.   case 'C':
  2696.     if (memEQ(name, "DB_EID_BROADCAST", 16)) {
  2697.     /*                           ^          */
  2698. #ifdef DB_EID_BROADCAST
  2699.       *iv_return = DB_EID_BROADCAST;
  2700.       return PERL_constant_ISIV;
  2701. #else
  2702.       return PERL_constant_NOTDEF;
  2703. #endif
  2704.     }
  2705.     if (memEQ(name, "DB_MPOOL_DISCARD", 16)) {
  2706.     /*                           ^          */
  2707. #ifdef DB_MPOOL_DISCARD
  2708.       *iv_return = DB_MPOOL_DISCARD;
  2709.       return PERL_constant_ISIV;
  2710. #else
  2711.       return PERL_constant_NOTDEF;
  2712. #endif
  2713.     }
  2714.     break;
  2715.   case 'G':
  2716.     if (memEQ(name, "DB_LOCK_YOUNGEST", 16)) {
  2717.     /*                           ^          */
  2718. #ifdef DB_LOCK_YOUNGEST
  2719.       *iv_return = DB_LOCK_YOUNGEST;
  2720.       return PERL_constant_ISIV;
  2721. #else
  2722.       return PERL_constant_NOTDEF;
  2723. #endif
  2724.     }
  2725.     break;
  2726.   case 'H':
  2727.     if (memEQ(name, "DB_NOSERVER_HOME", 16)) {
  2728.     /*                           ^          */
  2729. #ifdef DB_NOSERVER_HOME
  2730.       *iv_return = DB_NOSERVER_HOME;
  2731.       return PERL_constant_ISIV;
  2732. #else
  2733.       return PERL_constant_NOTDEF;
  2734. #endif
  2735.     }
  2736.     if (memEQ(name, "DB_PRIORITY_HIGH", 16)) {
  2737.     /*                           ^          */
  2738. #if (DB_VERSION_MAJOR > 4) || 
  2739.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || 
  2740.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && 
  2741.      DB_VERSION_PATCH >= 17)
  2742.       *iv_return = DB_PRIORITY_HIGH;
  2743.       return PERL_constant_ISIV;
  2744. #else
  2745.       return PERL_constant_NOTDEF;
  2746. #endif
  2747.     }
  2748.     break;
  2749.   case 'I':
  2750.     if (memEQ(name, "DB_ENV_RPCCLIENT", 16)) {
  2751.     /*                           ^          */
  2752. #ifdef DB_ENV_RPCCLIENT
  2753.       *iv_return = DB_ENV_RPCCLIENT;
  2754.       return PERL_constant_ISIV;
  2755. #else
  2756.       return PERL_constant_NOTDEF;
  2757. #endif
  2758.     }
  2759.     if (memEQ(name, "DB_TXN_OPENFILES", 16)) {
  2760.     /*                           ^          */
  2761. #if (DB_VERSION_MAJOR > 3) || 
  2762.     (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || 
  2763.     (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && 
  2764.      DB_VERSION_PATCH >= 12)
  2765.       *iv_return = DB_TXN_OPENFILES;
  2766.       return PERL_constant_ISIV;
  2767. #else
  2768.       return PERL_constant_NOTDEF;
  2769. #endif
  2770.     }
  2771.     if (memEQ(name, "DB_VERSION_MINOR", 16)) {
  2772.     /*                           ^          */
  2773. #ifdef DB_VERSION_MINOR
  2774.       *iv_return = DB_VERSION_MINOR;
  2775.       return PERL_constant_ISIV;
  2776. #else
  2777.       return PERL_constant_NOTDEF;
  2778. #endif
  2779.     }
  2780.     break;
  2781.   case 'K':
  2782.     if (memEQ(name, "DB_ENV_NOLOCKING", 16)) {
  2783.     /*                           ^          */
  2784. #ifdef DB_ENV_NOLOCKING
  2785.       *iv_return = DB_ENV_NOLOCKING;
  2786.       return PERL_constant_ISIV;
  2787. #else
  2788.       return PERL_constant_NOTDEF;
  2789. #endif
  2790.     }
  2791.     if (memEQ(name, "DB_FCNTL_LOCKING", 16)) {
  2792.     /*                           ^          */
  2793. #ifdef DB_FCNTL_LOCKING
  2794.       *iv_return = DB_FCNTL_LOCKING;
  2795.       return PERL_constant_ISIV;
  2796. #else
  2797.       return PERL_constant_NOTDEF;
  2798. #endif
  2799.     }
  2800.     break;
  2801.   case 'L':
  2802.     if (memEQ(name, "DB_ENV_CDB_ALLDB", 16)) {
  2803.     /*                           ^          */
  2804. #ifdef DB_ENV_CDB_ALLDB
  2805.       *iv_return = DB_ENV_CDB_ALLDB;
  2806.       return PERL_constant_ISIV;
  2807. #else
  2808.       return PERL_constant_NOTDEF;
  2809. #endif
  2810.     }
  2811.     if (memEQ(name, "DB_LOCK_CONFLICT", 16)) {
  2812.     /*                           ^          */
  2813. #ifdef DB_LOCK_CONFLICT
  2814.       *iv_return = DB_LOCK_CONFLICT;
  2815.       return PERL_constant_ISIV;
  2816. #else
  2817.       return PERL_constant_NOTDEF;
  2818. #endif
  2819.     }
  2820.     if (memEQ(name, "DB_LOCK_DEADLOCK", 16)) {
  2821.     /*                           ^          */
  2822. #ifdef DB_LOCK_DEADLOCK
  2823.       *iv_return = DB_LOCK_DEADLOCK;
  2824.       return PERL_constant_ISIV;
  2825. #else
  2826.       return PERL_constant_NOTDEF;
  2827. #endif
  2828.     }
  2829.     if (memEQ(name, "DB_VERB_DEADLOCK", 16)) {
  2830.     /*                           ^          */
  2831. #ifdef DB_VERB_DEADLOCK
  2832.       *iv_return = DB_VERB_DEADLOCK;
  2833.       return PERL_constant_ISIV;
  2834. #else
  2835.       return PERL_constant_NOTDEF;
  2836. #endif
  2837.     }
  2838.     break;
  2839.   case 'M':
  2840.     if (memEQ(name, "DB_TXN_LOCK_MASK", 16)) {
  2841.     /*                           ^          */
  2842. #ifdef DB_TXN_LOCK_MASK
  2843.       *iv_return = DB_TXN_LOCK_MASK;
  2844.       return PERL_constant_ISIV;
  2845. #else
  2846.       return PERL_constant_NOTDEF;
  2847. #endif
  2848.     }
  2849.     if (memEQ(name, "DB_VRFY_FLAGMASK", 16)) {
  2850.     /*                           ^          */
  2851. #ifdef DB_VRFY_FLAGMASK
  2852.       *iv_return = DB_VRFY_FLAGMASK;
  2853.       return PERL_constant_ISIV;
  2854. #else
  2855.       return PERL_constant_NOTDEF;
  2856. #endif
  2857.     }
  2858.     break;
  2859.   case 'N':
  2860.     if (memEQ(name, "DB_REP_PERMANENT", 16)) {
  2861.     /*                           ^          */
  2862. #ifdef DB_REP_PERMANENT
  2863.       *iv_return = DB_REP_PERMANENT;
  2864.       return PERL_constant_ISIV;
  2865. #else
  2866.       return PERL_constant_NOTDEF;
  2867. #endif
  2868.     }
  2869.     break;
  2870.   case 'O':
  2871.     if (memEQ(name, "DB_LOCK_MAXLOCKS", 16)) {
  2872.     /*                           ^          */
  2873. #ifdef DB_LOCK_MAXLOCKS
  2874.       *iv_return = DB_LOCK_MAXLOCKS;
  2875.       return PERL_constant_ISIV;
  2876. #else
  2877.       return PERL_constant_NOTDEF;
  2878. #endif
  2879.     }
  2880.     if (memEQ(name, "DB_LOCK_MINLOCKS", 16)) {
  2881.     /*                           ^          */
  2882. #ifdef DB_LOCK_MINLOCKS
  2883.       *iv_return = DB_LOCK_MINLOCKS;
  2884.       return PERL_constant_ISIV;
  2885. #else
  2886.       return PERL_constant_NOTDEF;
  2887. #endif
  2888.     }
  2889.     if (memEQ(name, "DB_PAGE_NOTFOUND", 16)) {
  2890.     /*                           ^          */
  2891. #ifdef DB_PAGE_NOTFOUND
  2892.       *iv_return = DB_PAGE_NOTFOUND;
  2893.       return PERL_constant_ISIV;
  2894. #else
  2895.       return PERL_constant_NOTDEF;
  2896. #endif
  2897.     }
  2898.     if (memEQ(name, "DB_TEST_POSTOPEN", 16)) {
  2899.     /*                           ^          */
  2900. #ifdef DB_TEST_POSTOPEN
  2901.       *iv_return = DB_TEST_POSTOPEN;
  2902.       return PERL_constant_ISIV;
  2903. #else
  2904.       return PERL_constant_NOTDEF;
  2905. #endif
  2906.     }
  2907.     if (memEQ(name, "DB_VERB_CHKPOINT", 16)) {
  2908.     /*                           ^          */
  2909. #ifdef DB_VERB_CHKPOINT
  2910.       *iv_return = DB_VERB_CHKPOINT;
  2911.       return PERL_constant_ISIV;
  2912. #else
  2913.       return PERL_constant_NOTDEF;
  2914. #endif
  2915.     }
  2916.     break;
  2917.   case 'R':
  2918.     if (memEQ(name, "DB_ENV_OVERWRITE", 16)) {
  2919.     /*                           ^          */
  2920. #ifdef DB_ENV_OVERWRITE
  2921.       *iv_return = DB_ENV_OVERWRITE;
  2922.       return PERL_constant_ISIV;
  2923. #else
  2924.       return PERL_constant_NOTDEF;
  2925. #endif
  2926.     }
  2927.     if (memEQ(name, "DB_LOCK_MINWRITE", 16)) {
  2928.     /*                           ^          */
  2929. #ifdef DB_LOCK_MINWRITE
  2930.       *iv_return = DB_LOCK_MINWRITE;
  2931.       return PERL_constant_ISIV;
  2932. #else
  2933.       return PERL_constant_NOTDEF;
  2934. #endif
  2935.     }
  2936.     if (memEQ(name, "DB_LOCK_PUT_READ", 16)) {
  2937.     /*                           ^          */
  2938. #if (DB_VERSION_MAJOR > 4) || 
  2939.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || 
  2940.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && 
  2941.      DB_VERSION_PATCH >= 7)
  2942.       *iv_return = DB_LOCK_PUT_READ;
  2943.       return PERL_constant_ISIV;
  2944. #else
  2945.       return PERL_constant_NOTDEF;
  2946. #endif
  2947.     }
  2948.     break;
  2949.   case 'S':
  2950.     if (memEQ(name, "DB_LOGC_BUF_SIZE", 16)) {
  2951.     /*                           ^          */
  2952. #ifdef DB_LOGC_BUF_SIZE
  2953.       *iv_return = DB_LOGC_BUF_SIZE;
  2954.       return PERL_constant_ISIV;
  2955. #else
  2956.       return PERL_constant_NOTDEF;
  2957. #endif
  2958.     }
  2959.     if (memEQ(name, "DB_REP_DUPMASTER", 16)) {
  2960.     /*                           ^          */
  2961. #ifdef DB_REP_DUPMASTER
  2962.       *iv_return = DB_REP_DUPMASTER;
  2963.       return PERL_constant_ISIV;
  2964. #else
  2965.       return PERL_constant_NOTDEF;
  2966. #endif
  2967.     }
  2968.     if (memEQ(name, "DB_REP_NEWMASTER", 16)) {
  2969.     /*                           ^          */
  2970. #ifdef DB_REP_NEWMASTER
  2971.       *iv_return = DB_REP_NEWMASTER;
  2972.       return PERL_constant_ISIV;
  2973. #else
  2974.       return PERL_constant_NOTDEF;
  2975. #endif
  2976.     }
  2977.     if (memEQ(name, "DB_TEST_POSTSYNC", 16)) {
  2978.     /*                           ^          */
  2979. #ifdef DB_TEST_POSTSYNC
  2980.       *iv_return = DB_TEST_POSTSYNC;
  2981.       return PERL_constant_ISIV;
  2982. #else
  2983.       return PERL_constant_NOTDEF;
  2984. #endif
  2985.     }
  2986.     if (memEQ(name, "DB_VERB_WAITSFOR", 16)) {
  2987.     /*                           ^          */
  2988. #ifdef DB_VERB_WAITSFOR
  2989.       *iv_return = DB_VERB_WAITSFOR;
  2990.       return PERL_constant_ISIV;
  2991. #else
  2992.       return PERL_constant_NOTDEF;
  2993. #endif
  2994.     }
  2995.     break;
  2996.   case 'T':
  2997.     if (memEQ(name, "DB_ENV_DIRECT_DB", 16)) {
  2998.     /*                           ^          */
  2999. #ifdef DB_ENV_DIRECT_DB
  3000.       *iv_return = DB_ENV_DIRECT_DB;
  3001.       return PERL_constant_ISIV;
  3002. #else
  3003.       return PERL_constant_NOTDEF;
  3004. #endif
  3005.     }
  3006.     break;
  3007.   case 'U':
  3008.     if (memEQ(name, "DB_CACHED_COUNTS", 16)) {
  3009.     /*                           ^          */
  3010. #ifdef DB_CACHED_COUNTS
  3011.       *iv_return = DB_CACHED_COUNTS;
  3012.       return PERL_constant_ISIV;
  3013. #else
  3014.       return PERL_constant_NOTDEF;
  3015. #endif
  3016.     }
  3017.     break;
  3018.   case 'V':
  3019.     if (memEQ(name, "DB_MPOOL_PRIVATE", 16)) {
  3020.     /*                           ^          */
  3021. #ifdef DB_MPOOL_PRIVATE
  3022.       *iv_return = DB_MPOOL_PRIVATE;
  3023.       return PERL_constant_ISIV;
  3024. #else
  3025.       return PERL_constant_NOTDEF;
  3026. #endif
  3027.     }
  3028.     if (memEQ(name, "DB_VERB_RECOVERY", 16)) {
  3029.     /*                           ^          */
  3030. #ifdef DB_VERB_RECOVERY
  3031.       *iv_return = DB_VERB_RECOVERY;
  3032.       return PERL_constant_ISIV;
  3033. #else
  3034.       return PERL_constant_NOTDEF;
  3035. #endif
  3036.     }
  3037.     break;
  3038.   case 'X':
  3039.     if (memEQ(name, "DB_LOCK_NOTEXIST", 16)) {
  3040.     /*                           ^          */
  3041. #ifdef DB_LOCK_NOTEXIST
  3042.       *iv_return = DB_LOCK_NOTEXIST;
  3043.       return PERL_constant_ISIV;
  3044. #else
  3045.       return PERL_constant_NOTDEF;
  3046. #endif
  3047.     }
  3048.     break;
  3049.   case '_':
  3050.     if (memEQ(name, "DB_BROADCAST_EID", 16)) {
  3051.     /*                           ^          */
  3052. #ifdef DB_BROADCAST_EID
  3053.       *iv_return = DB_BROADCAST_EID;
  3054.       return PERL_constant_ISIV;
  3055. #else
  3056.       return PERL_constant_NOTDEF;
  3057. #endif
  3058.     }
  3059.     if (memEQ(name, "DB_SECONDARY_BAD", 16)) {
  3060.     /*                           ^          */
  3061. #ifdef DB_SECONDARY_BAD
  3062.       *iv_return = DB_SECONDARY_BAD;
  3063.       return PERL_constant_ISIV;
  3064. #else
  3065.       return PERL_constant_NOTDEF;
  3066. #endif
  3067.     }
  3068.     break;
  3069.   }
  3070.   return PERL_constant_NOTFOUND;
  3071. }
  3073. static int
  3074. constant_17 (pTHX_ const char *name, IV *iv_return, const char **pv_return) {
  3075.   /* When generated this function returned values for the list of names given
  3076.      here.  However, subsequent manual editing may have added or removed some.
  3077.      DB_ENV_DIRECT_LOG DB_ENV_REP_CLIENT DB_ENV_REP_MASTER DB_ENV_STANDALONE
  3078.      DB_ENV_SYSTEM_MEM DB_ENV_TXN_NOSYNC DB_ENV_USER_ALLOC DB_GET_BOTH_RANGE
  3079.      DB_LOG_SILENT_ERR DB_RPC_SERVERPROG DB_RPC_SERVERVERS DB_TEST_ELECTINIT
  3080.      DB_TEST_ELECTSEND DB_TEST_PRERENAME DB_TXN_POPENFILES DB_VERSION_STRING */
  3081.   /* Offset 14 gives the best switch position.  */
  3082.   switch (name[14]) {
  3083.   case 'A':
  3084.     if (memEQ(name, "DB_TEST_PRERENAME", 17)) {
  3085.     /*                             ^         */
  3086. #ifdef DB_TEST_PRERENAME
  3087.       *iv_return = DB_TEST_PRERENAME;
  3088.       return PERL_constant_ISIV;
  3089. #else
  3090.       return PERL_constant_NOTDEF;
  3091. #endif
  3092.     }
  3093.     break;
  3094.   case 'E':
  3095.     if (memEQ(name, "DB_ENV_REP_CLIENT", 17)) {
  3096.     /*                             ^         */
  3097. #ifdef DB_ENV_REP_CLIENT
  3098.       *iv_return = DB_ENV_REP_CLIENT;
  3099.       return PERL_constant_ISIV;
  3100. #else
  3101.       return PERL_constant_NOTDEF;
  3102. #endif
  3103.     }
  3104.     if (memEQ(name, "DB_LOG_SILENT_ERR", 17)) {
  3105.     /*                             ^         */
  3106. #ifdef DB_LOG_SILENT_ERR
  3107.       *iv_return = DB_LOG_SILENT_ERR;
  3108.       return PERL_constant_ISIV;
  3109. #else
  3110.       return PERL_constant_NOTDEF;
  3111. #endif
  3112.     }
  3113.     if (memEQ(name, "DB_RPC_SERVERVERS", 17)) {
  3114.     /*                             ^         */
  3115. #ifdef DB_RPC_SERVERVERS
  3116.       *iv_return = DB_RPC_SERVERVERS;
  3117.       return PERL_constant_ISIV;
  3118. #else
  3119.       return PERL_constant_NOTDEF;
  3120. #endif
  3121.     }
  3122.     if (memEQ(name, "DB_TEST_ELECTSEND", 17)) {
  3123.     /*                             ^         */
  3124. #ifdef DB_TEST_ELECTSEND
  3125.       *iv_return = DB_TEST_ELECTSEND;
  3126.       return PERL_constant_ISIV;
  3127. #else
  3128.       return PERL_constant_NOTDEF;
  3129. #endif
  3130.     }
  3131.     break;
  3132.   case 'I':
  3133.     if (memEQ(name, "DB_VERSION_STRING", 17)) {
  3134.     /*                             ^         */
  3135. #ifdef DB_VERSION_STRING
  3136.       *pv_return = DB_VERSION_STRING;
  3137.       return PERL_constant_ISPV;
  3138. #else
  3139.       return PERL_constant_NOTDEF;
  3140. #endif
  3141.     }
  3142.     break;
  3143.   case 'L':
  3144.     if (memEQ(name, "DB_ENV_DIRECT_LOG", 17)) {
  3145.     /*                             ^         */
  3146. #ifdef DB_ENV_DIRECT_LOG
  3147.       *iv_return = DB_ENV_DIRECT_LOG;
  3148.       return PERL_constant_ISIV;
  3149. #else
  3150.       return PERL_constant_NOTDEF;
  3151. #endif
  3152.     }
  3153.     if (memEQ(name, "DB_ENV_USER_ALLOC", 17)) {
  3154.     /*                             ^         */
  3155. #ifdef DB_ENV_USER_ALLOC
  3156.       *iv_return = DB_ENV_USER_ALLOC;
  3157.       return PERL_constant_ISIV;
  3158. #else
  3159.       return PERL_constant_NOTDEF;
  3160. #endif
  3161.     }
  3162.     if (memEQ(name, "DB_TXN_POPENFILES", 17)) {
  3163.     /*                             ^         */
  3164. #if (DB_VERSION_MAJOR > 3) || 
  3165.     (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 3) || 
  3166.     (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 3 && 
  3167.      DB_VERSION_PATCH >= 4)
  3168.       *iv_return = DB_TXN_POPENFILES;
  3169.       return PERL_constant_ISIV;
  3170. #else
  3171.       return PERL_constant_NOTDEF;
  3172. #endif
  3173.     }
  3174.     break;
  3175.   case 'M':
  3176.     if (memEQ(name, "DB_ENV_SYSTEM_MEM", 17)) {
  3177.     /*                             ^         */
  3178. #ifdef DB_ENV_SYSTEM_MEM
  3179.       *iv_return = DB_ENV_SYSTEM_MEM;
  3180.       return PERL_constant_ISIV;
  3181. #else
  3182.       return PERL_constant_NOTDEF;
  3183. #endif
  3184.     }
  3185.     break;
  3186.   case 'N':
  3187.     if (memEQ(name, "DB_GET_BOTH_RANGE", 17)) {
  3188.     /*                             ^         */
  3189. #ifdef DB_GET_BOTH_RANGE
  3190.       *iv_return = DB_GET_BOTH_RANGE;
  3191.       return PERL_constant_ISIV;
  3192. #else
  3193.       return PERL_constant_NOTDEF;
  3194. #endif
  3195.     }
  3196.     if (memEQ(name, "DB_TEST_ELECTINIT", 17)) {
  3197.     /*                             ^         */
  3198. #ifdef DB_TEST_ELECTINIT
  3199.       *iv_return = DB_TEST_ELECTINIT;
  3200.       return PERL_constant_ISIV;
  3201. #else
  3202.       return PERL_constant_NOTDEF;
  3203. #endif
  3204.     }
  3205.     break;
  3206.   case 'O':
  3207.     if (memEQ(name, "DB_ENV_STANDALONE", 17)) {
  3208.     /*                             ^         */
  3209. #ifdef DB_ENV_STANDALONE
  3210.       *iv_return = DB_ENV_STANDALONE;
  3211.       return PERL_constant_ISIV;
  3212. #else
  3213.       return PERL_constant_NOTDEF;
  3214. #endif
  3215.     }
  3216.     break;
  3217.   case 'R':
  3218.     if (memEQ(name, "DB_RPC_SERVERPROG", 17)) {
  3219.     /*                             ^         */
  3220. #ifdef DB_RPC_SERVERPROG
  3221.       *iv_return = DB_RPC_SERVERPROG;
  3222.       return PERL_constant_ISIV;
  3223. #else
  3224.       return PERL_constant_NOTDEF;
  3225. #endif
  3226.     }
  3227.     break;
  3228.   case 'T':
  3229.     if (memEQ(name, "DB_ENV_REP_MASTER", 17)) {
  3230.     /*                             ^         */
  3231. #ifdef DB_ENV_REP_MASTER
  3232.       *iv_return = DB_ENV_REP_MASTER;
  3233.       return PERL_constant_ISIV;
  3234. #else
  3235.       return PERL_constant_NOTDEF;
  3236. #endif
  3237.     }
  3238.     break;
  3239.   case 'Y':
  3240.     if (memEQ(name, "DB_ENV_TXN_NOSYNC", 17)) {
  3241.     /*                             ^         */
  3242. #ifdef DB_ENV_TXN_NOSYNC
  3243.       *iv_return = DB_ENV_TXN_NOSYNC;
  3244.       return PERL_constant_ISIV;
  3245. #else
  3246.       return PERL_constant_NOTDEF;
  3247. #endif
  3248.     }
  3249.     break;
  3250.   }
  3251.   return PERL_constant_NOTFOUND;
  3252. }
  3254. static int
  3255. constant_18 (pTHX_ const char *name, IV *iv_return) {
  3256.   /* When generated this function returned values for the list of names given
  3257.      here.  However, subsequent manual editing may have added or removed some.
  3258.      DB_ALREADY_ABORTED DB_ENV_AUTO_COMMIT DB_ENV_OPEN_CALLED
  3259.      DB_ENV_REGION_INIT DB_LOCK_NOTGRANTED DB_MPOOL_NEW_GROUP
  3260.      DB_PR_RECOVERYTEST DB_SET_TXN_TIMEOUT DB_TEST_ELECTVOTE1
  3261.      DB_TEST_ELECTVOTE2 DB_TEST_ELECTWAIT1 DB_TEST_ELECTWAIT2
  3262.      DB_TEST_POSTRENAME DB_TEST_PREDESTROY DB_TEST_PREEXTOPEN */
  3263.   /* Offset 13 gives the best switch position.  */
  3264.   switch (name[13]) {
  3265.   case 'A':
  3266.     if (memEQ(name, "DB_ENV_OPEN_CALLED", 18)) {
  3267.     /*                            ^           */
  3268. #ifdef DB_ENV_OPEN_CALLED
  3269.       *iv_return = DB_ENV_OPEN_CALLED;
  3270.       return PERL_constant_ISIV;
  3271. #else
  3272.       return PERL_constant_NOTDEF;
  3273. #endif
  3274.     }
  3275.     if (memEQ(name, "DB_LOCK_NOTGRANTED", 18)) {
  3276.     /*                            ^           */
  3277. #ifdef DB_LOCK_NOTGRANTED
  3278.       *iv_return = DB_LOCK_NOTGRANTED;
  3279.       return PERL_constant_ISIV;
  3280. #else
  3281.       return PERL_constant_NOTDEF;
  3282. #endif
  3283.     }
  3284.     break;
  3285.   case 'E':
  3286.     if (memEQ(name, "DB_TEST_POSTRENAME", 18)) {
  3287.     /*                            ^           */
  3288. #ifdef DB_TEST_POSTRENAME
  3289.       *iv_return = DB_TEST_POSTRENAME;
  3290.       return PERL_constant_ISIV;
  3291. #else
  3292.       return PERL_constant_NOTDEF;
  3293. #endif
  3294.     }
  3295.     break;
  3296.   case 'G':
  3297.     if (memEQ(name, "DB_MPOOL_NEW_GROUP", 18)) {
  3298.     /*                            ^           */
  3299. #ifdef DB_MPOOL_NEW_GROUP
  3300.       *iv_return = DB_MPOOL_NEW_GROUP;
  3301.       return PERL_constant_ISIV;
  3302. #else
  3303.       return PERL_constant_NOTDEF;
  3304. #endif
  3305.     }
  3306.     break;
  3307.   case 'M':
  3308.     if (memEQ(name, "DB_SET_TXN_TIMEOUT", 18)) {
  3309.     /*                            ^           */
  3310. #ifdef DB_SET_TXN_TIMEOUT
  3311.       *iv_return = DB_SET_TXN_TIMEOUT;
  3312.       return PERL_constant_ISIV;
  3313. #else
  3314.       return PERL_constant_NOTDEF;
  3315. #endif
  3316.     }
  3317.     break;
  3318.   case 'O':
  3319.     if (memEQ(name, "DB_ALREADY_ABORTED", 18)) {
  3320.     /*                            ^           */
  3321. #ifdef DB_ALREADY_ABORTED
  3322.       *iv_return = DB_ALREADY_ABORTED;
  3323.       return PERL_constant_ISIV;
  3324. #else
  3325.       return PERL_constant_NOTDEF;
  3326. #endif
  3327.     }
  3328.     if (memEQ(name, "DB_ENV_AUTO_COMMIT", 18)) {
  3329.     /*                            ^           */
  3330. #ifdef DB_ENV_AUTO_COMMIT
  3331.       *iv_return = DB_ENV_AUTO_COMMIT;
  3332.       return PERL_constant_ISIV;
  3333. #else
  3334.       return PERL_constant_NOTDEF;
  3335. #endif
  3336.     }
  3337.     break;
  3338.   case 'S':
  3339.     if (memEQ(name, "DB_TEST_PREDESTROY", 18)) {
  3340.     /*                            ^           */
  3341. #ifdef DB_TEST_PREDESTROY
  3342.       *iv_return = DB_TEST_PREDESTROY;
  3343.       return PERL_constant_ISIV;
  3344. #else
  3345.       return PERL_constant_NOTDEF;
  3346. #endif
  3347.     }
  3348.     break;
  3349.   case 'T':
  3350.     if (memEQ(name, "DB_TEST_PREEXTOPEN", 18)) {
  3351.     /*                            ^           */
  3352. #ifdef DB_TEST_PREEXTOPEN
  3353.       *iv_return = DB_TEST_PREEXTOPEN;
  3354.       return PERL_constant_ISIV;
  3355. #else
  3356.       return PERL_constant_NOTDEF;
  3357. #endif
  3358.     }
  3359.     break;
  3360.   case 'V':
  3361.     if (memEQ(name, "DB_TEST_ELECTVOTE1", 18)) {
  3362.     /*                            ^           */
  3363. #ifdef DB_TEST_ELECTVOTE1
  3364.       *iv_return = DB_TEST_ELECTVOTE1;
  3365.       return PERL_constant_ISIV;
  3366. #else
  3367.       return PERL_constant_NOTDEF;
  3368. #endif
  3369.     }
  3370.     if (memEQ(name, "DB_TEST_ELECTVOTE2", 18)) {
  3371.     /*                            ^           */
  3372. #ifdef DB_TEST_ELECTVOTE2
  3373.       *iv_return = DB_TEST_ELECTVOTE2;
  3374.       return PERL_constant_ISIV;
  3375. #else
  3376.       return PERL_constant_NOTDEF;
  3377. #endif
  3378.     }
  3379.     break;
  3380.   case 'W':
  3381.     if (memEQ(name, "DB_TEST_ELECTWAIT1", 18)) {
  3382.     /*                            ^           */
  3383. #ifdef DB_TEST_ELECTWAIT1
  3384.       *iv_return = DB_TEST_ELECTWAIT1;
  3385.       return PERL_constant_ISIV;
  3386. #else
  3387.       return PERL_constant_NOTDEF;
  3388. #endif
  3389.     }
  3390.     if (memEQ(name, "DB_TEST_ELECTWAIT2", 18)) {
  3391.     /*                            ^           */
  3392. #ifdef DB_TEST_ELECTWAIT2
  3393.       *iv_return = DB_TEST_ELECTWAIT2;
  3394.       return PERL_constant_ISIV;
  3395. #else
  3396.       return PERL_constant_NOTDEF;
  3397. #endif
  3398.     }
  3399.     break;
  3400.   case 'Y':
  3401.     if (memEQ(name, "DB_PR_RECOVERYTEST", 18)) {
  3402.     /*                            ^           */
  3403. #ifdef DB_PR_RECOVERYTEST
  3404.       *iv_return = DB_PR_RECOVERYTEST;
  3405.       return PERL_constant_ISIV;
  3406. #else
  3407.       return PERL_constant_NOTDEF;
  3408. #endif
  3409.     }
  3410.     break;
  3411.   case '_':
  3412.     if (memEQ(name, "DB_ENV_REGION_INIT", 18)) {
  3413.     /*                            ^           */
  3414. #ifdef DB_ENV_REGION_INIT
  3415.       *iv_return = DB_ENV_REGION_INIT;
  3416.       return PERL_constant_ISIV;
  3417. #else
  3418.       return PERL_constant_NOTDEF;
  3419. #endif
  3420.     }
  3421.     break;
  3422.   }
  3423.   return PERL_constant_NOTFOUND;
  3424. }
  3426. static int
  3427. constant_19 (pTHX_ const char *name, IV *iv_return) {
  3428.   /* When generated this function returned values for the list of names given
  3429.      here.  However, subsequent manual editing may have added or removed some.
  3430.      DB_ENV_REP_LOGSONLY DB_LOCK_FREE_LOCKER DB_LOCK_GET_TIMEOUT
  3431.      DB_LOCK_SET_TIMEOUT DB_PRIORITY_DEFAULT DB_REP_HOLDELECTION
  3432.      DB_SET_LOCK_TIMEOUT DB_TEST_POSTDESTROY DB_TEST_POSTEXTOPEN
  3433.      DB_TEST_POSTLOGMETA DB_TEST_SUBDB_LOCKS DB_TXN_FORWARD_ROLL
  3434.      DB_TXN_LOG_UNDOREDO DB_TXN_WRITE_NOSYNC DB_UNRESOLVED_CHILD
  3435.      DB_UPDATE_SECONDARY DB_USE_ENVIRON_ROOT DB_VERB_REPLICATION */
  3436.   /* Offset 9 gives the best switch position.  */
  3437.   switch (name[9]) {
  3438.   case 'C':
  3439.     if (memEQ(name, "DB_SET_LOCK_TIMEOUT", 19)) {
  3440.     /*                        ^                */
  3441. #ifdef DB_SET_LOCK_TIMEOUT
  3442.       *iv_return = DB_SET_LOCK_TIMEOUT;
  3443.       return PERL_constant_ISIV;
  3444. #else
  3445.       return PERL_constant_NOTDEF;
  3446. #endif
  3447.     }
  3448.     break;
  3449.   case 'E':
  3450.     if (memEQ(name, "DB_LOCK_GET_TIMEOUT", 19)) {
  3451.     /*                        ^                */
  3452. #if (DB_VERSION_MAJOR > 4) || 
  3453.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || 
  3454.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && 
  3455.      DB_VERSION_PATCH >= 7)
  3456.       *iv_return = DB_LOCK_GET_TIMEOUT;
  3457.       return PERL_constant_ISIV;
  3458. #else
  3459.       return PERL_constant_NOTDEF;
  3460. #endif
  3461.     }
  3462.     if (memEQ(name, "DB_LOCK_SET_TIMEOUT", 19)) {
  3463.     /*                        ^                */
  3464. #ifdef DB_LOCK_SET_TIMEOUT
  3465.       *iv_return = DB_LOCK_SET_TIMEOUT;
  3466.       return PERL_constant_ISIV;
  3467. #else
  3468.       return PERL_constant_NOTDEF;
  3469. #endif
  3470.     }
  3471.     if (memEQ(name, "DB_VERB_REPLICATION", 19)) {
  3472.     /*                        ^                */
  3473. #ifdef DB_VERB_REPLICATION
  3474.       *iv_return = DB_VERB_REPLICATION;
  3475.       return PERL_constant_ISIV;
  3476. #else
  3477.       return PERL_constant_NOTDEF;
  3478. #endif
  3479.     }
  3480.     break;
  3481.   case 'G':
  3482.     if (memEQ(name, "DB_TXN_LOG_UNDOREDO", 19)) {
  3483.     /*                        ^                */
  3484. #ifdef DB_TXN_LOG_UNDOREDO
  3485.       *iv_return = DB_TXN_LOG_UNDOREDO;
  3486.       return PERL_constant_ISIV;
  3487. #else
  3488.       return PERL_constant_NOTDEF;
  3489. #endif
  3490.     }
  3491.     break;
  3492.   case 'I':
  3493.     if (memEQ(name, "DB_TXN_WRITE_NOSYNC", 19)) {
  3494.     /*                        ^                */
  3495. #ifdef DB_TXN_WRITE_NOSYNC
  3496.       *iv_return = DB_TXN_WRITE_NOSYNC;
  3497.       return PERL_constant_ISIV;
  3498. #else
  3499.       return PERL_constant_NOTDEF;
  3500. #endif
  3501.     }
  3502.     break;
  3503.   case 'L':
  3504.     if (memEQ(name, "DB_REP_HOLDELECTION", 19)) {
  3505.     /*                        ^                */
  3506. #ifdef DB_REP_HOLDELECTION
  3507.       *iv_return = DB_REP_HOLDELECTION;
  3508.       return PERL_constant_ISIV;
  3509. #else
  3510.       return PERL_constant_NOTDEF;
  3511. #endif
  3512.     }
  3513.     if (memEQ(name, "DB_UNRESOLVED_CHILD", 19)) {
  3514.     /*                        ^                */
  3515. #ifdef DB_UNRESOLVED_CHILD
  3516.       *iv_return = DB_UNRESOLVED_CHILD;
  3517.       return PERL_constant_ISIV;
  3518. #else
  3519.       return PERL_constant_NOTDEF;
  3520. #endif
  3521.     }
  3522.     break;
  3523.   case 'O':
  3524.     if (memEQ(name, "DB_TEST_POSTDESTROY", 19)) {
  3525.     /*                        ^                */
  3526. #ifdef DB_TEST_POSTDESTROY
  3527.       *iv_return = DB_TEST_POSTDESTROY;
  3528.       return PERL_constant_ISIV;
  3529. #else
  3530.       return PERL_constant_NOTDEF;
  3531. #endif
  3532.     }
  3533.     if (memEQ(name, "DB_TEST_POSTEXTOPEN", 19)) {
  3534.     /*                        ^                */
  3535. #ifdef DB_TEST_POSTEXTOPEN
  3536.       *iv_return = DB_TEST_POSTEXTOPEN;
  3537.       return PERL_constant_ISIV;
  3538. #else
  3539.       return PERL_constant_NOTDEF;
  3540. #endif
  3541.     }
  3542.     if (memEQ(name, "DB_TEST_POSTLOGMETA", 19)) {
  3543.     /*                        ^                */
  3544. #ifdef DB_TEST_POSTLOGMETA
  3545.       *iv_return = DB_TEST_POSTLOGMETA;
  3546.       return PERL_constant_ISIV;
  3547. #else
  3548.       return PERL_constant_NOTDEF;
  3549. #endif
  3550.     }
  3551.     break;
  3552.   case 'P':
  3553.     if (memEQ(name, "DB_ENV_REP_LOGSONLY", 19)) {
  3554.     /*                        ^                */
  3555. #ifdef DB_ENV_REP_LOGSONLY
  3556.       *iv_return = DB_ENV_REP_LOGSONLY;
  3557.       return PERL_constant_ISIV;
  3558. #else
  3559.       return PERL_constant_NOTDEF;
  3560. #endif
  3561.     }
  3562.     break;
  3563.   case 'R':
  3564.     if (memEQ(name, "DB_LOCK_FREE_LOCKER", 19)) {
  3565.     /*                        ^                */
  3566. #ifdef DB_LOCK_FREE_LOCKER
  3567.       *iv_return = DB_LOCK_FREE_LOCKER;
  3568.       return PERL_constant_ISIV;
  3569. #else
  3570.       return PERL_constant_NOTDEF;
  3571. #endif
  3572.     }
  3573.     if (memEQ(name, "DB_TXN_FORWARD_ROLL", 19)) {
  3574.     /*                        ^                */
  3575. #if (DB_VERSION_MAJOR > 3) || 
  3576.     (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || 
  3577.     (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && 
  3578.      DB_VERSION_PATCH >= 12)
  3579.       *iv_return = DB_TXN_FORWARD_ROLL;
  3580.       return PERL_constant_ISIV;
  3581. #else
  3582.       return PERL_constant_NOTDEF;
  3583. #endif
  3584.     }
  3585.     break;
  3586.   case 'T':
  3587.     if (memEQ(name, "DB_PRIORITY_DEFAULT", 19)) {
  3588.     /*                        ^                */
  3589. #if (DB_VERSION_MAJOR > 4) || 
  3590.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || 
  3591.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && 
  3592.      DB_VERSION_PATCH >= 17)
  3593.       *iv_return = DB_PRIORITY_DEFAULT;
  3594.       return PERL_constant_ISIV;
  3595. #else
  3596.       return PERL_constant_NOTDEF;
  3597. #endif
  3598.     }
  3599.     break;
  3600.   case 'U':
  3601.     if (memEQ(name, "DB_TEST_SUBDB_LOCKS", 19)) {
  3602.     /*                        ^                */
  3603. #ifdef DB_TEST_SUBDB_LOCKS
  3604.       *iv_return = DB_TEST_SUBDB_LOCKS;
  3605.       return PERL_constant_ISIV;
  3606. #else
  3607.       return PERL_constant_NOTDEF;
  3608. #endif
  3609.     }
  3610.     break;
  3611.   case 'V':
  3612.     if (memEQ(name, "DB_USE_ENVIRON_ROOT", 19)) {
  3613.     /*                        ^                */
  3614. #ifdef DB_USE_ENVIRON_ROOT
  3615.       *iv_return = DB_USE_ENVIRON_ROOT;
  3616.       return PERL_constant_ISIV;
  3617. #else
  3618.       return PERL_constant_NOTDEF;
  3619. #endif
  3620.     }
  3621.     break;
  3622.   case '_':
  3623.     if (memEQ(name, "DB_UPDATE_SECONDARY", 19)) {
  3624.     /*                        ^                */
  3625. #ifdef DB_UPDATE_SECONDARY
  3626.       *iv_return = DB_UPDATE_SECONDARY;
  3627.       return PERL_constant_ISIV;
  3628. #else
  3629.       return PERL_constant_NOTDEF;
  3630. #endif
  3631.     }
  3632.     break;
  3633.   }
  3634.   return PERL_constant_NOTFOUND;
  3635. }
  3637. static int
  3638. constant_20 (pTHX_ const char *name, IV *iv_return) {
  3639.   /* When generated this function returned values for the list of names given
  3640.      here.  However, subsequent manual editing may have added or removed some.
  3641.      DB_CXX_NO_EXCEPTIONS DB_LOGFILEID_INVALID DB_PANIC_ENVIRONMENT
  3642.      DB_PRIORITY_VERY_LOW DB_TEST_PREEXTDELETE DB_TEST_PREEXTUNLINK
  3643.      DB_TXN_BACKWARD_ROLL DB_TXN_LOCK_OPTIMIST */
  3644.   /* Offset 14 gives the best switch position.  */
  3645.   switch (name[14]) {
  3646.   case 'D':
  3647.     if (memEQ(name, "DB_TEST_PREEXTDELETE", 20)) {
  3648.     /*                             ^            */
  3649. #ifdef DB_TEST_PREEXTDELETE
  3650.       *iv_return = DB_TEST_PREEXTDELETE;
  3651.       return PERL_constant_ISIV;
  3652. #else
  3653.       return PERL_constant_NOTDEF;
  3654. #endif
  3655.     }
  3656.     if (memEQ(name, "DB_TXN_BACKWARD_ROLL", 20)) {
  3657.     /*                             ^            */
  3658. #if (DB_VERSION_MAJOR > 3) || 
  3659.     (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || 
  3660.     (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && 
  3661.      DB_VERSION_PATCH >= 12)
  3662.       *iv_return = DB_TXN_BACKWARD_ROLL;
  3663.       return PERL_constant_ISIV;
  3664. #else
  3665.       return PERL_constant_NOTDEF;
  3666. #endif
  3667.     }
  3668.     break;
  3669.   case 'N':
  3670.     if (memEQ(name, "DB_LOGFILEID_INVALID", 20)) {
  3671.     /*                             ^            */
  3672. #ifdef DB_LOGFILEID_INVALID
  3673.       *iv_return = DB_LOGFILEID_INVALID;
  3674.       return PERL_constant_ISIV;
  3675. #else
  3676.       return PERL_constant_NOTDEF;
  3677. #endif
  3678.     }
  3679.     break;
  3680.   case 'O':
  3681.     if (memEQ(name, "DB_PANIC_ENVIRONMENT", 20)) {
  3682.     /*                             ^            */
  3683. #ifdef DB_PANIC_ENVIRONMENT
  3684.       *iv_return = DB_PANIC_ENVIRONMENT;
  3685.       return PERL_constant_ISIV;
  3686. #else
  3687.       return PERL_constant_NOTDEF;
  3688. #endif
  3689.     }
  3690.     break;
  3691.   case 'P':
  3692.     if (memEQ(name, "DB_CXX_NO_EXCEPTIONS", 20)) {
  3693.     /*                             ^            */
  3694. #ifdef DB_CXX_NO_EXCEPTIONS
  3695.       *iv_return = DB_CXX_NO_EXCEPTIONS;
  3696.       return PERL_constant_ISIV;
  3697. #else
  3698.       return PERL_constant_NOTDEF;
  3699. #endif
  3700.     }
  3701.     break;
  3702.   case 'R':
  3703.     if (memEQ(name, "DB_PRIORITY_VERY_LOW", 20)) {
  3704.     /*                             ^            */
  3705. #if (DB_VERSION_MAJOR > 4) || 
  3706.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || 
  3707.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && 
  3708.      DB_VERSION_PATCH >= 17)
  3709.       *iv_return = DB_PRIORITY_VERY_LOW;
  3710.       return PERL_constant_ISIV;
  3711. #else
  3712.       return PERL_constant_NOTDEF;
  3713. #endif
  3714.     }
  3715.     break;
  3716.   case 'T':
  3717.     if (memEQ(name, "DB_TXN_LOCK_OPTIMIST", 20)) {
  3718.     /*                             ^            */
  3719. #ifdef DB_TXN_LOCK_OPTIMIST
  3720.       *iv_return = DB_TXN_LOCK_OPTIMIST;
  3721.       return PERL_constant_ISIV;
  3722. #else
  3723.       return PERL_constant_NOTDEF;
  3724. #endif
  3725.     }
  3726.     break;
  3727.   case 'U':
  3728.     if (memEQ(name, "DB_TEST_PREEXTUNLINK", 20)) {
  3729.     /*                             ^            */
  3730. #ifdef DB_TEST_PREEXTUNLINK
  3731.       *iv_return = DB_TEST_PREEXTUNLINK;
  3732.       return PERL_constant_ISIV;
  3733. #else
  3734.       return PERL_constant_NOTDEF;
  3735. #endif
  3736.     }
  3737.     break;
  3738.   }
  3739.   return PERL_constant_NOTFOUND;
  3740. }
  3742. static int
  3743. constant_21 (pTHX_ const char *name, IV *iv_return) {
  3744.   /* When generated this function returned values for the list of names given
  3745.      here.  However, subsequent manual editing may have added or removed some.
  3746.      DB_LOCK_UPGRADE_WRITE DB_PRIORITY_VERY_HIGH DB_TEST_POSTEXTDELETE
  3747.      DB_TEST_POSTEXTUNLINK DB_TXN_BACKWARD_ALLOC */
  3748.   /* Offset 16 gives the best switch position.  */
  3749.   switch (name[16]) {
  3750.   case 'A':
  3751.     if (memEQ(name, "DB_TXN_BACKWARD_ALLOC", 21)) {
  3752.     /*                               ^           */
  3753. #if (DB_VERSION_MAJOR > 4) || 
  3754.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || 
  3755.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && 
  3756.      DB_VERSION_PATCH >= 17)
  3757.       *iv_return = DB_TXN_BACKWARD_ALLOC;
  3758.       return PERL_constant_ISIV;
  3759. #else
  3760.       return PERL_constant_NOTDEF;
  3761. #endif
  3762.     }
  3763.     break;
  3764.   case 'E':
  3765.     if (memEQ(name, "DB_TEST_POSTEXTDELETE", 21)) {
  3766.     /*                               ^           */
  3767. #ifdef DB_TEST_POSTEXTDELETE
  3768.       *iv_return = DB_TEST_POSTEXTDELETE;
  3769.       return PERL_constant_ISIV;
  3770. #else
  3771.       return PERL_constant_NOTDEF;
  3772. #endif
  3773.     }
  3774.     break;
  3775.   case 'N':
  3776.     if (memEQ(name, "DB_TEST_POSTEXTUNLINK", 21)) {
  3777.     /*                               ^           */
  3778. #ifdef DB_TEST_POSTEXTUNLINK
  3779.       *iv_return = DB_TEST_POSTEXTUNLINK;
  3780.       return PERL_constant_ISIV;
  3781. #else
  3782.       return PERL_constant_NOTDEF;
  3783. #endif
  3784.     }
  3785.     break;
  3786.   case 'W':
  3787.     if (memEQ(name, "DB_LOCK_UPGRADE_WRITE", 21)) {
  3788.     /*                               ^           */
  3789. #if (DB_VERSION_MAJOR > 3) || 
  3790.     (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 3) || 
  3791.     (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 3 && 
  3792.      DB_VERSION_PATCH >= 4)
  3793.       *iv_return = DB_LOCK_UPGRADE_WRITE;
  3794.       return PERL_constant_ISIV;
  3795. #else
  3796.       return PERL_constant_NOTDEF;
  3797. #endif
  3798.     }
  3799.     break;
  3800.   case '_':
  3801.     if (memEQ(name, "DB_PRIORITY_VERY_HIGH", 21)) {
  3802.     /*                               ^           */
  3803. #if (DB_VERSION_MAJOR > 4) || 
  3804.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || 
  3805.     (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && 
  3806.      DB_VERSION_PATCH >= 17)
  3807.       *iv_return = DB_PRIORITY_VERY_HIGH;
  3808.       return PERL_constant_ISIV;
  3809. #else
  3810.       return PERL_constant_NOTDEF;
  3811. #endif
  3812.     }
  3813.     break;
  3814.   }
  3815.   return PERL_constant_NOTFOUND;
  3816. }
  3818. static int
  3819. constant (pTHX_ const char *name, STRLEN len, IV *iv_return, const char **pv_return) {
  3820.   /* Initially switch on the length of the name.  */
  3821.   /* When generated this function returned values for the list of names given
  3822.      in this section of perl code.  Rather than manually editing these functions
  3823.      to add or remove constants, which would result in this comment and section
  3824.      of code becoming inaccurate, we recommend that you edit this section of
  3825.      code, and use it to regenerate a new set of constant functions which you
  3826.      then use to replace the originals.
  3828.      Regenerate these constant functions by feeding this entire source file to
  3829.      perl -x
  3831. #!/home/paul/perl/install/redhat6.1/5.8.0/bin/perl5.8.0 -w
  3832. use ExtUtils::Constant qw (constant_types C_constant XS_constant);
  3834. my $types = {map {($_, 1)} qw(IV PV)};
  3835. my @names = (qw(DB_AFTER DB_AGGRESSIVE DB_ALREADY_ABORTED DB_APPEND
  3836.        DB_APPLY_LOGREG DB_APP_INIT DB_ARCH_ABS DB_ARCH_DATA DB_ARCH_LOG
  3837.        DB_AUTO_COMMIT DB_BEFORE DB_BROADCAST_EID DB_BTREEMAGIC
  3838.        DB_BTREEOLDVER DB_BTREEVERSION DB_CACHED_COUNTS DB_CDB_ALLDB
  3839.        DB_CHECKPOINT DB_CHKSUM_SHA1 DB_CLIENT DB_CL_WRITER DB_COMMIT
  3840.        DB_CONSUME DB_CONSUME_WAIT DB_CREATE DB_CURLSN DB_CURRENT
  3841.        DB_CXX_NO_EXCEPTIONS DB_DELETED DB_DELIMITER DB_DIRECT
  3842.        DB_DIRECT_DB DB_DIRECT_LOG DB_DIRTY_READ DB_DONOTINDEX DB_DUP
  3843.        DB_DUPCURSOR DB_DUPSORT DB_EID_BROADCAST DB_EID_INVALID
  3844.        DB_ENCRYPT DB_ENCRYPT_AES DB_ENV_APPINIT DB_ENV_AUTO_COMMIT
  3845.        DB_ENV_CDB DB_ENV_CDB_ALLDB DB_ENV_CREATE DB_ENV_DBLOCAL
  3846.        DB_ENV_DIRECT_DB DB_ENV_DIRECT_LOG DB_ENV_FATAL DB_ENV_LOCKDOWN
  3847.        DB_ENV_LOCKING DB_ENV_LOGGING DB_ENV_NOLOCKING DB_ENV_NOMMAP
  3848.        DB_ENV_NOPANIC DB_ENV_OPEN_CALLED DB_ENV_OVERWRITE
  3849.        DB_ENV_PANIC_OK DB_ENV_PRIVATE DB_ENV_REGION_INIT
  3850.        DB_ENV_REP_CLIENT DB_ENV_REP_LOGSONLY DB_ENV_REP_MASTER
  3851.        DB_ENV_RPCCLIENT DB_ENV_RPCCLIENT_GIVEN DB_ENV_STANDALONE
  3852.        DB_ENV_SYSTEM_MEM DB_ENV_THREAD DB_ENV_TXN DB_ENV_TXN_NOSYNC
  3853.        DB_ENV_TXN_WRITE_NOSYNC DB_ENV_USER_ALLOC DB_ENV_YIELDCPU
  3854.        DB_EXCL DB_EXTENT DB_FAST_STAT DB_FCNTL_LOCKING DB_FILE_ID_LEN
  3855.        DB_FIRST DB_FIXEDLEN DB_FLUSH DB_FORCE DB_GETREC DB_GET_BOTH
  3856.        DB_GET_BOTHC DB_GET_BOTH_RANGE DB_GET_RECNO DB_HANDLE_LOCK
  3857.        DB_HASHMAGIC DB_HASHOLDVER DB_HASHVERSION DB_INCOMPLETE
  3858.        DB_INIT_CDB DB_INIT_LOCK DB_INIT_LOG DB_INIT_MPOOL DB_INIT_TXN
  3859.        DB_INVALID_EID DB_JAVA_CALLBACK DB_JOINENV DB_JOIN_ITEM
  3860.        DB_JOIN_NOSORT DB_KEYEMPTY DB_KEYEXIST DB_KEYFIRST DB_KEYLAST
  3861.        DB_LAST DB_LOCKDOWN DB_LOCKMAGIC DB_LOCKVERSION DB_LOCK_CONFLICT
  3862.        DB_LOCK_DEADLOCK DB_LOCK_DEFAULT DB_LOCK_EXPIRE
  3863.        DB_LOCK_FREE_LOCKER DB_LOCK_MAXLOCKS DB_LOCK_MINLOCKS
  3864.        DB_LOCK_MINWRITE DB_LOCK_NORUN DB_LOCK_NOTEXIST
  3865.        DB_LOCK_NOTGRANTED DB_LOCK_NOTHELD DB_LOCK_NOWAIT DB_LOCK_OLDEST
  3866.        DB_LOCK_RANDOM DB_LOCK_RECORD DB_LOCK_REMOVE DB_LOCK_RIW_N
  3867.        DB_LOCK_RW_N DB_LOCK_SET_TIMEOUT DB_LOCK_SWITCH DB_LOCK_UPGRADE
  3868.        DB_LOCK_YOUNGEST DB_LOGC_BUF_SIZE DB_LOGFILEID_INVALID
  3869.        DB_LOGMAGIC DB_LOGOLDVER DB_LOGVERSION DB_LOG_DISK DB_LOG_LOCKED
  3870.        DB_LOG_SILENT_ERR DB_MAX_PAGES DB_MAX_RECORDS DB_MPOOL_CLEAN
  3871.        DB_MPOOL_CREATE DB_MPOOL_DIRTY DB_MPOOL_DISCARD DB_MPOOL_EXTENT
  3872.        DB_MPOOL_LAST DB_MPOOL_NEW DB_MPOOL_NEW_GROUP DB_MPOOL_PRIVATE
  3873.        DB_MULTIPLE DB_MULTIPLE_KEY DB_MUTEXDEBUG DB_MUTEXLOCKS
  3874.        DB_NEEDSPLIT DB_NEXT DB_NEXT_DUP DB_NEXT_NODUP DB_NOCOPY
  3875.        DB_NODUPDATA DB_NOLOCKING DB_NOMMAP DB_NOORDERCHK DB_NOOVERWRITE
  3876.        DB_NOPANIC DB_NORECURSE DB_NOSERVER DB_NOSERVER_HOME
  3877.        DB_NOSERVER_ID DB_NOSYNC DB_NOTFOUND DB_ODDFILESIZE DB_OK_BTREE
  3878.        DB_OK_HASH DB_OK_QUEUE DB_OK_RECNO DB_OLD_VERSION DB_OPEN_CALLED
  3879.        DB_OPFLAGS_MASK DB_ORDERCHKONLY DB_OVERWRITE DB_PAD DB_PAGEYIELD
  3880.        DB_PAGE_LOCK DB_PAGE_NOTFOUND DB_PANIC_ENVIRONMENT DB_PERMANENT
  3881.        DB_POSITION DB_POSITIONI DB_PREV DB_PREV_NODUP DB_PRINTABLE
  3882.        DB_PRIVATE DB_PR_HEADERS DB_PR_PAGE DB_PR_RECOVERYTEST
  3883.        DB_QAMMAGIC DB_QAMOLDVER DB_QAMVERSION DB_RDONLY DB_RDWRMASTER
  3884.        DB_RECNUM DB_RECORDCOUNT DB_RECORD_LOCK DB_RECOVER
  3885.        DB_RECOVER_FATAL DB_REGION_ANON DB_REGION_INIT DB_REGION_MAGIC
  3886.        DB_REGION_NAME DB_REGISTERED DB_RENAMEMAGIC DB_RENUMBER
  3887.        DB_REP_CLIENT DB_REP_DUPMASTER DB_REP_HOLDELECTION
  3888.        DB_REP_LOGSONLY DB_REP_MASTER DB_REP_NEWMASTER DB_REP_NEWSITE
  3889.        DB_REP_OUTDATED DB_REP_PERMANENT DB_REP_UNAVAIL DB_REVSPLITOFF
  3890.        DB_RMW DB_RPC_SERVERPROG DB_RPC_SERVERVERS DB_RUNRECOVERY
  3891.        DB_SALVAGE DB_SECONDARY_BAD DB_SEQUENTIAL DB_SET
  3892.        DB_SET_LOCK_TIMEOUT DB_SET_RANGE DB_SET_RECNO DB_SET_TXN_NOW
  3893.        DB_SET_TXN_TIMEOUT DB_SNAPSHOT DB_STAT_CLEAR DB_SURPRISE_KID
  3894.        DB_SWAPBYTES DB_SYSTEM_MEM DB_TEMPORARY DB_TEST_ELECTINIT
  3895.        DB_TEST_ELECTSEND DB_TEST_ELECTVOTE1 DB_TEST_ELECTVOTE2
  3896.        DB_TEST_ELECTWAIT1 DB_TEST_ELECTWAIT2 DB_TEST_POSTDESTROY
  3897.        DB_TEST_POSTEXTDELETE DB_TEST_POSTEXTOPEN DB_TEST_POSTEXTUNLINK
  3898.        DB_TEST_POSTLOG DB_TEST_POSTLOGMETA DB_TEST_POSTOPEN
  3899.        DB_TEST_POSTRENAME DB_TEST_POSTSYNC DB_TEST_PREDESTROY
  3900.        DB_TEST_PREEXTDELETE DB_TEST_PREEXTOPEN DB_TEST_PREEXTUNLINK
  3901.        DB_TEST_PREOPEN DB_TEST_PRERENAME DB_TEST_SUBDB_LOCKS DB_THREAD
  3902.        DB_TIMEOUT DB_TRUNCATE DB_TXNMAGIC DB_TXNVERSION DB_TXN_CKP
  3903.        DB_TXN_LOCK DB_TXN_LOCK_2PL DB_TXN_LOCK_MASK
  3904.        DB_TXN_LOCK_OPTIMIST DB_TXN_LOCK_OPTIMISTIC DB_TXN_LOG_MASK
  3905.        DB_TXN_LOG_REDO DB_TXN_LOG_UNDO DB_TXN_LOG_UNDOREDO
  3906.        DB_TXN_NOSYNC DB_TXN_NOWAIT DB_TXN_REDO DB_TXN_SYNC DB_TXN_UNDO
  3907.        DB_TXN_WRITE_NOSYNC DB_UNRESOLVED_CHILD DB_UPDATE_SECONDARY
  3908.        DB_UPGRADE DB_USE_ENVIRON DB_USE_ENVIRON_ROOT DB_VERB_CHKPOINT
  3909.        DB_VERB_DEADLOCK DB_VERB_RECOVERY DB_VERB_REPLICATION
  3910.        DB_VERB_WAITSFOR DB_VERIFY DB_VERIFY_BAD DB_VERIFY_FATAL
  3911.        DB_VERSION_MAJOR DB_VERSION_MINOR DB_VERSION_PATCH
  3912.        DB_VRFY_FLAGMASK DB_WRITECURSOR DB_WRITELOCK DB_WRITEOPEN
  3913.        DB_WRNOSYNC DB_XA_CREATE DB_XIDDATASIZE DB_YIELDCPU),
  3914.             {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 >= 0)n", "#endifn"]},
  3915.             {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 >= 0)n", "#endifn"]},
  3916.             {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 >= 0)n", "#endifn"]},
  3917.             {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 >= 0)n", "#endifn"]},
  3918.             {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 >= 7)n", "#endifn"]},
  3919.             {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", "#endifn"]},
  3920.             {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 >= 0)n", "#endifn"]},
  3921.             {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 >= 0)n", "#endifn"]},
  3922.             {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 >= 0)n", "#endifn"]},
  3923.             {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 >= 7)n", "#endifn"]},
  3924.             {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 >= 7)n", "#endifn"]},
  3925.             {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 >= 17)n", "#endifn"]},
  3926.             {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 >= 4)n", "#endifn"]},
  3927.             {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 >= 17)n", "#endifn"]},
  3928.             {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 >= 17)n", "#endifn"]},
  3929.             {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 >= 17)n", "#endifn"]},
  3930.             {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 >= 17)n", "#endifn"]},
  3931.             {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 >= 17)n", "#endifn"]},
  3932.             {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", "#endifn"]},
  3933.             {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 >= 0)n", "#endifn"]},
  3934.             {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 >= 12)n", "#endifn"]},
  3935.             {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 >= 7)n", "#endifn"]},
  3936.             {name=>"DB_TXN_BACKWARD_ALLOC", 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 >= 17)n", "#endifn"]},
  3937.             {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 >= 12)n", "#endifn"]},
  3938.             {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 >= 12)n", "#endifn"]},
  3939.             {name=>"DB_TXN_GETPGNOS", 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 >= 17)n", "#endifn"]},
  3940.             {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 >= 12)n", "#endifn"]},
  3941.             {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 >= 4)n", "#endifn"]},
  3942.             {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 >= 17)n", "#endifn"]},
  3943.             {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 >= 0)n", "#endifn"]},
  3944.             {name=>"DB_VERSION_STRING", type=>"PV"});
  3946. print constant_types(); # macro defs
  3947. foreach (C_constant ("BerkeleyDB", 'constant', 'IV', $types, undef, 3, @names) ) {
  3948.     print $_, "n"; # C constant subs
  3949. }
  3950. print "#### XS Section:n";
  3951. print XS_constant ("BerkeleyDB", $types);
  3952. __END__
  3953.    */
  3955.   switch (len) {
  3956.   case 6:
  3957.     return constant_6 (aTHX_ name, iv_return);
  3958.     break;
  3959.   case 7:
  3960.     return constant_7 (aTHX_ name, iv_return);
  3961.     break;
  3962.   case 8:
  3963.     return constant_8 (aTHX_ name, iv_return);
  3964.     break;
  3965.   case 9:
  3966.     return constant_9 (aTHX_ name, iv_return);
  3967.     break;
  3968.   case 10:
  3969.     return constant_10 (aTHX_ name, iv_return);
  3970.     break;
  3971.   case 11:
  3972.     return constant_11 (aTHX_ name, iv_return);
  3973.     break;
  3974.   case 12:
  3975.     return constant_12 (aTHX_ name, iv_return);
  3976.     break;
  3977.   case 13:
  3978.     return constant_13 (aTHX_ name, iv_return);
  3979.     break;
  3980.   case 14:
  3981.     return constant_14 (aTHX_ name, iv_return);
  3982.     break;
  3983.   case 15:
  3984.     return constant_15 (aTHX_ name, iv_return);
  3985.     break;
  3986.   case 16:
  3987.     return constant_16 (aTHX_ name, iv_return);
  3988.     break;
  3989.   case 17:
  3990.     return constant_17 (aTHX_ name, iv_return, pv_return);
  3991.     break;
  3992.   case 18:
  3993.     return constant_18 (aTHX_ name, iv_return);
  3994.     break;
  3995.   case 19:
  3996.     return constant_19 (aTHX_ name, iv_return);
  3997.     break;
  3998.   case 20:
  3999.     return constant_20 (aTHX_ name, iv_return);
  4000.     break;
  4001.   case 21:
  4002.     return constant_21 (aTHX_ name, iv_return);
  4003.     break;
  4004.   case 22:
  4005.     /* Names all of length 22.  */
  4006.     /* DB_ENV_RPCCLIENT_GIVEN DB_TXN_LOCK_OPTIMISTIC */
  4007.     /* Offset 8 gives the best switch position.  */
  4008.     switch (name[8]) {
  4009.     case 'O':
  4010.       if (memEQ(name, "DB_TXN_LOCK_OPTIMISTIC", 22)) {
  4011.       /*                       ^                    */
  4012. #ifdef DB_TXN_LOCK_OPTIMISTIC
  4013.         *iv_return = DB_TXN_LOCK_OPTIMISTIC;
  4014.         return PERL_constant_ISIV;
  4015. #else
  4016.         return PERL_constant_NOTDEF;
  4017. #endif
  4018.       }
  4019.       break;
  4020.     case 'P':
  4021.       if (memEQ(name, "DB_ENV_RPCCLIENT_GIVEN", 22)) {
  4022.       /*                       ^                    */
  4023. #ifdef DB_ENV_RPCCLIENT_GIVEN
  4024.         *iv_return = DB_ENV_RPCCLIENT_GIVEN;
  4025.         return PERL_constant_ISIV;
  4026. #else
  4027.         return PERL_constant_NOTDEF;
  4028. #endif
  4029.       }
  4030.       break;
  4031.     }
  4032.     break;
  4033.   case 23:
  4034.     if (memEQ(name, "DB_ENV_TXN_WRITE_NOSYNC", 23)) {
  4035. #ifdef DB_ENV_TXN_WRITE_NOSYNC
  4036.       *iv_return = DB_ENV_TXN_WRITE_NOSYNC;
  4037.       return PERL_constant_ISIV;
  4038. #else
  4039.       return PERL_constant_NOTDEF;
  4040. #endif
  4041.     }
  4042.     break;
  4043.   }
  4044.   return PERL_constant_NOTFOUND;
  4045. }