1 #define PERL_constant_NOTFOUND 1
2 #define PERL_constant_NOTDEF 2
3 #define PERL_constant_ISIV 3
4 #define PERL_constant_ISNO 4
5 #define PERL_constant_ISNV 5
6 #define PERL_constant_ISPV 6
7 #define PERL_constant_ISPVN 7
8 #define PERL_constant_ISSV 8
9 #define PERL_constant_ISUNDEF 9
10 #define PERL_constant_ISUV 10
11 #define PERL_constant_ISYES 11
12
13 #ifndef NVTYPE
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
22
23 static int
constant_6(pTHX_ const char * name,IV * iv_return)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 SELECT */
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 'E':
42 if (memEQ(name, "SELECT", 6)) {
43 /* ^ */
44 #if (DB_VERSION_MAJOR > 6) || \
45 (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR > 3) || \
46 (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR == 3 && \
47 DB_VERSION_PATCH >= 10)
48 *iv_return = SELECT;
49 return PERL_constant_ISIV;
50 #else
51 return PERL_constant_NOTDEF;
52 #endif
53 }
54 break;
55 case 'P':
56 if (memEQ(name, "DB_PAD", 6)) {
57 /* ^ */
58 #ifdef DB_PAD
59 *iv_return = DB_PAD;
60 return PERL_constant_ISIV;
61 #else
62 return PERL_constant_NOTDEF;
63 #endif
64 }
65 break;
66 case 'R':
67 if (memEQ(name, "DB_RMW", 6)) {
68 /* ^ */
69 #ifdef DB_RMW
70 *iv_return = DB_RMW;
71 return PERL_constant_ISIV;
72 #else
73 return PERL_constant_NOTDEF;
74 #endif
75 }
76 break;
77 case 'S':
78 if (memEQ(name, "DB_SET", 6)) {
79 /* ^ */
80 #ifdef DB_SET
81 *iv_return = DB_SET;
82 return PERL_constant_ISIV;
83 #else
84 return PERL_constant_NOTDEF;
85 #endif
86 }
87 break;
88 }
89 return PERL_constant_NOTFOUND;
90 }
91
92 static int
constant_7(pTHX_ const char * name,IV * iv_return)93 constant_7 (pTHX_ const char *name, IV *iv_return) {
94 /* When generated this function returned values for the list of names given
95 here. However, subsequent manual editing may have added or removed some.
96 DB_EXCL DB_HASH DB_HEAP DB_LAST DB_NEXT DB_PREV */
97 /* Offset 3 gives the best switch position. */
98 switch (name[3]) {
99 case 'E':
100 if (memEQ(name, "DB_EXCL", 7)) {
101 /* ^ */
102 #ifdef DB_EXCL
103 *iv_return = DB_EXCL;
104 return PERL_constant_ISIV;
105 #else
106 return PERL_constant_NOTDEF;
107 #endif
108 }
109 break;
110 case 'H':
111 if (memEQ(name, "DB_HASH", 7)) {
112 /* ^ */
113 #if (DB_VERSION_MAJOR > 2) || \
114 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
115 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
116 DB_VERSION_PATCH >= 3)
117 *iv_return = DB_HASH;
118 return PERL_constant_ISIV;
119 #else
120 return PERL_constant_NOTDEF;
121 #endif
122 }
123 if (memEQ(name, "DB_HEAP", 7)) {
124 /* ^ */
125 #if (DB_VERSION_MAJOR > 5) || \
126 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 2) || \
127 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 2 && \
128 DB_VERSION_PATCH >= 10)
129 *iv_return = DB_HEAP;
130 return PERL_constant_ISIV;
131 #else
132 return PERL_constant_NOTDEF;
133 #endif
134 }
135 break;
136 case 'L':
137 if (memEQ(name, "DB_LAST", 7)) {
138 /* ^ */
139 #ifdef DB_LAST
140 *iv_return = DB_LAST;
141 return PERL_constant_ISIV;
142 #else
143 return PERL_constant_NOTDEF;
144 #endif
145 }
146 break;
147 case 'N':
148 if (memEQ(name, "DB_NEXT", 7)) {
149 /* ^ */
150 #ifdef DB_NEXT
151 *iv_return = DB_NEXT;
152 return PERL_constant_ISIV;
153 #else
154 return PERL_constant_NOTDEF;
155 #endif
156 }
157 break;
158 case 'P':
159 if (memEQ(name, "DB_PREV", 7)) {
160 /* ^ */
161 #ifdef DB_PREV
162 *iv_return = DB_PREV;
163 return PERL_constant_ISIV;
164 #else
165 return PERL_constant_NOTDEF;
166 #endif
167 }
168 break;
169 }
170 return PERL_constant_NOTFOUND;
171 }
172
173 static int
constant_8(pTHX_ const char * name,IV * iv_return)174 constant_8 (pTHX_ const char *name, IV *iv_return) {
175 /* When generated this function returned values for the list of names given
176 here. However, subsequent manual editing may have added or removed some.
177 DB_AFTER DB_BTREE DB_FIRST DB_FLUSH DB_FORCE DB_QUEUE DB_RECNO DB_UNREF */
178 /* Offset 4 gives the best switch position. */
179 switch (name[4]) {
180 case 'E':
181 if (memEQ(name, "DB_RECNO", 8)) {
182 /* ^ */
183 #if (DB_VERSION_MAJOR > 2) || \
184 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
185 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
186 DB_VERSION_PATCH >= 3)
187 *iv_return = DB_RECNO;
188 return PERL_constant_ISIV;
189 #else
190 return PERL_constant_NOTDEF;
191 #endif
192 }
193 break;
194 case 'F':
195 if (memEQ(name, "DB_AFTER", 8)) {
196 /* ^ */
197 #ifdef DB_AFTER
198 *iv_return = DB_AFTER;
199 return PERL_constant_ISIV;
200 #else
201 return PERL_constant_NOTDEF;
202 #endif
203 }
204 break;
205 case 'I':
206 if (memEQ(name, "DB_FIRST", 8)) {
207 /* ^ */
208 #ifdef DB_FIRST
209 *iv_return = DB_FIRST;
210 return PERL_constant_ISIV;
211 #else
212 return PERL_constant_NOTDEF;
213 #endif
214 }
215 break;
216 case 'L':
217 if (memEQ(name, "DB_FLUSH", 8)) {
218 /* ^ */
219 #ifdef DB_FLUSH
220 *iv_return = DB_FLUSH;
221 return PERL_constant_ISIV;
222 #else
223 return PERL_constant_NOTDEF;
224 #endif
225 }
226 break;
227 case 'N':
228 if (memEQ(name, "DB_UNREF", 8)) {
229 /* ^ */
230 #ifdef DB_UNREF
231 *iv_return = DB_UNREF;
232 return PERL_constant_ISIV;
233 #else
234 return PERL_constant_NOTDEF;
235 #endif
236 }
237 break;
238 case 'O':
239 if (memEQ(name, "DB_FORCE", 8)) {
240 /* ^ */
241 #ifdef DB_FORCE
242 *iv_return = DB_FORCE;
243 return PERL_constant_ISIV;
244 #else
245 return PERL_constant_NOTDEF;
246 #endif
247 }
248 break;
249 case 'T':
250 if (memEQ(name, "DB_BTREE", 8)) {
251 /* ^ */
252 #if (DB_VERSION_MAJOR > 2) || \
253 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
254 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
255 DB_VERSION_PATCH >= 3)
256 *iv_return = DB_BTREE;
257 return PERL_constant_ISIV;
258 #else
259 return PERL_constant_NOTDEF;
260 #endif
261 }
262 break;
263 case 'U':
264 if (memEQ(name, "DB_QUEUE", 8)) {
265 /* ^ */
266 #if (DB_VERSION_MAJOR > 3) || \
267 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 0) || \
268 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 0 && \
269 DB_VERSION_PATCH >= 55)
270 *iv_return = DB_QUEUE;
271 return PERL_constant_ISIV;
272 #else
273 return PERL_constant_NOTDEF;
274 #endif
275 }
276 break;
277 }
278 return PERL_constant_NOTFOUND;
279 }
280
281 static int
constant_9(pTHX_ const char * name,IV * iv_return)282 constant_9 (pTHX_ const char *name, IV *iv_return) {
283 /* When generated this function returned values for the list of names given
284 here. However, subsequent manual editing may have added or removed some.
285 DB_APPEND DB_BEFORE DB_CHKSUM DB_CLIENT DB_COMMIT DB_CREATE DB_CURLSN
286 DB_DIRECT DB_EXTENT DB_GETREC DB_LEGACY DB_NOCOPY DB_NOMMAP DB_NOSYNC
287 DB_RDONLY DB_RECNUM DB_SLICED DB_THREAD DB_VERIFY LOGREC_DB LOGREC_OP */
288 /* Offset 7 gives the best switch position. */
289 switch (name[7]) {
290 case 'A':
291 if (memEQ(name, "DB_NOMMAP", 9)) {
292 /* ^ */
293 #ifdef DB_NOMMAP
294 *iv_return = DB_NOMMAP;
295 return PERL_constant_ISIV;
296 #else
297 return PERL_constant_NOTDEF;
298 #endif
299 }
300 if (memEQ(name, "DB_THREAD", 9)) {
301 /* ^ */
302 #ifdef DB_THREAD
303 *iv_return = DB_THREAD;
304 return PERL_constant_ISIV;
305 #else
306 return PERL_constant_NOTDEF;
307 #endif
308 }
309 break;
310 case 'C':
311 if (memEQ(name, "DB_DIRECT", 9)) {
312 /* ^ */
313 #ifdef DB_DIRECT
314 *iv_return = DB_DIRECT;
315 return PERL_constant_ISIV;
316 #else
317 return PERL_constant_NOTDEF;
318 #endif
319 }
320 if (memEQ(name, "DB_LEGACY", 9)) {
321 /* ^ */
322 #ifdef DB_LEGACY
323 *iv_return = DB_LEGACY;
324 return PERL_constant_ISIV;
325 #else
326 return PERL_constant_NOTDEF;
327 #endif
328 }
329 break;
330 case 'D':
331 if (memEQ(name, "LOGREC_DB", 9)) {
332 /* ^ */
333 #if (DB_VERSION_MAJOR > 5) || \
334 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \
335 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \
336 DB_VERSION_PATCH >= 21)
337 *iv_return = LOGREC_DB;
338 return PERL_constant_ISIV;
339 #else
340 return PERL_constant_NOTDEF;
341 #endif
342 }
343 break;
344 case 'E':
345 if (memEQ(name, "DB_GETREC", 9)) {
346 /* ^ */
347 #ifdef DB_GETREC
348 *iv_return = DB_GETREC;
349 return PERL_constant_ISIV;
350 #else
351 return PERL_constant_NOTDEF;
352 #endif
353 }
354 if (memEQ(name, "DB_SLICED", 9)) {
355 /* ^ */
356 #ifdef DB_SLICED
357 *iv_return = DB_SLICED;
358 return PERL_constant_ISIV;
359 #else
360 return PERL_constant_NOTDEF;
361 #endif
362 }
363 break;
364 case 'F':
365 if (memEQ(name, "DB_VERIFY", 9)) {
366 /* ^ */
367 #ifdef DB_VERIFY
368 *iv_return = DB_VERIFY;
369 return PERL_constant_ISIV;
370 #else
371 return PERL_constant_NOTDEF;
372 #endif
373 }
374 break;
375 case 'I':
376 if (memEQ(name, "DB_COMMIT", 9)) {
377 /* ^ */
378 #ifdef DB_COMMIT
379 *iv_return = DB_COMMIT;
380 return PERL_constant_ISIV;
381 #else
382 return PERL_constant_NOTDEF;
383 #endif
384 }
385 break;
386 case 'L':
387 if (memEQ(name, "DB_RDONLY", 9)) {
388 /* ^ */
389 #ifdef DB_RDONLY
390 *iv_return = DB_RDONLY;
391 return PERL_constant_ISIV;
392 #else
393 return PERL_constant_NOTDEF;
394 #endif
395 }
396 break;
397 case 'N':
398 if (memEQ(name, "DB_APPEND", 9)) {
399 /* ^ */
400 #ifdef DB_APPEND
401 *iv_return = DB_APPEND;
402 return PERL_constant_ISIV;
403 #else
404 return PERL_constant_NOTDEF;
405 #endif
406 }
407 if (memEQ(name, "DB_CLIENT", 9)) {
408 /* ^ */
409 #ifdef DB_CLIENT
410 *iv_return = DB_CLIENT;
411 return PERL_constant_ISIV;
412 #else
413 return PERL_constant_NOTDEF;
414 #endif
415 }
416 if (memEQ(name, "DB_EXTENT", 9)) {
417 /* ^ */
418 #ifdef DB_EXTENT
419 *iv_return = DB_EXTENT;
420 return PERL_constant_ISIV;
421 #else
422 return PERL_constant_NOTDEF;
423 #endif
424 }
425 if (memEQ(name, "DB_NOSYNC", 9)) {
426 /* ^ */
427 #ifdef DB_NOSYNC
428 *iv_return = DB_NOSYNC;
429 return PERL_constant_ISIV;
430 #else
431 return PERL_constant_NOTDEF;
432 #endif
433 }
434 break;
435 case 'O':
436 if (memEQ(name, "LOGREC_OP", 9)) {
437 /* ^ */
438 #if (DB_VERSION_MAJOR > 5) || \
439 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \
440 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \
441 DB_VERSION_PATCH >= 21)
442 *iv_return = LOGREC_OP;
443 return PERL_constant_ISIV;
444 #else
445 return PERL_constant_NOTDEF;
446 #endif
447 }
448 break;
449 case 'P':
450 if (memEQ(name, "DB_NOCOPY", 9)) {
451 /* ^ */
452 #ifdef DB_NOCOPY
453 *iv_return = DB_NOCOPY;
454 return PERL_constant_ISIV;
455 #else
456 return PERL_constant_NOTDEF;
457 #endif
458 }
459 break;
460 case 'R':
461 if (memEQ(name, "DB_BEFORE", 9)) {
462 /* ^ */
463 #ifdef DB_BEFORE
464 *iv_return = DB_BEFORE;
465 return PERL_constant_ISIV;
466 #else
467 return PERL_constant_NOTDEF;
468 #endif
469 }
470 break;
471 case 'S':
472 if (memEQ(name, "DB_CURLSN", 9)) {
473 /* ^ */
474 #ifdef DB_CURLSN
475 *iv_return = DB_CURLSN;
476 return PERL_constant_ISIV;
477 #else
478 return PERL_constant_NOTDEF;
479 #endif
480 }
481 break;
482 case 'T':
483 if (memEQ(name, "DB_CREATE", 9)) {
484 /* ^ */
485 #ifdef DB_CREATE
486 *iv_return = DB_CREATE;
487 return PERL_constant_ISIV;
488 #else
489 return PERL_constant_NOTDEF;
490 #endif
491 }
492 break;
493 case 'U':
494 if (memEQ(name, "DB_CHKSUM", 9)) {
495 /* ^ */
496 #ifdef DB_CHKSUM
497 *iv_return = DB_CHKSUM;
498 return PERL_constant_ISIV;
499 #else
500 return PERL_constant_NOTDEF;
501 #endif
502 }
503 if (memEQ(name, "DB_RECNUM", 9)) {
504 /* ^ */
505 #ifdef DB_RECNUM
506 *iv_return = DB_RECNUM;
507 return PERL_constant_ISIV;
508 #else
509 return PERL_constant_NOTDEF;
510 #endif
511 }
512 break;
513 }
514 return PERL_constant_NOTFOUND;
515 }
516
517 static int
constant_10(pTHX_ const char * name,IV * iv_return)518 constant_10 (pTHX_ const char *name, IV *iv_return) {
519 /* When generated this function returned values for the list of names given
520 here. However, subsequent manual editing may have added or removed some.
521 DB_CONSUME DB_CONVERT DB_CURRENT DB_DELETED DB_DUPSORT DB_ENCRYPT
522 DB_ENV_CDB DB_ENV_TXN DB_FAILCHK DB_INORDER DB_JOINENV DB_KEYLAST
523 DB_NOERROR DB_NOFLUSH DB_NOINTMP DB_NOPANIC DB_OK_HASH DB_OK_HEAP
524 DB_PRIVATE DB_PR_PAGE DB_RECOVER DB_SALVAGE DB_SEQ_DEC DB_SEQ_INC
525 DB_SET_LTE DB_TIMEOUT DB_TXN_CKP DB_UNKNOWN DB_UPGRADE HAVE_EPOLL
526 LOGREC_ARG LOGREC_DBT LOGREC_HDR */
527 /* Offset 8 gives the best switch position. */
528 switch (name[8]) {
529 case 'A':
530 if (memEQ(name, "DB_OK_HEAP", 10)) {
531 /* ^ */
532 #ifdef DB_OK_HEAP
533 *iv_return = DB_OK_HEAP;
534 return PERL_constant_ISIV;
535 #else
536 return PERL_constant_NOTDEF;
537 #endif
538 }
539 break;
540 case 'B':
541 if (memEQ(name, "LOGREC_DBT", 10)) {
542 /* ^ */
543 #if (DB_VERSION_MAJOR > 5) || \
544 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \
545 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \
546 DB_VERSION_PATCH >= 21)
547 *iv_return = LOGREC_DBT;
548 return PERL_constant_ISIV;
549 #else
550 return PERL_constant_NOTDEF;
551 #endif
552 }
553 break;
554 case 'D':
555 if (memEQ(name, "DB_ENV_CDB", 10)) {
556 /* ^ */
557 #ifdef DB_ENV_CDB
558 *iv_return = DB_ENV_CDB;
559 return PERL_constant_ISIV;
560 #else
561 return PERL_constant_NOTDEF;
562 #endif
563 }
564 if (memEQ(name, "DB_UPGRADE", 10)) {
565 /* ^ */
566 #ifdef DB_UPGRADE
567 *iv_return = DB_UPGRADE;
568 return PERL_constant_ISIV;
569 #else
570 return PERL_constant_NOTDEF;
571 #endif
572 }
573 if (memEQ(name, "LOGREC_HDR", 10)) {
574 /* ^ */
575 #if (DB_VERSION_MAJOR > 5) || \
576 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \
577 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \
578 DB_VERSION_PATCH >= 21)
579 *iv_return = LOGREC_HDR;
580 return PERL_constant_ISIV;
581 #else
582 return PERL_constant_NOTDEF;
583 #endif
584 }
585 break;
586 case 'E':
587 if (memEQ(name, "DB_DELETED", 10)) {
588 /* ^ */
589 #ifdef DB_DELETED
590 *iv_return = DB_DELETED;
591 return PERL_constant_ISIV;
592 #else
593 return PERL_constant_NOTDEF;
594 #endif
595 }
596 if (memEQ(name, "DB_INORDER", 10)) {
597 /* ^ */
598 #ifdef DB_INORDER
599 *iv_return = DB_INORDER;
600 return PERL_constant_ISIV;
601 #else
602 return PERL_constant_NOTDEF;
603 #endif
604 }
605 if (memEQ(name, "DB_RECOVER", 10)) {
606 /* ^ */
607 #ifdef DB_RECOVER
608 *iv_return = DB_RECOVER;
609 return PERL_constant_ISIV;
610 #else
611 return PERL_constant_NOTDEF;
612 #endif
613 }
614 if (memEQ(name, "DB_SEQ_DEC", 10)) {
615 /* ^ */
616 #ifdef DB_SEQ_DEC
617 *iv_return = DB_SEQ_DEC;
618 return PERL_constant_ISIV;
619 #else
620 return PERL_constant_NOTDEF;
621 #endif
622 }
623 break;
624 case 'G':
625 if (memEQ(name, "DB_PR_PAGE", 10)) {
626 /* ^ */
627 #ifdef DB_PR_PAGE
628 *iv_return = DB_PR_PAGE;
629 return PERL_constant_ISIV;
630 #else
631 return PERL_constant_NOTDEF;
632 #endif
633 }
634 if (memEQ(name, "DB_SALVAGE", 10)) {
635 /* ^ */
636 #ifdef DB_SALVAGE
637 *iv_return = DB_SALVAGE;
638 return PERL_constant_ISIV;
639 #else
640 return PERL_constant_NOTDEF;
641 #endif
642 }
643 break;
644 case 'H':
645 if (memEQ(name, "DB_FAILCHK", 10)) {
646 /* ^ */
647 #ifdef DB_FAILCHK
648 *iv_return = DB_FAILCHK;
649 return PERL_constant_ISIV;
650 #else
651 return PERL_constant_NOTDEF;
652 #endif
653 }
654 break;
655 case 'I':
656 if (memEQ(name, "DB_NOPANIC", 10)) {
657 /* ^ */
658 #ifdef DB_NOPANIC
659 *iv_return = DB_NOPANIC;
660 return PERL_constant_ISIV;
661 #else
662 return PERL_constant_NOTDEF;
663 #endif
664 }
665 break;
666 case 'K':
667 if (memEQ(name, "DB_TXN_CKP", 10)) {
668 /* ^ */
669 #ifdef DB_TXN_CKP
670 *iv_return = DB_TXN_CKP;
671 return PERL_constant_ISIV;
672 #else
673 return PERL_constant_NOTDEF;
674 #endif
675 }
676 break;
677 case 'L':
678 if (memEQ(name, "HAVE_EPOLL", 10)) {
679 /* ^ */
680 #ifdef HAVE_EPOLL
681 *iv_return = HAVE_EPOLL;
682 return PERL_constant_ISIV;
683 #else
684 return PERL_constant_NOTDEF;
685 #endif
686 }
687 break;
688 case 'M':
689 if (memEQ(name, "DB_CONSUME", 10)) {
690 /* ^ */
691 #ifdef DB_CONSUME
692 *iv_return = DB_CONSUME;
693 return PERL_constant_ISIV;
694 #else
695 return PERL_constant_NOTDEF;
696 #endif
697 }
698 if (memEQ(name, "DB_NOINTMP", 10)) {
699 /* ^ */
700 #ifdef DB_NOINTMP
701 *iv_return = DB_NOINTMP;
702 return PERL_constant_ISIV;
703 #else
704 return PERL_constant_NOTDEF;
705 #endif
706 }
707 break;
708 case 'N':
709 if (memEQ(name, "DB_CURRENT", 10)) {
710 /* ^ */
711 #ifdef DB_CURRENT
712 *iv_return = DB_CURRENT;
713 return PERL_constant_ISIV;
714 #else
715 return PERL_constant_NOTDEF;
716 #endif
717 }
718 if (memEQ(name, "DB_JOINENV", 10)) {
719 /* ^ */
720 #ifdef DB_JOINENV
721 *iv_return = DB_JOINENV;
722 return PERL_constant_ISIV;
723 #else
724 return PERL_constant_NOTDEF;
725 #endif
726 }
727 if (memEQ(name, "DB_SEQ_INC", 10)) {
728 /* ^ */
729 #ifdef DB_SEQ_INC
730 *iv_return = DB_SEQ_INC;
731 return PERL_constant_ISIV;
732 #else
733 return PERL_constant_NOTDEF;
734 #endif
735 }
736 break;
737 case 'O':
738 if (memEQ(name, "DB_NOERROR", 10)) {
739 /* ^ */
740 #ifdef DB_NOERROR
741 *iv_return = DB_NOERROR;
742 return PERL_constant_ISIV;
743 #else
744 return PERL_constant_NOTDEF;
745 #endif
746 }
747 break;
748 case 'P':
749 if (memEQ(name, "DB_ENCRYPT", 10)) {
750 /* ^ */
751 #ifdef DB_ENCRYPT
752 *iv_return = DB_ENCRYPT;
753 return PERL_constant_ISIV;
754 #else
755 return PERL_constant_NOTDEF;
756 #endif
757 }
758 break;
759 case 'R':
760 if (memEQ(name, "DB_CONVERT", 10)) {
761 /* ^ */
762 #ifdef DB_CONVERT
763 *iv_return = DB_CONVERT;
764 return PERL_constant_ISIV;
765 #else
766 return PERL_constant_NOTDEF;
767 #endif
768 }
769 if (memEQ(name, "DB_DUPSORT", 10)) {
770 /* ^ */
771 #ifdef DB_DUPSORT
772 *iv_return = DB_DUPSORT;
773 return PERL_constant_ISIV;
774 #else
775 return PERL_constant_NOTDEF;
776 #endif
777 }
778 if (memEQ(name, "LOGREC_ARG", 10)) {
779 /* ^ */
780 #if (DB_VERSION_MAJOR > 5) || \
781 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \
782 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \
783 DB_VERSION_PATCH >= 21)
784 *iv_return = LOGREC_ARG;
785 return PERL_constant_ISIV;
786 #else
787 return PERL_constant_NOTDEF;
788 #endif
789 }
790 break;
791 case 'S':
792 if (memEQ(name, "DB_KEYLAST", 10)) {
793 /* ^ */
794 #ifdef DB_KEYLAST
795 *iv_return = DB_KEYLAST;
796 return PERL_constant_ISIV;
797 #else
798 return PERL_constant_NOTDEF;
799 #endif
800 }
801 if (memEQ(name, "DB_NOFLUSH", 10)) {
802 /* ^ */
803 #ifdef DB_NOFLUSH
804 *iv_return = DB_NOFLUSH;
805 return PERL_constant_ISIV;
806 #else
807 return PERL_constant_NOTDEF;
808 #endif
809 }
810 if (memEQ(name, "DB_OK_HASH", 10)) {
811 /* ^ */
812 #ifdef DB_OK_HASH
813 *iv_return = DB_OK_HASH;
814 return PERL_constant_ISIV;
815 #else
816 return PERL_constant_NOTDEF;
817 #endif
818 }
819 break;
820 case 'T':
821 if (memEQ(name, "DB_PRIVATE", 10)) {
822 /* ^ */
823 #ifdef DB_PRIVATE
824 *iv_return = DB_PRIVATE;
825 return PERL_constant_ISIV;
826 #else
827 return PERL_constant_NOTDEF;
828 #endif
829 }
830 if (memEQ(name, "DB_SET_LTE", 10)) {
831 /* ^ */
832 #ifdef DB_SET_LTE
833 *iv_return = DB_SET_LTE;
834 return PERL_constant_ISIV;
835 #else
836 return PERL_constant_NOTDEF;
837 #endif
838 }
839 break;
840 case 'U':
841 if (memEQ(name, "DB_TIMEOUT", 10)) {
842 /* ^ */
843 #ifdef DB_TIMEOUT
844 *iv_return = DB_TIMEOUT;
845 return PERL_constant_ISIV;
846 #else
847 return PERL_constant_NOTDEF;
848 #endif
849 }
850 break;
851 case 'W':
852 if (memEQ(name, "DB_UNKNOWN", 10)) {
853 /* ^ */
854 #if (DB_VERSION_MAJOR > 2) || \
855 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
856 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
857 DB_VERSION_PATCH >= 3)
858 *iv_return = DB_UNKNOWN;
859 return PERL_constant_ISIV;
860 #else
861 return PERL_constant_NOTDEF;
862 #endif
863 }
864 break;
865 case 'X':
866 if (memEQ(name, "DB_ENV_TXN", 10)) {
867 /* ^ */
868 #ifdef DB_ENV_TXN
869 *iv_return = DB_ENV_TXN;
870 return PERL_constant_ISIV;
871 #else
872 return PERL_constant_NOTDEF;
873 #endif
874 }
875 break;
876 }
877 return PERL_constant_NOTFOUND;
878 }
879
880 static int
constant_11(pTHX_ const char * name,IV * iv_return)881 constant_11 (pTHX_ const char *name, IV *iv_return) {
882 /* When generated this function returned values for the list of names given
883 here. However, subsequent manual editing may have added or removed some.
884 DB2_AM_EXCL DB_APP_INIT DB_ARCH_ABS DB_ARCH_LOG DB_DEGREE_2 DB_DSYNC_DB
885 DB_FILEOPEN DB_FIXEDLEN DB_GET_BOTH DB_GID_SIZE DB_INIT_CDB DB_INIT_LOG
886 DB_INIT_REP DB_INIT_TXN DB_KEYEMPTY DB_KEYEXIST DB_KEYFIRST DB_LOCKDOWN
887 DB_LOCK_GET DB_LOCK_PUT DB_LOGMAGIC DB_LOG_BLOB DB_LOG_DISK DB_LOG_PERM
888 DB_LOG_ZERO DB_MEM_LOCK DB_MULTIPLE DB_NEXT_DUP DB_NOSERVER DB_NOTFOUND
889 DB_OK_BTREE DB_OK_QUEUE DB_OK_RECNO DB_POSITION DB_PREV_DUP DB_QAMMAGIC
890 DB_REGISTER DB_RENUMBER DB_SEQ_WRAP DB_SNAPSHOT DB_STAT_ALL DB_ST_DUPOK
891 DB_ST_RELEN DB_TRUNCATE DB_TXNMAGIC DB_TXN_BULK DB_TXN_LOCK DB_TXN_REDO
892 DB_TXN_SYNC DB_TXN_UNDO DB_TXN_WAIT DB_WRNOSYNC DB_YIELDCPU LOGREC_DATA
893 LOGREC_DBOP LOGREC_Done LOGREC_TIME */
894 /* Offset 8 gives the best switch position. */
895 switch (name[8]) {
896 case 'A':
897 if (memEQ(name, "DB_ARCH_ABS", 11)) {
898 /* ^ */
899 #ifdef DB_ARCH_ABS
900 *iv_return = DB_ARCH_ABS;
901 return PERL_constant_ISIV;
902 #else
903 return PERL_constant_NOTDEF;
904 #endif
905 }
906 if (memEQ(name, "DB_STAT_ALL", 11)) {
907 /* ^ */
908 #ifdef DB_STAT_ALL
909 *iv_return = DB_STAT_ALL;
910 return PERL_constant_ISIV;
911 #else
912 return PERL_constant_NOTDEF;
913 #endif
914 }
915 if (memEQ(name, "DB_TRUNCATE", 11)) {
916 /* ^ */
917 #ifdef DB_TRUNCATE
918 *iv_return = DB_TRUNCATE;
919 return PERL_constant_ISIV;
920 #else
921 return PERL_constant_NOTDEF;
922 #endif
923 }
924 if (memEQ(name, "DB_TXN_WAIT", 11)) {
925 /* ^ */
926 #ifdef DB_TXN_WAIT
927 *iv_return = DB_TXN_WAIT;
928 return PERL_constant_ISIV;
929 #else
930 return PERL_constant_NOTDEF;
931 #endif
932 }
933 if (memEQ(name, "LOGREC_DATA", 11)) {
934 /* ^ */
935 #if (DB_VERSION_MAJOR > 5) || \
936 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \
937 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \
938 DB_VERSION_PATCH >= 21)
939 *iv_return = LOGREC_DATA;
940 return PERL_constant_ISIV;
941 #else
942 return PERL_constant_NOTDEF;
943 #endif
944 }
945 break;
946 case 'B':
947 if (memEQ(name, "DB_RENUMBER", 11)) {
948 /* ^ */
949 #ifdef DB_RENUMBER
950 *iv_return = DB_RENUMBER;
951 return PERL_constant_ISIV;
952 #else
953 return PERL_constant_NOTDEF;
954 #endif
955 }
956 if (memEQ(name, "LOGREC_DBOP", 11)) {
957 /* ^ */
958 #if (DB_VERSION_MAJOR > 5) || \
959 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \
960 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \
961 DB_VERSION_PATCH >= 21)
962 *iv_return = LOGREC_DBOP;
963 return PERL_constant_ISIV;
964 #else
965 return PERL_constant_NOTDEF;
966 #endif
967 }
968 break;
969 case 'C':
970 if (memEQ(name, "DB_INIT_CDB", 11)) {
971 /* ^ */
972 #ifdef DB_INIT_CDB
973 *iv_return = DB_INIT_CDB;
974 return PERL_constant_ISIV;
975 #else
976 return PERL_constant_NOTDEF;
977 #endif
978 }
979 if (memEQ(name, "DB_OK_RECNO", 11)) {
980 /* ^ */
981 #ifdef DB_OK_RECNO
982 *iv_return = DB_OK_RECNO;
983 return PERL_constant_ISIV;
984 #else
985 return PERL_constant_NOTDEF;
986 #endif
987 }
988 if (memEQ(name, "DB_YIELDCPU", 11)) {
989 /* ^ */
990 #ifdef DB_YIELDCPU
991 *iv_return = DB_YIELDCPU;
992 return PERL_constant_ISIV;
993 #else
994 return PERL_constant_NOTDEF;
995 #endif
996 }
997 break;
998 case 'D':
999 if (memEQ(name, "DB_NEXT_DUP", 11)) {
1000 /* ^ */
1001 #ifdef DB_NEXT_DUP
1002 *iv_return = DB_NEXT_DUP;
1003 return PERL_constant_ISIV;
1004 #else
1005 return PERL_constant_NOTDEF;
1006 #endif
1007 }
1008 if (memEQ(name, "DB_PREV_DUP", 11)) {
1009 /* ^ */
1010 #ifdef DB_PREV_DUP
1011 *iv_return = DB_PREV_DUP;
1012 return PERL_constant_ISIV;
1013 #else
1014 return PERL_constant_NOTDEF;
1015 #endif
1016 }
1017 break;
1018 case 'E':
1019 if (memEQ(name, "DB_DEGREE_2", 11)) {
1020 /* ^ */
1021 #ifdef DB_DEGREE_2
1022 *iv_return = DB_DEGREE_2;
1023 return PERL_constant_ISIV;
1024 #else
1025 return PERL_constant_NOTDEF;
1026 #endif
1027 }
1028 if (memEQ(name, "DB_LOG_PERM", 11)) {
1029 /* ^ */
1030 #ifdef DB_LOG_PERM
1031 *iv_return = DB_LOG_PERM;
1032 return PERL_constant_ISIV;
1033 #else
1034 return PERL_constant_NOTDEF;
1035 #endif
1036 }
1037 if (memEQ(name, "DB_LOG_ZERO", 11)) {
1038 /* ^ */
1039 #ifdef DB_LOG_ZERO
1040 *iv_return = DB_LOG_ZERO;
1041 return PERL_constant_ISIV;
1042 #else
1043 return PERL_constant_NOTDEF;
1044 #endif
1045 }
1046 if (memEQ(name, "DB_OK_QUEUE", 11)) {
1047 /* ^ */
1048 #ifdef DB_OK_QUEUE
1049 *iv_return = DB_OK_QUEUE;
1050 return PERL_constant_ISIV;
1051 #else
1052 return PERL_constant_NOTDEF;
1053 #endif
1054 }
1055 if (memEQ(name, "DB_TXN_REDO", 11)) {
1056 /* ^ */
1057 #ifdef DB_TXN_REDO
1058 *iv_return = DB_TXN_REDO;
1059 return PERL_constant_ISIV;
1060 #else
1061 return PERL_constant_NOTDEF;
1062 #endif
1063 }
1064 break;
1065 case 'G':
1066 if (memEQ(name, "DB_LOCK_GET", 11)) {
1067 /* ^ */
1068 #if (DB_VERSION_MAJOR > 2) || \
1069 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
1070 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
1071 DB_VERSION_PATCH >= 3)
1072 *iv_return = DB_LOCK_GET;
1073 return PERL_constant_ISIV;
1074 #else
1075 return PERL_constant_NOTDEF;
1076 #endif
1077 }
1078 if (memEQ(name, "DB_LOGMAGIC", 11)) {
1079 /* ^ */
1080 #ifdef DB_LOGMAGIC
1081 *iv_return = DB_LOGMAGIC;
1082 return PERL_constant_ISIV;
1083 #else
1084 return PERL_constant_NOTDEF;
1085 #endif
1086 }
1087 if (memEQ(name, "DB_QAMMAGIC", 11)) {
1088 /* ^ */
1089 #ifdef DB_QAMMAGIC
1090 *iv_return = DB_QAMMAGIC;
1091 return PERL_constant_ISIV;
1092 #else
1093 return PERL_constant_NOTDEF;
1094 #endif
1095 }
1096 if (memEQ(name, "DB_TXNMAGIC", 11)) {
1097 /* ^ */
1098 #ifdef DB_TXNMAGIC
1099 *iv_return = DB_TXNMAGIC;
1100 return PERL_constant_ISIV;
1101 #else
1102 return PERL_constant_NOTDEF;
1103 #endif
1104 }
1105 break;
1106 case 'H':
1107 if (memEQ(name, "DB_SNAPSHOT", 11)) {
1108 /* ^ */
1109 #ifdef DB_SNAPSHOT
1110 *iv_return = DB_SNAPSHOT;
1111 return PERL_constant_ISIV;
1112 #else
1113 return PERL_constant_NOTDEF;
1114 #endif
1115 }
1116 break;
1117 case 'I':
1118 if (memEQ(name, "DB_GID_SIZE", 11)) {
1119 /* ^ */
1120 #ifdef DB_GID_SIZE
1121 *iv_return = DB_GID_SIZE;
1122 return PERL_constant_ISIV;
1123 #else
1124 return PERL_constant_NOTDEF;
1125 #endif
1126 }
1127 if (memEQ(name, "DB_KEYEXIST", 11)) {
1128 /* ^ */
1129 #ifdef DB_KEYEXIST
1130 *iv_return = DB_KEYEXIST;
1131 return PERL_constant_ISIV;
1132 #else
1133 return PERL_constant_NOTDEF;
1134 #endif
1135 }
1136 if (memEQ(name, "DB_LOG_DISK", 11)) {
1137 /* ^ */
1138 #ifdef DB_LOG_DISK
1139 *iv_return = DB_LOG_DISK;
1140 return PERL_constant_ISIV;
1141 #else
1142 return PERL_constant_NOTDEF;
1143 #endif
1144 }
1145 if (memEQ(name, "DB_POSITION", 11)) {
1146 /* ^ */
1147 #ifdef DB_POSITION
1148 *iv_return = DB_POSITION;
1149 return PERL_constant_ISIV;
1150 #else
1151 return PERL_constant_NOTDEF;
1152 #endif
1153 }
1154 if (memEQ(name, "LOGREC_TIME", 11)) {
1155 /* ^ */
1156 #if (DB_VERSION_MAJOR > 5) || \
1157 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \
1158 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \
1159 DB_VERSION_PATCH >= 21)
1160 *iv_return = LOGREC_TIME;
1161 return PERL_constant_ISIV;
1162 #else
1163 return PERL_constant_NOTDEF;
1164 #endif
1165 }
1166 break;
1167 case 'L':
1168 if (memEQ(name, "DB_ARCH_LOG", 11)) {
1169 /* ^ */
1170 #ifdef DB_ARCH_LOG
1171 *iv_return = DB_ARCH_LOG;
1172 return PERL_constant_ISIV;
1173 #else
1174 return PERL_constant_NOTDEF;
1175 #endif
1176 }
1177 if (memEQ(name, "DB_FIXEDLEN", 11)) {
1178 /* ^ */
1179 #ifdef DB_FIXEDLEN
1180 *iv_return = DB_FIXEDLEN;
1181 return PERL_constant_ISIV;
1182 #else
1183 return PERL_constant_NOTDEF;
1184 #endif
1185 }
1186 if (memEQ(name, "DB_INIT_LOG", 11)) {
1187 /* ^ */
1188 #ifdef DB_INIT_LOG
1189 *iv_return = DB_INIT_LOG;
1190 return PERL_constant_ISIV;
1191 #else
1192 return PERL_constant_NOTDEF;
1193 #endif
1194 }
1195 if (memEQ(name, "DB_LOG_BLOB", 11)) {
1196 /* ^ */
1197 #ifdef DB_LOG_BLOB
1198 *iv_return = DB_LOG_BLOB;
1199 return PERL_constant_ISIV;
1200 #else
1201 return PERL_constant_NOTDEF;
1202 #endif
1203 }
1204 if (memEQ(name, "DB_ST_RELEN", 11)) {
1205 /* ^ */
1206 #ifdef DB_ST_RELEN
1207 *iv_return = DB_ST_RELEN;
1208 return PERL_constant_ISIV;
1209 #else
1210 return PERL_constant_NOTDEF;
1211 #endif
1212 }
1213 break;
1214 case 'N':
1215 if (memEQ(name, "DB_APP_INIT", 11)) {
1216 /* ^ */
1217 #ifdef DB_APP_INIT
1218 *iv_return = DB_APP_INIT;
1219 return PERL_constant_ISIV;
1220 #else
1221 return PERL_constant_NOTDEF;
1222 #endif
1223 }
1224 if (memEQ(name, "DB_TXN_UNDO", 11)) {
1225 /* ^ */
1226 #ifdef DB_TXN_UNDO
1227 *iv_return = DB_TXN_UNDO;
1228 return PERL_constant_ISIV;
1229 #else
1230 return PERL_constant_NOTDEF;
1231 #endif
1232 }
1233 break;
1234 case 'O':
1235 if (memEQ(name, "DB_GET_BOTH", 11)) {
1236 /* ^ */
1237 #ifdef DB_GET_BOTH
1238 *iv_return = DB_GET_BOTH;
1239 return PERL_constant_ISIV;
1240 #else
1241 return PERL_constant_NOTDEF;
1242 #endif
1243 }
1244 if (memEQ(name, "DB_LOCKDOWN", 11)) {
1245 /* ^ */
1246 #ifdef DB_LOCKDOWN
1247 *iv_return = DB_LOCKDOWN;
1248 return PERL_constant_ISIV;
1249 #else
1250 return PERL_constant_NOTDEF;
1251 #endif
1252 }
1253 if (memEQ(name, "DB_MEM_LOCK", 11)) {
1254 /* ^ */
1255 #if (DB_VERSION_MAJOR > 5) || \
1256 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 2) || \
1257 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 2 && \
1258 DB_VERSION_PATCH >= 10)
1259 *iv_return = DB_MEM_LOCK;
1260 return PERL_constant_ISIV;
1261 #else
1262 return PERL_constant_NOTDEF;
1263 #endif
1264 }
1265 if (memEQ(name, "DB_TXN_LOCK", 11)) {
1266 /* ^ */
1267 #ifdef DB_TXN_LOCK
1268 *iv_return = DB_TXN_LOCK;
1269 return PERL_constant_ISIV;
1270 #else
1271 return PERL_constant_NOTDEF;
1272 #endif
1273 }
1274 break;
1275 case 'P':
1276 if (memEQ(name, "DB_FILEOPEN", 11)) {
1277 /* ^ */
1278 #ifdef DB_FILEOPEN
1279 *iv_return = DB_FILEOPEN;
1280 return PERL_constant_ISIV;
1281 #else
1282 return PERL_constant_NOTDEF;
1283 #endif
1284 }
1285 if (memEQ(name, "DB_KEYEMPTY", 11)) {
1286 /* ^ */
1287 #ifdef DB_KEYEMPTY
1288 *iv_return = DB_KEYEMPTY;
1289 return PERL_constant_ISIV;
1290 #else
1291 return PERL_constant_NOTDEF;
1292 #endif
1293 }
1294 if (memEQ(name, "DB_LOCK_PUT", 11)) {
1295 /* ^ */
1296 #if (DB_VERSION_MAJOR > 2) || \
1297 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
1298 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
1299 DB_VERSION_PATCH >= 3)
1300 *iv_return = DB_LOCK_PUT;
1301 return PERL_constant_ISIV;
1302 #else
1303 return PERL_constant_NOTDEF;
1304 #endif
1305 }
1306 if (memEQ(name, "DB_MULTIPLE", 11)) {
1307 /* ^ */
1308 #ifdef DB_MULTIPLE
1309 *iv_return = DB_MULTIPLE;
1310 return PERL_constant_ISIV;
1311 #else
1312 return PERL_constant_NOTDEF;
1313 #endif
1314 }
1315 if (memEQ(name, "DB_ST_DUPOK", 11)) {
1316 /* ^ */
1317 #ifdef DB_ST_DUPOK
1318 *iv_return = DB_ST_DUPOK;
1319 return PERL_constant_ISIV;
1320 #else
1321 return PERL_constant_NOTDEF;
1322 #endif
1323 }
1324 break;
1325 case 'R':
1326 if (memEQ(name, "DB_INIT_REP", 11)) {
1327 /* ^ */
1328 #ifdef DB_INIT_REP
1329 *iv_return = DB_INIT_REP;
1330 return PERL_constant_ISIV;
1331 #else
1332 return PERL_constant_NOTDEF;
1333 #endif
1334 }
1335 if (memEQ(name, "DB_KEYFIRST", 11)) {
1336 /* ^ */
1337 #ifdef DB_KEYFIRST
1338 *iv_return = DB_KEYFIRST;
1339 return PERL_constant_ISIV;
1340 #else
1341 return PERL_constant_NOTDEF;
1342 #endif
1343 }
1344 if (memEQ(name, "DB_OK_BTREE", 11)) {
1345 /* ^ */
1346 #ifdef DB_OK_BTREE
1347 *iv_return = DB_OK_BTREE;
1348 return PERL_constant_ISIV;
1349 #else
1350 return PERL_constant_NOTDEF;
1351 #endif
1352 }
1353 if (memEQ(name, "DB_SEQ_WRAP", 11)) {
1354 /* ^ */
1355 #ifdef DB_SEQ_WRAP
1356 *iv_return = DB_SEQ_WRAP;
1357 return PERL_constant_ISIV;
1358 #else
1359 return PERL_constant_NOTDEF;
1360 #endif
1361 }
1362 break;
1363 case 'T':
1364 if (memEQ(name, "DB_INIT_TXN", 11)) {
1365 /* ^ */
1366 #ifdef DB_INIT_TXN
1367 *iv_return = DB_INIT_TXN;
1368 return PERL_constant_ISIV;
1369 #else
1370 return PERL_constant_NOTDEF;
1371 #endif
1372 }
1373 if (memEQ(name, "DB_REGISTER", 11)) {
1374 /* ^ */
1375 #ifdef DB_REGISTER
1376 *iv_return = DB_REGISTER;
1377 return PERL_constant_ISIV;
1378 #else
1379 return PERL_constant_NOTDEF;
1380 #endif
1381 }
1382 break;
1383 case 'U':
1384 if (memEQ(name, "DB_NOTFOUND", 11)) {
1385 /* ^ */
1386 #ifdef DB_NOTFOUND
1387 *iv_return = DB_NOTFOUND;
1388 return PERL_constant_ISIV;
1389 #else
1390 return PERL_constant_NOTDEF;
1391 #endif
1392 }
1393 if (memEQ(name, "DB_TXN_BULK", 11)) {
1394 /* ^ */
1395 #ifdef DB_TXN_BULK
1396 *iv_return = DB_TXN_BULK;
1397 return PERL_constant_ISIV;
1398 #else
1399 return PERL_constant_NOTDEF;
1400 #endif
1401 }
1402 break;
1403 case 'V':
1404 if (memEQ(name, "DB_NOSERVER", 11)) {
1405 /* ^ */
1406 #ifdef DB_NOSERVER
1407 *iv_return = DB_NOSERVER;
1408 return PERL_constant_ISIV;
1409 #else
1410 return PERL_constant_NOTDEF;
1411 #endif
1412 }
1413 break;
1414 case 'X':
1415 if (memEQ(name, "DB2_AM_EXCL", 11)) {
1416 /* ^ */
1417 #ifdef DB2_AM_EXCL
1418 *iv_return = DB2_AM_EXCL;
1419 return PERL_constant_ISIV;
1420 #else
1421 return PERL_constant_NOTDEF;
1422 #endif
1423 }
1424 break;
1425 case 'Y':
1426 if (memEQ(name, "DB_TXN_SYNC", 11)) {
1427 /* ^ */
1428 #ifdef DB_TXN_SYNC
1429 *iv_return = DB_TXN_SYNC;
1430 return PERL_constant_ISIV;
1431 #else
1432 return PERL_constant_NOTDEF;
1433 #endif
1434 }
1435 if (memEQ(name, "DB_WRNOSYNC", 11)) {
1436 /* ^ */
1437 #ifdef DB_WRNOSYNC
1438 *iv_return = DB_WRNOSYNC;
1439 return PERL_constant_ISIV;
1440 #else
1441 return PERL_constant_NOTDEF;
1442 #endif
1443 }
1444 break;
1445 case '_':
1446 if (memEQ(name, "DB_DSYNC_DB", 11)) {
1447 /* ^ */
1448 #ifdef DB_DSYNC_DB
1449 *iv_return = DB_DSYNC_DB;
1450 return PERL_constant_ISIV;
1451 #else
1452 return PERL_constant_NOTDEF;
1453 #endif
1454 }
1455 break;
1456 case 'o':
1457 if (memEQ(name, "LOGREC_Done", 11)) {
1458 /* ^ */
1459 #if (DB_VERSION_MAJOR > 5) || \
1460 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \
1461 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \
1462 DB_VERSION_PATCH >= 21)
1463 *iv_return = LOGREC_Done;
1464 return PERL_constant_ISIV;
1465 #else
1466 return PERL_constant_NOTDEF;
1467 #endif
1468 }
1469 break;
1470 }
1471 return PERL_constant_NOTFOUND;
1472 }
1473
1474 static int
constant_12(pTHX_ const char * name,IV * iv_return)1475 constant_12 (pTHX_ const char *name, IV *iv_return) {
1476 /* When generated this function returned values for the list of names given
1477 here. However, subsequent manual editing may have added or removed some.
1478 DB_ARCH_DATA DB_CDB_ALLDB DB_CL_WRITER DB_DELIMITER DB_DIRECT_DB
1479 DB_DSYNC_LOG DB_DUPCURSOR DB_ENV_FATAL DB_FAST_STAT DB_FORCESYNC
1480 DB_GET_BOTHC DB_GET_RECNO DB_HASHMAGIC DB_HEAPMAGIC DB_HEAP_FULL
1481 DB_INIT_LOCK DB_JOIN_ITEM DB_LOCKMAGIC DB_LOCK_DUMP DB_LOCK_RW_N
1482 DB_LOGCHKSUM DB_LOGOLDVER DB_LOG_DSYNC DB_MAX_PAGES DB_MEM_LOGID
1483 DB_MPOOL_NEW DB_MPOOL_TRY DB_NEEDSPLIT DB_NODUPDATA DB_NOLOCKING
1484 DB_NORECURSE DB_OFF_T_MAX DB_OVERWRITE DB_PAGEYIELD DB_PAGE_LOCK
1485 DB_PERMANENT DB_POSITIONI DB_PRINTABLE DB_QAMOLDVER DB_RPCCLIENT
1486 DB_SET_RANGE DB_SET_RECNO DB_ST_DUPSET DB_ST_RECNUM DB_SWAPBYTES
1487 DB_TEMPORARY DB_TXN_ABORT DB_TXN_APPLY DB_TXN_PRINT DB_VERB_MVCC
1488 DB_WRITELOCK DB_WRITEOPEN DB_XA_CREATE LOGREC_LOCKS LOGREC_PGDBT */
1489 /* Offset 3 gives the best switch position. */
1490 switch (name[3]) {
1491 case 'A':
1492 if (memEQ(name, "DB_ARCH_DATA", 12)) {
1493 /* ^ */
1494 #ifdef DB_ARCH_DATA
1495 *iv_return = DB_ARCH_DATA;
1496 return PERL_constant_ISIV;
1497 #else
1498 return PERL_constant_NOTDEF;
1499 #endif
1500 }
1501 break;
1502 case 'C':
1503 if (memEQ(name, "DB_CDB_ALLDB", 12)) {
1504 /* ^ */
1505 #ifdef DB_CDB_ALLDB
1506 *iv_return = DB_CDB_ALLDB;
1507 return PERL_constant_ISIV;
1508 #else
1509 return PERL_constant_NOTDEF;
1510 #endif
1511 }
1512 if (memEQ(name, "DB_CL_WRITER", 12)) {
1513 /* ^ */
1514 #ifdef DB_CL_WRITER
1515 *iv_return = DB_CL_WRITER;
1516 return PERL_constant_ISIV;
1517 #else
1518 return PERL_constant_NOTDEF;
1519 #endif
1520 }
1521 break;
1522 case 'D':
1523 if (memEQ(name, "DB_DELIMITER", 12)) {
1524 /* ^ */
1525 #ifdef DB_DELIMITER
1526 *iv_return = DB_DELIMITER;
1527 return PERL_constant_ISIV;
1528 #else
1529 return PERL_constant_NOTDEF;
1530 #endif
1531 }
1532 if (memEQ(name, "DB_DIRECT_DB", 12)) {
1533 /* ^ */
1534 #ifdef DB_DIRECT_DB
1535 *iv_return = DB_DIRECT_DB;
1536 return PERL_constant_ISIV;
1537 #else
1538 return PERL_constant_NOTDEF;
1539 #endif
1540 }
1541 if (memEQ(name, "DB_DSYNC_LOG", 12)) {
1542 /* ^ */
1543 #ifdef DB_DSYNC_LOG
1544 *iv_return = DB_DSYNC_LOG;
1545 return PERL_constant_ISIV;
1546 #else
1547 return PERL_constant_NOTDEF;
1548 #endif
1549 }
1550 if (memEQ(name, "DB_DUPCURSOR", 12)) {
1551 /* ^ */
1552 #ifdef DB_DUPCURSOR
1553 *iv_return = DB_DUPCURSOR;
1554 return PERL_constant_ISIV;
1555 #else
1556 return PERL_constant_NOTDEF;
1557 #endif
1558 }
1559 break;
1560 case 'E':
1561 if (memEQ(name, "DB_ENV_FATAL", 12)) {
1562 /* ^ */
1563 #ifdef DB_ENV_FATAL
1564 *iv_return = DB_ENV_FATAL;
1565 return PERL_constant_ISIV;
1566 #else
1567 return PERL_constant_NOTDEF;
1568 #endif
1569 }
1570 break;
1571 case 'F':
1572 if (memEQ(name, "DB_FAST_STAT", 12)) {
1573 /* ^ */
1574 #ifdef DB_FAST_STAT
1575 *iv_return = DB_FAST_STAT;
1576 return PERL_constant_ISIV;
1577 #else
1578 return PERL_constant_NOTDEF;
1579 #endif
1580 }
1581 if (memEQ(name, "DB_FORCESYNC", 12)) {
1582 /* ^ */
1583 #ifdef DB_FORCESYNC
1584 *iv_return = DB_FORCESYNC;
1585 return PERL_constant_ISIV;
1586 #else
1587 return PERL_constant_NOTDEF;
1588 #endif
1589 }
1590 break;
1591 case 'G':
1592 if (memEQ(name, "DB_GET_BOTHC", 12)) {
1593 /* ^ */
1594 #ifdef DB_GET_BOTHC
1595 *iv_return = DB_GET_BOTHC;
1596 return PERL_constant_ISIV;
1597 #else
1598 return PERL_constant_NOTDEF;
1599 #endif
1600 }
1601 if (memEQ(name, "DB_GET_RECNO", 12)) {
1602 /* ^ */
1603 #ifdef DB_GET_RECNO
1604 *iv_return = DB_GET_RECNO;
1605 return PERL_constant_ISIV;
1606 #else
1607 return PERL_constant_NOTDEF;
1608 #endif
1609 }
1610 break;
1611 case 'H':
1612 if (memEQ(name, "DB_HASHMAGIC", 12)) {
1613 /* ^ */
1614 #ifdef DB_HASHMAGIC
1615 *iv_return = DB_HASHMAGIC;
1616 return PERL_constant_ISIV;
1617 #else
1618 return PERL_constant_NOTDEF;
1619 #endif
1620 }
1621 if (memEQ(name, "DB_HEAPMAGIC", 12)) {
1622 /* ^ */
1623 #ifdef DB_HEAPMAGIC
1624 *iv_return = DB_HEAPMAGIC;
1625 return PERL_constant_ISIV;
1626 #else
1627 return PERL_constant_NOTDEF;
1628 #endif
1629 }
1630 if (memEQ(name, "DB_HEAP_FULL", 12)) {
1631 /* ^ */
1632 #ifdef DB_HEAP_FULL
1633 *iv_return = DB_HEAP_FULL;
1634 return PERL_constant_ISIV;
1635 #else
1636 return PERL_constant_NOTDEF;
1637 #endif
1638 }
1639 break;
1640 case 'I':
1641 if (memEQ(name, "DB_INIT_LOCK", 12)) {
1642 /* ^ */
1643 #ifdef DB_INIT_LOCK
1644 *iv_return = DB_INIT_LOCK;
1645 return PERL_constant_ISIV;
1646 #else
1647 return PERL_constant_NOTDEF;
1648 #endif
1649 }
1650 break;
1651 case 'J':
1652 if (memEQ(name, "DB_JOIN_ITEM", 12)) {
1653 /* ^ */
1654 #ifdef DB_JOIN_ITEM
1655 *iv_return = DB_JOIN_ITEM;
1656 return PERL_constant_ISIV;
1657 #else
1658 return PERL_constant_NOTDEF;
1659 #endif
1660 }
1661 break;
1662 case 'L':
1663 if (memEQ(name, "DB_LOCKMAGIC", 12)) {
1664 /* ^ */
1665 #ifdef DB_LOCKMAGIC
1666 *iv_return = DB_LOCKMAGIC;
1667 return PERL_constant_ISIV;
1668 #else
1669 return PERL_constant_NOTDEF;
1670 #endif
1671 }
1672 if (memEQ(name, "DB_LOCK_DUMP", 12)) {
1673 /* ^ */
1674 #if (DB_VERSION_MAJOR > 2) || \
1675 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
1676 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
1677 DB_VERSION_PATCH >= 3)
1678 *iv_return = DB_LOCK_DUMP;
1679 return PERL_constant_ISIV;
1680 #else
1681 return PERL_constant_NOTDEF;
1682 #endif
1683 }
1684 if (memEQ(name, "DB_LOCK_RW_N", 12)) {
1685 /* ^ */
1686 #ifdef DB_LOCK_RW_N
1687 *iv_return = DB_LOCK_RW_N;
1688 return PERL_constant_ISIV;
1689 #else
1690 return PERL_constant_NOTDEF;
1691 #endif
1692 }
1693 if (memEQ(name, "DB_LOGCHKSUM", 12)) {
1694 /* ^ */
1695 #ifdef DB_LOGCHKSUM
1696 *iv_return = DB_LOGCHKSUM;
1697 return PERL_constant_ISIV;
1698 #else
1699 return PERL_constant_NOTDEF;
1700 #endif
1701 }
1702 if (memEQ(name, "DB_LOGOLDVER", 12)) {
1703 /* ^ */
1704 #ifdef DB_LOGOLDVER
1705 *iv_return = DB_LOGOLDVER;
1706 return PERL_constant_ISIV;
1707 #else
1708 return PERL_constant_NOTDEF;
1709 #endif
1710 }
1711 if (memEQ(name, "DB_LOG_DSYNC", 12)) {
1712 /* ^ */
1713 #ifdef DB_LOG_DSYNC
1714 *iv_return = DB_LOG_DSYNC;
1715 return PERL_constant_ISIV;
1716 #else
1717 return PERL_constant_NOTDEF;
1718 #endif
1719 }
1720 break;
1721 case 'M':
1722 if (memEQ(name, "DB_MAX_PAGES", 12)) {
1723 /* ^ */
1724 #ifdef DB_MAX_PAGES
1725 *iv_return = DB_MAX_PAGES;
1726 return PERL_constant_ISIV;
1727 #else
1728 return PERL_constant_NOTDEF;
1729 #endif
1730 }
1731 if (memEQ(name, "DB_MEM_LOGID", 12)) {
1732 /* ^ */
1733 #if (DB_VERSION_MAJOR > 5) || \
1734 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 2) || \
1735 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 2 && \
1736 DB_VERSION_PATCH >= 10)
1737 *iv_return = DB_MEM_LOGID;
1738 return PERL_constant_ISIV;
1739 #else
1740 return PERL_constant_NOTDEF;
1741 #endif
1742 }
1743 if (memEQ(name, "DB_MPOOL_NEW", 12)) {
1744 /* ^ */
1745 #ifdef DB_MPOOL_NEW
1746 *iv_return = DB_MPOOL_NEW;
1747 return PERL_constant_ISIV;
1748 #else
1749 return PERL_constant_NOTDEF;
1750 #endif
1751 }
1752 if (memEQ(name, "DB_MPOOL_TRY", 12)) {
1753 /* ^ */
1754 #ifdef DB_MPOOL_TRY
1755 *iv_return = DB_MPOOL_TRY;
1756 return PERL_constant_ISIV;
1757 #else
1758 return PERL_constant_NOTDEF;
1759 #endif
1760 }
1761 break;
1762 case 'N':
1763 if (memEQ(name, "DB_NEEDSPLIT", 12)) {
1764 /* ^ */
1765 #ifdef DB_NEEDSPLIT
1766 *iv_return = DB_NEEDSPLIT;
1767 return PERL_constant_ISIV;
1768 #else
1769 return PERL_constant_NOTDEF;
1770 #endif
1771 }
1772 if (memEQ(name, "DB_NODUPDATA", 12)) {
1773 /* ^ */
1774 #ifdef DB_NODUPDATA
1775 *iv_return = DB_NODUPDATA;
1776 return PERL_constant_ISIV;
1777 #else
1778 return PERL_constant_NOTDEF;
1779 #endif
1780 }
1781 if (memEQ(name, "DB_NOLOCKING", 12)) {
1782 /* ^ */
1783 #ifdef DB_NOLOCKING
1784 *iv_return = DB_NOLOCKING;
1785 return PERL_constant_ISIV;
1786 #else
1787 return PERL_constant_NOTDEF;
1788 #endif
1789 }
1790 if (memEQ(name, "DB_NORECURSE", 12)) {
1791 /* ^ */
1792 #ifdef DB_NORECURSE
1793 *iv_return = DB_NORECURSE;
1794 return PERL_constant_ISIV;
1795 #else
1796 return PERL_constant_NOTDEF;
1797 #endif
1798 }
1799 break;
1800 case 'O':
1801 if (memEQ(name, "DB_OFF_T_MAX", 12)) {
1802 /* ^ */
1803 #ifdef DB_OFF_T_MAX
1804 *iv_return = DB_OFF_T_MAX;
1805 return PERL_constant_ISIV;
1806 #else
1807 return PERL_constant_NOTDEF;
1808 #endif
1809 }
1810 if (memEQ(name, "DB_OVERWRITE", 12)) {
1811 /* ^ */
1812 #ifdef DB_OVERWRITE
1813 *iv_return = DB_OVERWRITE;
1814 return PERL_constant_ISIV;
1815 #else
1816 return PERL_constant_NOTDEF;
1817 #endif
1818 }
1819 break;
1820 case 'P':
1821 if (memEQ(name, "DB_PAGEYIELD", 12)) {
1822 /* ^ */
1823 #ifdef DB_PAGEYIELD
1824 *iv_return = DB_PAGEYIELD;
1825 return PERL_constant_ISIV;
1826 #else
1827 return PERL_constant_NOTDEF;
1828 #endif
1829 }
1830 if (memEQ(name, "DB_PAGE_LOCK", 12)) {
1831 /* ^ */
1832 #ifdef DB_PAGE_LOCK
1833 *iv_return = DB_PAGE_LOCK;
1834 return PERL_constant_ISIV;
1835 #else
1836 return PERL_constant_NOTDEF;
1837 #endif
1838 }
1839 if (memEQ(name, "DB_PERMANENT", 12)) {
1840 /* ^ */
1841 #ifdef DB_PERMANENT
1842 *iv_return = DB_PERMANENT;
1843 return PERL_constant_ISIV;
1844 #else
1845 return PERL_constant_NOTDEF;
1846 #endif
1847 }
1848 if (memEQ(name, "DB_POSITIONI", 12)) {
1849 /* ^ */
1850 #ifdef DB_POSITIONI
1851 *iv_return = DB_POSITIONI;
1852 return PERL_constant_ISIV;
1853 #else
1854 return PERL_constant_NOTDEF;
1855 #endif
1856 }
1857 if (memEQ(name, "DB_PRINTABLE", 12)) {
1858 /* ^ */
1859 #ifdef DB_PRINTABLE
1860 *iv_return = DB_PRINTABLE;
1861 return PERL_constant_ISIV;
1862 #else
1863 return PERL_constant_NOTDEF;
1864 #endif
1865 }
1866 break;
1867 case 'Q':
1868 if (memEQ(name, "DB_QAMOLDVER", 12)) {
1869 /* ^ */
1870 #ifdef DB_QAMOLDVER
1871 *iv_return = DB_QAMOLDVER;
1872 return PERL_constant_ISIV;
1873 #else
1874 return PERL_constant_NOTDEF;
1875 #endif
1876 }
1877 break;
1878 case 'R':
1879 if (memEQ(name, "DB_RPCCLIENT", 12)) {
1880 /* ^ */
1881 #ifdef DB_RPCCLIENT
1882 *iv_return = DB_RPCCLIENT;
1883 return PERL_constant_ISIV;
1884 #else
1885 return PERL_constant_NOTDEF;
1886 #endif
1887 }
1888 if (memEQ(name, "LOGREC_LOCKS", 12)) {
1889 /* ^ */
1890 #if (DB_VERSION_MAJOR > 5) || \
1891 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \
1892 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \
1893 DB_VERSION_PATCH >= 21)
1894 *iv_return = LOGREC_LOCKS;
1895 return PERL_constant_ISIV;
1896 #else
1897 return PERL_constant_NOTDEF;
1898 #endif
1899 }
1900 if (memEQ(name, "LOGREC_PGDBT", 12)) {
1901 /* ^ */
1902 #if (DB_VERSION_MAJOR > 5) || \
1903 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \
1904 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \
1905 DB_VERSION_PATCH >= 21)
1906 *iv_return = LOGREC_PGDBT;
1907 return PERL_constant_ISIV;
1908 #else
1909 return PERL_constant_NOTDEF;
1910 #endif
1911 }
1912 break;
1913 case 'S':
1914 if (memEQ(name, "DB_SET_RANGE", 12)) {
1915 /* ^ */
1916 #ifdef DB_SET_RANGE
1917 *iv_return = DB_SET_RANGE;
1918 return PERL_constant_ISIV;
1919 #else
1920 return PERL_constant_NOTDEF;
1921 #endif
1922 }
1923 if (memEQ(name, "DB_SET_RECNO", 12)) {
1924 /* ^ */
1925 #ifdef DB_SET_RECNO
1926 *iv_return = DB_SET_RECNO;
1927 return PERL_constant_ISIV;
1928 #else
1929 return PERL_constant_NOTDEF;
1930 #endif
1931 }
1932 if (memEQ(name, "DB_ST_DUPSET", 12)) {
1933 /* ^ */
1934 #ifdef DB_ST_DUPSET
1935 *iv_return = DB_ST_DUPSET;
1936 return PERL_constant_ISIV;
1937 #else
1938 return PERL_constant_NOTDEF;
1939 #endif
1940 }
1941 if (memEQ(name, "DB_ST_RECNUM", 12)) {
1942 /* ^ */
1943 #ifdef DB_ST_RECNUM
1944 *iv_return = DB_ST_RECNUM;
1945 return PERL_constant_ISIV;
1946 #else
1947 return PERL_constant_NOTDEF;
1948 #endif
1949 }
1950 if (memEQ(name, "DB_SWAPBYTES", 12)) {
1951 /* ^ */
1952 #ifdef DB_SWAPBYTES
1953 *iv_return = DB_SWAPBYTES;
1954 return PERL_constant_ISIV;
1955 #else
1956 return PERL_constant_NOTDEF;
1957 #endif
1958 }
1959 break;
1960 case 'T':
1961 if (memEQ(name, "DB_TEMPORARY", 12)) {
1962 /* ^ */
1963 #ifdef DB_TEMPORARY
1964 *iv_return = DB_TEMPORARY;
1965 return PERL_constant_ISIV;
1966 #else
1967 return PERL_constant_NOTDEF;
1968 #endif
1969 }
1970 if (memEQ(name, "DB_TXN_ABORT", 12)) {
1971 /* ^ */
1972 #if (DB_VERSION_MAJOR > 3) || \
1973 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \
1974 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \
1975 DB_VERSION_PATCH >= 14)
1976 *iv_return = DB_TXN_ABORT;
1977 return PERL_constant_ISIV;
1978 #else
1979 return PERL_constant_NOTDEF;
1980 #endif
1981 }
1982 if (memEQ(name, "DB_TXN_APPLY", 12)) {
1983 /* ^ */
1984 #if (DB_VERSION_MAJOR > 4) || \
1985 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \
1986 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \
1987 DB_VERSION_PATCH >= 14)
1988 *iv_return = DB_TXN_APPLY;
1989 return PERL_constant_ISIV;
1990 #else
1991 return PERL_constant_NOTDEF;
1992 #endif
1993 }
1994 if (memEQ(name, "DB_TXN_PRINT", 12)) {
1995 /* ^ */
1996 #if (DB_VERSION_MAJOR > 4) || \
1997 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
1998 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
1999 DB_VERSION_PATCH >= 24)
2000 *iv_return = DB_TXN_PRINT;
2001 return PERL_constant_ISIV;
2002 #else
2003 return PERL_constant_NOTDEF;
2004 #endif
2005 }
2006 break;
2007 case 'V':
2008 if (memEQ(name, "DB_VERB_MVCC", 12)) {
2009 /* ^ */
2010 #ifdef DB_VERB_MVCC
2011 *iv_return = DB_VERB_MVCC;
2012 return PERL_constant_ISIV;
2013 #else
2014 return PERL_constant_NOTDEF;
2015 #endif
2016 }
2017 break;
2018 case 'W':
2019 if (memEQ(name, "DB_WRITELOCK", 12)) {
2020 /* ^ */
2021 #ifdef DB_WRITELOCK
2022 *iv_return = DB_WRITELOCK;
2023 return PERL_constant_ISIV;
2024 #else
2025 return PERL_constant_NOTDEF;
2026 #endif
2027 }
2028 if (memEQ(name, "DB_WRITEOPEN", 12)) {
2029 /* ^ */
2030 #ifdef DB_WRITEOPEN
2031 *iv_return = DB_WRITEOPEN;
2032 return PERL_constant_ISIV;
2033 #else
2034 return PERL_constant_NOTDEF;
2035 #endif
2036 }
2037 break;
2038 case 'X':
2039 if (memEQ(name, "DB_XA_CREATE", 12)) {
2040 /* ^ */
2041 #ifdef DB_XA_CREATE
2042 *iv_return = DB_XA_CREATE;
2043 return PERL_constant_ISIV;
2044 #else
2045 return PERL_constant_NOTDEF;
2046 #endif
2047 }
2048 break;
2049 }
2050 return PERL_constant_NOTFOUND;
2051 }
2052
2053 static int
constant_13(pTHX_ const char * name,IV * iv_return)2054 constant_13 (pTHX_ const char *name, IV *iv_return) {
2055 /* When generated this function returned values for the list of names given
2056 here. However, subsequent manual editing may have added or removed some.
2057 DB2_AM_NOWAIT DB_AGGRESSIVE DB_BTREEMAGIC DB_CHECKPOINT DB_DIRECT_LOG
2058 DB_DIRTY_READ DB_DONOTINDEX DB_EID_MASTER DB_ENV_CREATE DB_ENV_NOMMAP
2059 DB_ENV_THREAD DB_FREE_SPACE DB_HASHOLDVER DB_HEAPOLDVER DB_INCOMPLETE
2060 DB_INIT_MPOOL DB_INIT_MUTEX DB_LOCAL_SITE DB_LOCK_ABORT DB_LOCK_CHECK
2061 DB_LOCK_NORUN DB_LOCK_RIW_N DB_LOCK_TRADE DB_LOGVERSION DB_LOG_CHKPNT
2062 DB_LOG_COMMIT DB_LOG_DIRECT DB_LOG_LOCKED DB_LOG_NOCOPY DB_LOG_NOSYNC
2063 DB_LOG_RESEND DB_MEM_LOCKER DB_MEM_THREAD DB_MPOOL_EDIT DB_MPOOL_FREE
2064 DB_MPOOL_LAST DB_MUTEXDEBUG DB_MUTEXLOCKS DB_NEXT_NODUP DB_NOORDERCHK
2065 DB_PREV_NODUP DB_PR_HEADERS DB_QAMVERSION DB_RDWRMASTER DB_REGISTERED
2066 DB_REP_CLIENT DB_REP_CREATE DB_REP_IGNORE DB_REP_ISPERM DB_REP_MASTER
2067 DB_SEQUENTIAL DB_SPARE_FLAG DB_STAT_ALLOC DB_STAT_CLEAR DB_ST_DUPSORT
2068 DB_SYSTEM_MEM DB_TXNVERSION DB_TXN_FAMILY DB_TXN_NOSYNC DB_TXN_NOWAIT
2069 DB_VERB_SLICE DB_VERIFY_BAD DB_debug_FLAG DB_user_BEGIN LOGREC_PGDDBT
2070 LOGREC_PGLIST */
2071 /* Offset 5 gives the best switch position. */
2072 switch (name[5]) {
2073 case 'A':
2074 if (memEQ(name, "DB_HEAPOLDVER", 13)) {
2075 /* ^ */
2076 #ifdef DB_HEAPOLDVER
2077 *iv_return = DB_HEAPOLDVER;
2078 return PERL_constant_ISIV;
2079 #else
2080 return PERL_constant_NOTDEF;
2081 #endif
2082 }
2083 if (memEQ(name, "DB_SPARE_FLAG", 13)) {
2084 /* ^ */
2085 #ifdef DB_SPARE_FLAG
2086 *iv_return = DB_SPARE_FLAG;
2087 return PERL_constant_ISIV;
2088 #else
2089 return PERL_constant_NOTDEF;
2090 #endif
2091 }
2092 if (memEQ(name, "DB_STAT_ALLOC", 13)) {
2093 /* ^ */
2094 #ifdef DB_STAT_ALLOC
2095 *iv_return = DB_STAT_ALLOC;
2096 return PERL_constant_ISIV;
2097 #else
2098 return PERL_constant_NOTDEF;
2099 #endif
2100 }
2101 if (memEQ(name, "DB_STAT_CLEAR", 13)) {
2102 /* ^ */
2103 #ifdef DB_STAT_CLEAR
2104 *iv_return = DB_STAT_CLEAR;
2105 return PERL_constant_ISIV;
2106 #else
2107 return PERL_constant_NOTDEF;
2108 #endif
2109 }
2110 break;
2111 case 'C':
2112 if (memEQ(name, "DB_INCOMPLETE", 13)) {
2113 /* ^ */
2114 #ifdef DB_INCOMPLETE
2115 *iv_return = DB_INCOMPLETE;
2116 return PERL_constant_ISIV;
2117 #else
2118 return PERL_constant_NOTDEF;
2119 #endif
2120 }
2121 if (memEQ(name, "DB_LOCAL_SITE", 13)) {
2122 /* ^ */
2123 #ifdef DB_LOCAL_SITE
2124 *iv_return = DB_LOCAL_SITE;
2125 return PERL_constant_ISIV;
2126 #else
2127 return PERL_constant_NOTDEF;
2128 #endif
2129 }
2130 if (memEQ(name, "DB_LOCK_ABORT", 13)) {
2131 /* ^ */
2132 #ifdef DB_LOCK_ABORT
2133 *iv_return = DB_LOCK_ABORT;
2134 return PERL_constant_ISIV;
2135 #else
2136 return PERL_constant_NOTDEF;
2137 #endif
2138 }
2139 if (memEQ(name, "DB_LOCK_CHECK", 13)) {
2140 /* ^ */
2141 #ifdef DB_LOCK_CHECK
2142 *iv_return = DB_LOCK_CHECK;
2143 return PERL_constant_ISIV;
2144 #else
2145 return PERL_constant_NOTDEF;
2146 #endif
2147 }
2148 if (memEQ(name, "DB_LOCK_NORUN", 13)) {
2149 /* ^ */
2150 #ifdef DB_LOCK_NORUN
2151 *iv_return = DB_LOCK_NORUN;
2152 return PERL_constant_ISIV;
2153 #else
2154 return PERL_constant_NOTDEF;
2155 #endif
2156 }
2157 if (memEQ(name, "DB_LOCK_RIW_N", 13)) {
2158 /* ^ */
2159 #ifdef DB_LOCK_RIW_N
2160 *iv_return = DB_LOCK_RIW_N;
2161 return PERL_constant_ISIV;
2162 #else
2163 return PERL_constant_NOTDEF;
2164 #endif
2165 }
2166 if (memEQ(name, "DB_LOCK_TRADE", 13)) {
2167 /* ^ */
2168 #if (DB_VERSION_MAJOR > 4) || \
2169 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
2170 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
2171 DB_VERSION_PATCH >= 24)
2172 *iv_return = DB_LOCK_TRADE;
2173 return PERL_constant_ISIV;
2174 #else
2175 return PERL_constant_NOTDEF;
2176 #endif
2177 }
2178 if (memEQ(name, "LOGREC_PGDDBT", 13)) {
2179 /* ^ */
2180 #if (DB_VERSION_MAJOR > 5) || \
2181 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \
2182 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \
2183 DB_VERSION_PATCH >= 21)
2184 *iv_return = LOGREC_PGDDBT;
2185 return PERL_constant_ISIV;
2186 #else
2187 return PERL_constant_NOTDEF;
2188 #endif
2189 }
2190 if (memEQ(name, "LOGREC_PGLIST", 13)) {
2191 /* ^ */
2192 #if (DB_VERSION_MAJOR > 5) || \
2193 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \
2194 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \
2195 DB_VERSION_PATCH >= 21)
2196 *iv_return = LOGREC_PGLIST;
2197 return PERL_constant_ISIV;
2198 #else
2199 return PERL_constant_NOTDEF;
2200 #endif
2201 }
2202 break;
2203 case 'D':
2204 if (memEQ(name, "DB_EID_MASTER", 13)) {
2205 /* ^ */
2206 #ifdef DB_EID_MASTER
2207 *iv_return = DB_EID_MASTER;
2208 return PERL_constant_ISIV;
2209 #else
2210 return PERL_constant_NOTDEF;
2211 #endif
2212 }
2213 break;
2214 case 'E':
2215 if (memEQ(name, "DB_CHECKPOINT", 13)) {
2216 /* ^ */
2217 #ifdef DB_CHECKPOINT
2218 *iv_return = DB_CHECKPOINT;
2219 return PERL_constant_ISIV;
2220 #else
2221 return PERL_constant_NOTDEF;
2222 #endif
2223 }
2224 if (memEQ(name, "DB_FREE_SPACE", 13)) {
2225 /* ^ */
2226 #ifdef DB_FREE_SPACE
2227 *iv_return = DB_FREE_SPACE;
2228 return PERL_constant_ISIV;
2229 #else
2230 return PERL_constant_NOTDEF;
2231 #endif
2232 }
2233 if (memEQ(name, "DB_PREV_NODUP", 13)) {
2234 /* ^ */
2235 #ifdef DB_PREV_NODUP
2236 *iv_return = DB_PREV_NODUP;
2237 return PERL_constant_ISIV;
2238 #else
2239 return PERL_constant_NOTDEF;
2240 #endif
2241 }
2242 break;
2243 case 'G':
2244 if (memEQ(name, "DB_AGGRESSIVE", 13)) {
2245 /* ^ */
2246 #ifdef DB_AGGRESSIVE
2247 *iv_return = DB_AGGRESSIVE;
2248 return PERL_constant_ISIV;
2249 #else
2250 return PERL_constant_NOTDEF;
2251 #endif
2252 }
2253 if (memEQ(name, "DB_LOGVERSION", 13)) {
2254 /* ^ */
2255 #ifdef DB_LOGVERSION
2256 *iv_return = DB_LOGVERSION;
2257 return PERL_constant_ISIV;
2258 #else
2259 return PERL_constant_NOTDEF;
2260 #endif
2261 }
2262 if (memEQ(name, "DB_LOG_CHKPNT", 13)) {
2263 /* ^ */
2264 #ifdef DB_LOG_CHKPNT
2265 *iv_return = DB_LOG_CHKPNT;
2266 return PERL_constant_ISIV;
2267 #else
2268 return PERL_constant_NOTDEF;
2269 #endif
2270 }
2271 if (memEQ(name, "DB_LOG_COMMIT", 13)) {
2272 /* ^ */
2273 #ifdef DB_LOG_COMMIT
2274 *iv_return = DB_LOG_COMMIT;
2275 return PERL_constant_ISIV;
2276 #else
2277 return PERL_constant_NOTDEF;
2278 #endif
2279 }
2280 if (memEQ(name, "DB_LOG_DIRECT", 13)) {
2281 /* ^ */
2282 #ifdef DB_LOG_DIRECT
2283 *iv_return = DB_LOG_DIRECT;
2284 return PERL_constant_ISIV;
2285 #else
2286 return PERL_constant_NOTDEF;
2287 #endif
2288 }
2289 if (memEQ(name, "DB_LOG_LOCKED", 13)) {
2290 /* ^ */
2291 #ifdef DB_LOG_LOCKED
2292 *iv_return = DB_LOG_LOCKED;
2293 return PERL_constant_ISIV;
2294 #else
2295 return PERL_constant_NOTDEF;
2296 #endif
2297 }
2298 if (memEQ(name, "DB_LOG_NOCOPY", 13)) {
2299 /* ^ */
2300 #ifdef DB_LOG_NOCOPY
2301 *iv_return = DB_LOG_NOCOPY;
2302 return PERL_constant_ISIV;
2303 #else
2304 return PERL_constant_NOTDEF;
2305 #endif
2306 }
2307 if (memEQ(name, "DB_LOG_NOSYNC", 13)) {
2308 /* ^ */
2309 #ifdef DB_LOG_NOSYNC
2310 *iv_return = DB_LOG_NOSYNC;
2311 return PERL_constant_ISIV;
2312 #else
2313 return PERL_constant_NOTDEF;
2314 #endif
2315 }
2316 if (memEQ(name, "DB_LOG_RESEND", 13)) {
2317 /* ^ */
2318 #ifdef DB_LOG_RESEND
2319 *iv_return = DB_LOG_RESEND;
2320 return PERL_constant_ISIV;
2321 #else
2322 return PERL_constant_NOTDEF;
2323 #endif
2324 }
2325 if (memEQ(name, "DB_REGISTERED", 13)) {
2326 /* ^ */
2327 #ifdef DB_REGISTERED
2328 *iv_return = DB_REGISTERED;
2329 return PERL_constant_ISIV;
2330 #else
2331 return PERL_constant_NOTDEF;
2332 #endif
2333 }
2334 break;
2335 case 'I':
2336 if (memEQ(name, "DB_INIT_MPOOL", 13)) {
2337 /* ^ */
2338 #ifdef DB_INIT_MPOOL
2339 *iv_return = DB_INIT_MPOOL;
2340 return PERL_constant_ISIV;
2341 #else
2342 return PERL_constant_NOTDEF;
2343 #endif
2344 }
2345 if (memEQ(name, "DB_INIT_MUTEX", 13)) {
2346 /* ^ */
2347 #ifdef DB_INIT_MUTEX
2348 *iv_return = DB_INIT_MUTEX;
2349 return PERL_constant_ISIV;
2350 #else
2351 return PERL_constant_NOTDEF;
2352 #endif
2353 }
2354 break;
2355 case 'M':
2356 if (memEQ(name, "DB2_AM_NOWAIT", 13)) {
2357 /* ^ */
2358 #ifdef DB2_AM_NOWAIT
2359 *iv_return = DB2_AM_NOWAIT;
2360 return PERL_constant_ISIV;
2361 #else
2362 return PERL_constant_NOTDEF;
2363 #endif
2364 }
2365 if (memEQ(name, "DB_MEM_LOCKER", 13)) {
2366 /* ^ */
2367 #if (DB_VERSION_MAJOR > 5) || \
2368 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 2) || \
2369 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 2 && \
2370 DB_VERSION_PATCH >= 10)
2371 *iv_return = DB_MEM_LOCKER;
2372 return PERL_constant_ISIV;
2373 #else
2374 return PERL_constant_NOTDEF;
2375 #endif
2376 }
2377 if (memEQ(name, "DB_MEM_THREAD", 13)) {
2378 /* ^ */
2379 #if (DB_VERSION_MAJOR > 5) || \
2380 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 2) || \
2381 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 2 && \
2382 DB_VERSION_PATCH >= 10)
2383 *iv_return = DB_MEM_THREAD;
2384 return PERL_constant_ISIV;
2385 #else
2386 return PERL_constant_NOTDEF;
2387 #endif
2388 }
2389 if (memEQ(name, "DB_QAMVERSION", 13)) {
2390 /* ^ */
2391 #ifdef DB_QAMVERSION
2392 *iv_return = DB_QAMVERSION;
2393 return PERL_constant_ISIV;
2394 #else
2395 return PERL_constant_NOTDEF;
2396 #endif
2397 }
2398 break;
2399 case 'N':
2400 if (memEQ(name, "DB_DONOTINDEX", 13)) {
2401 /* ^ */
2402 #ifdef DB_DONOTINDEX
2403 *iv_return = DB_DONOTINDEX;
2404 return PERL_constant_ISIV;
2405 #else
2406 return PERL_constant_NOTDEF;
2407 #endif
2408 }
2409 if (memEQ(name, "DB_TXNVERSION", 13)) {
2410 /* ^ */
2411 #ifdef DB_TXNVERSION
2412 *iv_return = DB_TXNVERSION;
2413 return PERL_constant_ISIV;
2414 #else
2415 return PERL_constant_NOTDEF;
2416 #endif
2417 }
2418 if (memEQ(name, "DB_TXN_FAMILY", 13)) {
2419 /* ^ */
2420 #ifdef DB_TXN_FAMILY
2421 *iv_return = DB_TXN_FAMILY;
2422 return PERL_constant_ISIV;
2423 #else
2424 return PERL_constant_NOTDEF;
2425 #endif
2426 }
2427 if (memEQ(name, "DB_TXN_NOSYNC", 13)) {
2428 /* ^ */
2429 #ifdef DB_TXN_NOSYNC
2430 *iv_return = DB_TXN_NOSYNC;
2431 return PERL_constant_ISIV;
2432 #else
2433 return PERL_constant_NOTDEF;
2434 #endif
2435 }
2436 if (memEQ(name, "DB_TXN_NOWAIT", 13)) {
2437 /* ^ */
2438 #ifdef DB_TXN_NOWAIT
2439 *iv_return = DB_TXN_NOWAIT;
2440 return PERL_constant_ISIV;
2441 #else
2442 return PERL_constant_NOTDEF;
2443 #endif
2444 }
2445 break;
2446 case 'O':
2447 if (memEQ(name, "DB_MPOOL_EDIT", 13)) {
2448 /* ^ */
2449 #ifdef DB_MPOOL_EDIT
2450 *iv_return = DB_MPOOL_EDIT;
2451 return PERL_constant_ISIV;
2452 #else
2453 return PERL_constant_NOTDEF;
2454 #endif
2455 }
2456 if (memEQ(name, "DB_MPOOL_FREE", 13)) {
2457 /* ^ */
2458 #ifdef DB_MPOOL_FREE
2459 *iv_return = DB_MPOOL_FREE;
2460 return PERL_constant_ISIV;
2461 #else
2462 return PERL_constant_NOTDEF;
2463 #endif
2464 }
2465 if (memEQ(name, "DB_MPOOL_LAST", 13)) {
2466 /* ^ */
2467 #ifdef DB_MPOOL_LAST
2468 *iv_return = DB_MPOOL_LAST;
2469 return PERL_constant_ISIV;
2470 #else
2471 return PERL_constant_NOTDEF;
2472 #endif
2473 }
2474 if (memEQ(name, "DB_NOORDERCHK", 13)) {
2475 /* ^ */
2476 #ifdef DB_NOORDERCHK
2477 *iv_return = DB_NOORDERCHK;
2478 return PERL_constant_ISIV;
2479 #else
2480 return PERL_constant_NOTDEF;
2481 #endif
2482 }
2483 break;
2484 case 'P':
2485 if (memEQ(name, "DB_REP_CLIENT", 13)) {
2486 /* ^ */
2487 #ifdef DB_REP_CLIENT
2488 *iv_return = DB_REP_CLIENT;
2489 return PERL_constant_ISIV;
2490 #else
2491 return PERL_constant_NOTDEF;
2492 #endif
2493 }
2494 if (memEQ(name, "DB_REP_CREATE", 13)) {
2495 /* ^ */
2496 #ifdef DB_REP_CREATE
2497 *iv_return = DB_REP_CREATE;
2498 return PERL_constant_ISIV;
2499 #else
2500 return PERL_constant_NOTDEF;
2501 #endif
2502 }
2503 if (memEQ(name, "DB_REP_IGNORE", 13)) {
2504 /* ^ */
2505 #ifdef DB_REP_IGNORE
2506 *iv_return = DB_REP_IGNORE;
2507 return PERL_constant_ISIV;
2508 #else
2509 return PERL_constant_NOTDEF;
2510 #endif
2511 }
2512 if (memEQ(name, "DB_REP_ISPERM", 13)) {
2513 /* ^ */
2514 #ifdef DB_REP_ISPERM
2515 *iv_return = DB_REP_ISPERM;
2516 return PERL_constant_ISIV;
2517 #else
2518 return PERL_constant_NOTDEF;
2519 #endif
2520 }
2521 if (memEQ(name, "DB_REP_MASTER", 13)) {
2522 /* ^ */
2523 #ifdef DB_REP_MASTER
2524 *iv_return = DB_REP_MASTER;
2525 return PERL_constant_ISIV;
2526 #else
2527 return PERL_constant_NOTDEF;
2528 #endif
2529 }
2530 break;
2531 case 'Q':
2532 if (memEQ(name, "DB_SEQUENTIAL", 13)) {
2533 /* ^ */
2534 #ifdef DB_SEQUENTIAL
2535 *iv_return = DB_SEQUENTIAL;
2536 return PERL_constant_ISIV;
2537 #else
2538 return PERL_constant_NOTDEF;
2539 #endif
2540 }
2541 break;
2542 case 'R':
2543 if (memEQ(name, "DB_BTREEMAGIC", 13)) {
2544 /* ^ */
2545 #ifdef DB_BTREEMAGIC
2546 *iv_return = DB_BTREEMAGIC;
2547 return PERL_constant_ISIV;
2548 #else
2549 return PERL_constant_NOTDEF;
2550 #endif
2551 }
2552 if (memEQ(name, "DB_DIRECT_LOG", 13)) {
2553 /* ^ */
2554 #ifdef DB_DIRECT_LOG
2555 *iv_return = DB_DIRECT_LOG;
2556 return PERL_constant_ISIV;
2557 #else
2558 return PERL_constant_NOTDEF;
2559 #endif
2560 }
2561 if (memEQ(name, "DB_DIRTY_READ", 13)) {
2562 /* ^ */
2563 #ifdef DB_DIRTY_READ
2564 *iv_return = DB_DIRTY_READ;
2565 return PERL_constant_ISIV;
2566 #else
2567 return PERL_constant_NOTDEF;
2568 #endif
2569 }
2570 if (memEQ(name, "DB_VERB_SLICE", 13)) {
2571 /* ^ */
2572 #ifdef DB_VERB_SLICE
2573 *iv_return = DB_VERB_SLICE;
2574 return PERL_constant_ISIV;
2575 #else
2576 return PERL_constant_NOTDEF;
2577 #endif
2578 }
2579 if (memEQ(name, "DB_VERIFY_BAD", 13)) {
2580 /* ^ */
2581 #ifdef DB_VERIFY_BAD
2582 *iv_return = DB_VERIFY_BAD;
2583 return PERL_constant_ISIV;
2584 #else
2585 return PERL_constant_NOTDEF;
2586 #endif
2587 }
2588 break;
2589 case 'S':
2590 if (memEQ(name, "DB_HASHOLDVER", 13)) {
2591 /* ^ */
2592 #ifdef DB_HASHOLDVER
2593 *iv_return = DB_HASHOLDVER;
2594 return PERL_constant_ISIV;
2595 #else
2596 return PERL_constant_NOTDEF;
2597 #endif
2598 }
2599 if (memEQ(name, "DB_SYSTEM_MEM", 13)) {
2600 /* ^ */
2601 #ifdef DB_SYSTEM_MEM
2602 *iv_return = DB_SYSTEM_MEM;
2603 return PERL_constant_ISIV;
2604 #else
2605 return PERL_constant_NOTDEF;
2606 #endif
2607 }
2608 break;
2609 case 'T':
2610 if (memEQ(name, "DB_MUTEXDEBUG", 13)) {
2611 /* ^ */
2612 #ifdef DB_MUTEXDEBUG
2613 *iv_return = DB_MUTEXDEBUG;
2614 return PERL_constant_ISIV;
2615 #else
2616 return PERL_constant_NOTDEF;
2617 #endif
2618 }
2619 if (memEQ(name, "DB_MUTEXLOCKS", 13)) {
2620 /* ^ */
2621 #ifdef DB_MUTEXLOCKS
2622 *iv_return = DB_MUTEXLOCKS;
2623 return PERL_constant_ISIV;
2624 #else
2625 return PERL_constant_NOTDEF;
2626 #endif
2627 }
2628 break;
2629 case 'V':
2630 if (memEQ(name, "DB_ENV_CREATE", 13)) {
2631 /* ^ */
2632 #ifdef DB_ENV_CREATE
2633 *iv_return = DB_ENV_CREATE;
2634 return PERL_constant_ISIV;
2635 #else
2636 return PERL_constant_NOTDEF;
2637 #endif
2638 }
2639 if (memEQ(name, "DB_ENV_NOMMAP", 13)) {
2640 /* ^ */
2641 #ifdef DB_ENV_NOMMAP
2642 *iv_return = DB_ENV_NOMMAP;
2643 return PERL_constant_ISIV;
2644 #else
2645 return PERL_constant_NOTDEF;
2646 #endif
2647 }
2648 if (memEQ(name, "DB_ENV_THREAD", 13)) {
2649 /* ^ */
2650 #ifdef DB_ENV_THREAD
2651 *iv_return = DB_ENV_THREAD;
2652 return PERL_constant_ISIV;
2653 #else
2654 return PERL_constant_NOTDEF;
2655 #endif
2656 }
2657 break;
2658 case 'W':
2659 if (memEQ(name, "DB_RDWRMASTER", 13)) {
2660 /* ^ */
2661 #ifdef DB_RDWRMASTER
2662 *iv_return = DB_RDWRMASTER;
2663 return PERL_constant_ISIV;
2664 #else
2665 return PERL_constant_NOTDEF;
2666 #endif
2667 }
2668 break;
2669 case 'X':
2670 if (memEQ(name, "DB_NEXT_NODUP", 13)) {
2671 /* ^ */
2672 #ifdef DB_NEXT_NODUP
2673 *iv_return = DB_NEXT_NODUP;
2674 return PERL_constant_ISIV;
2675 #else
2676 return PERL_constant_NOTDEF;
2677 #endif
2678 }
2679 break;
2680 case '_':
2681 if (memEQ(name, "DB_PR_HEADERS", 13)) {
2682 /* ^ */
2683 #ifdef DB_PR_HEADERS
2684 *iv_return = DB_PR_HEADERS;
2685 return PERL_constant_ISIV;
2686 #else
2687 return PERL_constant_NOTDEF;
2688 #endif
2689 }
2690 if (memEQ(name, "DB_ST_DUPSORT", 13)) {
2691 /* ^ */
2692 #ifdef DB_ST_DUPSORT
2693 *iv_return = DB_ST_DUPSORT;
2694 return PERL_constant_ISIV;
2695 #else
2696 return PERL_constant_NOTDEF;
2697 #endif
2698 }
2699 break;
2700 case 'b':
2701 if (memEQ(name, "DB_debug_FLAG", 13)) {
2702 /* ^ */
2703 #ifdef DB_debug_FLAG
2704 *iv_return = DB_debug_FLAG;
2705 return PERL_constant_ISIV;
2706 #else
2707 return PERL_constant_NOTDEF;
2708 #endif
2709 }
2710 break;
2711 case 'e':
2712 if (memEQ(name, "DB_user_BEGIN", 13)) {
2713 /* ^ */
2714 #ifdef DB_user_BEGIN
2715 *iv_return = DB_user_BEGIN;
2716 return PERL_constant_ISIV;
2717 #else
2718 return PERL_constant_NOTDEF;
2719 #endif
2720 }
2721 break;
2722 }
2723 return PERL_constant_NOTFOUND;
2724 }
2725
2726 static int
constant_14(pTHX_ const char * name,IV * iv_return)2727 constant_14 (pTHX_ const char *name, IV *iv_return) {
2728 /* When generated this function returned values for the list of names given
2729 here. However, subsequent manual editing may have added or removed some.
2730 DB2_AM_INTEXCL DB_ARCH_REMOVE DB_AUTO_COMMIT DB_BACKUP_SIZE DB_BTREEOLDVER
2731 DB_CHKSUM_FAIL DB_CHKSUM_SHA1 DB_CURSOR_BULK DB_EID_INVALID DB_ENCRYPT_AES
2732 DB_ENV_APPINIT DB_ENV_DBLOCAL DB_ENV_FAILCHK DB_ENV_LOCKING DB_ENV_LOGGING
2733 DB_ENV_NOFLUSH DB_ENV_NOPANIC DB_ENV_PRIVATE DB_EVENT_PANIC DB_FILE_ID_LEN
2734 DB_HANDLE_LOCK DB_HASHVERSION DB_HEAPVERSION DB_HEAP_RID_SZ DB_INTERNAL_DB
2735 DB_JOIN_NOSORT DB_LOCKVERSION DB_LOCK_EXPIRE DB_LOCK_NOWAIT DB_LOCK_OLDEST
2736 DB_LOCK_RANDOM DB_LOCK_RECORD DB_LOCK_REMOVE DB_LOCK_SWITCH DB_LOG_NO_DATA
2737 DB_MAX_RECORDS DB_MPOOL_CLEAN DB_MPOOL_DIRTY DB_NOOVERWRITE DB_NOSERVER_ID
2738 DB_ODDFILESIZE DB_OLD_VERSION DB_OPEN_CALLED DB_RECORDCOUNT DB_RECORD_LOCK
2739 DB_REGION_ANON DB_REGION_INIT DB_REGION_NAME DB_RENAMEMAGIC DB_REPMGR_PEER
2740 DB_REP_BULKOVF DB_REP_EGENCHG DB_REP_INELECT DB_REP_LOCKOUT DB_REP_NEWSITE
2741 DB_REP_NOTPERM DB_REP_UNAVAIL DB_REVSPLITOFF DB_RUNRECOVERY DB_SEQ_WRAPPED
2742 DB_SET_TXN_NOW DB_SHALLOW_DUP DB_STREAM_READ DB_ST_IS_RECNO DB_ST_TOPLEVEL
2743 DB_USE_ENVIRON DB_VERB_BACKUP DB_WRITECURSOR DB_XIDDATASIZE LOGREC_LONGARG
2744 LOGREC_POINTER */
2745 /* Offset 10 gives the best switch position. */
2746 switch (name[10]) {
2747 case 'A':
2748 if (memEQ(name, "DB_EID_INVALID", 14)) {
2749 /* ^ */
2750 #ifdef DB_EID_INVALID
2751 *iv_return = DB_EID_INVALID;
2752 return PERL_constant_ISIV;
2753 #else
2754 return PERL_constant_NOTDEF;
2755 #endif
2756 }
2757 if (memEQ(name, "DB_ENV_NOPANIC", 14)) {
2758 /* ^ */
2759 #ifdef DB_ENV_NOPANIC
2760 *iv_return = DB_ENV_NOPANIC;
2761 return PERL_constant_ISIV;
2762 #else
2763 return PERL_constant_NOTDEF;
2764 #endif
2765 }
2766 if (memEQ(name, "DB_EVENT_PANIC", 14)) {
2767 /* ^ */
2768 #ifdef DB_EVENT_PANIC
2769 *iv_return = DB_EVENT_PANIC;
2770 return PERL_constant_ISIV;
2771 #else
2772 return PERL_constant_NOTDEF;
2773 #endif
2774 }
2775 if (memEQ(name, "DB_REGION_ANON", 14)) {
2776 /* ^ */
2777 #ifdef DB_REGION_ANON
2778 *iv_return = DB_REGION_ANON;
2779 return PERL_constant_ISIV;
2780 #else
2781 return PERL_constant_NOTDEF;
2782 #endif
2783 }
2784 if (memEQ(name, "DB_RENAMEMAGIC", 14)) {
2785 /* ^ */
2786 #ifdef DB_RENAMEMAGIC
2787 *iv_return = DB_RENAMEMAGIC;
2788 return PERL_constant_ISIV;
2789 #else
2790 return PERL_constant_NOTDEF;
2791 #endif
2792 }
2793 break;
2794 case 'B':
2795 if (memEQ(name, "DB_CURSOR_BULK", 14)) {
2796 /* ^ */
2797 #ifdef DB_CURSOR_BULK
2798 *iv_return = DB_CURSOR_BULK;
2799 return PERL_constant_ISIV;
2800 #else
2801 return PERL_constant_NOTDEF;
2802 #endif
2803 }
2804 break;
2805 case 'C':
2806 if (memEQ(name, "DB_LOCK_RECORD", 14)) {
2807 /* ^ */
2808 #ifdef DB_LOCK_RECORD
2809 *iv_return = DB_LOCK_RECORD;
2810 return PERL_constant_ISIV;
2811 #else
2812 return PERL_constant_NOTDEF;
2813 #endif
2814 }
2815 if (memEQ(name, "DB_VERB_BACKUP", 14)) {
2816 /* ^ */
2817 #ifdef DB_VERB_BACKUP
2818 *iv_return = DB_VERB_BACKUP;
2819 return PERL_constant_ISIV;
2820 #else
2821 return PERL_constant_NOTDEF;
2822 #endif
2823 }
2824 break;
2825 case 'D':
2826 if (memEQ(name, "DB_BTREEOLDVER", 14)) {
2827 /* ^ */
2828 #ifdef DB_BTREEOLDVER
2829 *iv_return = DB_BTREEOLDVER;
2830 return PERL_constant_ISIV;
2831 #else
2832 return PERL_constant_NOTDEF;
2833 #endif
2834 }
2835 if (memEQ(name, "DB_HEAP_RID_SZ", 14)) {
2836 /* ^ */
2837 #ifdef DB_HEAP_RID_SZ
2838 *iv_return = DB_HEAP_RID_SZ;
2839 return PERL_constant_ISIV;
2840 #else
2841 return PERL_constant_NOTDEF;
2842 #endif
2843 }
2844 if (memEQ(name, "DB_LOCK_OLDEST", 14)) {
2845 /* ^ */
2846 #ifdef DB_LOCK_OLDEST
2847 *iv_return = DB_LOCK_OLDEST;
2848 return PERL_constant_ISIV;
2849 #else
2850 return PERL_constant_NOTDEF;
2851 #endif
2852 }
2853 if (memEQ(name, "DB_LOG_NO_DATA", 14)) {
2854 /* ^ */
2855 #ifdef DB_LOG_NO_DATA
2856 *iv_return = DB_LOG_NO_DATA;
2857 return PERL_constant_ISIV;
2858 #else
2859 return PERL_constant_NOTDEF;
2860 #endif
2861 }
2862 break;
2863 case 'E':
2864 if (memEQ(name, "DB2_AM_INTEXCL", 14)) {
2865 /* ^ */
2866 #ifdef DB2_AM_INTEXCL
2867 *iv_return = DB2_AM_INTEXCL;
2868 return PERL_constant_ISIV;
2869 #else
2870 return PERL_constant_NOTDEF;
2871 #endif
2872 }
2873 if (memEQ(name, "DB_ST_IS_RECNO", 14)) {
2874 /* ^ */
2875 #ifdef DB_ST_IS_RECNO
2876 *iv_return = DB_ST_IS_RECNO;
2877 return PERL_constant_ISIV;
2878 #else
2879 return PERL_constant_NOTDEF;
2880 #endif
2881 }
2882 if (memEQ(name, "DB_ST_TOPLEVEL", 14)) {
2883 /* ^ */
2884 #ifdef DB_ST_TOPLEVEL
2885 *iv_return = DB_ST_TOPLEVEL;
2886 return PERL_constant_ISIV;
2887 #else
2888 return PERL_constant_NOTDEF;
2889 #endif
2890 }
2891 break;
2892 case 'F':
2893 if (memEQ(name, "DB_CHKSUM_FAIL", 14)) {
2894 /* ^ */
2895 #ifdef DB_CHKSUM_FAIL
2896 *iv_return = DB_CHKSUM_FAIL;
2897 return PERL_constant_ISIV;
2898 #else
2899 return PERL_constant_NOTDEF;
2900 #endif
2901 }
2902 break;
2903 case 'G':
2904 if (memEQ(name, "DB_ENV_LOGGING", 14)) {
2905 /* ^ */
2906 #ifdef DB_ENV_LOGGING
2907 *iv_return = DB_ENV_LOGGING;
2908 return PERL_constant_ISIV;
2909 #else
2910 return PERL_constant_NOTDEF;
2911 #endif
2912 }
2913 if (memEQ(name, "LOGREC_LONGARG", 14)) {
2914 /* ^ */
2915 #if (DB_VERSION_MAJOR > 6) || \
2916 (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR > 0) || \
2917 (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR == 0 && \
2918 DB_VERSION_PATCH >= 30)
2919 *iv_return = LOGREC_LONGARG;
2920 return PERL_constant_ISIV;
2921 #else
2922 return PERL_constant_NOTDEF;
2923 #endif
2924 }
2925 break;
2926 case 'I':
2927 if (memEQ(name, "DB_ENV_APPINIT", 14)) {
2928 /* ^ */
2929 #ifdef DB_ENV_APPINIT
2930 *iv_return = DB_ENV_APPINIT;
2931 return PERL_constant_ISIV;
2932 #else
2933 return PERL_constant_NOTDEF;
2934 #endif
2935 }
2936 if (memEQ(name, "DB_LOCK_SWITCH", 14)) {
2937 /* ^ */
2938 #ifdef DB_LOCK_SWITCH
2939 *iv_return = DB_LOCK_SWITCH;
2940 return PERL_constant_ISIV;
2941 #else
2942 return PERL_constant_NOTDEF;
2943 #endif
2944 }
2945 if (memEQ(name, "DB_MPOOL_DIRTY", 14)) {
2946 /* ^ */
2947 #ifdef DB_MPOOL_DIRTY
2948 *iv_return = DB_MPOOL_DIRTY;
2949 return PERL_constant_ISIV;
2950 #else
2951 return PERL_constant_NOTDEF;
2952 #endif
2953 }
2954 if (memEQ(name, "DB_REGION_INIT", 14)) {
2955 /* ^ */
2956 #ifdef DB_REGION_INIT
2957 *iv_return = DB_REGION_INIT;
2958 return PERL_constant_ISIV;
2959 #else
2960 return PERL_constant_NOTDEF;
2961 #endif
2962 }
2963 if (memEQ(name, "DB_USE_ENVIRON", 14)) {
2964 /* ^ */
2965 #ifdef DB_USE_ENVIRON
2966 *iv_return = DB_USE_ENVIRON;
2967 return PERL_constant_ISIV;
2968 #else
2969 return PERL_constant_NOTDEF;
2970 #endif
2971 }
2972 break;
2973 case 'K':
2974 if (memEQ(name, "DB_ENV_LOCKING", 14)) {
2975 /* ^ */
2976 #ifdef DB_ENV_LOCKING
2977 *iv_return = DB_ENV_LOCKING;
2978 return PERL_constant_ISIV;
2979 #else
2980 return PERL_constant_NOTDEF;
2981 #endif
2982 }
2983 if (memEQ(name, "DB_REP_BULKOVF", 14)) {
2984 /* ^ */
2985 #ifdef DB_REP_BULKOVF
2986 *iv_return = DB_REP_BULKOVF;
2987 return PERL_constant_ISIV;
2988 #else
2989 return PERL_constant_NOTDEF;
2990 #endif
2991 }
2992 if (memEQ(name, "DB_REP_LOCKOUT", 14)) {
2993 /* ^ */
2994 #ifdef DB_REP_LOCKOUT
2995 *iv_return = DB_REP_LOCKOUT;
2996 return PERL_constant_ISIV;
2997 #else
2998 return PERL_constant_NOTDEF;
2999 #endif
3000 }
3001 break;
3002 case 'L':
3003 if (memEQ(name, "DB_ENV_FAILCHK", 14)) {
3004 /* ^ */
3005 #ifdef DB_ENV_FAILCHK
3006 *iv_return = DB_ENV_FAILCHK;
3007 return PERL_constant_ISIV;
3008 #else
3009 return PERL_constant_NOTDEF;
3010 #endif
3011 }
3012 if (memEQ(name, "DB_ENV_NOFLUSH", 14)) {
3013 /* ^ */
3014 #ifdef DB_ENV_NOFLUSH
3015 *iv_return = DB_ENV_NOFLUSH;
3016 return PERL_constant_ISIV;
3017 #else
3018 return PERL_constant_NOTDEF;
3019 #endif
3020 }
3021 if (memEQ(name, "DB_HANDLE_LOCK", 14)) {
3022 /* ^ */
3023 #ifdef DB_HANDLE_LOCK
3024 *iv_return = DB_HANDLE_LOCK;
3025 return PERL_constant_ISIV;
3026 #else
3027 return PERL_constant_NOTDEF;
3028 #endif
3029 }
3030 if (memEQ(name, "DB_INTERNAL_DB", 14)) {
3031 /* ^ */
3032 #ifdef DB_INTERNAL_DB
3033 *iv_return = DB_INTERNAL_DB;
3034 return PERL_constant_ISIV;
3035 #else
3036 return PERL_constant_NOTDEF;
3037 #endif
3038 }
3039 if (memEQ(name, "DB_MPOOL_CLEAN", 14)) {
3040 /* ^ */
3041 #ifdef DB_MPOOL_CLEAN
3042 *iv_return = DB_MPOOL_CLEAN;
3043 return PERL_constant_ISIV;
3044 #else
3045 return PERL_constant_NOTDEF;
3046 #endif
3047 }
3048 if (memEQ(name, "DB_OPEN_CALLED", 14)) {
3049 /* ^ */
3050 #ifdef DB_OPEN_CALLED
3051 *iv_return = DB_OPEN_CALLED;
3052 return PERL_constant_ISIV;
3053 #else
3054 return PERL_constant_NOTDEF;
3055 #endif
3056 }
3057 if (memEQ(name, "DB_RECORD_LOCK", 14)) {
3058 /* ^ */
3059 #ifdef DB_RECORD_LOCK
3060 *iv_return = DB_RECORD_LOCK;
3061 return PERL_constant_ISIV;
3062 #else
3063 return PERL_constant_NOTDEF;
3064 #endif
3065 }
3066 if (memEQ(name, "DB_REP_INELECT", 14)) {
3067 /* ^ */
3068 #ifdef DB_REP_INELECT
3069 *iv_return = DB_REP_INELECT;
3070 return PERL_constant_ISIV;
3071 #else
3072 return PERL_constant_NOTDEF;
3073 #endif
3074 }
3075 break;
3076 case 'M':
3077 if (memEQ(name, "DB_ARCH_REMOVE", 14)) {
3078 /* ^ */
3079 #ifdef DB_ARCH_REMOVE
3080 *iv_return = DB_ARCH_REMOVE;
3081 return PERL_constant_ISIV;
3082 #else
3083 return PERL_constant_NOTDEF;
3084 #endif
3085 }
3086 if (memEQ(name, "DB_AUTO_COMMIT", 14)) {
3087 /* ^ */
3088 #ifdef DB_AUTO_COMMIT
3089 *iv_return = DB_AUTO_COMMIT;
3090 return PERL_constant_ISIV;
3091 #else
3092 return PERL_constant_NOTDEF;
3093 #endif
3094 }
3095 if (memEQ(name, "DB_LOCK_REMOVE", 14)) {
3096 /* ^ */
3097 #ifdef DB_LOCK_REMOVE
3098 *iv_return = DB_LOCK_REMOVE;
3099 return PERL_constant_ISIV;
3100 #else
3101 return PERL_constant_NOTDEF;
3102 #endif
3103 }
3104 break;
3105 case 'N':
3106 if (memEQ(name, "DB_LOCK_RANDOM", 14)) {
3107 /* ^ */
3108 #ifdef DB_LOCK_RANDOM
3109 *iv_return = DB_LOCK_RANDOM;
3110 return PERL_constant_ISIV;
3111 #else
3112 return PERL_constant_NOTDEF;
3113 #endif
3114 }
3115 if (memEQ(name, "DB_REGION_NAME", 14)) {
3116 /* ^ */
3117 #ifdef DB_REGION_NAME
3118 *iv_return = DB_REGION_NAME;
3119 return PERL_constant_ISIV;
3120 #else
3121 return PERL_constant_NOTDEF;
3122 #endif
3123 }
3124 if (memEQ(name, "DB_REP_EGENCHG", 14)) {
3125 /* ^ */
3126 #ifdef DB_REP_EGENCHG
3127 *iv_return = DB_REP_EGENCHG;
3128 return PERL_constant_ISIV;
3129 #else
3130 return PERL_constant_NOTDEF;
3131 #endif
3132 }
3133 if (memEQ(name, "LOGREC_POINTER", 14)) {
3134 /* ^ */
3135 #if (DB_VERSION_MAJOR > 5) || \
3136 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \
3137 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \
3138 DB_VERSION_PATCH >= 21)
3139 *iv_return = LOGREC_POINTER;
3140 return PERL_constant_ISIV;
3141 #else
3142 return PERL_constant_NOTDEF;
3143 #endif
3144 }
3145 break;
3146 case 'O':
3147 if (memEQ(name, "DB_ENV_DBLOCAL", 14)) {
3148 /* ^ */
3149 #ifdef DB_ENV_DBLOCAL
3150 *iv_return = DB_ENV_DBLOCAL;
3151 return PERL_constant_ISIV;
3152 #else
3153 return PERL_constant_NOTDEF;
3154 #endif
3155 }
3156 if (memEQ(name, "DB_MAX_RECORDS", 14)) {
3157 /* ^ */
3158 #ifdef DB_MAX_RECORDS
3159 *iv_return = DB_MAX_RECORDS;
3160 return PERL_constant_ISIV;
3161 #else
3162 return PERL_constant_NOTDEF;
3163 #endif
3164 }
3165 if (memEQ(name, "DB_RECORDCOUNT", 14)) {
3166 /* ^ */
3167 #ifdef DB_RECORDCOUNT
3168 *iv_return = DB_RECORDCOUNT;
3169 return PERL_constant_ISIV;
3170 #else
3171 return PERL_constant_NOTDEF;
3172 #endif
3173 }
3174 break;
3175 case 'P':
3176 if (memEQ(name, "DB_LOCK_EXPIRE", 14)) {
3177 /* ^ */
3178 #ifdef DB_LOCK_EXPIRE
3179 *iv_return = DB_LOCK_EXPIRE;
3180 return PERL_constant_ISIV;
3181 #else
3182 return PERL_constant_NOTDEF;
3183 #endif
3184 }
3185 if (memEQ(name, "DB_REPMGR_PEER", 14)) {
3186 /* ^ */
3187 #ifdef DB_REPMGR_PEER
3188 *iv_return = DB_REPMGR_PEER;
3189 return PERL_constant_ISIV;
3190 #else
3191 return PERL_constant_NOTDEF;
3192 #endif
3193 }
3194 if (memEQ(name, "DB_REP_NOTPERM", 14)) {
3195 /* ^ */
3196 #ifdef DB_REP_NOTPERM
3197 *iv_return = DB_REP_NOTPERM;
3198 return PERL_constant_ISIV;
3199 #else
3200 return PERL_constant_NOTDEF;
3201 #endif
3202 }
3203 if (memEQ(name, "DB_SEQ_WRAPPED", 14)) {
3204 /* ^ */
3205 #ifdef DB_SEQ_WRAPPED
3206 *iv_return = DB_SEQ_WRAPPED;
3207 return PERL_constant_ISIV;
3208 #else
3209 return PERL_constant_NOTDEF;
3210 #endif
3211 }
3212 break;
3213 case 'R':
3214 if (memEQ(name, "DB_NOOVERWRITE", 14)) {
3215 /* ^ */
3216 #ifdef DB_NOOVERWRITE
3217 *iv_return = DB_NOOVERWRITE;
3218 return PERL_constant_ISIV;
3219 #else
3220 return PERL_constant_NOTDEF;
3221 #endif
3222 }
3223 if (memEQ(name, "DB_NOSERVER_ID", 14)) {
3224 /* ^ */
3225 #ifdef DB_NOSERVER_ID
3226 *iv_return = DB_NOSERVER_ID;
3227 return PERL_constant_ISIV;
3228 #else
3229 return PERL_constant_NOTDEF;
3230 #endif
3231 }
3232 if (memEQ(name, "DB_STREAM_READ", 14)) {
3233 /* ^ */
3234 #ifdef DB_STREAM_READ
3235 *iv_return = DB_STREAM_READ;
3236 return PERL_constant_ISIV;
3237 #else
3238 return PERL_constant_NOTDEF;
3239 #endif
3240 }
3241 if (memEQ(name, "DB_WRITECURSOR", 14)) {
3242 /* ^ */
3243 #ifdef DB_WRITECURSOR
3244 *iv_return = DB_WRITECURSOR;
3245 return PERL_constant_ISIV;
3246 #else
3247 return PERL_constant_NOTDEF;
3248 #endif
3249 }
3250 break;
3251 case 'S':
3252 if (memEQ(name, "DB_BACKUP_SIZE", 14)) {
3253 /* ^ */
3254 #if (DB_VERSION_MAJOR > 5) || \
3255 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 3) || \
3256 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 3 && \
3257 DB_VERSION_PATCH >= 15)
3258 *iv_return = DB_BACKUP_SIZE;
3259 return PERL_constant_ISIV;
3260 #else
3261 return PERL_constant_NOTDEF;
3262 #endif
3263 }
3264 if (memEQ(name, "DB_CHKSUM_SHA1", 14)) {
3265 /* ^ */
3266 #ifdef DB_CHKSUM_SHA1
3267 *iv_return = DB_CHKSUM_SHA1;
3268 return PERL_constant_ISIV;
3269 #else
3270 return PERL_constant_NOTDEF;
3271 #endif
3272 }
3273 if (memEQ(name, "DB_HASHVERSION", 14)) {
3274 /* ^ */
3275 #ifdef DB_HASHVERSION
3276 *iv_return = DB_HASHVERSION;
3277 return PERL_constant_ISIV;
3278 #else
3279 return PERL_constant_NOTDEF;
3280 #endif
3281 }
3282 if (memEQ(name, "DB_HEAPVERSION", 14)) {
3283 /* ^ */
3284 #ifdef DB_HEAPVERSION
3285 *iv_return = DB_HEAPVERSION;
3286 return PERL_constant_ISIV;
3287 #else
3288 return PERL_constant_NOTDEF;
3289 #endif
3290 }
3291 if (memEQ(name, "DB_JOIN_NOSORT", 14)) {
3292 /* ^ */
3293 #ifdef DB_JOIN_NOSORT
3294 *iv_return = DB_JOIN_NOSORT;
3295 return PERL_constant_ISIV;
3296 #else
3297 return PERL_constant_NOTDEF;
3298 #endif
3299 }
3300 if (memEQ(name, "DB_LOCKVERSION", 14)) {
3301 /* ^ */
3302 #ifdef DB_LOCKVERSION
3303 *iv_return = DB_LOCKVERSION;
3304 return PERL_constant_ISIV;
3305 #else
3306 return PERL_constant_NOTDEF;
3307 #endif
3308 }
3309 if (memEQ(name, "DB_ODDFILESIZE", 14)) {
3310 /* ^ */
3311 #ifdef DB_ODDFILESIZE
3312 *iv_return = DB_ODDFILESIZE;
3313 return PERL_constant_ISIV;
3314 #else
3315 return PERL_constant_NOTDEF;
3316 #endif
3317 }
3318 if (memEQ(name, "DB_OLD_VERSION", 14)) {
3319 /* ^ */
3320 #ifdef DB_OLD_VERSION
3321 *iv_return = DB_OLD_VERSION;
3322 return PERL_constant_ISIV;
3323 #else
3324 return PERL_constant_NOTDEF;
3325 #endif
3326 }
3327 if (memEQ(name, "DB_REP_NEWSITE", 14)) {
3328 /* ^ */
3329 #ifdef DB_REP_NEWSITE
3330 *iv_return = DB_REP_NEWSITE;
3331 return PERL_constant_ISIV;
3332 #else
3333 return PERL_constant_NOTDEF;
3334 #endif
3335 }
3336 if (memEQ(name, "DB_XIDDATASIZE", 14)) {
3337 /* ^ */
3338 #ifdef DB_XIDDATASIZE
3339 *iv_return = DB_XIDDATASIZE;
3340 return PERL_constant_ISIV;
3341 #else
3342 return PERL_constant_NOTDEF;
3343 #endif
3344 }
3345 break;
3346 case 'T':
3347 if (memEQ(name, "DB_REVSPLITOFF", 14)) {
3348 /* ^ */
3349 #ifdef DB_REVSPLITOFF
3350 *iv_return = DB_REVSPLITOFF;
3351 return PERL_constant_ISIV;
3352 #else
3353 return PERL_constant_NOTDEF;
3354 #endif
3355 }
3356 break;
3357 case 'V':
3358 if (memEQ(name, "DB_ENV_PRIVATE", 14)) {
3359 /* ^ */
3360 #ifdef DB_ENV_PRIVATE
3361 *iv_return = DB_ENV_PRIVATE;
3362 return PERL_constant_ISIV;
3363 #else
3364 return PERL_constant_NOTDEF;
3365 #endif
3366 }
3367 if (memEQ(name, "DB_REP_UNAVAIL", 14)) {
3368 /* ^ */
3369 #ifdef DB_REP_UNAVAIL
3370 *iv_return = DB_REP_UNAVAIL;
3371 return PERL_constant_ISIV;
3372 #else
3373 return PERL_constant_NOTDEF;
3374 #endif
3375 }
3376 if (memEQ(name, "DB_RUNRECOVERY", 14)) {
3377 /* ^ */
3378 #ifdef DB_RUNRECOVERY
3379 *iv_return = DB_RUNRECOVERY;
3380 return PERL_constant_ISIV;
3381 #else
3382 return PERL_constant_NOTDEF;
3383 #endif
3384 }
3385 break;
3386 case 'W':
3387 if (memEQ(name, "DB_LOCK_NOWAIT", 14)) {
3388 /* ^ */
3389 #ifdef DB_LOCK_NOWAIT
3390 *iv_return = DB_LOCK_NOWAIT;
3391 return PERL_constant_ISIV;
3392 #else
3393 return PERL_constant_NOTDEF;
3394 #endif
3395 }
3396 break;
3397 case '_':
3398 if (memEQ(name, "DB_ENCRYPT_AES", 14)) {
3399 /* ^ */
3400 #ifdef DB_ENCRYPT_AES
3401 *iv_return = DB_ENCRYPT_AES;
3402 return PERL_constant_ISIV;
3403 #else
3404 return PERL_constant_NOTDEF;
3405 #endif
3406 }
3407 if (memEQ(name, "DB_FILE_ID_LEN", 14)) {
3408 /* ^ */
3409 #ifdef DB_FILE_ID_LEN
3410 *iv_return = DB_FILE_ID_LEN;
3411 return PERL_constant_ISIV;
3412 #else
3413 return PERL_constant_NOTDEF;
3414 #endif
3415 }
3416 if (memEQ(name, "DB_SET_TXN_NOW", 14)) {
3417 /* ^ */
3418 #ifdef DB_SET_TXN_NOW
3419 *iv_return = DB_SET_TXN_NOW;
3420 return PERL_constant_ISIV;
3421 #else
3422 return PERL_constant_NOTDEF;
3423 #endif
3424 }
3425 if (memEQ(name, "DB_SHALLOW_DUP", 14)) {
3426 /* ^ */
3427 #ifdef DB_SHALLOW_DUP
3428 *iv_return = DB_SHALLOW_DUP;
3429 return PERL_constant_ISIV;
3430 #else
3431 return PERL_constant_NOTDEF;
3432 #endif
3433 }
3434 break;
3435 }
3436 return PERL_constant_NOTFOUND;
3437 }
3438
3439 static int
constant_15(pTHX_ const char * name,IV * iv_return)3440 constant_15 (pTHX_ const char *name, IV *iv_return) {
3441 /* When generated this function returned values for the list of names given
3442 here. However, subsequent manual editing may have added or removed some.
3443 DB_APPLY_LOGREG DB_ASSOC_CREATE DB_BACKUP_CLEAN DB_BACKUP_FILES
3444 DB_BTREEVERSION DB_BUFFER_SMALL DB_CKP_INTERNAL DB_CONSUME_WAIT
3445 DB_ENV_DSYNC_DB DB_ENV_LOCKDOWN DB_ENV_YIELDCPU DB_EXIT_FAILCHK
3446 DB_FORCESYNCENV DB_GET_BOTH_LTE DB_IGNORE_LEASE DB_LOCK_DEFAULT
3447 DB_LOCK_INHERIT DB_LOCK_NOTHELD DB_LOCK_PUT_ALL DB_LOCK_PUT_OBJ
3448 DB_LOCK_TIMEOUT DB_LOCK_UPGRADE DB_LOG_EXT_FILE DB_LOG_INMEMORY
3449 DB_LOG_WRNOSYNC DB_MEM_DATABASE DB_MEM_REP_SITE DB_MPOOL_CREATE
3450 DB_MPOOL_EXTENT DB_MPOOL_NOFILE DB_MPOOL_NOLOCK DB_MPOOL_UNLINK
3451 DB_MULTIPLE_KEY DB_MULTIVERSION DB_MUTEX_LOCKED DB_MUTEX_SHARED
3452 DB_MUTEX_THREAD DB_OPFLAGS_MASK DB_ORDERCHKONLY DB_PRIORITY_LOW
3453 DB_REGION_MAGIC DB_REP_ANYWHERE DB_REP_ELECTION DB_REP_LOGREADY
3454 DB_REP_LOGSONLY DB_REP_NOBUFFER DB_REP_OUTDATED DB_REP_PAGEDONE
3455 DB_STAT_NOERROR DB_STAT_SUMMARY DB_STREAM_WRITE DB_ST_OVFL_LEAF
3456 DB_SURPRISE_KID DB_TEST_POSTLOG DB_TEST_PREOPEN DB_TEST_RECYCLE
3457 DB_TXN_DISPATCH DB_TXN_LOCK_2PL DB_TXN_LOG_MASK DB_TXN_LOG_REDO
3458 DB_TXN_LOG_UNDO DB_TXN_SNAPSHOT DB_VERB_FILEOPS DB_VERIFY_FATAL */
3459 /* Offset 10 gives the best switch position. */
3460 switch (name[10]) {
3461 case 'A':
3462 if (memEQ(name, "DB_MEM_DATABASE", 15)) {
3463 /* ^ */
3464 #if (DB_VERSION_MAJOR > 6) || \
3465 (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR > 3) || \
3466 (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR == 3 && \
3467 DB_VERSION_PATCH >= 10)
3468 *iv_return = DB_MEM_DATABASE;
3469 return PERL_constant_ISIV;
3470 #else
3471 return PERL_constant_NOTDEF;
3472 #endif
3473 }
3474 break;
3475 case 'C':
3476 if (memEQ(name, "DB_BACKUP_CLEAN", 15)) {
3477 /* ^ */
3478 #ifdef DB_BACKUP_CLEAN
3479 *iv_return = DB_BACKUP_CLEAN;
3480 return PERL_constant_ISIV;
3481 #else
3482 return PERL_constant_NOTDEF;
3483 #endif
3484 }
3485 if (memEQ(name, "DB_REP_ELECTION", 15)) {
3486 /* ^ */
3487 #ifdef DB_REP_ELECTION
3488 *iv_return = DB_REP_ELECTION;
3489 return PERL_constant_ISIV;
3490 #else
3491 return PERL_constant_NOTDEF;
3492 #endif
3493 }
3494 if (memEQ(name, "DB_TEST_RECYCLE", 15)) {
3495 /* ^ */
3496 #ifdef DB_TEST_RECYCLE
3497 *iv_return = DB_TEST_RECYCLE;
3498 return PERL_constant_ISIV;
3499 #else
3500 return PERL_constant_NOTDEF;
3501 #endif
3502 }
3503 break;
3504 case 'D':
3505 if (memEQ(name, "DB_REP_OUTDATED", 15)) {
3506 /* ^ */
3507 #ifdef DB_REP_OUTDATED
3508 *iv_return = DB_REP_OUTDATED;
3509 return PERL_constant_ISIV;
3510 #else
3511 return PERL_constant_NOTDEF;
3512 #endif
3513 }
3514 break;
3515 case 'E':
3516 if (memEQ(name, "DB_CKP_INTERNAL", 15)) {
3517 /* ^ */
3518 #ifdef DB_CKP_INTERNAL
3519 *iv_return = DB_CKP_INTERNAL;
3520 return PERL_constant_ISIV;
3521 #else
3522 return PERL_constant_NOTDEF;
3523 #endif
3524 }
3525 if (memEQ(name, "DB_LOG_INMEMORY", 15)) {
3526 /* ^ */
3527 #ifdef DB_LOG_INMEMORY
3528 *iv_return = DB_LOG_INMEMORY;
3529 return PERL_constant_ISIV;
3530 #else
3531 return PERL_constant_NOTDEF;
3532 #endif
3533 }
3534 if (memEQ(name, "DB_MULTIPLE_KEY", 15)) {
3535 /* ^ */
3536 #ifdef DB_MULTIPLE_KEY
3537 *iv_return = DB_MULTIPLE_KEY;
3538 return PERL_constant_ISIV;
3539 #else
3540 return PERL_constant_NOTDEF;
3541 #endif
3542 }
3543 if (memEQ(name, "DB_REP_PAGEDONE", 15)) {
3544 /* ^ */
3545 #ifdef DB_REP_PAGEDONE
3546 *iv_return = DB_REP_PAGEDONE;
3547 return PERL_constant_ISIV;
3548 #else
3549 return PERL_constant_NOTDEF;
3550 #endif
3551 }
3552 if (memEQ(name, "DB_STAT_NOERROR", 15)) {
3553 /* ^ */
3554 #ifdef DB_STAT_NOERROR
3555 *iv_return = DB_STAT_NOERROR;
3556 return PERL_constant_ISIV;
3557 #else
3558 return PERL_constant_NOTDEF;
3559 #endif
3560 }
3561 if (memEQ(name, "DB_SURPRISE_KID", 15)) {
3562 /* ^ */
3563 #ifdef DB_SURPRISE_KID
3564 *iv_return = DB_SURPRISE_KID;
3565 return PERL_constant_ISIV;
3566 #else
3567 return PERL_constant_NOTDEF;
3568 #endif
3569 }
3570 if (memEQ(name, "DB_TEST_PREOPEN", 15)) {
3571 /* ^ */
3572 #ifdef DB_TEST_PREOPEN
3573 *iv_return = DB_TEST_PREOPEN;
3574 return PERL_constant_ISIV;
3575 #else
3576 return PERL_constant_NOTDEF;
3577 #endif
3578 }
3579 break;
3580 case 'F':
3581 if (memEQ(name, "DB_BACKUP_FILES", 15)) {
3582 /* ^ */
3583 #ifdef DB_BACKUP_FILES
3584 *iv_return = DB_BACKUP_FILES;
3585 return PERL_constant_ISIV;
3586 #else
3587 return PERL_constant_NOTDEF;
3588 #endif
3589 }
3590 if (memEQ(name, "DB_LOCK_DEFAULT", 15)) {
3591 /* ^ */
3592 #ifdef DB_LOCK_DEFAULT
3593 *iv_return = DB_LOCK_DEFAULT;
3594 return PERL_constant_ISIV;
3595 #else
3596 return PERL_constant_NOTDEF;
3597 #endif
3598 }
3599 if (memEQ(name, "DB_VERIFY_FATAL", 15)) {
3600 /* ^ */
3601 #ifdef DB_VERIFY_FATAL
3602 *iv_return = DB_VERIFY_FATAL;
3603 return PERL_constant_ISIV;
3604 #else
3605 return PERL_constant_NOTDEF;
3606 #endif
3607 }
3608 break;
3609 case 'G':
3610 if (memEQ(name, "DB_LOCK_UPGRADE", 15)) {
3611 /* ^ */
3612 #ifdef DB_LOCK_UPGRADE
3613 *iv_return = DB_LOCK_UPGRADE;
3614 return PERL_constant_ISIV;
3615 #else
3616 return PERL_constant_NOTDEF;
3617 #endif
3618 }
3619 break;
3620 case 'H':
3621 if (memEQ(name, "DB_GET_BOTH_LTE", 15)) {
3622 /* ^ */
3623 #ifdef DB_GET_BOTH_LTE
3624 *iv_return = DB_GET_BOTH_LTE;
3625 return PERL_constant_ISIV;
3626 #else
3627 return PERL_constant_NOTDEF;
3628 #endif
3629 }
3630 if (memEQ(name, "DB_LOCK_INHERIT", 15)) {
3631 /* ^ */
3632 #if (DB_VERSION_MAJOR > 2) || \
3633 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 7) || \
3634 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 7 && \
3635 DB_VERSION_PATCH >= 1)
3636 *iv_return = DB_LOCK_INHERIT;
3637 return PERL_constant_ISIV;
3638 #else
3639 return PERL_constant_NOTDEF;
3640 #endif
3641 }
3642 if (memEQ(name, "DB_MUTEX_SHARED", 15)) {
3643 /* ^ */
3644 #ifdef DB_MUTEX_SHARED
3645 *iv_return = DB_MUTEX_SHARED;
3646 return PERL_constant_ISIV;
3647 #else
3648 return PERL_constant_NOTDEF;
3649 #endif
3650 }
3651 if (memEQ(name, "DB_MUTEX_THREAD", 15)) {
3652 /* ^ */
3653 #ifdef DB_MUTEX_THREAD
3654 *iv_return = DB_MUTEX_THREAD;
3655 return PERL_constant_ISIV;
3656 #else
3657 return PERL_constant_NOTDEF;
3658 #endif
3659 }
3660 break;
3661 case 'I':
3662 if (memEQ(name, "DB_EXIT_FAILCHK", 15)) {
3663 /* ^ */
3664 #ifdef DB_EXIT_FAILCHK
3665 *iv_return = DB_EXIT_FAILCHK;
3666 return PERL_constant_ISIV;
3667 #else
3668 return PERL_constant_NOTDEF;
3669 #endif
3670 }
3671 break;
3672 case 'K':
3673 if (memEQ(name, "DB_ENV_LOCKDOWN", 15)) {
3674 /* ^ */
3675 #ifdef DB_ENV_LOCKDOWN
3676 *iv_return = DB_ENV_LOCKDOWN;
3677 return PERL_constant_ISIV;
3678 #else
3679 return PERL_constant_NOTDEF;
3680 #endif
3681 }
3682 if (memEQ(name, "DB_ORDERCHKONLY", 15)) {
3683 /* ^ */
3684 #ifdef DB_ORDERCHKONLY
3685 *iv_return = DB_ORDERCHKONLY;
3686 return PERL_constant_ISIV;
3687 #else
3688 return PERL_constant_NOTDEF;
3689 #endif
3690 }
3691 if (memEQ(name, "DB_TXN_LOCK_2PL", 15)) {
3692 /* ^ */
3693 #ifdef DB_TXN_LOCK_2PL
3694 *iv_return = DB_TXN_LOCK_2PL;
3695 return PERL_constant_ISIV;
3696 #else
3697 return PERL_constant_NOTDEF;
3698 #endif
3699 }
3700 break;
3701 case 'L':
3702 if (memEQ(name, "DB_ENV_YIELDCPU", 15)) {
3703 /* ^ */
3704 #ifdef DB_ENV_YIELDCPU
3705 *iv_return = DB_ENV_YIELDCPU;
3706 return PERL_constant_ISIV;
3707 #else
3708 return PERL_constant_NOTDEF;
3709 #endif
3710 }
3711 if (memEQ(name, "DB_IGNORE_LEASE", 15)) {
3712 /* ^ */
3713 #ifdef DB_IGNORE_LEASE
3714 *iv_return = DB_IGNORE_LEASE;
3715 return PERL_constant_ISIV;
3716 #else
3717 return PERL_constant_NOTDEF;
3718 #endif
3719 }
3720 if (memEQ(name, "DB_VERB_FILEOPS", 15)) {
3721 /* ^ */
3722 #ifdef DB_VERB_FILEOPS
3723 *iv_return = DB_VERB_FILEOPS;
3724 return PERL_constant_ISIV;
3725 #else
3726 return PERL_constant_NOTDEF;
3727 #endif
3728 }
3729 break;
3730 case 'M':
3731 if (memEQ(name, "DB_LOCK_TIMEOUT", 15)) {
3732 /* ^ */
3733 #if (DB_VERSION_MAJOR > 4) || \
3734 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \
3735 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \
3736 DB_VERSION_PATCH >= 14)
3737 *iv_return = DB_LOCK_TIMEOUT;
3738 return PERL_constant_ISIV;
3739 #else
3740 return PERL_constant_NOTDEF;
3741 #endif
3742 }
3743 if (memEQ(name, "DB_REGION_MAGIC", 15)) {
3744 /* ^ */
3745 #ifdef DB_REGION_MAGIC
3746 *iv_return = DB_REGION_MAGIC;
3747 return PERL_constant_ISIV;
3748 #else
3749 return PERL_constant_NOTDEF;
3750 #endif
3751 }
3752 if (memEQ(name, "DB_STAT_SUMMARY", 15)) {
3753 /* ^ */
3754 #ifdef DB_STAT_SUMMARY
3755 *iv_return = DB_STAT_SUMMARY;
3756 return PERL_constant_ISIV;
3757 #else
3758 return PERL_constant_NOTDEF;
3759 #endif
3760 }
3761 break;
3762 case 'N':
3763 if (memEQ(name, "DB_ENV_DSYNC_DB", 15)) {
3764 /* ^ */
3765 #ifdef DB_ENV_DSYNC_DB
3766 *iv_return = DB_ENV_DSYNC_DB;
3767 return PERL_constant_ISIV;
3768 #else
3769 return PERL_constant_NOTDEF;
3770 #endif
3771 }
3772 if (memEQ(name, "DB_FORCESYNCENV", 15)) {
3773 /* ^ */
3774 #ifdef DB_FORCESYNCENV
3775 *iv_return = DB_FORCESYNCENV;
3776 return PERL_constant_ISIV;
3777 #else
3778 return PERL_constant_NOTDEF;
3779 #endif
3780 }
3781 if (memEQ(name, "DB_MPOOL_UNLINK", 15)) {
3782 /* ^ */
3783 #ifdef DB_MPOOL_UNLINK
3784 *iv_return = DB_MPOOL_UNLINK;
3785 return PERL_constant_ISIV;
3786 #else
3787 return PERL_constant_NOTDEF;
3788 #endif
3789 }
3790 break;
3791 case 'O':
3792 if (memEQ(name, "DB_APPLY_LOGREG", 15)) {
3793 /* ^ */
3794 #ifdef DB_APPLY_LOGREG
3795 *iv_return = DB_APPLY_LOGREG;
3796 return PERL_constant_ISIV;
3797 #else
3798 return PERL_constant_NOTDEF;
3799 #endif
3800 }
3801 if (memEQ(name, "DB_LOG_WRNOSYNC", 15)) {
3802 /* ^ */
3803 #ifdef DB_LOG_WRNOSYNC
3804 *iv_return = DB_LOG_WRNOSYNC;
3805 return PERL_constant_ISIV;
3806 #else
3807 return PERL_constant_NOTDEF;
3808 #endif
3809 }
3810 if (memEQ(name, "DB_MPOOL_NOFILE", 15)) {
3811 /* ^ */
3812 #ifdef DB_MPOOL_NOFILE
3813 *iv_return = DB_MPOOL_NOFILE;
3814 return PERL_constant_ISIV;
3815 #else
3816 return PERL_constant_NOTDEF;
3817 #endif
3818 }
3819 if (memEQ(name, "DB_MPOOL_NOLOCK", 15)) {
3820 /* ^ */
3821 #ifdef DB_MPOOL_NOLOCK
3822 *iv_return = DB_MPOOL_NOLOCK;
3823 return PERL_constant_ISIV;
3824 #else
3825 return PERL_constant_NOTDEF;
3826 #endif
3827 }
3828 if (memEQ(name, "DB_MUTEX_LOCKED", 15)) {
3829 /* ^ */
3830 #ifdef DB_MUTEX_LOCKED
3831 *iv_return = DB_MUTEX_LOCKED;
3832 return PERL_constant_ISIV;
3833 #else
3834 return PERL_constant_NOTDEF;
3835 #endif
3836 }
3837 break;
3838 case 'P':
3839 if (memEQ(name, "DB_TXN_DISPATCH", 15)) {
3840 /* ^ */
3841 #ifdef DB_TXN_DISPATCH
3842 *iv_return = DB_TXN_DISPATCH;
3843 return PERL_constant_ISIV;
3844 #else
3845 return PERL_constant_NOTDEF;
3846 #endif
3847 }
3848 if (memEQ(name, "DB_TXN_SNAPSHOT", 15)) {
3849 /* ^ */
3850 #ifdef DB_TXN_SNAPSHOT
3851 *iv_return = DB_TXN_SNAPSHOT;
3852 return PERL_constant_ISIV;
3853 #else
3854 return PERL_constant_NOTDEF;
3855 #endif
3856 }
3857 break;
3858 case 'R':
3859 if (memEQ(name, "DB_ASSOC_CREATE", 15)) {
3860 /* ^ */
3861 #ifdef DB_ASSOC_CREATE
3862 *iv_return = DB_ASSOC_CREATE;
3863 return PERL_constant_ISIV;
3864 #else
3865 return PERL_constant_NOTDEF;
3866 #endif
3867 }
3868 if (memEQ(name, "DB_BTREEVERSION", 15)) {
3869 /* ^ */
3870 #ifdef DB_BTREEVERSION
3871 *iv_return = DB_BTREEVERSION;
3872 return PERL_constant_ISIV;
3873 #else
3874 return PERL_constant_NOTDEF;
3875 #endif
3876 }
3877 if (memEQ(name, "DB_MPOOL_CREATE", 15)) {
3878 /* ^ */
3879 #ifdef DB_MPOOL_CREATE
3880 *iv_return = DB_MPOOL_CREATE;
3881 return PERL_constant_ISIV;
3882 #else
3883 return PERL_constant_NOTDEF;
3884 #endif
3885 }
3886 if (memEQ(name, "DB_MULTIVERSION", 15)) {
3887 /* ^ */
3888 #ifdef DB_MULTIVERSION
3889 *iv_return = DB_MULTIVERSION;
3890 return PERL_constant_ISIV;
3891 #else
3892 return PERL_constant_NOTDEF;
3893 #endif
3894 }
3895 if (memEQ(name, "DB_REP_LOGREADY", 15)) {
3896 /* ^ */
3897 #ifdef DB_REP_LOGREADY
3898 *iv_return = DB_REP_LOGREADY;
3899 return PERL_constant_ISIV;
3900 #else
3901 return PERL_constant_NOTDEF;
3902 #endif
3903 }
3904 break;
3905 case 'S':
3906 if (memEQ(name, "DB_BUFFER_SMALL", 15)) {
3907 /* ^ */
3908 #ifdef DB_BUFFER_SMALL
3909 *iv_return = DB_BUFFER_SMALL;
3910 return PERL_constant_ISIV;
3911 #else
3912 return PERL_constant_NOTDEF;
3913 #endif
3914 }
3915 if (memEQ(name, "DB_REP_LOGSONLY", 15)) {
3916 /* ^ */
3917 #ifdef DB_REP_LOGSONLY
3918 *iv_return = DB_REP_LOGSONLY;
3919 return PERL_constant_ISIV;
3920 #else
3921 return PERL_constant_NOTDEF;
3922 #endif
3923 }
3924 if (memEQ(name, "DB_TEST_POSTLOG", 15)) {
3925 /* ^ */
3926 #ifdef DB_TEST_POSTLOG
3927 *iv_return = DB_TEST_POSTLOG;
3928 return PERL_constant_ISIV;
3929 #else
3930 return PERL_constant_NOTDEF;
3931 #endif
3932 }
3933 break;
3934 case 'T':
3935 if (memEQ(name, "DB_LOCK_NOTHELD", 15)) {
3936 /* ^ */
3937 #ifdef DB_LOCK_NOTHELD
3938 *iv_return = DB_LOCK_NOTHELD;
3939 return PERL_constant_ISIV;
3940 #else
3941 return PERL_constant_NOTDEF;
3942 #endif
3943 }
3944 if (memEQ(name, "DB_LOCK_PUT_ALL", 15)) {
3945 /* ^ */
3946 #if (DB_VERSION_MAJOR > 2) || \
3947 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
3948 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
3949 DB_VERSION_PATCH >= 3)
3950 *iv_return = DB_LOCK_PUT_ALL;
3951 return PERL_constant_ISIV;
3952 #else
3953 return PERL_constant_NOTDEF;
3954 #endif
3955 }
3956 if (memEQ(name, "DB_LOCK_PUT_OBJ", 15)) {
3957 /* ^ */
3958 #if (DB_VERSION_MAJOR > 2) || \
3959 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \
3960 (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \
3961 DB_VERSION_PATCH >= 3)
3962 *iv_return = DB_LOCK_PUT_OBJ;
3963 return PERL_constant_ISIV;
3964 #else
3965 return PERL_constant_NOTDEF;
3966 #endif
3967 }
3968 break;
3969 case 'U':
3970 if (memEQ(name, "DB_REP_NOBUFFER", 15)) {
3971 /* ^ */
3972 #ifdef DB_REP_NOBUFFER
3973 *iv_return = DB_REP_NOBUFFER;
3974 return PERL_constant_ISIV;
3975 #else
3976 return PERL_constant_NOTDEF;
3977 #endif
3978 }
3979 break;
3980 case 'W':
3981 if (memEQ(name, "DB_REP_ANYWHERE", 15)) {
3982 /* ^ */
3983 #ifdef DB_REP_ANYWHERE
3984 *iv_return = DB_REP_ANYWHERE;
3985 return PERL_constant_ISIV;
3986 #else
3987 return PERL_constant_NOTDEF;
3988 #endif
3989 }
3990 if (memEQ(name, "DB_STREAM_WRITE", 15)) {
3991 /* ^ */
3992 #ifdef DB_STREAM_WRITE
3993 *iv_return = DB_STREAM_WRITE;
3994 return PERL_constant_ISIV;
3995 #else
3996 return PERL_constant_NOTDEF;
3997 #endif
3998 }
3999 break;
4000 case 'X':
4001 if (memEQ(name, "DB_MPOOL_EXTENT", 15)) {
4002 /* ^ */
4003 #ifdef DB_MPOOL_EXTENT
4004 *iv_return = DB_MPOOL_EXTENT;
4005 return PERL_constant_ISIV;
4006 #else
4007 return PERL_constant_NOTDEF;
4008 #endif
4009 }
4010 break;
4011 case 'Y':
4012 if (memEQ(name, "DB_PRIORITY_LOW", 15)) {
4013 /* ^ */
4014 #if (DB_VERSION_MAJOR > 4) || \
4015 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
4016 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
4017 DB_VERSION_PATCH >= 24)
4018 *iv_return = DB_PRIORITY_LOW;
4019 return PERL_constant_ISIV;
4020 #else
4021 return PERL_constant_NOTDEF;
4022 #endif
4023 }
4024 break;
4025 case '_':
4026 if (memEQ(name, "DB_CONSUME_WAIT", 15)) {
4027 /* ^ */
4028 #ifdef DB_CONSUME_WAIT
4029 *iv_return = DB_CONSUME_WAIT;
4030 return PERL_constant_ISIV;
4031 #else
4032 return PERL_constant_NOTDEF;
4033 #endif
4034 }
4035 if (memEQ(name, "DB_LOG_EXT_FILE", 15)) {
4036 /* ^ */
4037 #ifdef DB_LOG_EXT_FILE
4038 *iv_return = DB_LOG_EXT_FILE;
4039 return PERL_constant_ISIV;
4040 #else
4041 return PERL_constant_NOTDEF;
4042 #endif
4043 }
4044 if (memEQ(name, "DB_MEM_REP_SITE", 15)) {
4045 /* ^ */
4046 #if (DB_VERSION_MAJOR > 6) || \
4047 (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR > 3) || \
4048 (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR == 3 && \
4049 DB_VERSION_PATCH >= 10)
4050 *iv_return = DB_MEM_REP_SITE;
4051 return PERL_constant_ISIV;
4052 #else
4053 return PERL_constant_NOTDEF;
4054 #endif
4055 }
4056 if (memEQ(name, "DB_OPFLAGS_MASK", 15)) {
4057 /* ^ */
4058 #ifdef DB_OPFLAGS_MASK
4059 *iv_return = DB_OPFLAGS_MASK;
4060 return PERL_constant_ISIV;
4061 #else
4062 return PERL_constant_NOTDEF;
4063 #endif
4064 }
4065 if (memEQ(name, "DB_ST_OVFL_LEAF", 15)) {
4066 /* ^ */
4067 #ifdef DB_ST_OVFL_LEAF
4068 *iv_return = DB_ST_OVFL_LEAF;
4069 return PERL_constant_ISIV;
4070 #else
4071 return PERL_constant_NOTDEF;
4072 #endif
4073 }
4074 if (memEQ(name, "DB_TXN_LOG_MASK", 15)) {
4075 /* ^ */
4076 #ifdef DB_TXN_LOG_MASK
4077 *iv_return = DB_TXN_LOG_MASK;
4078 return PERL_constant_ISIV;
4079 #else
4080 return PERL_constant_NOTDEF;
4081 #endif
4082 }
4083 if (memEQ(name, "DB_TXN_LOG_REDO", 15)) {
4084 /* ^ */
4085 #ifdef DB_TXN_LOG_REDO
4086 *iv_return = DB_TXN_LOG_REDO;
4087 return PERL_constant_ISIV;
4088 #else
4089 return PERL_constant_NOTDEF;
4090 #endif
4091 }
4092 if (memEQ(name, "DB_TXN_LOG_UNDO", 15)) {
4093 /* ^ */
4094 #ifdef DB_TXN_LOG_UNDO
4095 *iv_return = DB_TXN_LOG_UNDO;
4096 return PERL_constant_ISIV;
4097 #else
4098 return PERL_constant_NOTDEF;
4099 #endif
4100 }
4101 break;
4102 }
4103 return PERL_constant_NOTFOUND;
4104 }
4105
4106 static int
constant_16(pTHX_ const char * name,IV * iv_return)4107 constant_16 (pTHX_ const char *name, IV *iv_return) {
4108 /* When generated this function returned values for the list of names given
4109 here. However, subsequent manual editing may have added or removed some.
4110 DB_BACKUP_UPDATE DB_CACHED_COUNTS DB_COMPACT_FLAGS DB_DATABASE_LOCK
4111 DB_EID_BROADCAST DB_ENV_CDB_ALLDB DB_ENV_DIRECT_DB DB_ENV_DSYNC_LOG
4112 DB_ENV_HOTBACKUP DB_ENV_NOLOCKING DB_ENV_OVERWRITE DB_ENV_RPCCLIENT
4113 DB_FCNTL_LOCKING DB_FOREIGN_ABORT DB_FREELIST_ONLY DB_GROUP_CREATOR
4114 DB_IMMUTABLE_KEY DB_JAVA_CALLBACK DB_LOCK_CONFLICT DB_LOCK_DEADLOCK
4115 DB_LOCK_MAXLOCKS DB_LOCK_MAXWRITE DB_LOCK_MINLOCKS DB_LOCK_MINWRITE
4116 DB_LOCK_NOTEXIST DB_LOCK_PUT_READ DB_LOCK_YOUNGEST DB_LOGC_BUF_SIZE
4117 DB_LOG_IN_MEMORY DB_MPOOL_DISCARD DB_MPOOL_PRIVATE DB_NOSERVER_HOME
4118 DB_NO_CHECKPOINT DB_OVERWRITE_DUP DB_PAGE_NOTFOUND DB_PRIORITY_HIGH
4119 DB_RECOVER_FATAL DB_REPFLAGS_MASK DB_REPMGR_ISPEER DB_REPMGR_ISVIEW
4120 DB_REP_CONF_BULK DB_REP_DUPMASTER DB_REP_NEWMASTER DB_REP_PERMANENT
4121 DB_REP_REREQUEST DB_SA_UNKNOWNKEY DB_SECONDARY_BAD DB_SEQ_RANGE_SET
4122 DB_SLICE_CORRUPT DB_TEST_POSTOPEN DB_TEST_POSTSYNC DB_TXN_LOCK_MASK
4123 DB_TXN_OPENFILES DB_VERB_CHKPOINT DB_VERB_DEADLOCK DB_VERB_RECOVERY
4124 DB_VERB_REGISTER DB_VERB_REP_MISC DB_VERB_REP_MSGS DB_VERB_REP_SYNC
4125 DB_VERB_REP_TEST DB_VERB_WAITSFOR DB_VERSION_MAJOR DB_VERSION_MINOR
4126 DB_VERSION_PATCH DB_VRFY_FLAGMASK */
4127 /* Offset 10 gives the best switch position. */
4128 switch (name[10]) {
4129 case 'A':
4130 if (memEQ(name, "DB_EID_BROADCAST", 16)) {
4131 /* ^ */
4132 #ifdef DB_EID_BROADCAST
4133 *iv_return = DB_EID_BROADCAST;
4134 return PERL_constant_ISIV;
4135 #else
4136 return PERL_constant_NOTDEF;
4137 #endif
4138 }
4139 if (memEQ(name, "DB_LOCK_DEADLOCK", 16)) {
4140 /* ^ */
4141 #ifdef DB_LOCK_DEADLOCK
4142 *iv_return = DB_LOCK_DEADLOCK;
4143 return PERL_constant_ISIV;
4144 #else
4145 return PERL_constant_NOTDEF;
4146 #endif
4147 }
4148 if (memEQ(name, "DB_VERB_DEADLOCK", 16)) {
4149 /* ^ */
4150 #ifdef DB_VERB_DEADLOCK
4151 *iv_return = DB_VERB_DEADLOCK;
4152 return PERL_constant_ISIV;
4153 #else
4154 return PERL_constant_NOTDEF;
4155 #endif
4156 }
4157 if (memEQ(name, "DB_VRFY_FLAGMASK", 16)) {
4158 /* ^ */
4159 #ifdef DB_VRFY_FLAGMASK
4160 *iv_return = DB_VRFY_FLAGMASK;
4161 return PERL_constant_ISIV;
4162 #else
4163 return PERL_constant_NOTDEF;
4164 #endif
4165 }
4166 break;
4167 case 'B':
4168 if (memEQ(name, "DB_ENV_HOTBACKUP", 16)) {
4169 /* ^ */
4170 #ifdef DB_ENV_HOTBACKUP
4171 *iv_return = DB_ENV_HOTBACKUP;
4172 return PERL_constant_ISIV;
4173 #else
4174 return PERL_constant_NOTDEF;
4175 #endif
4176 }
4177 break;
4178 case 'C':
4179 if (memEQ(name, "DB_CACHED_COUNTS", 16)) {
4180 /* ^ */
4181 #ifdef DB_CACHED_COUNTS
4182 *iv_return = DB_CACHED_COUNTS;
4183 return PERL_constant_ISIV;
4184 #else
4185 return PERL_constant_NOTDEF;
4186 #endif
4187 }
4188 if (memEQ(name, "DB_ENV_RPCCLIENT", 16)) {
4189 /* ^ */
4190 #ifdef DB_ENV_RPCCLIENT
4191 *iv_return = DB_ENV_RPCCLIENT;
4192 return PERL_constant_ISIV;
4193 #else
4194 return PERL_constant_NOTDEF;
4195 #endif
4196 }
4197 if (memEQ(name, "DB_VERB_RECOVERY", 16)) {
4198 /* ^ */
4199 #ifdef DB_VERB_RECOVERY
4200 *iv_return = DB_VERB_RECOVERY;
4201 return PERL_constant_ISIV;
4202 #else
4203 return PERL_constant_NOTDEF;
4204 #endif
4205 }
4206 break;
4207 case 'E':
4208 if (memEQ(name, "DB_DATABASE_LOCK", 16)) {
4209 /* ^ */
4210 #ifdef DB_DATABASE_LOCK
4211 *iv_return = DB_DATABASE_LOCK;
4212 return PERL_constant_ISIV;
4213 #else
4214 return PERL_constant_NOTDEF;
4215 #endif
4216 }
4217 if (memEQ(name, "DB_ENV_DIRECT_DB", 16)) {
4218 /* ^ */
4219 #ifdef DB_ENV_DIRECT_DB
4220 *iv_return = DB_ENV_DIRECT_DB;
4221 return PERL_constant_ISIV;
4222 #else
4223 return PERL_constant_NOTDEF;
4224 #endif
4225 }
4226 if (memEQ(name, "DB_REP_REREQUEST", 16)) {
4227 /* ^ */
4228 #ifdef DB_REP_REREQUEST
4229 *iv_return = DB_REP_REREQUEST;
4230 return PERL_constant_ISIV;
4231 #else
4232 return PERL_constant_NOTDEF;
4233 #endif
4234 }
4235 break;
4236 case 'F':
4237 if (memEQ(name, "DB_LOGC_BUF_SIZE", 16)) {
4238 /* ^ */
4239 #ifdef DB_LOGC_BUF_SIZE
4240 *iv_return = DB_LOGC_BUF_SIZE;
4241 return PERL_constant_ISIV;
4242 #else
4243 return PERL_constant_NOTDEF;
4244 #endif
4245 }
4246 if (memEQ(name, "DB_REP_CONF_BULK", 16)) {
4247 /* ^ */
4248 #ifdef DB_REP_CONF_BULK
4249 *iv_return = DB_REP_CONF_BULK;
4250 return PERL_constant_ISIV;
4251 #else
4252 return PERL_constant_NOTDEF;
4253 #endif
4254 }
4255 break;
4256 case 'G':
4257 if (memEQ(name, "DB_SEQ_RANGE_SET", 16)) {
4258 /* ^ */
4259 #ifdef DB_SEQ_RANGE_SET
4260 *iv_return = DB_SEQ_RANGE_SET;
4261 return PERL_constant_ISIV;
4262 #else
4263 return PERL_constant_NOTDEF;
4264 #endif
4265 }
4266 if (memEQ(name, "DB_VERB_REGISTER", 16)) {
4267 /* ^ */
4268 #ifdef DB_VERB_REGISTER
4269 *iv_return = DB_VERB_REGISTER;
4270 return PERL_constant_ISIV;
4271 #else
4272 return PERL_constant_NOTDEF;
4273 #endif
4274 }
4275 break;
4276 case 'I':
4277 if (memEQ(name, "DB_MPOOL_DISCARD", 16)) {
4278 /* ^ */
4279 #ifdef DB_MPOOL_DISCARD
4280 *iv_return = DB_MPOOL_DISCARD;
4281 return PERL_constant_ISIV;
4282 #else
4283 return PERL_constant_NOTDEF;
4284 #endif
4285 }
4286 if (memEQ(name, "DB_REPMGR_ISPEER", 16)) {
4287 /* ^ */
4288 #ifdef DB_REPMGR_ISPEER
4289 *iv_return = DB_REPMGR_ISPEER;
4290 return PERL_constant_ISIV;
4291 #else
4292 return PERL_constant_NOTDEF;
4293 #endif
4294 }
4295 if (memEQ(name, "DB_REPMGR_ISVIEW", 16)) {
4296 /* ^ */
4297 #ifdef DB_REPMGR_ISVIEW
4298 *iv_return = DB_REPMGR_ISVIEW;
4299 return PERL_constant_ISIV;
4300 #else
4301 return PERL_constant_NOTDEF;
4302 #endif
4303 }
4304 if (memEQ(name, "DB_VERB_WAITSFOR", 16)) {
4305 /* ^ */
4306 #ifdef DB_VERB_WAITSFOR
4307 *iv_return = DB_VERB_WAITSFOR;
4308 return PERL_constant_ISIV;
4309 #else
4310 return PERL_constant_NOTDEF;
4311 #endif
4312 }
4313 break;
4314 case 'K':
4315 if (memEQ(name, "DB_NO_CHECKPOINT", 16)) {
4316 /* ^ */
4317 #ifdef DB_NO_CHECKPOINT
4318 *iv_return = DB_NO_CHECKPOINT;
4319 return PERL_constant_ISIV;
4320 #else
4321 return PERL_constant_NOTDEF;
4322 #endif
4323 }
4324 if (memEQ(name, "DB_TXN_LOCK_MASK", 16)) {
4325 /* ^ */
4326 #ifdef DB_TXN_LOCK_MASK
4327 *iv_return = DB_TXN_LOCK_MASK;
4328 return PERL_constant_ISIV;
4329 #else
4330 return PERL_constant_NOTDEF;
4331 #endif
4332 }
4333 if (memEQ(name, "DB_VERB_CHKPOINT", 16)) {
4334 /* ^ */
4335 #ifdef DB_VERB_CHKPOINT
4336 *iv_return = DB_VERB_CHKPOINT;
4337 return PERL_constant_ISIV;
4338 #else
4339 return PERL_constant_NOTDEF;
4340 #endif
4341 }
4342 break;
4343 case 'L':
4344 if (memEQ(name, "DB_IMMUTABLE_KEY", 16)) {
4345 /* ^ */
4346 #ifdef DB_IMMUTABLE_KEY
4347 *iv_return = DB_IMMUTABLE_KEY;
4348 return PERL_constant_ISIV;
4349 #else
4350 return PERL_constant_NOTDEF;
4351 #endif
4352 }
4353 if (memEQ(name, "DB_JAVA_CALLBACK", 16)) {
4354 /* ^ */
4355 #ifdef DB_JAVA_CALLBACK
4356 *iv_return = DB_JAVA_CALLBACK;
4357 return PERL_constant_ISIV;
4358 #else
4359 return PERL_constant_NOTDEF;
4360 #endif
4361 }
4362 break;
4363 case 'M':
4364 if (memEQ(name, "DB_LOG_IN_MEMORY", 16)) {
4365 /* ^ */
4366 #ifdef DB_LOG_IN_MEMORY
4367 *iv_return = DB_LOG_IN_MEMORY;
4368 return PERL_constant_ISIV;
4369 #else
4370 return PERL_constant_NOTDEF;
4371 #endif
4372 }
4373 if (memEQ(name, "DB_REP_DUPMASTER", 16)) {
4374 /* ^ */
4375 #ifdef DB_REP_DUPMASTER
4376 *iv_return = DB_REP_DUPMASTER;
4377 return PERL_constant_ISIV;
4378 #else
4379 return PERL_constant_NOTDEF;
4380 #endif
4381 }
4382 if (memEQ(name, "DB_REP_NEWMASTER", 16)) {
4383 /* ^ */
4384 #ifdef DB_REP_NEWMASTER
4385 *iv_return = DB_REP_NEWMASTER;
4386 return PERL_constant_ISIV;
4387 #else
4388 return PERL_constant_NOTDEF;
4389 #endif
4390 }
4391 if (memEQ(name, "DB_REP_PERMANENT", 16)) {
4392 /* ^ */
4393 #ifdef DB_REP_PERMANENT
4394 *iv_return = DB_REP_PERMANENT;
4395 return PERL_constant_ISIV;
4396 #else
4397 return PERL_constant_NOTDEF;
4398 #endif
4399 }
4400 break;
4401 case 'N':
4402 if (memEQ(name, "DB_ENV_DSYNC_LOG", 16)) {
4403 /* ^ */
4404 #ifdef DB_ENV_DSYNC_LOG
4405 *iv_return = DB_ENV_DSYNC_LOG;
4406 return PERL_constant_ISIV;
4407 #else
4408 return PERL_constant_NOTDEF;
4409 #endif
4410 }
4411 if (memEQ(name, "DB_LOCK_CONFLICT", 16)) {
4412 /* ^ */
4413 #ifdef DB_LOCK_CONFLICT
4414 *iv_return = DB_LOCK_CONFLICT;
4415 return PERL_constant_ISIV;
4416 #else
4417 return PERL_constant_NOTDEF;
4418 #endif
4419 }
4420 if (memEQ(name, "DB_LOCK_MINLOCKS", 16)) {
4421 /* ^ */
4422 #ifdef DB_LOCK_MINLOCKS
4423 *iv_return = DB_LOCK_MINLOCKS;
4424 return PERL_constant_ISIV;
4425 #else
4426 return PERL_constant_NOTDEF;
4427 #endif
4428 }
4429 if (memEQ(name, "DB_LOCK_MINWRITE", 16)) {
4430 /* ^ */
4431 #ifdef DB_LOCK_MINWRITE
4432 *iv_return = DB_LOCK_MINWRITE;
4433 return PERL_constant_ISIV;
4434 #else
4435 return PERL_constant_NOTDEF;
4436 #endif
4437 }
4438 if (memEQ(name, "DB_TXN_OPENFILES", 16)) {
4439 /* ^ */
4440 #if (DB_VERSION_MAJOR > 3) || \
4441 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \
4442 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \
4443 DB_VERSION_PATCH >= 14)
4444 *iv_return = DB_TXN_OPENFILES;
4445 return PERL_constant_ISIV;
4446 #else
4447 return PERL_constant_NOTDEF;
4448 #endif
4449 }
4450 break;
4451 case 'O':
4452 if (memEQ(name, "DB_ENV_NOLOCKING", 16)) {
4453 /* ^ */
4454 #ifdef DB_ENV_NOLOCKING
4455 *iv_return = DB_ENV_NOLOCKING;
4456 return PERL_constant_ISIV;
4457 #else
4458 return PERL_constant_NOTDEF;
4459 #endif
4460 }
4461 if (memEQ(name, "DB_FCNTL_LOCKING", 16)) {
4462 /* ^ */
4463 #ifdef DB_FCNTL_LOCKING
4464 *iv_return = DB_FCNTL_LOCKING;
4465 return PERL_constant_ISIV;
4466 #else
4467 return PERL_constant_NOTDEF;
4468 #endif
4469 }
4470 if (memEQ(name, "DB_SA_UNKNOWNKEY", 16)) {
4471 /* ^ */
4472 #ifdef DB_SA_UNKNOWNKEY
4473 *iv_return = DB_SA_UNKNOWNKEY;
4474 return PERL_constant_ISIV;
4475 #else
4476 return PERL_constant_NOTDEF;
4477 #endif
4478 }
4479 if (memEQ(name, "DB_SLICE_CORRUPT", 16)) {
4480 /* ^ */
4481 #ifdef DB_SLICE_CORRUPT
4482 *iv_return = DB_SLICE_CORRUPT;
4483 return PERL_constant_ISIV;
4484 #else
4485 return PERL_constant_NOTDEF;
4486 #endif
4487 }
4488 break;
4489 case 'P':
4490 if (memEQ(name, "DB_VERB_REP_MISC", 16)) {
4491 /* ^ */
4492 #ifdef DB_VERB_REP_MISC
4493 *iv_return = DB_VERB_REP_MISC;
4494 return PERL_constant_ISIV;
4495 #else
4496 return PERL_constant_NOTDEF;
4497 #endif
4498 }
4499 if (memEQ(name, "DB_VERB_REP_MSGS", 16)) {
4500 /* ^ */
4501 #ifdef DB_VERB_REP_MSGS
4502 *iv_return = DB_VERB_REP_MSGS;
4503 return PERL_constant_ISIV;
4504 #else
4505 return PERL_constant_NOTDEF;
4506 #endif
4507 }
4508 if (memEQ(name, "DB_VERB_REP_SYNC", 16)) {
4509 /* ^ */
4510 #ifdef DB_VERB_REP_SYNC
4511 *iv_return = DB_VERB_REP_SYNC;
4512 return PERL_constant_ISIV;
4513 #else
4514 return PERL_constant_NOTDEF;
4515 #endif
4516 }
4517 if (memEQ(name, "DB_VERB_REP_TEST", 16)) {
4518 /* ^ */
4519 #ifdef DB_VERB_REP_TEST
4520 *iv_return = DB_VERB_REP_TEST;
4521 return PERL_constant_ISIV;
4522 #else
4523 return PERL_constant_NOTDEF;
4524 #endif
4525 }
4526 break;
4527 case 'R':
4528 if (memEQ(name, "DB_ENV_OVERWRITE", 16)) {
4529 /* ^ */
4530 #ifdef DB_ENV_OVERWRITE
4531 *iv_return = DB_ENV_OVERWRITE;
4532 return PERL_constant_ISIV;
4533 #else
4534 return PERL_constant_NOTDEF;
4535 #endif
4536 }
4537 if (memEQ(name, "DB_GROUP_CREATOR", 16)) {
4538 /* ^ */
4539 #ifdef DB_GROUP_CREATOR
4540 *iv_return = DB_GROUP_CREATOR;
4541 return PERL_constant_ISIV;
4542 #else
4543 return PERL_constant_NOTDEF;
4544 #endif
4545 }
4546 if (memEQ(name, "DB_MPOOL_PRIVATE", 16)) {
4547 /* ^ */
4548 #ifdef DB_MPOOL_PRIVATE
4549 *iv_return = DB_MPOOL_PRIVATE;
4550 return PERL_constant_ISIV;
4551 #else
4552 return PERL_constant_NOTDEF;
4553 #endif
4554 }
4555 if (memEQ(name, "DB_NOSERVER_HOME", 16)) {
4556 /* ^ */
4557 #ifdef DB_NOSERVER_HOME
4558 *iv_return = DB_NOSERVER_HOME;
4559 return PERL_constant_ISIV;
4560 #else
4561 return PERL_constant_NOTDEF;
4562 #endif
4563 }
4564 if (memEQ(name, "DB_SECONDARY_BAD", 16)) {
4565 /* ^ */
4566 #ifdef DB_SECONDARY_BAD
4567 *iv_return = DB_SECONDARY_BAD;
4568 return PERL_constant_ISIV;
4569 #else
4570 return PERL_constant_NOTDEF;
4571 #endif
4572 }
4573 break;
4574 case 'S':
4575 if (memEQ(name, "DB_REPFLAGS_MASK", 16)) {
4576 /* ^ */
4577 #ifdef DB_REPFLAGS_MASK
4578 *iv_return = DB_REPFLAGS_MASK;
4579 return PERL_constant_ISIV;
4580 #else
4581 return PERL_constant_NOTDEF;
4582 #endif
4583 }
4584 if (memEQ(name, "DB_TEST_POSTOPEN", 16)) {
4585 /* ^ */
4586 #ifdef DB_TEST_POSTOPEN
4587 *iv_return = DB_TEST_POSTOPEN;
4588 return PERL_constant_ISIV;
4589 #else
4590 return PERL_constant_NOTDEF;
4591 #endif
4592 }
4593 if (memEQ(name, "DB_TEST_POSTSYNC", 16)) {
4594 /* ^ */
4595 #ifdef DB_TEST_POSTSYNC
4596 *iv_return = DB_TEST_POSTSYNC;
4597 return PERL_constant_ISIV;
4598 #else
4599 return PERL_constant_NOTDEF;
4600 #endif
4601 }
4602 break;
4603 case 'T':
4604 if (memEQ(name, "DB_FREELIST_ONLY", 16)) {
4605 /* ^ */
4606 #ifdef DB_FREELIST_ONLY
4607 *iv_return = DB_FREELIST_ONLY;
4608 return PERL_constant_ISIV;
4609 #else
4610 return PERL_constant_NOTDEF;
4611 #endif
4612 }
4613 if (memEQ(name, "DB_LOCK_NOTEXIST", 16)) {
4614 /* ^ */
4615 #ifdef DB_LOCK_NOTEXIST
4616 *iv_return = DB_LOCK_NOTEXIST;
4617 return PERL_constant_ISIV;
4618 #else
4619 return PERL_constant_NOTDEF;
4620 #endif
4621 }
4622 if (memEQ(name, "DB_LOCK_PUT_READ", 16)) {
4623 /* ^ */
4624 #if (DB_VERSION_MAJOR > 4) || \
4625 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \
4626 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \
4627 DB_VERSION_PATCH >= 14)
4628 *iv_return = DB_LOCK_PUT_READ;
4629 return PERL_constant_ISIV;
4630 #else
4631 return PERL_constant_NOTDEF;
4632 #endif
4633 }
4634 if (memEQ(name, "DB_OVERWRITE_DUP", 16)) {
4635 /* ^ */
4636 #ifdef DB_OVERWRITE_DUP
4637 *iv_return = DB_OVERWRITE_DUP;
4638 return PERL_constant_ISIV;
4639 #else
4640 return PERL_constant_NOTDEF;
4641 #endif
4642 }
4643 if (memEQ(name, "DB_PAGE_NOTFOUND", 16)) {
4644 /* ^ */
4645 #ifdef DB_PAGE_NOTFOUND
4646 *iv_return = DB_PAGE_NOTFOUND;
4647 return PERL_constant_ISIV;
4648 #else
4649 return PERL_constant_NOTDEF;
4650 #endif
4651 }
4652 break;
4653 case 'U':
4654 if (memEQ(name, "DB_BACKUP_UPDATE", 16)) {
4655 /* ^ */
4656 #ifdef DB_BACKUP_UPDATE
4657 *iv_return = DB_BACKUP_UPDATE;
4658 return PERL_constant_ISIV;
4659 #else
4660 return PERL_constant_NOTDEF;
4661 #endif
4662 }
4663 if (memEQ(name, "DB_LOCK_YOUNGEST", 16)) {
4664 /* ^ */
4665 #ifdef DB_LOCK_YOUNGEST
4666 *iv_return = DB_LOCK_YOUNGEST;
4667 return PERL_constant_ISIV;
4668 #else
4669 return PERL_constant_NOTDEF;
4670 #endif
4671 }
4672 break;
4673 case 'X':
4674 if (memEQ(name, "DB_LOCK_MAXLOCKS", 16)) {
4675 /* ^ */
4676 #ifdef DB_LOCK_MAXLOCKS
4677 *iv_return = DB_LOCK_MAXLOCKS;
4678 return PERL_constant_ISIV;
4679 #else
4680 return PERL_constant_NOTDEF;
4681 #endif
4682 }
4683 if (memEQ(name, "DB_LOCK_MAXWRITE", 16)) {
4684 /* ^ */
4685 #ifdef DB_LOCK_MAXWRITE
4686 *iv_return = DB_LOCK_MAXWRITE;
4687 return PERL_constant_ISIV;
4688 #else
4689 return PERL_constant_NOTDEF;
4690 #endif
4691 }
4692 break;
4693 case 'Y':
4694 if (memEQ(name, "DB_PRIORITY_HIGH", 16)) {
4695 /* ^ */
4696 #if (DB_VERSION_MAJOR > 4) || \
4697 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
4698 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
4699 DB_VERSION_PATCH >= 24)
4700 *iv_return = DB_PRIORITY_HIGH;
4701 return PERL_constant_ISIV;
4702 #else
4703 return PERL_constant_NOTDEF;
4704 #endif
4705 }
4706 break;
4707 case '_':
4708 if (memEQ(name, "DB_COMPACT_FLAGS", 16)) {
4709 /* ^ */
4710 #ifdef DB_COMPACT_FLAGS
4711 *iv_return = DB_COMPACT_FLAGS;
4712 return PERL_constant_ISIV;
4713 #else
4714 return PERL_constant_NOTDEF;
4715 #endif
4716 }
4717 if (memEQ(name, "DB_ENV_CDB_ALLDB", 16)) {
4718 /* ^ */
4719 #ifdef DB_ENV_CDB_ALLDB
4720 *iv_return = DB_ENV_CDB_ALLDB;
4721 return PERL_constant_ISIV;
4722 #else
4723 return PERL_constant_NOTDEF;
4724 #endif
4725 }
4726 if (memEQ(name, "DB_FOREIGN_ABORT", 16)) {
4727 /* ^ */
4728 #ifdef DB_FOREIGN_ABORT
4729 *iv_return = DB_FOREIGN_ABORT;
4730 return PERL_constant_ISIV;
4731 #else
4732 return PERL_constant_NOTDEF;
4733 #endif
4734 }
4735 if (memEQ(name, "DB_RECOVER_FATAL", 16)) {
4736 /* ^ */
4737 #ifdef DB_RECOVER_FATAL
4738 *iv_return = DB_RECOVER_FATAL;
4739 return PERL_constant_ISIV;
4740 #else
4741 return PERL_constant_NOTDEF;
4742 #endif
4743 }
4744 if (memEQ(name, "DB_VERSION_MAJOR", 16)) {
4745 /* ^ */
4746 #ifdef DB_VERSION_MAJOR
4747 *iv_return = DB_VERSION_MAJOR;
4748 return PERL_constant_ISIV;
4749 #else
4750 return PERL_constant_NOTDEF;
4751 #endif
4752 }
4753 if (memEQ(name, "DB_VERSION_MINOR", 16)) {
4754 /* ^ */
4755 #ifdef DB_VERSION_MINOR
4756 *iv_return = DB_VERSION_MINOR;
4757 return PERL_constant_ISIV;
4758 #else
4759 return PERL_constant_NOTDEF;
4760 #endif
4761 }
4762 if (memEQ(name, "DB_VERSION_PATCH", 16)) {
4763 /* ^ */
4764 #ifdef DB_VERSION_PATCH
4765 *iv_return = DB_VERSION_PATCH;
4766 return PERL_constant_ISIV;
4767 #else
4768 return PERL_constant_NOTDEF;
4769 #endif
4770 }
4771 break;
4772 }
4773 return PERL_constant_NOTFOUND;
4774 }
4775
4776 static int
constant_17(pTHX_ const char * name,IV * iv_return,const char ** pv_return)4777 constant_17 (pTHX_ const char *name, IV *iv_return, const char **pv_return) {
4778 /* When generated this function returned values for the list of names given
4779 here. However, subsequent manual editing may have added or removed some.
4780 DB_BACKUP_NO_LOGS DB_ENV_DIRECT_LOG DB_ENV_REP_CLIENT DB_ENV_REP_MASTER
4781 DB_ENV_STANDALONE DB_ENV_SYSTEM_MEM DB_ENV_TXN_NOSYNC DB_ENV_TXN_NOWAIT
4782 DB_ENV_USER_ALLOC DB_GET_BOTH_RANGE DB_LOG_AUTOREMOVE DB_LOG_SILENT_ERR
4783 DB_LOG_VERIFY_BAD DB_LOG_VERIFY_CAF DB_LOG_VERIFY_ERR DB_MEM_LOCKOBJECT
4784 DB_NO_AUTO_COMMIT DB_READ_COMMITTED DB_REP_CONF_INMEM DB_REP_CONF_LEASE
4785 DB_REP_PAGELOCKED DB_RPC_SERVERPROG DB_RPC_SERVERVERS DB_STAT_LOCK_CONF
4786 DB_STAT_MEMP_HASH DB_STAT_SUBSYSTEM DB_TEST_ELECTINIT DB_TEST_ELECTSEND
4787 DB_TEST_PRERENAME DB_TXN_LOG_VERIFY DB_TXN_POPENFILES DB_TXN_TOKEN_SIZE
4788 DB_VERB_REP_ELECT DB_VERB_REP_LEASE DB_VERSION_FAMILY DB_VERSION_STRING */
4789 /* Offset 13 gives the best switch position. */
4790 switch (name[13]) {
4791 case 'A':
4792 if (memEQ(name, "DB_GET_BOTH_RANGE", 17)) {
4793 /* ^ */
4794 #ifdef DB_GET_BOTH_RANGE
4795 *iv_return = DB_GET_BOTH_RANGE;
4796 return PERL_constant_ISIV;
4797 #else
4798 return PERL_constant_NOTDEF;
4799 #endif
4800 }
4801 break;
4802 case 'C':
4803 if (memEQ(name, "DB_REP_PAGELOCKED", 17)) {
4804 /* ^ */
4805 #ifdef DB_REP_PAGELOCKED
4806 *iv_return = DB_REP_PAGELOCKED;
4807 return PERL_constant_ISIV;
4808 #else
4809 return PERL_constant_NOTDEF;
4810 #endif
4811 }
4812 if (memEQ(name, "DB_STAT_LOCK_CONF", 17)) {
4813 /* ^ */
4814 #ifdef DB_STAT_LOCK_CONF
4815 *iv_return = DB_STAT_LOCK_CONF;
4816 return PERL_constant_ISIV;
4817 #else
4818 return PERL_constant_NOTDEF;
4819 #endif
4820 }
4821 break;
4822 case 'E':
4823 if (memEQ(name, "DB_REP_CONF_LEASE", 17)) {
4824 /* ^ */
4825 #ifdef DB_REP_CONF_LEASE
4826 *iv_return = DB_REP_CONF_LEASE;
4827 return PERL_constant_ISIV;
4828 #else
4829 return PERL_constant_NOTDEF;
4830 #endif
4831 }
4832 if (memEQ(name, "DB_VERB_REP_LEASE", 17)) {
4833 /* ^ */
4834 #ifdef DB_VERB_REP_LEASE
4835 *iv_return = DB_VERB_REP_LEASE;
4836 return PERL_constant_ISIV;
4837 #else
4838 return PERL_constant_NOTDEF;
4839 #endif
4840 }
4841 break;
4842 case 'H':
4843 if (memEQ(name, "DB_STAT_MEMP_HASH", 17)) {
4844 /* ^ */
4845 #ifdef DB_STAT_MEMP_HASH
4846 *iv_return = DB_STAT_MEMP_HASH;
4847 return PERL_constant_ISIV;
4848 #else
4849 return PERL_constant_NOTDEF;
4850 #endif
4851 }
4852 break;
4853 case 'I':
4854 if (memEQ(name, "DB_ENV_REP_CLIENT", 17)) {
4855 /* ^ */
4856 #ifdef DB_ENV_REP_CLIENT
4857 *iv_return = DB_ENV_REP_CLIENT;
4858 return PERL_constant_ISIV;
4859 #else
4860 return PERL_constant_NOTDEF;
4861 #endif
4862 }
4863 if (memEQ(name, "DB_TEST_ELECTINIT", 17)) {
4864 /* ^ */
4865 #ifdef DB_TEST_ELECTINIT
4866 *iv_return = DB_TEST_ELECTINIT;
4867 return PERL_constant_ISIV;
4868 #else
4869 return PERL_constant_NOTDEF;
4870 #endif
4871 }
4872 if (memEQ(name, "DB_TXN_POPENFILES", 17)) {
4873 /* ^ */
4874 #if (DB_VERSION_MAJOR > 4) || \
4875 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \
4876 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \
4877 DB_VERSION_PATCH >= 14)
4878 *iv_return = DB_TXN_POPENFILES;
4879 return PERL_constant_ISIV;
4880 #else
4881 return PERL_constant_NOTDEF;
4882 #endif
4883 }
4884 break;
4885 case 'J':
4886 if (memEQ(name, "DB_MEM_LOCKOBJECT", 17)) {
4887 /* ^ */
4888 #if (DB_VERSION_MAJOR > 5) || \
4889 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 2) || \
4890 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 2 && \
4891 DB_VERSION_PATCH >= 10)
4892 *iv_return = DB_MEM_LOCKOBJECT;
4893 return PERL_constant_ISIV;
4894 #else
4895 return PERL_constant_NOTDEF;
4896 #endif
4897 }
4898 break;
4899 case 'L':
4900 if (memEQ(name, "DB_BACKUP_NO_LOGS", 17)) {
4901 /* ^ */
4902 #ifdef DB_BACKUP_NO_LOGS
4903 *iv_return = DB_BACKUP_NO_LOGS;
4904 return PERL_constant_ISIV;
4905 #else
4906 return PERL_constant_NOTDEF;
4907 #endif
4908 }
4909 if (memEQ(name, "DB_ENV_STANDALONE", 17)) {
4910 /* ^ */
4911 #ifdef DB_ENV_STANDALONE
4912 *iv_return = DB_ENV_STANDALONE;
4913 return PERL_constant_ISIV;
4914 #else
4915 return PERL_constant_NOTDEF;
4916 #endif
4917 }
4918 if (memEQ(name, "DB_ENV_USER_ALLOC", 17)) {
4919 /* ^ */
4920 #ifdef DB_ENV_USER_ALLOC
4921 *iv_return = DB_ENV_USER_ALLOC;
4922 return PERL_constant_ISIV;
4923 #else
4924 return PERL_constant_NOTDEF;
4925 #endif
4926 }
4927 if (memEQ(name, "DB_VERB_REP_ELECT", 17)) {
4928 /* ^ */
4929 #ifdef DB_VERB_REP_ELECT
4930 *iv_return = DB_VERB_REP_ELECT;
4931 return PERL_constant_ISIV;
4932 #else
4933 return PERL_constant_NOTDEF;
4934 #endif
4935 }
4936 break;
4937 case 'M':
4938 if (memEQ(name, "DB_LOG_AUTOREMOVE", 17)) {
4939 /* ^ */
4940 #ifdef DB_LOG_AUTOREMOVE
4941 *iv_return = DB_LOG_AUTOREMOVE;
4942 return PERL_constant_ISIV;
4943 #else
4944 return PERL_constant_NOTDEF;
4945 #endif
4946 }
4947 if (memEQ(name, "DB_NO_AUTO_COMMIT", 17)) {
4948 /* ^ */
4949 #ifdef DB_NO_AUTO_COMMIT
4950 *iv_return = DB_NO_AUTO_COMMIT;
4951 return PERL_constant_ISIV;
4952 #else
4953 return PERL_constant_NOTDEF;
4954 #endif
4955 }
4956 if (memEQ(name, "DB_VERSION_FAMILY", 17)) {
4957 /* ^ */
4958 #ifdef DB_VERSION_FAMILY
4959 *iv_return = DB_VERSION_FAMILY;
4960 return PERL_constant_ISIV;
4961 #else
4962 return PERL_constant_NOTDEF;
4963 #endif
4964 }
4965 break;
4966 case 'N':
4967 if (memEQ(name, "DB_REP_CONF_INMEM", 17)) {
4968 /* ^ */
4969 #ifdef DB_REP_CONF_INMEM
4970 *iv_return = DB_REP_CONF_INMEM;
4971 return PERL_constant_ISIV;
4972 #else
4973 return PERL_constant_NOTDEF;
4974 #endif
4975 }
4976 if (memEQ(name, "DB_TEST_PRERENAME", 17)) {
4977 /* ^ */
4978 #ifdef DB_TEST_PRERENAME
4979 *iv_return = DB_TEST_PRERENAME;
4980 return PERL_constant_ISIV;
4981 #else
4982 return PERL_constant_NOTDEF;
4983 #endif
4984 }
4985 break;
4986 case 'P':
4987 if (memEQ(name, "DB_RPC_SERVERPROG", 17)) {
4988 /* ^ */
4989 #ifdef DB_RPC_SERVERPROG
4990 *iv_return = DB_RPC_SERVERPROG;
4991 return PERL_constant_ISIV;
4992 #else
4993 return PERL_constant_NOTDEF;
4994 #endif
4995 }
4996 break;
4997 case 'R':
4998 if (memEQ(name, "DB_TXN_LOG_VERIFY", 17)) {
4999 /* ^ */
5000 #if (DB_VERSION_MAJOR > 5) || \
5001 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \
5002 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \
5003 DB_VERSION_PATCH >= 21)
5004 *iv_return = DB_TXN_LOG_VERIFY;
5005 return PERL_constant_ISIV;
5006 #else
5007 return PERL_constant_NOTDEF;
5008 #endif
5009 }
5010 if (memEQ(name, "DB_VERSION_STRING", 17)) {
5011 /* ^ */
5012 #ifdef DB_VERSION_STRING
5013 *pv_return = DB_VERSION_STRING;
5014 return PERL_constant_ISPV;
5015 #else
5016 return PERL_constant_NOTDEF;
5017 #endif
5018 }
5019 break;
5020 case 'S':
5021 if (memEQ(name, "DB_ENV_REP_MASTER", 17)) {
5022 /* ^ */
5023 #ifdef DB_ENV_REP_MASTER
5024 *iv_return = DB_ENV_REP_MASTER;
5025 return PERL_constant_ISIV;
5026 #else
5027 return PERL_constant_NOTDEF;
5028 #endif
5029 }
5030 if (memEQ(name, "DB_ENV_TXN_NOSYNC", 17)) {
5031 /* ^ */
5032 #ifdef DB_ENV_TXN_NOSYNC
5033 *iv_return = DB_ENV_TXN_NOSYNC;
5034 return PERL_constant_ISIV;
5035 #else
5036 return PERL_constant_NOTDEF;
5037 #endif
5038 }
5039 if (memEQ(name, "DB_STAT_SUBSYSTEM", 17)) {
5040 /* ^ */
5041 #ifdef DB_STAT_SUBSYSTEM
5042 *iv_return = DB_STAT_SUBSYSTEM;
5043 return PERL_constant_ISIV;
5044 #else
5045 return PERL_constant_NOTDEF;
5046 #endif
5047 }
5048 if (memEQ(name, "DB_TEST_ELECTSEND", 17)) {
5049 /* ^ */
5050 #ifdef DB_TEST_ELECTSEND
5051 *iv_return = DB_TEST_ELECTSEND;
5052 return PERL_constant_ISIV;
5053 #else
5054 return PERL_constant_NOTDEF;
5055 #endif
5056 }
5057 if (memEQ(name, "DB_TXN_TOKEN_SIZE", 17)) {
5058 /* ^ */
5059 #ifdef DB_TXN_TOKEN_SIZE
5060 *iv_return = DB_TXN_TOKEN_SIZE;
5061 return PERL_constant_ISIV;
5062 #else
5063 return PERL_constant_NOTDEF;
5064 #endif
5065 }
5066 break;
5067 case 'T':
5068 if (memEQ(name, "DB_READ_COMMITTED", 17)) {
5069 /* ^ */
5070 #ifdef DB_READ_COMMITTED
5071 *iv_return = DB_READ_COMMITTED;
5072 return PERL_constant_ISIV;
5073 #else
5074 return PERL_constant_NOTDEF;
5075 #endif
5076 }
5077 break;
5078 case 'V':
5079 if (memEQ(name, "DB_RPC_SERVERVERS", 17)) {
5080 /* ^ */
5081 #ifdef DB_RPC_SERVERVERS
5082 *iv_return = DB_RPC_SERVERVERS;
5083 return PERL_constant_ISIV;
5084 #else
5085 return PERL_constant_NOTDEF;
5086 #endif
5087 }
5088 break;
5089 case 'W':
5090 if (memEQ(name, "DB_ENV_TXN_NOWAIT", 17)) {
5091 /* ^ */
5092 #ifdef DB_ENV_TXN_NOWAIT
5093 *iv_return = DB_ENV_TXN_NOWAIT;
5094 return PERL_constant_ISIV;
5095 #else
5096 return PERL_constant_NOTDEF;
5097 #endif
5098 }
5099 break;
5100 case '_':
5101 if (memEQ(name, "DB_ENV_DIRECT_LOG", 17)) {
5102 /* ^ */
5103 #ifdef DB_ENV_DIRECT_LOG
5104 *iv_return = DB_ENV_DIRECT_LOG;
5105 return PERL_constant_ISIV;
5106 #else
5107 return PERL_constant_NOTDEF;
5108 #endif
5109 }
5110 if (memEQ(name, "DB_ENV_SYSTEM_MEM", 17)) {
5111 /* ^ */
5112 #ifdef DB_ENV_SYSTEM_MEM
5113 *iv_return = DB_ENV_SYSTEM_MEM;
5114 return PERL_constant_ISIV;
5115 #else
5116 return PERL_constant_NOTDEF;
5117 #endif
5118 }
5119 if (memEQ(name, "DB_LOG_SILENT_ERR", 17)) {
5120 /* ^ */
5121 #ifdef DB_LOG_SILENT_ERR
5122 *iv_return = DB_LOG_SILENT_ERR;
5123 return PERL_constant_ISIV;
5124 #else
5125 return PERL_constant_NOTDEF;
5126 #endif
5127 }
5128 if (memEQ(name, "DB_LOG_VERIFY_BAD", 17)) {
5129 /* ^ */
5130 #ifdef DB_LOG_VERIFY_BAD
5131 *iv_return = DB_LOG_VERIFY_BAD;
5132 return PERL_constant_ISIV;
5133 #else
5134 return PERL_constant_NOTDEF;
5135 #endif
5136 }
5137 if (memEQ(name, "DB_LOG_VERIFY_CAF", 17)) {
5138 /* ^ */
5139 #ifdef DB_LOG_VERIFY_CAF
5140 *iv_return = DB_LOG_VERIFY_CAF;
5141 return PERL_constant_ISIV;
5142 #else
5143 return PERL_constant_NOTDEF;
5144 #endif
5145 }
5146 if (memEQ(name, "DB_LOG_VERIFY_ERR", 17)) {
5147 /* ^ */
5148 #ifdef DB_LOG_VERIFY_ERR
5149 *iv_return = DB_LOG_VERIFY_ERR;
5150 return PERL_constant_ISIV;
5151 #else
5152 return PERL_constant_NOTDEF;
5153 #endif
5154 }
5155 break;
5156 }
5157 return PERL_constant_NOTFOUND;
5158 }
5159
5160 static int
constant_18(pTHX_ const char * name,IV * iv_return)5161 constant_18 (pTHX_ const char *name, IV *iv_return) {
5162 /* When generated this function returned values for the list of names given
5163 here. However, subsequent manual editing may have added or removed some.
5164 DB_ALREADY_ABORTED DB_DURABLE_UNKNOWN DB_ENV_AUTO_COMMIT
5165 DB_ENV_OPEN_CALLED DB_ENV_REF_COUNTED DB_ENV_REGION_INIT
5166 DB_EVENT_REG_ALIVE DB_EVENT_REG_PANIC DB_FAILCHK_ISALIVE
5167 DB_FOREIGN_CASCADE DB_FOREIGN_NULLIFY DB_LOCK_IGNORE_REC
5168 DB_LOCK_NOTGRANTED DB_LOG_AUTO_REMOVE DB_LOG_BUFFER_FULL
5169 DB_LOG_NOT_DURABLE DB_MEM_TRANSACTION DB_MPOOL_NEW_GROUP
5170 DB_MUTEX_ALLOCATED DB_PR_RECOVERYTEST DB_REPMGR_ACKS_ALL
5171 DB_REPMGR_ACKS_ONE DB_REP_ACK_TIMEOUT DB_REP_CONF_NOWAIT
5172 DB_REP_HANDLE_DEAD DB_REP_STARTUPDONE DB_SA_SKIPFIRSTKEY
5173 DB_SEQUENCE_OLDVER DB_SET_REG_TIMEOUT DB_SET_TXN_TIMEOUT
5174 DB_TEST_ELECTVOTE1 DB_TEST_ELECTVOTE2 DB_TEST_ELECTWAIT1
5175 DB_TEST_ELECTWAIT2 DB_TEST_POSTRENAME DB_TEST_PREDESTROY
5176 DB_THREADID_STRLEN DB_TIME_NOTGRANTED DB_TXN_NOT_DURABLE
5177 DB_VERB_REP_SYSTEM DB_VERSION_RELEASE */
5178 /* Offset 13 gives the best switch position. */
5179 switch (name[13]) {
5180 case 'A':
5181 if (memEQ(name, "DB_ENV_OPEN_CALLED", 18)) {
5182 /* ^ */
5183 #ifdef DB_ENV_OPEN_CALLED
5184 *iv_return = DB_ENV_OPEN_CALLED;
5185 return PERL_constant_ISIV;
5186 #else
5187 return PERL_constant_NOTDEF;
5188 #endif
5189 }
5190 if (memEQ(name, "DB_EVENT_REG_ALIVE", 18)) {
5191 /* ^ */
5192 #ifdef DB_EVENT_REG_ALIVE
5193 *iv_return = DB_EVENT_REG_ALIVE;
5194 return PERL_constant_ISIV;
5195 #else
5196 return PERL_constant_NOTDEF;
5197 #endif
5198 }
5199 if (memEQ(name, "DB_FAILCHK_ISALIVE", 18)) {
5200 /* ^ */
5201 #ifdef DB_FAILCHK_ISALIVE
5202 *iv_return = DB_FAILCHK_ISALIVE;
5203 return PERL_constant_ISIV;
5204 #else
5205 return PERL_constant_NOTDEF;
5206 #endif
5207 }
5208 if (memEQ(name, "DB_LOCK_NOTGRANTED", 18)) {
5209 /* ^ */
5210 #ifdef DB_LOCK_NOTGRANTED
5211 *iv_return = DB_LOCK_NOTGRANTED;
5212 return PERL_constant_ISIV;
5213 #else
5214 return PERL_constant_NOTDEF;
5215 #endif
5216 }
5217 if (memEQ(name, "DB_TIME_NOTGRANTED", 18)) {
5218 /* ^ */
5219 #ifdef DB_TIME_NOTGRANTED
5220 *iv_return = DB_TIME_NOTGRANTED;
5221 return PERL_constant_ISIV;
5222 #else
5223 return PERL_constant_NOTDEF;
5224 #endif
5225 }
5226 break;
5227 case 'C':
5228 if (memEQ(name, "DB_MEM_TRANSACTION", 18)) {
5229 /* ^ */
5230 #if (DB_VERSION_MAJOR > 5) || \
5231 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 2) || \
5232 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 2 && \
5233 DB_VERSION_PATCH >= 10)
5234 *iv_return = DB_MEM_TRANSACTION;
5235 return PERL_constant_ISIV;
5236 #else
5237 return PERL_constant_NOTDEF;
5238 #endif
5239 }
5240 if (memEQ(name, "DB_MUTEX_ALLOCATED", 18)) {
5241 /* ^ */
5242 #ifdef DB_MUTEX_ALLOCATED
5243 *iv_return = DB_MUTEX_ALLOCATED;
5244 return PERL_constant_ISIV;
5245 #else
5246 return PERL_constant_NOTDEF;
5247 #endif
5248 }
5249 break;
5250 case 'E':
5251 if (memEQ(name, "DB_LOCK_IGNORE_REC", 18)) {
5252 /* ^ */
5253 #ifdef DB_LOCK_IGNORE_REC
5254 *iv_return = DB_LOCK_IGNORE_REC;
5255 return PERL_constant_ISIV;
5256 #else
5257 return PERL_constant_NOTDEF;
5258 #endif
5259 }
5260 if (memEQ(name, "DB_LOG_AUTO_REMOVE", 18)) {
5261 /* ^ */
5262 #ifdef DB_LOG_AUTO_REMOVE
5263 *iv_return = DB_LOG_AUTO_REMOVE;
5264 return PERL_constant_ISIV;
5265 #else
5266 return PERL_constant_NOTDEF;
5267 #endif
5268 }
5269 if (memEQ(name, "DB_TEST_POSTRENAME", 18)) {
5270 /* ^ */
5271 #ifdef DB_TEST_POSTRENAME
5272 *iv_return = DB_TEST_POSTRENAME;
5273 return PERL_constant_ISIV;
5274 #else
5275 return PERL_constant_NOTDEF;
5276 #endif
5277 }
5278 break;
5279 case 'G':
5280 if (memEQ(name, "DB_MPOOL_NEW_GROUP", 18)) {
5281 /* ^ */
5282 #ifdef DB_MPOOL_NEW_GROUP
5283 *iv_return = DB_MPOOL_NEW_GROUP;
5284 return PERL_constant_ISIV;
5285 #else
5286 return PERL_constant_NOTDEF;
5287 #endif
5288 }
5289 break;
5290 case 'K':
5291 if (memEQ(name, "DB_DURABLE_UNKNOWN", 18)) {
5292 /* ^ */
5293 #ifdef DB_DURABLE_UNKNOWN
5294 *iv_return = DB_DURABLE_UNKNOWN;
5295 return PERL_constant_ISIV;
5296 #else
5297 return PERL_constant_NOTDEF;
5298 #endif
5299 }
5300 break;
5301 case 'L':
5302 if (memEQ(name, "DB_FOREIGN_NULLIFY", 18)) {
5303 /* ^ */
5304 #ifdef DB_FOREIGN_NULLIFY
5305 *iv_return = DB_FOREIGN_NULLIFY;
5306 return PERL_constant_ISIV;
5307 #else
5308 return PERL_constant_NOTDEF;
5309 #endif
5310 }
5311 if (memEQ(name, "DB_SEQUENCE_OLDVER", 18)) {
5312 /* ^ */
5313 #ifdef DB_SEQUENCE_OLDVER
5314 *iv_return = DB_SEQUENCE_OLDVER;
5315 return PERL_constant_ISIV;
5316 #else
5317 return PERL_constant_NOTDEF;
5318 #endif
5319 }
5320 if (memEQ(name, "DB_VERSION_RELEASE", 18)) {
5321 /* ^ */
5322 #ifdef DB_VERSION_RELEASE
5323 *iv_return = DB_VERSION_RELEASE;
5324 return PERL_constant_ISIV;
5325 #else
5326 return PERL_constant_NOTDEF;
5327 #endif
5328 }
5329 break;
5330 case 'M':
5331 if (memEQ(name, "DB_REP_ACK_TIMEOUT", 18)) {
5332 /* ^ */
5333 #ifdef DB_REP_ACK_TIMEOUT
5334 *iv_return = DB_REP_ACK_TIMEOUT;
5335 return PERL_constant_ISIV;
5336 #else
5337 return PERL_constant_NOTDEF;
5338 #endif
5339 }
5340 if (memEQ(name, "DB_SET_REG_TIMEOUT", 18)) {
5341 /* ^ */
5342 #ifdef DB_SET_REG_TIMEOUT
5343 *iv_return = DB_SET_REG_TIMEOUT;
5344 return PERL_constant_ISIV;
5345 #else
5346 return PERL_constant_NOTDEF;
5347 #endif
5348 }
5349 if (memEQ(name, "DB_SET_TXN_TIMEOUT", 18)) {
5350 /* ^ */
5351 #ifdef DB_SET_TXN_TIMEOUT
5352 *iv_return = DB_SET_TXN_TIMEOUT;
5353 return PERL_constant_ISIV;
5354 #else
5355 return PERL_constant_NOTDEF;
5356 #endif
5357 }
5358 break;
5359 case 'O':
5360 if (memEQ(name, "DB_ALREADY_ABORTED", 18)) {
5361 /* ^ */
5362 #ifdef DB_ALREADY_ABORTED
5363 *iv_return = DB_ALREADY_ABORTED;
5364 return PERL_constant_ISIV;
5365 #else
5366 return PERL_constant_NOTDEF;
5367 #endif
5368 }
5369 if (memEQ(name, "DB_ENV_AUTO_COMMIT", 18)) {
5370 /* ^ */
5371 #ifdef DB_ENV_AUTO_COMMIT
5372 *iv_return = DB_ENV_AUTO_COMMIT;
5373 return PERL_constant_ISIV;
5374 #else
5375 return PERL_constant_NOTDEF;
5376 #endif
5377 }
5378 if (memEQ(name, "DB_REP_CONF_NOWAIT", 18)) {
5379 /* ^ */
5380 #ifdef DB_REP_CONF_NOWAIT
5381 *iv_return = DB_REP_CONF_NOWAIT;
5382 return PERL_constant_ISIV;
5383 #else
5384 return PERL_constant_NOTDEF;
5385 #endif
5386 }
5387 break;
5388 case 'P':
5389 if (memEQ(name, "DB_EVENT_REG_PANIC", 18)) {
5390 /* ^ */
5391 #ifdef DB_EVENT_REG_PANIC
5392 *iv_return = DB_EVENT_REG_PANIC;
5393 return PERL_constant_ISIV;
5394 #else
5395 return PERL_constant_NOTDEF;
5396 #endif
5397 }
5398 if (memEQ(name, "DB_REP_STARTUPDONE", 18)) {
5399 /* ^ */
5400 #ifdef DB_REP_STARTUPDONE
5401 *iv_return = DB_REP_STARTUPDONE;
5402 return PERL_constant_ISIV;
5403 #else
5404 return PERL_constant_NOTDEF;
5405 #endif
5406 }
5407 break;
5408 case 'R':
5409 if (memEQ(name, "DB_LOG_NOT_DURABLE", 18)) {
5410 /* ^ */
5411 #ifdef DB_LOG_NOT_DURABLE
5412 *iv_return = DB_LOG_NOT_DURABLE;
5413 return PERL_constant_ISIV;
5414 #else
5415 return PERL_constant_NOTDEF;
5416 #endif
5417 }
5418 if (memEQ(name, "DB_TXN_NOT_DURABLE", 18)) {
5419 /* ^ */
5420 #ifdef DB_TXN_NOT_DURABLE
5421 *iv_return = DB_TXN_NOT_DURABLE;
5422 return PERL_constant_ISIV;
5423 #else
5424 return PERL_constant_NOTDEF;
5425 #endif
5426 }
5427 break;
5428 case 'S':
5429 if (memEQ(name, "DB_FOREIGN_CASCADE", 18)) {
5430 /* ^ */
5431 #ifdef DB_FOREIGN_CASCADE
5432 *iv_return = DB_FOREIGN_CASCADE;
5433 return PERL_constant_ISIV;
5434 #else
5435 return PERL_constant_NOTDEF;
5436 #endif
5437 }
5438 if (memEQ(name, "DB_REPMGR_ACKS_ALL", 18)) {
5439 /* ^ */
5440 #ifdef DB_REPMGR_ACKS_ALL
5441 *iv_return = DB_REPMGR_ACKS_ALL;
5442 return PERL_constant_ISIV;
5443 #else
5444 return PERL_constant_NOTDEF;
5445 #endif
5446 }
5447 if (memEQ(name, "DB_REPMGR_ACKS_ONE", 18)) {
5448 /* ^ */
5449 #ifdef DB_REPMGR_ACKS_ONE
5450 *iv_return = DB_REPMGR_ACKS_ONE;
5451 return PERL_constant_ISIV;
5452 #else
5453 return PERL_constant_NOTDEF;
5454 #endif
5455 }
5456 if (memEQ(name, "DB_SA_SKIPFIRSTKEY", 18)) {
5457 /* ^ */
5458 #ifdef DB_SA_SKIPFIRSTKEY
5459 *iv_return = DB_SA_SKIPFIRSTKEY;
5460 return PERL_constant_ISIV;
5461 #else
5462 return PERL_constant_NOTDEF;
5463 #endif
5464 }
5465 if (memEQ(name, "DB_TEST_PREDESTROY", 18)) {
5466 /* ^ */
5467 #ifdef DB_TEST_PREDESTROY
5468 *iv_return = DB_TEST_PREDESTROY;
5469 return PERL_constant_ISIV;
5470 #else
5471 return PERL_constant_NOTDEF;
5472 #endif
5473 }
5474 break;
5475 case 'T':
5476 if (memEQ(name, "DB_THREADID_STRLEN", 18)) {
5477 /* ^ */
5478 #ifdef DB_THREADID_STRLEN
5479 *iv_return = DB_THREADID_STRLEN;
5480 return PERL_constant_ISIV;
5481 #else
5482 return PERL_constant_NOTDEF;
5483 #endif
5484 }
5485 break;
5486 case 'U':
5487 if (memEQ(name, "DB_ENV_REF_COUNTED", 18)) {
5488 /* ^ */
5489 #ifdef DB_ENV_REF_COUNTED
5490 *iv_return = DB_ENV_REF_COUNTED;
5491 return PERL_constant_ISIV;
5492 #else
5493 return PERL_constant_NOTDEF;
5494 #endif
5495 }
5496 break;
5497 case 'V':
5498 if (memEQ(name, "DB_TEST_ELECTVOTE1", 18)) {
5499 /* ^ */
5500 #ifdef DB_TEST_ELECTVOTE1
5501 *iv_return = DB_TEST_ELECTVOTE1;
5502 return PERL_constant_ISIV;
5503 #else
5504 return PERL_constant_NOTDEF;
5505 #endif
5506 }
5507 if (memEQ(name, "DB_TEST_ELECTVOTE2", 18)) {
5508 /* ^ */
5509 #ifdef DB_TEST_ELECTVOTE2
5510 *iv_return = DB_TEST_ELECTVOTE2;
5511 return PERL_constant_ISIV;
5512 #else
5513 return PERL_constant_NOTDEF;
5514 #endif
5515 }
5516 break;
5517 case 'W':
5518 if (memEQ(name, "DB_TEST_ELECTWAIT1", 18)) {
5519 /* ^ */
5520 #ifdef DB_TEST_ELECTWAIT1
5521 *iv_return = DB_TEST_ELECTWAIT1;
5522 return PERL_constant_ISIV;
5523 #else
5524 return PERL_constant_NOTDEF;
5525 #endif
5526 }
5527 if (memEQ(name, "DB_TEST_ELECTWAIT2", 18)) {
5528 /* ^ */
5529 #ifdef DB_TEST_ELECTWAIT2
5530 *iv_return = DB_TEST_ELECTWAIT2;
5531 return PERL_constant_ISIV;
5532 #else
5533 return PERL_constant_NOTDEF;
5534 #endif
5535 }
5536 break;
5537 case 'Y':
5538 if (memEQ(name, "DB_PR_RECOVERYTEST", 18)) {
5539 /* ^ */
5540 #ifdef DB_PR_RECOVERYTEST
5541 *iv_return = DB_PR_RECOVERYTEST;
5542 return PERL_constant_ISIV;
5543 #else
5544 return PERL_constant_NOTDEF;
5545 #endif
5546 }
5547 if (memEQ(name, "DB_VERB_REP_SYSTEM", 18)) {
5548 /* ^ */
5549 #ifdef DB_VERB_REP_SYSTEM
5550 *iv_return = DB_VERB_REP_SYSTEM;
5551 return PERL_constant_ISIV;
5552 #else
5553 return PERL_constant_NOTDEF;
5554 #endif
5555 }
5556 break;
5557 case '_':
5558 if (memEQ(name, "DB_ENV_REGION_INIT", 18)) {
5559 /* ^ */
5560 #ifdef DB_ENV_REGION_INIT
5561 *iv_return = DB_ENV_REGION_INIT;
5562 return PERL_constant_ISIV;
5563 #else
5564 return PERL_constant_NOTDEF;
5565 #endif
5566 }
5567 if (memEQ(name, "DB_LOG_BUFFER_FULL", 18)) {
5568 /* ^ */
5569 #ifdef DB_LOG_BUFFER_FULL
5570 *iv_return = DB_LOG_BUFFER_FULL;
5571 return PERL_constant_ISIV;
5572 #else
5573 return PERL_constant_NOTDEF;
5574 #endif
5575 }
5576 if (memEQ(name, "DB_REP_HANDLE_DEAD", 18)) {
5577 /* ^ */
5578 #ifdef DB_REP_HANDLE_DEAD
5579 *iv_return = DB_REP_HANDLE_DEAD;
5580 return PERL_constant_ISIV;
5581 #else
5582 return PERL_constant_NOTDEF;
5583 #endif
5584 }
5585 break;
5586 }
5587 return PERL_constant_NOTFOUND;
5588 }
5589
5590 static int
constant_19(pTHX_ const char * name,IV * iv_return)5591 constant_19 (pTHX_ const char *name, IV *iv_return) {
5592 /* When generated this function returned values for the list of names given
5593 here. However, subsequent manual editing may have added or removed some.
5594 DB2_AM_MPOOL_OPENED DB_BOOTSTRAP_HELPER DB_CURSOR_TRANSIENT
5595 DB_DATABASE_LOCKING DB_ENV_LOG_INMEMORY DB_ENV_MULTIVERSION
5596 DB_ENV_REP_LOGSONLY DB_ENV_TXN_SNAPSHOT DB_EVENT_MUTEX_DIED
5597 DB_EVENT_REP_CLIENT DB_EVENT_REP_MASTER DB_EXIT_FILE_EXISTS
5598 DB_FOREIGN_CONFLICT DB_INTERNAL_BLOB_DB DB_LOCK_FREE_LOCKER
5599 DB_LOCK_GET_TIMEOUT DB_LOCK_SET_TIMEOUT DB_META_CHKSUM_FAIL
5600 DB_MUTEX_OWNER_DEAD DB_MUTEX_SELF_BLOCK DB_PRIORITY_DEFAULT
5601 DB_READ_UNCOMMITTED DB_REPMGR_ACKS_NONE DB_REPMGR_CONNECTED
5602 DB_REP_HOLDELECTION DB_REP_JOIN_FAILURE DB_SEQUENCE_VERSION
5603 DB_SET_LOCK_TIMEOUT DB_STAT_LOCK_PARAMS DB_TEST_POSTDESTROY
5604 DB_TEST_POSTLOGMETA DB_TEST_SUBDB_LOCKS DB_TXN_FORWARD_ROLL
5605 DB_TXN_LOG_UNDOREDO DB_TXN_WRITE_NOSYNC DB_UPDATE_SECONDARY
5606 DB_USERCOPY_GETDATA DB_USERCOPY_SETDATA DB_USE_ENVIRON_ROOT
5607 DB_VERB_FILEOPS_ALL DB_VERB_REPLICATION DB_VERB_REPMGR_MISC
5608 DB_VERIFY_PARTITION DB_VERSION_MISMATCH */
5609 /* Offset 12 gives the best switch position. */
5610 switch (name[12]) {
5611 case 'A':
5612 if (memEQ(name, "DB_CURSOR_TRANSIENT", 19)) {
5613 /* ^ */
5614 #ifdef DB_CURSOR_TRANSIENT
5615 *iv_return = DB_CURSOR_TRANSIENT;
5616 return PERL_constant_ISIV;
5617 #else
5618 return PERL_constant_NOTDEF;
5619 #endif
5620 }
5621 break;
5622 case 'B':
5623 if (memEQ(name, "DB_INTERNAL_BLOB_DB", 19)) {
5624 /* ^ */
5625 #ifdef DB_INTERNAL_BLOB_DB
5626 *iv_return = DB_INTERNAL_BLOB_DB;
5627 return PERL_constant_ISIV;
5628 #else
5629 return PERL_constant_NOTDEF;
5630 #endif
5631 }
5632 if (memEQ(name, "DB_TEST_SUBDB_LOCKS", 19)) {
5633 /* ^ */
5634 #ifdef DB_TEST_SUBDB_LOCKS
5635 *iv_return = DB_TEST_SUBDB_LOCKS;
5636 return PERL_constant_ISIV;
5637 #else
5638 return PERL_constant_NOTDEF;
5639 #endif
5640 }
5641 break;
5642 case 'C':
5643 if (memEQ(name, "DB_UPDATE_SECONDARY", 19)) {
5644 /* ^ */
5645 #ifdef DB_UPDATE_SECONDARY
5646 *iv_return = DB_UPDATE_SECONDARY;
5647 return PERL_constant_ISIV;
5648 #else
5649 return PERL_constant_NOTDEF;
5650 #endif
5651 }
5652 break;
5653 case 'D':
5654 if (memEQ(name, "DB_PRIORITY_DEFAULT", 19)) {
5655 /* ^ */
5656 #if (DB_VERSION_MAJOR > 4) || \
5657 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
5658 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
5659 DB_VERSION_PATCH >= 24)
5660 *iv_return = DB_PRIORITY_DEFAULT;
5661 return PERL_constant_ISIV;
5662 #else
5663 return PERL_constant_NOTDEF;
5664 #endif
5665 }
5666 if (memEQ(name, "DB_TEST_POSTDESTROY", 19)) {
5667 /* ^ */
5668 #ifdef DB_TEST_POSTDESTROY
5669 *iv_return = DB_TEST_POSTDESTROY;
5670 return PERL_constant_ISIV;
5671 #else
5672 return PERL_constant_NOTDEF;
5673 #endif
5674 }
5675 break;
5676 case 'E':
5677 if (memEQ(name, "DB_EVENT_MUTEX_DIED", 19)) {
5678 /* ^ */
5679 #ifdef DB_EVENT_MUTEX_DIED
5680 *iv_return = DB_EVENT_MUTEX_DIED;
5681 return PERL_constant_ISIV;
5682 #else
5683 return PERL_constant_NOTDEF;
5684 #endif
5685 }
5686 if (memEQ(name, "DB_MUTEX_OWNER_DEAD", 19)) {
5687 /* ^ */
5688 #ifdef DB_MUTEX_OWNER_DEAD
5689 *iv_return = DB_MUTEX_OWNER_DEAD;
5690 return PERL_constant_ISIV;
5691 #else
5692 return PERL_constant_NOTDEF;
5693 #endif
5694 }
5695 break;
5696 case 'F':
5697 if (memEQ(name, "DB_MUTEX_SELF_BLOCK", 19)) {
5698 /* ^ */
5699 #ifdef DB_MUTEX_SELF_BLOCK
5700 *iv_return = DB_MUTEX_SELF_BLOCK;
5701 return PERL_constant_ISIV;
5702 #else
5703 return PERL_constant_NOTDEF;
5704 #endif
5705 }
5706 if (memEQ(name, "DB_REP_JOIN_FAILURE", 19)) {
5707 /* ^ */
5708 #ifdef DB_REP_JOIN_FAILURE
5709 *iv_return = DB_REP_JOIN_FAILURE;
5710 return PERL_constant_ISIV;
5711 #else
5712 return PERL_constant_NOTDEF;
5713 #endif
5714 }
5715 break;
5716 case 'G':
5717 if (memEQ(name, "DB_USERCOPY_GETDATA", 19)) {
5718 /* ^ */
5719 #ifdef DB_USERCOPY_GETDATA
5720 *iv_return = DB_USERCOPY_GETDATA;
5721 return PERL_constant_ISIV;
5722 #else
5723 return PERL_constant_NOTDEF;
5724 #endif
5725 }
5726 if (memEQ(name, "DB_VERB_REPMGR_MISC", 19)) {
5727 /* ^ */
5728 #ifdef DB_VERB_REPMGR_MISC
5729 *iv_return = DB_VERB_REPMGR_MISC;
5730 return PERL_constant_ISIV;
5731 #else
5732 return PERL_constant_NOTDEF;
5733 #endif
5734 }
5735 break;
5736 case 'I':
5737 if (memEQ(name, "DB_VERB_REPLICATION", 19)) {
5738 /* ^ */
5739 #ifdef DB_VERB_REPLICATION
5740 *iv_return = DB_VERB_REPLICATION;
5741 return PERL_constant_ISIV;
5742 #else
5743 return PERL_constant_NOTDEF;
5744 #endif
5745 }
5746 if (memEQ(name, "DB_VERSION_MISMATCH", 19)) {
5747 /* ^ */
5748 #ifdef DB_VERSION_MISMATCH
5749 *iv_return = DB_VERSION_MISMATCH;
5750 return PERL_constant_ISIV;
5751 #else
5752 return PERL_constant_NOTDEF;
5753 #endif
5754 }
5755 break;
5756 case 'K':
5757 if (memEQ(name, "DB_REPMGR_ACKS_NONE", 19)) {
5758 /* ^ */
5759 #ifdef DB_REPMGR_ACKS_NONE
5760 *iv_return = DB_REPMGR_ACKS_NONE;
5761 return PERL_constant_ISIV;
5762 #else
5763 return PERL_constant_NOTDEF;
5764 #endif
5765 }
5766 break;
5767 case 'L':
5768 if (memEQ(name, "DB_DATABASE_LOCKING", 19)) {
5769 /* ^ */
5770 #ifdef DB_DATABASE_LOCKING
5771 *iv_return = DB_DATABASE_LOCKING;
5772 return PERL_constant_ISIV;
5773 #else
5774 return PERL_constant_NOTDEF;
5775 #endif
5776 }
5777 if (memEQ(name, "DB_REP_HOLDELECTION", 19)) {
5778 /* ^ */
5779 #ifdef DB_REP_HOLDELECTION
5780 *iv_return = DB_REP_HOLDELECTION;
5781 return PERL_constant_ISIV;
5782 #else
5783 return PERL_constant_NOTDEF;
5784 #endif
5785 }
5786 if (memEQ(name, "DB_TEST_POSTLOGMETA", 19)) {
5787 /* ^ */
5788 #ifdef DB_TEST_POSTLOGMETA
5789 *iv_return = DB_TEST_POSTLOGMETA;
5790 return PERL_constant_ISIV;
5791 #else
5792 return PERL_constant_NOTDEF;
5793 #endif
5794 }
5795 break;
5796 case 'M':
5797 if (memEQ(name, "DB_READ_UNCOMMITTED", 19)) {
5798 /* ^ */
5799 #ifdef DB_READ_UNCOMMITTED
5800 *iv_return = DB_READ_UNCOMMITTED;
5801 return PERL_constant_ISIV;
5802 #else
5803 return PERL_constant_NOTDEF;
5804 #endif
5805 }
5806 break;
5807 case 'N':
5808 if (memEQ(name, "DB_ENV_LOG_INMEMORY", 19)) {
5809 /* ^ */
5810 #ifdef DB_ENV_LOG_INMEMORY
5811 *iv_return = DB_ENV_LOG_INMEMORY;
5812 return PERL_constant_ISIV;
5813 #else
5814 return PERL_constant_NOTDEF;
5815 #endif
5816 }
5817 if (memEQ(name, "DB_ENV_TXN_SNAPSHOT", 19)) {
5818 /* ^ */
5819 #ifdef DB_ENV_TXN_SNAPSHOT
5820 *iv_return = DB_ENV_TXN_SNAPSHOT;
5821 return PERL_constant_ISIV;
5822 #else
5823 return PERL_constant_NOTDEF;
5824 #endif
5825 }
5826 if (memEQ(name, "DB_REPMGR_CONNECTED", 19)) {
5827 /* ^ */
5828 #ifdef DB_REPMGR_CONNECTED
5829 *iv_return = DB_REPMGR_CONNECTED;
5830 return PERL_constant_ISIV;
5831 #else
5832 return PERL_constant_NOTDEF;
5833 #endif
5834 }
5835 if (memEQ(name, "DB_TXN_LOG_UNDOREDO", 19)) {
5836 /* ^ */
5837 #ifdef DB_TXN_LOG_UNDOREDO
5838 *iv_return = DB_TXN_LOG_UNDOREDO;
5839 return PERL_constant_ISIV;
5840 #else
5841 return PERL_constant_NOTDEF;
5842 #endif
5843 }
5844 break;
5845 case 'O':
5846 if (memEQ(name, "DB_ENV_REP_LOGSONLY", 19)) {
5847 /* ^ */
5848 #ifdef DB_ENV_REP_LOGSONLY
5849 *iv_return = DB_ENV_REP_LOGSONLY;
5850 return PERL_constant_ISIV;
5851 #else
5852 return PERL_constant_NOTDEF;
5853 #endif
5854 }
5855 if (memEQ(name, "DB_FOREIGN_CONFLICT", 19)) {
5856 /* ^ */
5857 #ifdef DB_FOREIGN_CONFLICT
5858 *iv_return = DB_FOREIGN_CONFLICT;
5859 return PERL_constant_ISIV;
5860 #else
5861 return PERL_constant_NOTDEF;
5862 #endif
5863 }
5864 if (memEQ(name, "DB_USE_ENVIRON_ROOT", 19)) {
5865 /* ^ */
5866 #ifdef DB_USE_ENVIRON_ROOT
5867 *iv_return = DB_USE_ENVIRON_ROOT;
5868 return PERL_constant_ISIV;
5869 #else
5870 return PERL_constant_NOTDEF;
5871 #endif
5872 }
5873 if (memEQ(name, "DB_VERB_FILEOPS_ALL", 19)) {
5874 /* ^ */
5875 #ifdef DB_VERB_FILEOPS_ALL
5876 *iv_return = DB_VERB_FILEOPS_ALL;
5877 return PERL_constant_ISIV;
5878 #else
5879 return PERL_constant_NOTDEF;
5880 #endif
5881 }
5882 break;
5883 case 'R':
5884 if (memEQ(name, "DB_TXN_FORWARD_ROLL", 19)) {
5885 /* ^ */
5886 #if (DB_VERSION_MAJOR > 3) || \
5887 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \
5888 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \
5889 DB_VERSION_PATCH >= 14)
5890 *iv_return = DB_TXN_FORWARD_ROLL;
5891 return PERL_constant_ISIV;
5892 #else
5893 return PERL_constant_NOTDEF;
5894 #endif
5895 }
5896 if (memEQ(name, "DB_VERIFY_PARTITION", 19)) {
5897 /* ^ */
5898 #ifdef DB_VERIFY_PARTITION
5899 *iv_return = DB_VERIFY_PARTITION;
5900 return PERL_constant_ISIV;
5901 #else
5902 return PERL_constant_NOTDEF;
5903 #endif
5904 }
5905 break;
5906 case 'S':
5907 if (memEQ(name, "DB_USERCOPY_SETDATA", 19)) {
5908 /* ^ */
5909 #ifdef DB_USERCOPY_SETDATA
5910 *iv_return = DB_USERCOPY_SETDATA;
5911 return PERL_constant_ISIV;
5912 #else
5913 return PERL_constant_NOTDEF;
5914 #endif
5915 }
5916 break;
5917 case 'T':
5918 if (memEQ(name, "DB_LOCK_GET_TIMEOUT", 19)) {
5919 /* ^ */
5920 #if (DB_VERSION_MAJOR > 4) || \
5921 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \
5922 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \
5923 DB_VERSION_PATCH >= 14)
5924 *iv_return = DB_LOCK_GET_TIMEOUT;
5925 return PERL_constant_ISIV;
5926 #else
5927 return PERL_constant_NOTDEF;
5928 #endif
5929 }
5930 if (memEQ(name, "DB_LOCK_SET_TIMEOUT", 19)) {
5931 /* ^ */
5932 #ifdef DB_LOCK_SET_TIMEOUT
5933 *iv_return = DB_LOCK_SET_TIMEOUT;
5934 return PERL_constant_ISIV;
5935 #else
5936 return PERL_constant_NOTDEF;
5937 #endif
5938 }
5939 if (memEQ(name, "DB_SET_LOCK_TIMEOUT", 19)) {
5940 /* ^ */
5941 #ifdef DB_SET_LOCK_TIMEOUT
5942 *iv_return = DB_SET_LOCK_TIMEOUT;
5943 return PERL_constant_ISIV;
5944 #else
5945 return PERL_constant_NOTDEF;
5946 #endif
5947 }
5948 break;
5949 case 'U':
5950 if (memEQ(name, "DB_META_CHKSUM_FAIL", 19)) {
5951 /* ^ */
5952 #ifdef DB_META_CHKSUM_FAIL
5953 *iv_return = DB_META_CHKSUM_FAIL;
5954 return PERL_constant_ISIV;
5955 #else
5956 return PERL_constant_NOTDEF;
5957 #endif
5958 }
5959 break;
5960 case 'V':
5961 if (memEQ(name, "DB_ENV_MULTIVERSION", 19)) {
5962 /* ^ */
5963 #ifdef DB_ENV_MULTIVERSION
5964 *iv_return = DB_ENV_MULTIVERSION;
5965 return PERL_constant_ISIV;
5966 #else
5967 return PERL_constant_NOTDEF;
5968 #endif
5969 }
5970 if (memEQ(name, "DB_SEQUENCE_VERSION", 19)) {
5971 /* ^ */
5972 #ifdef DB_SEQUENCE_VERSION
5973 *iv_return = DB_SEQUENCE_VERSION;
5974 return PERL_constant_ISIV;
5975 #else
5976 return PERL_constant_NOTDEF;
5977 #endif
5978 }
5979 break;
5980 case '_':
5981 if (memEQ(name, "DB2_AM_MPOOL_OPENED", 19)) {
5982 /* ^ */
5983 #ifdef DB2_AM_MPOOL_OPENED
5984 *iv_return = DB2_AM_MPOOL_OPENED;
5985 return PERL_constant_ISIV;
5986 #else
5987 return PERL_constant_NOTDEF;
5988 #endif
5989 }
5990 if (memEQ(name, "DB_BOOTSTRAP_HELPER", 19)) {
5991 /* ^ */
5992 #ifdef DB_BOOTSTRAP_HELPER
5993 *iv_return = DB_BOOTSTRAP_HELPER;
5994 return PERL_constant_ISIV;
5995 #else
5996 return PERL_constant_NOTDEF;
5997 #endif
5998 }
5999 if (memEQ(name, "DB_EVENT_REP_CLIENT", 19)) {
6000 /* ^ */
6001 #ifdef DB_EVENT_REP_CLIENT
6002 *iv_return = DB_EVENT_REP_CLIENT;
6003 return PERL_constant_ISIV;
6004 #else
6005 return PERL_constant_NOTDEF;
6006 #endif
6007 }
6008 if (memEQ(name, "DB_EVENT_REP_MASTER", 19)) {
6009 /* ^ */
6010 #ifdef DB_EVENT_REP_MASTER
6011 *iv_return = DB_EVENT_REP_MASTER;
6012 return PERL_constant_ISIV;
6013 #else
6014 return PERL_constant_NOTDEF;
6015 #endif
6016 }
6017 if (memEQ(name, "DB_EXIT_FILE_EXISTS", 19)) {
6018 /* ^ */
6019 #ifdef DB_EXIT_FILE_EXISTS
6020 *iv_return = DB_EXIT_FILE_EXISTS;
6021 return PERL_constant_ISIV;
6022 #else
6023 return PERL_constant_NOTDEF;
6024 #endif
6025 }
6026 if (memEQ(name, "DB_LOCK_FREE_LOCKER", 19)) {
6027 /* ^ */
6028 #ifdef DB_LOCK_FREE_LOCKER
6029 *iv_return = DB_LOCK_FREE_LOCKER;
6030 return PERL_constant_ISIV;
6031 #else
6032 return PERL_constant_NOTDEF;
6033 #endif
6034 }
6035 if (memEQ(name, "DB_STAT_LOCK_PARAMS", 19)) {
6036 /* ^ */
6037 #ifdef DB_STAT_LOCK_PARAMS
6038 *iv_return = DB_STAT_LOCK_PARAMS;
6039 return PERL_constant_ISIV;
6040 #else
6041 return PERL_constant_NOTDEF;
6042 #endif
6043 }
6044 if (memEQ(name, "DB_TXN_WRITE_NOSYNC", 19)) {
6045 /* ^ */
6046 #ifdef DB_TXN_WRITE_NOSYNC
6047 *iv_return = DB_TXN_WRITE_NOSYNC;
6048 return PERL_constant_ISIV;
6049 #else
6050 return PERL_constant_NOTDEF;
6051 #endif
6052 }
6053 break;
6054 }
6055 return PERL_constant_NOTFOUND;
6056 }
6057
6058 static int
constant_20(pTHX_ const char * name,IV * iv_return)6059 constant_20 (pTHX_ const char *name, IV *iv_return) {
6060 /* When generated this function returned values for the list of names given
6061 here. However, subsequent manual editing may have added or removed some.
6062 DB_BACKUP_READ_COUNT DB_BACKUP_READ_SLEEP DB_BACKUP_SINGLE_DIR
6063 DB_CXX_NO_EXCEPTIONS DB_ENV_NO_OUTPUT_SET DB_ENV_RECOVER_FATAL
6064 DB_EVENT_NOT_HANDLED DB_EVENT_REP_ELECTED DB_LOGFILEID_INVALID
6065 DB_LOG_VERIFY_DBFILE DB_LOG_VERIFY_INTERR DB_PANIC_ENVIRONMENT
6066 DB_PRIORITY_VERY_LOW DB_REP_CONF_AUTOINIT DB_REP_FULL_ELECTION
6067 DB_REP_LEASE_EXPIRED DB_REP_LEASE_TIMEOUT DB_REP_WOULDROLLBACK
6068 DB_STAT_LOCK_LOCKERS DB_STAT_LOCK_OBJECTS DB_STAT_MEMP_NOERROR
6069 DB_STREAM_SYNC_WRITE DB_TXN_BACKWARD_ROLL DB_TXN_LOCK_OPTIMIST */
6070 /* Offset 15 gives the best switch position. */
6071 switch (name[15]) {
6072 case 'B':
6073 if (memEQ(name, "DB_LOG_VERIFY_DBFILE", 20)) {
6074 /* ^ */
6075 #ifdef DB_LOG_VERIFY_DBFILE
6076 *iv_return = DB_LOG_VERIFY_DBFILE;
6077 return PERL_constant_ISIV;
6078 #else
6079 return PERL_constant_NOTDEF;
6080 #endif
6081 }
6082 break;
6083 case 'C':
6084 if (memEQ(name, "DB_BACKUP_READ_COUNT", 20)) {
6085 /* ^ */
6086 #if (DB_VERSION_MAJOR > 5) || \
6087 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 3) || \
6088 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 3 && \
6089 DB_VERSION_PATCH >= 15)
6090 *iv_return = DB_BACKUP_READ_COUNT;
6091 return PERL_constant_ISIV;
6092 #else
6093 return PERL_constant_NOTDEF;
6094 #endif
6095 }
6096 if (memEQ(name, "DB_REP_FULL_ELECTION", 20)) {
6097 /* ^ */
6098 #ifdef DB_REP_FULL_ELECTION
6099 *iv_return = DB_REP_FULL_ELECTION;
6100 return PERL_constant_ISIV;
6101 #else
6102 return PERL_constant_NOTDEF;
6103 #endif
6104 }
6105 if (memEQ(name, "DB_STAT_LOCK_LOCKERS", 20)) {
6106 /* ^ */
6107 #ifdef DB_STAT_LOCK_LOCKERS
6108 *iv_return = DB_STAT_LOCK_LOCKERS;
6109 return PERL_constant_ISIV;
6110 #else
6111 return PERL_constant_NOTDEF;
6112 #endif
6113 }
6114 break;
6115 case 'E':
6116 if (memEQ(name, "DB_BACKUP_SINGLE_DIR", 20)) {
6117 /* ^ */
6118 #ifdef DB_BACKUP_SINGLE_DIR
6119 *iv_return = DB_BACKUP_SINGLE_DIR;
6120 return PERL_constant_ISIV;
6121 #else
6122 return PERL_constant_NOTDEF;
6123 #endif
6124 }
6125 if (memEQ(name, "DB_EVENT_REP_ELECTED", 20)) {
6126 /* ^ */
6127 #ifdef DB_EVENT_REP_ELECTED
6128 *iv_return = DB_EVENT_REP_ELECTED;
6129 return PERL_constant_ISIV;
6130 #else
6131 return PERL_constant_NOTDEF;
6132 #endif
6133 }
6134 if (memEQ(name, "DB_STAT_MEMP_NOERROR", 20)) {
6135 /* ^ */
6136 #ifdef DB_STAT_MEMP_NOERROR
6137 *iv_return = DB_STAT_MEMP_NOERROR;
6138 return PERL_constant_ISIV;
6139 #else
6140 return PERL_constant_NOTDEF;
6141 #endif
6142 }
6143 break;
6144 case 'F':
6145 if (memEQ(name, "DB_ENV_RECOVER_FATAL", 20)) {
6146 /* ^ */
6147 #ifdef DB_ENV_RECOVER_FATAL
6148 *iv_return = DB_ENV_RECOVER_FATAL;
6149 return PERL_constant_ISIV;
6150 #else
6151 return PERL_constant_NOTDEF;
6152 #endif
6153 }
6154 break;
6155 case 'I':
6156 if (memEQ(name, "DB_TXN_LOCK_OPTIMIST", 20)) {
6157 /* ^ */
6158 #ifdef DB_TXN_LOCK_OPTIMIST
6159 *iv_return = DB_TXN_LOCK_OPTIMIST;
6160 return PERL_constant_ISIV;
6161 #else
6162 return PERL_constant_NOTDEF;
6163 #endif
6164 }
6165 break;
6166 case 'J':
6167 if (memEQ(name, "DB_STAT_LOCK_OBJECTS", 20)) {
6168 /* ^ */
6169 #ifdef DB_STAT_LOCK_OBJECTS
6170 *iv_return = DB_STAT_LOCK_OBJECTS;
6171 return PERL_constant_ISIV;
6172 #else
6173 return PERL_constant_NOTDEF;
6174 #endif
6175 }
6176 break;
6177 case 'L':
6178 if (memEQ(name, "DB_REP_WOULDROLLBACK", 20)) {
6179 /* ^ */
6180 #ifdef DB_REP_WOULDROLLBACK
6181 *iv_return = DB_REP_WOULDROLLBACK;
6182 return PERL_constant_ISIV;
6183 #else
6184 return PERL_constant_NOTDEF;
6185 #endif
6186 }
6187 break;
6188 case 'M':
6189 if (memEQ(name, "DB_REP_LEASE_TIMEOUT", 20)) {
6190 /* ^ */
6191 #ifdef DB_REP_LEASE_TIMEOUT
6192 *iv_return = DB_REP_LEASE_TIMEOUT;
6193 return PERL_constant_ISIV;
6194 #else
6195 return PERL_constant_NOTDEF;
6196 #endif
6197 }
6198 break;
6199 case 'N':
6200 if (memEQ(name, "DB_EVENT_NOT_HANDLED", 20)) {
6201 /* ^ */
6202 #ifdef DB_EVENT_NOT_HANDLED
6203 *iv_return = DB_EVENT_NOT_HANDLED;
6204 return PERL_constant_ISIV;
6205 #else
6206 return PERL_constant_NOTDEF;
6207 #endif
6208 }
6209 if (memEQ(name, "DB_LOG_VERIFY_INTERR", 20)) {
6210 /* ^ */
6211 #ifdef DB_LOG_VERIFY_INTERR
6212 *iv_return = DB_LOG_VERIFY_INTERR;
6213 return PERL_constant_ISIV;
6214 #else
6215 return PERL_constant_NOTDEF;
6216 #endif
6217 }
6218 if (memEQ(name, "DB_PANIC_ENVIRONMENT", 20)) {
6219 /* ^ */
6220 #ifdef DB_PANIC_ENVIRONMENT
6221 *iv_return = DB_PANIC_ENVIRONMENT;
6222 return PERL_constant_ISIV;
6223 #else
6224 return PERL_constant_NOTDEF;
6225 #endif
6226 }
6227 break;
6228 case 'O':
6229 if (memEQ(name, "DB_REP_CONF_AUTOINIT", 20)) {
6230 /* ^ */
6231 #ifdef DB_REP_CONF_AUTOINIT
6232 *iv_return = DB_REP_CONF_AUTOINIT;
6233 return PERL_constant_ISIV;
6234 #else
6235 return PERL_constant_NOTDEF;
6236 #endif
6237 }
6238 break;
6239 case 'P':
6240 if (memEQ(name, "DB_REP_LEASE_EXPIRED", 20)) {
6241 /* ^ */
6242 #ifdef DB_REP_LEASE_EXPIRED
6243 *iv_return = DB_REP_LEASE_EXPIRED;
6244 return PERL_constant_ISIV;
6245 #else
6246 return PERL_constant_NOTDEF;
6247 #endif
6248 }
6249 break;
6250 case 'S':
6251 if (memEQ(name, "DB_BACKUP_READ_SLEEP", 20)) {
6252 /* ^ */
6253 #if (DB_VERSION_MAJOR > 5) || \
6254 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 3) || \
6255 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 3 && \
6256 DB_VERSION_PATCH >= 15)
6257 *iv_return = DB_BACKUP_READ_SLEEP;
6258 return PERL_constant_ISIV;
6259 #else
6260 return PERL_constant_NOTDEF;
6261 #endif
6262 }
6263 break;
6264 case 'T':
6265 if (memEQ(name, "DB_CXX_NO_EXCEPTIONS", 20)) {
6266 /* ^ */
6267 #ifdef DB_CXX_NO_EXCEPTIONS
6268 *iv_return = DB_CXX_NO_EXCEPTIONS;
6269 return PERL_constant_ISIV;
6270 #else
6271 return PERL_constant_NOTDEF;
6272 #endif
6273 }
6274 if (memEQ(name, "DB_ENV_NO_OUTPUT_SET", 20)) {
6275 /* ^ */
6276 #ifdef DB_ENV_NO_OUTPUT_SET
6277 *iv_return = DB_ENV_NO_OUTPUT_SET;
6278 return PERL_constant_ISIV;
6279 #else
6280 return PERL_constant_NOTDEF;
6281 #endif
6282 }
6283 break;
6284 case 'V':
6285 if (memEQ(name, "DB_LOGFILEID_INVALID", 20)) {
6286 /* ^ */
6287 #ifdef DB_LOGFILEID_INVALID
6288 *iv_return = DB_LOGFILEID_INVALID;
6289 return PERL_constant_ISIV;
6290 #else
6291 return PERL_constant_NOTDEF;
6292 #endif
6293 }
6294 break;
6295 case 'W':
6296 if (memEQ(name, "DB_STREAM_SYNC_WRITE", 20)) {
6297 /* ^ */
6298 #ifdef DB_STREAM_SYNC_WRITE
6299 *iv_return = DB_STREAM_SYNC_WRITE;
6300 return PERL_constant_ISIV;
6301 #else
6302 return PERL_constant_NOTDEF;
6303 #endif
6304 }
6305 break;
6306 case 'Y':
6307 if (memEQ(name, "DB_PRIORITY_VERY_LOW", 20)) {
6308 /* ^ */
6309 #if (DB_VERSION_MAJOR > 4) || \
6310 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
6311 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
6312 DB_VERSION_PATCH >= 24)
6313 *iv_return = DB_PRIORITY_VERY_LOW;
6314 return PERL_constant_ISIV;
6315 #else
6316 return PERL_constant_NOTDEF;
6317 #endif
6318 }
6319 break;
6320 case '_':
6321 if (memEQ(name, "DB_TXN_BACKWARD_ROLL", 20)) {
6322 /* ^ */
6323 #if (DB_VERSION_MAJOR > 3) || \
6324 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \
6325 (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \
6326 DB_VERSION_PATCH >= 14)
6327 *iv_return = DB_TXN_BACKWARD_ROLL;
6328 return PERL_constant_ISIV;
6329 #else
6330 return PERL_constant_NOTDEF;
6331 #endif
6332 }
6333 break;
6334 }
6335 return PERL_constant_NOTFOUND;
6336 }
6337
6338 static int
constant_21(pTHX_ const char * name,IV * iv_return)6339 constant_21 (pTHX_ const char *name, IV *iv_return) {
6340 /* When generated this function returned values for the list of names given
6341 here. However, subsequent manual editing may have added or removed some.
6342 DB_ENV_LOG_AUTOREMOVE DB_EVENT_WRITE_FAILED DB_LOCK_UPGRADE_WRITE
6343 DB_LOG_VERIFY_FORWARD DB_LOG_VERIFY_PARTIAL DB_LOG_VERIFY_VERBOSE
6344 DB_LOG_VERIFY_WARNING DB_MUTEX_LOGICAL_LOCK DB_MUTEX_PROCESS_ONLY
6345 DB_PRIORITY_UNCHANGED DB_PRIORITY_VERY_HIGH DB_REPMGR_ACKS_QUORUM
6346 DB_REPMGR_ISELECTABLE DB_REP_ELECTION_RETRY DB_REP_HEARTBEAT_SEND
6347 DB_SYSTEM_MEM_MISSING */
6348 /* Offset 15 gives the best switch position. */
6349 switch (name[15]) {
6350 case 'A':
6351 if (memEQ(name, "DB_LOG_VERIFY_PARTIAL", 21)) {
6352 /* ^ */
6353 #ifdef DB_LOG_VERIFY_PARTIAL
6354 *iv_return = DB_LOG_VERIFY_PARTIAL;
6355 return PERL_constant_ISIV;
6356 #else
6357 return PERL_constant_NOTDEF;
6358 #endif
6359 }
6360 if (memEQ(name, "DB_LOG_VERIFY_WARNING", 21)) {
6361 /* ^ */
6362 #ifdef DB_LOG_VERIFY_WARNING
6363 *iv_return = DB_LOG_VERIFY_WARNING;
6364 return PERL_constant_ISIV;
6365 #else
6366 return PERL_constant_NOTDEF;
6367 #endif
6368 }
6369 break;
6370 case 'C':
6371 if (memEQ(name, "DB_REPMGR_ISELECTABLE", 21)) {
6372 /* ^ */
6373 #ifdef DB_REPMGR_ISELECTABLE
6374 *iv_return = DB_REPMGR_ISELECTABLE;
6375 return PERL_constant_ISIV;
6376 #else
6377 return PERL_constant_NOTDEF;
6378 #endif
6379 }
6380 break;
6381 case 'E':
6382 if (memEQ(name, "DB_LOG_VERIFY_VERBOSE", 21)) {
6383 /* ^ */
6384 #ifdef DB_LOG_VERIFY_VERBOSE
6385 *iv_return = DB_LOG_VERIFY_VERBOSE;
6386 return PERL_constant_ISIV;
6387 #else
6388 return PERL_constant_NOTDEF;
6389 #endif
6390 }
6391 break;
6392 case 'F':
6393 if (memEQ(name, "DB_EVENT_WRITE_FAILED", 21)) {
6394 /* ^ */
6395 #ifdef DB_EVENT_WRITE_FAILED
6396 *iv_return = DB_EVENT_WRITE_FAILED;
6397 return PERL_constant_ISIV;
6398 #else
6399 return PERL_constant_NOTDEF;
6400 #endif
6401 }
6402 break;
6403 case 'H':
6404 if (memEQ(name, "DB_PRIORITY_UNCHANGED", 21)) {
6405 /* ^ */
6406 #if (DB_VERSION_MAJOR > 4) || \
6407 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 6) || \
6408 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 6 && \
6409 DB_VERSION_PATCH >= 18)
6410 *iv_return = DB_PRIORITY_UNCHANGED;
6411 return PERL_constant_ISIV;
6412 #else
6413 return PERL_constant_NOTDEF;
6414 #endif
6415 }
6416 break;
6417 case 'I':
6418 if (memEQ(name, "DB_SYSTEM_MEM_MISSING", 21)) {
6419 /* ^ */
6420 #ifdef DB_SYSTEM_MEM_MISSING
6421 *iv_return = DB_SYSTEM_MEM_MISSING;
6422 return PERL_constant_ISIV;
6423 #else
6424 return PERL_constant_NOTDEF;
6425 #endif
6426 }
6427 break;
6428 case 'L':
6429 if (memEQ(name, "DB_MUTEX_LOGICAL_LOCK", 21)) {
6430 /* ^ */
6431 #ifdef DB_MUTEX_LOGICAL_LOCK
6432 *iv_return = DB_MUTEX_LOGICAL_LOCK;
6433 return PERL_constant_ISIV;
6434 #else
6435 return PERL_constant_NOTDEF;
6436 #endif
6437 }
6438 break;
6439 case 'O':
6440 if (memEQ(name, "DB_LOG_VERIFY_FORWARD", 21)) {
6441 /* ^ */
6442 #ifdef DB_LOG_VERIFY_FORWARD
6443 *iv_return = DB_LOG_VERIFY_FORWARD;
6444 return PERL_constant_ISIV;
6445 #else
6446 return PERL_constant_NOTDEF;
6447 #endif
6448 }
6449 break;
6450 case 'Q':
6451 if (memEQ(name, "DB_REPMGR_ACKS_QUORUM", 21)) {
6452 /* ^ */
6453 #ifdef DB_REPMGR_ACKS_QUORUM
6454 *iv_return = DB_REPMGR_ACKS_QUORUM;
6455 return PERL_constant_ISIV;
6456 #else
6457 return PERL_constant_NOTDEF;
6458 #endif
6459 }
6460 break;
6461 case 'R':
6462 if (memEQ(name, "DB_ENV_LOG_AUTOREMOVE", 21)) {
6463 /* ^ */
6464 #ifdef DB_ENV_LOG_AUTOREMOVE
6465 *iv_return = DB_ENV_LOG_AUTOREMOVE;
6466 return PERL_constant_ISIV;
6467 #else
6468 return PERL_constant_NOTDEF;
6469 #endif
6470 }
6471 break;
6472 case 'S':
6473 if (memEQ(name, "DB_MUTEX_PROCESS_ONLY", 21)) {
6474 /* ^ */
6475 #ifdef DB_MUTEX_PROCESS_ONLY
6476 *iv_return = DB_MUTEX_PROCESS_ONLY;
6477 return PERL_constant_ISIV;
6478 #else
6479 return PERL_constant_NOTDEF;
6480 #endif
6481 }
6482 break;
6483 case 'T':
6484 if (memEQ(name, "DB_REP_HEARTBEAT_SEND", 21)) {
6485 /* ^ */
6486 #ifdef DB_REP_HEARTBEAT_SEND
6487 *iv_return = DB_REP_HEARTBEAT_SEND;
6488 return PERL_constant_ISIV;
6489 #else
6490 return PERL_constant_NOTDEF;
6491 #endif
6492 }
6493 break;
6494 case 'Y':
6495 if (memEQ(name, "DB_PRIORITY_VERY_HIGH", 21)) {
6496 /* ^ */
6497 #if (DB_VERSION_MAJOR > 4) || \
6498 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \
6499 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \
6500 DB_VERSION_PATCH >= 24)
6501 *iv_return = DB_PRIORITY_VERY_HIGH;
6502 return PERL_constant_ISIV;
6503 #else
6504 return PERL_constant_NOTDEF;
6505 #endif
6506 }
6507 break;
6508 case '_':
6509 if (memEQ(name, "DB_LOCK_UPGRADE_WRITE", 21)) {
6510 /* ^ */
6511 #if (DB_VERSION_MAJOR > 4) || \
6512 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \
6513 (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \
6514 DB_VERSION_PATCH >= 14)
6515 *iv_return = DB_LOCK_UPGRADE_WRITE;
6516 return PERL_constant_ISIV;
6517 #else
6518 return PERL_constant_NOTDEF;
6519 #endif
6520 }
6521 if (memEQ(name, "DB_REP_ELECTION_RETRY", 21)) {
6522 /* ^ */
6523 #ifdef DB_REP_ELECTION_RETRY
6524 *iv_return = DB_REP_ELECTION_RETRY;
6525 return PERL_constant_ISIV;
6526 #else
6527 return PERL_constant_NOTDEF;
6528 #endif
6529 }
6530 break;
6531 }
6532 return PERL_constant_NOTFOUND;
6533 }
6534
6535 static int
constant_22(pTHX_ const char * name,IV * iv_return,const char ** pv_return)6536 constant_22 (pTHX_ const char *name, IV *iv_return, const char **pv_return) {
6537 /* When generated this function returned values for the list of names given
6538 here. However, subsequent manual editing may have added or removed some.
6539 DB_ASSOC_IMMUTABLE_KEY DB_BACKUP_WRITE_DIRECT DB_ENV_RPCCLIENT_GIVEN
6540 DB_ENV_TIME_NOTGRANTED DB_ENV_TXN_NOT_DURABLE DB_EVENT_FAILCHK_PANIC
6541 DB_EVENT_NO_SUCH_EVENT DB_EVENT_REP_DUPMASTER DB_EVENT_REP_INIT_DONE
6542 DB_EVENT_REP_NEWMASTER DB_LOGVERSION_LATCHING DB_MEM_DATABASE_LENGTH
6543 DB_REPMGR_DISCONNECTED DB_REP_CONF_NOAUTOINIT DB_TXN_LOCK_OPTIMISTIC
6544 DB_VERSION_FULL_STRING */
6545 /* Offset 15 gives the best switch position. */
6546 switch (name[15]) {
6547 case 'A':
6548 if (memEQ(name, "DB_LOGVERSION_LATCHING", 22)) {
6549 /* ^ */
6550 #ifdef DB_LOGVERSION_LATCHING
6551 *iv_return = DB_LOGVERSION_LATCHING;
6552 return PERL_constant_ISIV;
6553 #else
6554 return PERL_constant_NOTDEF;
6555 #endif
6556 }
6557 break;
6558 case 'B':
6559 if (memEQ(name, "DB_ASSOC_IMMUTABLE_KEY", 22)) {
6560 /* ^ */
6561 #ifdef DB_ASSOC_IMMUTABLE_KEY
6562 *iv_return = DB_ASSOC_IMMUTABLE_KEY;
6563 return PERL_constant_ISIV;
6564 #else
6565 return PERL_constant_NOTDEF;
6566 #endif
6567 }
6568 break;
6569 case 'D':
6570 if (memEQ(name, "DB_ENV_TXN_NOT_DURABLE", 22)) {
6571 /* ^ */
6572 #ifdef DB_ENV_TXN_NOT_DURABLE
6573 *iv_return = DB_ENV_TXN_NOT_DURABLE;
6574 return PERL_constant_ISIV;
6575 #else
6576 return PERL_constant_NOTDEF;
6577 #endif
6578 }
6579 break;
6580 case 'G':
6581 if (memEQ(name, "DB_ENV_TIME_NOTGRANTED", 22)) {
6582 /* ^ */
6583 #ifdef DB_ENV_TIME_NOTGRANTED
6584 *iv_return = DB_ENV_TIME_NOTGRANTED;
6585 return PERL_constant_ISIV;
6586 #else
6587 return PERL_constant_NOTDEF;
6588 #endif
6589 }
6590 break;
6591 case 'H':
6592 if (memEQ(name, "DB_EVENT_NO_SUCH_EVENT", 22)) {
6593 /* ^ */
6594 #ifdef DB_EVENT_NO_SUCH_EVENT
6595 *iv_return = DB_EVENT_NO_SUCH_EVENT;
6596 return PERL_constant_ISIV;
6597 #else
6598 return PERL_constant_NOTDEF;
6599 #endif
6600 }
6601 break;
6602 case 'I':
6603 if (memEQ(name, "DB_EVENT_REP_INIT_DONE", 22)) {
6604 /* ^ */
6605 #ifdef DB_EVENT_REP_INIT_DONE
6606 *iv_return = DB_EVENT_REP_INIT_DONE;
6607 return PERL_constant_ISIV;
6608 #else
6609 return PERL_constant_NOTDEF;
6610 #endif
6611 }
6612 if (memEQ(name, "DB_TXN_LOCK_OPTIMISTIC", 22)) {
6613 /* ^ */
6614 #ifdef DB_TXN_LOCK_OPTIMISTIC
6615 *iv_return = DB_TXN_LOCK_OPTIMISTIC;
6616 return PERL_constant_ISIV;
6617 #else
6618 return PERL_constant_NOTDEF;
6619 #endif
6620 }
6621 break;
6622 case 'K':
6623 if (memEQ(name, "DB_EVENT_FAILCHK_PANIC", 22)) {
6624 /* ^ */
6625 #ifdef DB_EVENT_FAILCHK_PANIC
6626 *iv_return = DB_EVENT_FAILCHK_PANIC;
6627 return PERL_constant_ISIV;
6628 #else
6629 return PERL_constant_NOTDEF;
6630 #endif
6631 }
6632 break;
6633 case 'N':
6634 if (memEQ(name, "DB_REPMGR_DISCONNECTED", 22)) {
6635 /* ^ */
6636 #ifdef DB_REPMGR_DISCONNECTED
6637 *iv_return = DB_REPMGR_DISCONNECTED;
6638 return PERL_constant_ISIV;
6639 #else
6640 return PERL_constant_NOTDEF;
6641 #endif
6642 }
6643 break;
6644 case 'P':
6645 if (memEQ(name, "DB_EVENT_REP_DUPMASTER", 22)) {
6646 /* ^ */
6647 #ifdef DB_EVENT_REP_DUPMASTER
6648 *iv_return = DB_EVENT_REP_DUPMASTER;
6649 return PERL_constant_ISIV;
6650 #else
6651 return PERL_constant_NOTDEF;
6652 #endif
6653 }
6654 break;
6655 case 'T':
6656 if (memEQ(name, "DB_ENV_RPCCLIENT_GIVEN", 22)) {
6657 /* ^ */
6658 #ifdef DB_ENV_RPCCLIENT_GIVEN
6659 *iv_return = DB_ENV_RPCCLIENT_GIVEN;
6660 return PERL_constant_ISIV;
6661 #else
6662 return PERL_constant_NOTDEF;
6663 #endif
6664 }
6665 break;
6666 case 'U':
6667 if (memEQ(name, "DB_REP_CONF_NOAUTOINIT", 22)) {
6668 /* ^ */
6669 #ifdef DB_REP_CONF_NOAUTOINIT
6670 *iv_return = DB_REP_CONF_NOAUTOINIT;
6671 return PERL_constant_ISIV;
6672 #else
6673 return PERL_constant_NOTDEF;
6674 #endif
6675 }
6676 break;
6677 case 'W':
6678 if (memEQ(name, "DB_EVENT_REP_NEWMASTER", 22)) {
6679 /* ^ */
6680 #ifdef DB_EVENT_REP_NEWMASTER
6681 *iv_return = DB_EVENT_REP_NEWMASTER;
6682 return PERL_constant_ISIV;
6683 #else
6684 return PERL_constant_NOTDEF;
6685 #endif
6686 }
6687 break;
6688 case '_':
6689 if (memEQ(name, "DB_BACKUP_WRITE_DIRECT", 22)) {
6690 /* ^ */
6691 #if (DB_VERSION_MAJOR > 5) || \
6692 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 3) || \
6693 (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 3 && \
6694 DB_VERSION_PATCH >= 15)
6695 *iv_return = DB_BACKUP_WRITE_DIRECT;
6696 return PERL_constant_ISIV;
6697 #else
6698 return PERL_constant_NOTDEF;
6699 #endif
6700 }
6701 if (memEQ(name, "DB_MEM_DATABASE_LENGTH", 22)) {
6702 /* ^ */
6703 #if (DB_VERSION_MAJOR > 6) || \
6704 (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR > 3) || \
6705 (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR == 3 && \
6706 DB_VERSION_PATCH >= 10)
6707 *iv_return = DB_MEM_DATABASE_LENGTH;
6708 return PERL_constant_ISIV;
6709 #else
6710 return PERL_constant_NOTDEF;
6711 #endif
6712 }
6713 if (memEQ(name, "DB_VERSION_FULL_STRING", 22)) {
6714 /* ^ */
6715 #ifdef DB_VERSION_FULL_STRING
6716 *pv_return = DB_VERSION_FULL_STRING;
6717 return PERL_constant_ISPV;
6718 #else
6719 return PERL_constant_NOTDEF;
6720 #endif
6721 }
6722 break;
6723 }
6724 return PERL_constant_NOTFOUND;
6725 }
6726
6727 static int
constant_23(pTHX_ const char * name,IV * iv_return)6728 constant_23 (pTHX_ const char *name, IV *iv_return) {
6729 /* When generated this function returned values for the list of names given
6730 here. However, subsequent manual editing may have added or removed some.
6731 DB_ENV_DATABASE_LOCKING DB_ENV_TXN_WRITE_NOSYNC DB_EVENT_REP_SITE_ADDED
6732 DB_FAILURE_SYMPTOM_SIZE DB_MEM_EXTFILE_DATABASE DB_REGION_MAGIC_RECOVER
6733 DB_REPMGR_ACKS_ONE_PEER DB_REPMGR_NEED_RESPONSE DB_REP_CHECKPOINT_DELAY
6734 DB_REP_CONF_DELAYCLIENT DB_REP_CONNECTION_RETRY DB_REP_DEFAULT_PRIORITY
6735 DB_REP_ELECTION_TIMEOUT DB_VERB_REPMGR_CONNFAIL */
6736 /* Offset 11 gives the best switch position. */
6737 switch (name[11]) {
6738 case 'A':
6739 if (memEQ(name, "DB_REGION_MAGIC_RECOVER", 23)) {
6740 /* ^ */
6741 #ifdef DB_REGION_MAGIC_RECOVER
6742 *iv_return = DB_REGION_MAGIC_RECOVER;
6743 return PERL_constant_ISIV;
6744 #else
6745 return PERL_constant_NOTDEF;
6746 #endif
6747 }
6748 break;
6749 case 'B':
6750 if (memEQ(name, "DB_ENV_DATABASE_LOCKING", 23)) {
6751 /* ^ */
6752 #ifdef DB_ENV_DATABASE_LOCKING
6753 *iv_return = DB_ENV_DATABASE_LOCKING;
6754 return PERL_constant_ISIV;
6755 #else
6756 return PERL_constant_NOTDEF;
6757 #endif
6758 }
6759 break;
6760 case 'C':
6761 if (memEQ(name, "DB_REPMGR_ACKS_ONE_PEER", 23)) {
6762 /* ^ */
6763 #ifdef DB_REPMGR_ACKS_ONE_PEER
6764 *iv_return = DB_REPMGR_ACKS_ONE_PEER;
6765 return PERL_constant_ISIV;
6766 #else
6767 return PERL_constant_NOTDEF;
6768 #endif
6769 }
6770 break;
6771 case 'E':
6772 if (memEQ(name, "DB_REPMGR_NEED_RESPONSE", 23)) {
6773 /* ^ */
6774 #ifdef DB_REPMGR_NEED_RESPONSE
6775 *iv_return = DB_REPMGR_NEED_RESPONSE;
6776 return PERL_constant_ISIV;
6777 #else
6778 return PERL_constant_NOTDEF;
6779 #endif
6780 }
6781 if (memEQ(name, "DB_REP_CONNECTION_RETRY", 23)) {
6782 /* ^ */
6783 #ifdef DB_REP_CONNECTION_RETRY
6784 *iv_return = DB_REP_CONNECTION_RETRY;
6785 return PERL_constant_ISIV;
6786 #else
6787 return PERL_constant_NOTDEF;
6788 #endif
6789 }
6790 break;
6791 case 'I':
6792 if (memEQ(name, "DB_MEM_EXTFILE_DATABASE", 23)) {
6793 /* ^ */
6794 #if (DB_VERSION_MAJOR > 6) || \
6795 (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR > 3) || \
6796 (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR == 3 && \
6797 DB_VERSION_PATCH >= 10)
6798 *iv_return = DB_MEM_EXTFILE_DATABASE;
6799 return PERL_constant_ISIV;
6800 #else
6801 return PERL_constant_NOTDEF;
6802 #endif
6803 }
6804 break;
6805 case 'K':
6806 if (memEQ(name, "DB_REP_CHECKPOINT_DELAY", 23)) {
6807 /* ^ */
6808 #ifdef DB_REP_CHECKPOINT_DELAY
6809 *iv_return = DB_REP_CHECKPOINT_DELAY;
6810 return PERL_constant_ISIV;
6811 #else
6812 return PERL_constant_NOTDEF;
6813 #endif
6814 }
6815 break;
6816 case 'M':
6817 if (memEQ(name, "DB_VERB_REPMGR_CONNFAIL", 23)) {
6818 /* ^ */
6819 #ifdef DB_VERB_REPMGR_CONNFAIL
6820 *iv_return = DB_VERB_REPMGR_CONNFAIL;
6821 return PERL_constant_ISIV;
6822 #else
6823 return PERL_constant_NOTDEF;
6824 #endif
6825 }
6826 break;
6827 case 'P':
6828 if (memEQ(name, "DB_EVENT_REP_SITE_ADDED", 23)) {
6829 /* ^ */
6830 #ifdef DB_EVENT_REP_SITE_ADDED
6831 *iv_return = DB_EVENT_REP_SITE_ADDED;
6832 return PERL_constant_ISIV;
6833 #else
6834 return PERL_constant_NOTDEF;
6835 #endif
6836 }
6837 break;
6838 case 'S':
6839 if (memEQ(name, "DB_FAILURE_SYMPTOM_SIZE", 23)) {
6840 /* ^ */
6841 #ifdef DB_FAILURE_SYMPTOM_SIZE
6842 *iv_return = DB_FAILURE_SYMPTOM_SIZE;
6843 return PERL_constant_ISIV;
6844 #else
6845 return PERL_constant_NOTDEF;
6846 #endif
6847 }
6848 break;
6849 case 'T':
6850 if (memEQ(name, "DB_REP_ELECTION_TIMEOUT", 23)) {
6851 /* ^ */
6852 #ifdef DB_REP_ELECTION_TIMEOUT
6853 *iv_return = DB_REP_ELECTION_TIMEOUT;
6854 return PERL_constant_ISIV;
6855 #else
6856 return PERL_constant_NOTDEF;
6857 #endif
6858 }
6859 break;
6860 case 'U':
6861 if (memEQ(name, "DB_REP_DEFAULT_PRIORITY", 23)) {
6862 /* ^ */
6863 #ifdef DB_REP_DEFAULT_PRIORITY
6864 *iv_return = DB_REP_DEFAULT_PRIORITY;
6865 return PERL_constant_ISIV;
6866 #else
6867 return PERL_constant_NOTDEF;
6868 #endif
6869 }
6870 break;
6871 case 'W':
6872 if (memEQ(name, "DB_ENV_TXN_WRITE_NOSYNC", 23)) {
6873 /* ^ */
6874 #ifdef DB_ENV_TXN_WRITE_NOSYNC
6875 *iv_return = DB_ENV_TXN_WRITE_NOSYNC;
6876 return PERL_constant_ISIV;
6877 #else
6878 return PERL_constant_NOTDEF;
6879 #endif
6880 }
6881 break;
6882 case '_':
6883 if (memEQ(name, "DB_REP_CONF_DELAYCLIENT", 23)) {
6884 /* ^ */
6885 #ifdef DB_REP_CONF_DELAYCLIENT
6886 *iv_return = DB_REP_CONF_DELAYCLIENT;
6887 return PERL_constant_ISIV;
6888 #else
6889 return PERL_constant_NOTDEF;
6890 #endif
6891 }
6892 break;
6893 }
6894 return PERL_constant_NOTFOUND;
6895 }
6896
6897 static int
constant_24(pTHX_ const char * name,IV * iv_return)6898 constant_24 (pTHX_ const char *name, IV *iv_return) {
6899 /* When generated this function returned values for the list of names given
6900 here. However, subsequent manual editing may have added or removed some.
6901 DB_EVENT_REP_PERM_FAILED DB_EVENT_REP_STARTUPDONE DB_HOTBACKUP_IN_PROGRESS
6902 DB_INTERNAL_TEMPORARY_DB DB_MUTEX_DESCRIBE_STRLEN DB_REPMGR_ACKS_ALL_PEERS
6903 DB_REPMGR_CONF_ELECTIONS DB_REP_CONF_AUTOROLLBACK DB_REP_HEARTBEAT_MONITOR
6904 */
6905 /* Offset 15 gives the best switch position. */
6906 switch (name[15]) {
6907 case 'A':
6908 if (memEQ(name, "DB_EVENT_REP_STARTUPDONE", 24)) {
6909 /* ^ */
6910 #ifdef DB_EVENT_REP_STARTUPDONE
6911 *iv_return = DB_EVENT_REP_STARTUPDONE;
6912 return PERL_constant_ISIV;
6913 #else
6914 return PERL_constant_NOTDEF;
6915 #endif
6916 }
6917 if (memEQ(name, "DB_REPMGR_ACKS_ALL_PEERS", 24)) {
6918 /* ^ */
6919 #ifdef DB_REPMGR_ACKS_ALL_PEERS
6920 *iv_return = DB_REPMGR_ACKS_ALL_PEERS;
6921 return PERL_constant_ISIV;
6922 #else
6923 return PERL_constant_NOTDEF;
6924 #endif
6925 }
6926 break;
6927 case 'B':
6928 if (memEQ(name, "DB_MUTEX_DESCRIBE_STRLEN", 24)) {
6929 /* ^ */
6930 #ifdef DB_MUTEX_DESCRIBE_STRLEN
6931 *iv_return = DB_MUTEX_DESCRIBE_STRLEN;
6932 return PERL_constant_ISIV;
6933 #else
6934 return PERL_constant_NOTDEF;
6935 #endif
6936 }
6937 break;
6938 case 'E':
6939 if (memEQ(name, "DB_REPMGR_CONF_ELECTIONS", 24)) {
6940 /* ^ */
6941 #ifdef DB_REPMGR_CONF_ELECTIONS
6942 *iv_return = DB_REPMGR_CONF_ELECTIONS;
6943 return PERL_constant_ISIV;
6944 #else
6945 return PERL_constant_NOTDEF;
6946 #endif
6947 }
6948 break;
6949 case 'O':
6950 if (memEQ(name, "DB_REP_CONF_AUTOROLLBACK", 24)) {
6951 /* ^ */
6952 #ifdef DB_REP_CONF_AUTOROLLBACK
6953 *iv_return = DB_REP_CONF_AUTOROLLBACK;
6954 return PERL_constant_ISIV;
6955 #else
6956 return PERL_constant_NOTDEF;
6957 #endif
6958 }
6959 break;
6960 case 'P':
6961 if (memEQ(name, "DB_INTERNAL_TEMPORARY_DB", 24)) {
6962 /* ^ */
6963 #ifdef DB_INTERNAL_TEMPORARY_DB
6964 *iv_return = DB_INTERNAL_TEMPORARY_DB;
6965 return PERL_constant_ISIV;
6966 #else
6967 return PERL_constant_NOTDEF;
6968 #endif
6969 }
6970 break;
6971 case 'R':
6972 if (memEQ(name, "DB_EVENT_REP_PERM_FAILED", 24)) {
6973 /* ^ */
6974 #ifdef DB_EVENT_REP_PERM_FAILED
6975 *iv_return = DB_EVENT_REP_PERM_FAILED;
6976 return PERL_constant_ISIV;
6977 #else
6978 return PERL_constant_NOTDEF;
6979 #endif
6980 }
6981 break;
6982 case 'T':
6983 if (memEQ(name, "DB_REP_HEARTBEAT_MONITOR", 24)) {
6984 /* ^ */
6985 #ifdef DB_REP_HEARTBEAT_MONITOR
6986 *iv_return = DB_REP_HEARTBEAT_MONITOR;
6987 return PERL_constant_ISIV;
6988 #else
6989 return PERL_constant_NOTDEF;
6990 #endif
6991 }
6992 break;
6993 case '_':
6994 if (memEQ(name, "DB_HOTBACKUP_IN_PROGRESS", 24)) {
6995 /* ^ */
6996 #ifdef DB_HOTBACKUP_IN_PROGRESS
6997 *iv_return = DB_HOTBACKUP_IN_PROGRESS;
6998 return PERL_constant_ISIV;
6999 #else
7000 return PERL_constant_NOTDEF;
7001 #endif
7002 }
7003 break;
7004 }
7005 return PERL_constant_NOTFOUND;
7006 }
7007
7008 static int
constant_25(pTHX_ const char * name,IV * iv_return)7009 constant_25 (pTHX_ const char *name, IV *iv_return) {
7010 /* When generated this function returned values for the list of names given
7011 here. However, subsequent manual editing may have added or removed some.
7012 DB_EVENT_REP_AUTOTAKEOVER DB_EVENT_REP_CONNECT_ESTD
7013 DB_EVENT_REP_INQUEUE_FULL DB_EVENT_REP_JOIN_FAILURE
7014 DB_EVENT_REP_SITE_REMOVED DB_INTERNAL_PERSISTENT_DB */
7015 /* Offset 13 gives the best switch position. */
7016 switch (name[13]) {
7017 case 'A':
7018 if (memEQ(name, "DB_EVENT_REP_AUTOTAKEOVER", 25)) {
7019 /* ^ */
7020 #ifdef DB_EVENT_REP_AUTOTAKEOVER
7021 *iv_return = DB_EVENT_REP_AUTOTAKEOVER;
7022 return PERL_constant_ISIV;
7023 #else
7024 return PERL_constant_NOTDEF;
7025 #endif
7026 }
7027 break;
7028 case 'C':
7029 if (memEQ(name, "DB_EVENT_REP_CONNECT_ESTD", 25)) {
7030 /* ^ */
7031 #ifdef DB_EVENT_REP_CONNECT_ESTD
7032 *iv_return = DB_EVENT_REP_CONNECT_ESTD;
7033 return PERL_constant_ISIV;
7034 #else
7035 return PERL_constant_NOTDEF;
7036 #endif
7037 }
7038 break;
7039 case 'E':
7040 if (memEQ(name, "DB_INTERNAL_PERSISTENT_DB", 25)) {
7041 /* ^ */
7042 #ifdef DB_INTERNAL_PERSISTENT_DB
7043 *iv_return = DB_INTERNAL_PERSISTENT_DB;
7044 return PERL_constant_ISIV;
7045 #else
7046 return PERL_constant_NOTDEF;
7047 #endif
7048 }
7049 break;
7050 case 'I':
7051 if (memEQ(name, "DB_EVENT_REP_INQUEUE_FULL", 25)) {
7052 /* ^ */
7053 #ifdef DB_EVENT_REP_INQUEUE_FULL
7054 *iv_return = DB_EVENT_REP_INQUEUE_FULL;
7055 return PERL_constant_ISIV;
7056 #else
7057 return PERL_constant_NOTDEF;
7058 #endif
7059 }
7060 break;
7061 case 'J':
7062 if (memEQ(name, "DB_EVENT_REP_JOIN_FAILURE", 25)) {
7063 /* ^ */
7064 #ifdef DB_EVENT_REP_JOIN_FAILURE
7065 *iv_return = DB_EVENT_REP_JOIN_FAILURE;
7066 return PERL_constant_ISIV;
7067 #else
7068 return PERL_constant_NOTDEF;
7069 #endif
7070 }
7071 break;
7072 case 'S':
7073 if (memEQ(name, "DB_EVENT_REP_SITE_REMOVED", 25)) {
7074 /* ^ */
7075 #ifdef DB_EVENT_REP_SITE_REMOVED
7076 *iv_return = DB_EVENT_REP_SITE_REMOVED;
7077 return PERL_constant_ISIV;
7078 #else
7079 return PERL_constant_NOTDEF;
7080 #endif
7081 }
7082 break;
7083 }
7084 return PERL_constant_NOTFOUND;
7085 }
7086
7087 static int
constant_27(pTHX_ const char * name,IV * iv_return)7088 constant_27 (pTHX_ const char *name, IV *iv_return) {
7089 /* When generated this function returned values for the list of names given
7090 here. However, subsequent manual editing may have added or removed some.
7091 DB_EVENT_REP_CONNECT_BROKEN DB_EVENT_REP_MASTER_FAILURE
7092 DB_EVENT_REP_WOULD_ROLLBACK DB_REPMGR_CONF_2SITE_STRICT
7093 DB_REPMGR_CONF_DISABLE_POLL DB_REPMGR_CONF_ENABLE_EPOLL
7094 DB_REP_CONF_ELECT_LOGLENGTH */
7095 /* Offset 19 gives the best switch position. */
7096 switch (name[19]) {
7097 case 'B':
7098 if (memEQ(name, "DB_REPMGR_CONF_DISABLE_POLL", 27)) {
7099 /* ^ */
7100 #ifdef DB_REPMGR_CONF_DISABLE_POLL
7101 *iv_return = DB_REPMGR_CONF_DISABLE_POLL;
7102 return PERL_constant_ISIV;
7103 #else
7104 return PERL_constant_NOTDEF;
7105 #endif
7106 }
7107 break;
7108 case 'E':
7109 if (memEQ(name, "DB_REPMGR_CONF_2SITE_STRICT", 27)) {
7110 /* ^ */
7111 #ifdef DB_REPMGR_CONF_2SITE_STRICT
7112 *iv_return = DB_REPMGR_CONF_2SITE_STRICT;
7113 return PERL_constant_ISIV;
7114 #else
7115 return PERL_constant_NOTDEF;
7116 #endif
7117 }
7118 break;
7119 case 'L':
7120 if (memEQ(name, "DB_REPMGR_CONF_ENABLE_EPOLL", 27)) {
7121 /* ^ */
7122 #ifdef DB_REPMGR_CONF_ENABLE_EPOLL
7123 *iv_return = DB_REPMGR_CONF_ENABLE_EPOLL;
7124 return PERL_constant_ISIV;
7125 #else
7126 return PERL_constant_NOTDEF;
7127 #endif
7128 }
7129 break;
7130 case 'O':
7131 if (memEQ(name, "DB_REP_CONF_ELECT_LOGLENGTH", 27)) {
7132 /* ^ */
7133 #ifdef DB_REP_CONF_ELECT_LOGLENGTH
7134 *iv_return = DB_REP_CONF_ELECT_LOGLENGTH;
7135 return PERL_constant_ISIV;
7136 #else
7137 return PERL_constant_NOTDEF;
7138 #endif
7139 }
7140 break;
7141 case 'R':
7142 if (memEQ(name, "DB_EVENT_REP_WOULD_ROLLBACK", 27)) {
7143 /* ^ */
7144 #ifdef DB_EVENT_REP_WOULD_ROLLBACK
7145 *iv_return = DB_EVENT_REP_WOULD_ROLLBACK;
7146 return PERL_constant_ISIV;
7147 #else
7148 return PERL_constant_NOTDEF;
7149 #endif
7150 }
7151 break;
7152 case 'T':
7153 if (memEQ(name, "DB_EVENT_REP_CONNECT_BROKEN", 27)) {
7154 /* ^ */
7155 #ifdef DB_EVENT_REP_CONNECT_BROKEN
7156 *iv_return = DB_EVENT_REP_CONNECT_BROKEN;
7157 return PERL_constant_ISIV;
7158 #else
7159 return PERL_constant_NOTDEF;
7160 #endif
7161 }
7162 break;
7163 case '_':
7164 if (memEQ(name, "DB_EVENT_REP_MASTER_FAILURE", 27)) {
7165 /* ^ */
7166 #ifdef DB_EVENT_REP_MASTER_FAILURE
7167 *iv_return = DB_EVENT_REP_MASTER_FAILURE;
7168 return PERL_constant_ISIV;
7169 #else
7170 return PERL_constant_NOTDEF;
7171 #endif
7172 }
7173 break;
7174 }
7175 return PERL_constant_NOTFOUND;
7176 }
7177
7178 static int
constant_28(pTHX_ const char * name,IV * iv_return)7179 constant_28 (pTHX_ const char *name, IV *iv_return) {
7180 /* When generated this function returned values for the list of names given
7181 here. However, subsequent manual editing may have added or removed some.
7182 DB_EVENT_REP_ELECTION_FAILED DB_REPMGR_ACKS_ALL_AVAILABLE
7183 DB_REP_FULL_ELECTION_TIMEOUT DB_REP_WRITE_FORWARD_TIMEOUT
7184 DB_SET_MUTEX_FAILCHK_TIMEOUT */
7185 /* Offset 19 gives the best switch position. */
7186 switch (name[19]) {
7187 case 'A':
7188 if (memEQ(name, "DB_REPMGR_ACKS_ALL_AVAILABLE", 28)) {
7189 /* ^ */
7190 #ifdef DB_REPMGR_ACKS_ALL_AVAILABLE
7191 *iv_return = DB_REPMGR_ACKS_ALL_AVAILABLE;
7192 return PERL_constant_ISIV;
7193 #else
7194 return PERL_constant_NOTDEF;
7195 #endif
7196 }
7197 break;
7198 case 'D':
7199 if (memEQ(name, "DB_REP_WRITE_FORWARD_TIMEOUT", 28)) {
7200 /* ^ */
7201 #ifdef DB_REP_WRITE_FORWARD_TIMEOUT
7202 *iv_return = DB_REP_WRITE_FORWARD_TIMEOUT;
7203 return PERL_constant_ISIV;
7204 #else
7205 return PERL_constant_NOTDEF;
7206 #endif
7207 }
7208 break;
7209 case 'K':
7210 if (memEQ(name, "DB_SET_MUTEX_FAILCHK_TIMEOUT", 28)) {
7211 /* ^ */
7212 #ifdef DB_SET_MUTEX_FAILCHK_TIMEOUT
7213 *iv_return = DB_SET_MUTEX_FAILCHK_TIMEOUT;
7214 return PERL_constant_ISIV;
7215 #else
7216 return PERL_constant_NOTDEF;
7217 #endif
7218 }
7219 break;
7220 case 'N':
7221 if (memEQ(name, "DB_REP_FULL_ELECTION_TIMEOUT", 28)) {
7222 /* ^ */
7223 #ifdef DB_REP_FULL_ELECTION_TIMEOUT
7224 *iv_return = DB_REP_FULL_ELECTION_TIMEOUT;
7225 return PERL_constant_ISIV;
7226 #else
7227 return PERL_constant_NOTDEF;
7228 #endif
7229 }
7230 break;
7231 case 'O':
7232 if (memEQ(name, "DB_EVENT_REP_ELECTION_FAILED", 28)) {
7233 /* ^ */
7234 #ifdef DB_EVENT_REP_ELECTION_FAILED
7235 *iv_return = DB_EVENT_REP_ELECTION_FAILED;
7236 return PERL_constant_ISIV;
7237 #else
7238 return PERL_constant_NOTDEF;
7239 #endif
7240 }
7241 break;
7242 }
7243 return PERL_constant_NOTFOUND;
7244 }
7245
7246 static int
constant_29(pTHX_ const char * name,IV * iv_return)7247 constant_29 (pTHX_ const char *name, IV *iv_return) {
7248 /* When generated this function returned values for the list of names given
7249 here. However, subsequent manual editing may have added or removed some.
7250 DB_REPMGR_CONF_FORWARD_WRITES DB_REPMGR_CONF_PREFMAS_CLIENT
7251 DB_REPMGR_CONF_PREFMAS_MASTER */
7252 /* Offset 28 gives the best switch position. */
7253 switch (name[28]) {
7254 case 'R':
7255 if (memEQ(name, "DB_REPMGR_CONF_PREFMAS_MASTE", 28)) {
7256 /* R */
7257 #ifdef DB_REPMGR_CONF_PREFMAS_MASTER
7258 *iv_return = DB_REPMGR_CONF_PREFMAS_MASTER;
7259 return PERL_constant_ISIV;
7260 #else
7261 return PERL_constant_NOTDEF;
7262 #endif
7263 }
7264 break;
7265 case 'S':
7266 if (memEQ(name, "DB_REPMGR_CONF_FORWARD_WRITE", 28)) {
7267 /* S */
7268 #ifdef DB_REPMGR_CONF_FORWARD_WRITES
7269 *iv_return = DB_REPMGR_CONF_FORWARD_WRITES;
7270 return PERL_constant_ISIV;
7271 #else
7272 return PERL_constant_NOTDEF;
7273 #endif
7274 }
7275 break;
7276 case 'T':
7277 if (memEQ(name, "DB_REPMGR_CONF_PREFMAS_CLIEN", 28)) {
7278 /* T */
7279 #ifdef DB_REPMGR_CONF_PREFMAS_CLIENT
7280 *iv_return = DB_REPMGR_CONF_PREFMAS_CLIENT;
7281 return PERL_constant_ISIV;
7282 #else
7283 return PERL_constant_NOTDEF;
7284 #endif
7285 }
7286 break;
7287 }
7288 return PERL_constant_NOTFOUND;
7289 }
7290
7291 static int
constant(pTHX_ const char * name,STRLEN len,IV * iv_return,const char ** pv_return)7292 constant (pTHX_ const char *name, STRLEN len, IV *iv_return, const char **pv_return) {
7293 /* Initially switch on the length of the name. */
7294 /* When generated this function returned values for the list of names given
7295 in this section of perl code. Rather than manually editing these functions
7296 to add or remove constants, which would result in this comment and section
7297 of code becoming inaccurate, we recommend that you edit this section of
7298 code, and use it to regenerate a new set of constant functions which you
7299 then use to replace the originals.
7300
7301 Regenerate these constant functions by feeding this entire source file to
7302 perl -x
7303
7304 #!/media/paul/Linux-Shared/base/perl/install/bin/perl -w
7305 use ExtUtils::Constant qw (constant_types C_constant XS_constant);
7306
7307 my $types = {map {($_, 1)} qw(IV PV)};
7308 my @names = (qw(DB2_AM_EXCL DB2_AM_INTEXCL DB2_AM_MPOOL_OPENED DB2_AM_NOWAIT
7309 DB_AFTER DB_AGGRESSIVE DB_ALREADY_ABORTED DB_APPEND
7310 DB_APPLY_LOGREG DB_APP_INIT DB_ARCH_ABS DB_ARCH_DATA DB_ARCH_LOG
7311 DB_ARCH_REMOVE DB_ASSOC_CREATE DB_ASSOC_IMMUTABLE_KEY
7312 DB_AUTO_COMMIT DB_BACKUP_CLEAN DB_BACKUP_FILES DB_BACKUP_NO_LOGS
7313 DB_BACKUP_SINGLE_DIR DB_BACKUP_UPDATE DB_BEFORE
7314 DB_BOOTSTRAP_HELPER DB_BTREEMAGIC DB_BTREEOLDVER DB_BTREEVERSION
7315 DB_BUFFER_SMALL DB_CACHED_COUNTS DB_CDB_ALLDB DB_CHECKPOINT
7316 DB_CHKSUM DB_CHKSUM_FAIL DB_CHKSUM_SHA1 DB_CKP_INTERNAL
7317 DB_CLIENT DB_CL_WRITER DB_COMMIT DB_COMPACT_FLAGS DB_CONSUME
7318 DB_CONSUME_WAIT DB_CONVERT DB_CREATE DB_CURLSN DB_CURRENT
7319 DB_CURSOR_BULK DB_CURSOR_TRANSIENT DB_CXX_NO_EXCEPTIONS
7320 DB_DATABASE_LOCK DB_DATABASE_LOCKING DB_DEGREE_2 DB_DELETED
7321 DB_DELIMITER DB_DIRECT DB_DIRECT_DB DB_DIRECT_LOG DB_DIRTY_READ
7322 DB_DONOTINDEX DB_DSYNC_DB DB_DSYNC_LOG DB_DUP DB_DUPCURSOR
7323 DB_DUPSORT DB_DURABLE_UNKNOWN DB_EID_BROADCAST DB_EID_INVALID
7324 DB_EID_MASTER DB_ENCRYPT DB_ENCRYPT_AES DB_ENV_APPINIT
7325 DB_ENV_AUTO_COMMIT DB_ENV_CDB DB_ENV_CDB_ALLDB DB_ENV_CREATE
7326 DB_ENV_DATABASE_LOCKING DB_ENV_DBLOCAL DB_ENV_DIRECT_DB
7327 DB_ENV_DIRECT_LOG DB_ENV_DSYNC_DB DB_ENV_DSYNC_LOG
7328 DB_ENV_FAILCHK DB_ENV_FATAL DB_ENV_HOTBACKUP DB_ENV_LOCKDOWN
7329 DB_ENV_LOCKING DB_ENV_LOGGING DB_ENV_LOG_AUTOREMOVE
7330 DB_ENV_LOG_INMEMORY DB_ENV_MULTIVERSION DB_ENV_NOFLUSH
7331 DB_ENV_NOLOCKING DB_ENV_NOMMAP DB_ENV_NOPANIC
7332 DB_ENV_NO_OUTPUT_SET DB_ENV_OPEN_CALLED DB_ENV_OVERWRITE
7333 DB_ENV_PRIVATE DB_ENV_RECOVER_FATAL DB_ENV_REF_COUNTED
7334 DB_ENV_REGION_INIT DB_ENV_REP_CLIENT DB_ENV_REP_LOGSONLY
7335 DB_ENV_REP_MASTER DB_ENV_RPCCLIENT DB_ENV_RPCCLIENT_GIVEN
7336 DB_ENV_STANDALONE DB_ENV_SYSTEM_MEM DB_ENV_THREAD
7337 DB_ENV_TIME_NOTGRANTED DB_ENV_TXN DB_ENV_TXN_NOSYNC
7338 DB_ENV_TXN_NOT_DURABLE DB_ENV_TXN_NOWAIT DB_ENV_TXN_SNAPSHOT
7339 DB_ENV_TXN_WRITE_NOSYNC DB_ENV_USER_ALLOC DB_ENV_YIELDCPU
7340 DB_EVENT_FAILCHK_PANIC DB_EVENT_MUTEX_DIED DB_EVENT_NOT_HANDLED
7341 DB_EVENT_NO_SUCH_EVENT DB_EVENT_PANIC DB_EVENT_REG_ALIVE
7342 DB_EVENT_REG_PANIC DB_EVENT_REP_AUTOTAKEOVER
7343 DB_EVENT_REP_AUTOTAKEOVER_FAILED DB_EVENT_REP_CLIENT
7344 DB_EVENT_REP_CONNECT_BROKEN DB_EVENT_REP_CONNECT_ESTD
7345 DB_EVENT_REP_CONNECT_TRY_FAILED DB_EVENT_REP_DUPMASTER
7346 DB_EVENT_REP_ELECTED DB_EVENT_REP_ELECTION_FAILED
7347 DB_EVENT_REP_INIT_DONE DB_EVENT_REP_INQUEUE_FULL
7348 DB_EVENT_REP_JOIN_FAILURE DB_EVENT_REP_LOCAL_SITE_REMOVED
7349 DB_EVENT_REP_MASTER DB_EVENT_REP_MASTER_FAILURE
7350 DB_EVENT_REP_NEWMASTER DB_EVENT_REP_PERM_FAILED
7351 DB_EVENT_REP_SITE_ADDED DB_EVENT_REP_SITE_REMOVED
7352 DB_EVENT_REP_STARTUPDONE DB_EVENT_REP_WOULD_ROLLBACK
7353 DB_EVENT_WRITE_FAILED DB_EXCL DB_EXIT_FAILCHK
7354 DB_EXIT_FILE_EXISTS DB_EXTENT DB_FAILCHK DB_FAILCHK_ISALIVE
7355 DB_FAILURE_SYMPTOM_SIZE DB_FAST_STAT DB_FCNTL_LOCKING
7356 DB_FILEOPEN DB_FILE_ID_LEN DB_FIRST DB_FIXEDLEN DB_FLUSH
7357 DB_FORCE DB_FORCESYNC DB_FORCESYNCENV DB_FOREIGN_ABORT
7358 DB_FOREIGN_CASCADE DB_FOREIGN_CONFLICT DB_FOREIGN_NULLIFY
7359 DB_FREELIST_ONLY DB_FREE_SPACE DB_GETREC DB_GET_BOTH
7360 DB_GET_BOTHC DB_GET_BOTH_LTE DB_GET_BOTH_RANGE DB_GET_RECNO
7361 DB_GID_SIZE DB_GROUP_CREATOR DB_HANDLE_LOCK DB_HASHMAGIC
7362 DB_HASHOLDVER DB_HASHVERSION DB_HEAPMAGIC DB_HEAPOLDVER
7363 DB_HEAPVERSION DB_HEAP_FULL DB_HEAP_RID_SZ
7364 DB_HOTBACKUP_IN_PROGRESS DB_IGNORE_LEASE DB_IMMUTABLE_KEY
7365 DB_INCOMPLETE DB_INIT_CDB DB_INIT_LOCK DB_INIT_LOG DB_INIT_MPOOL
7366 DB_INIT_MUTEX DB_INIT_REP DB_INIT_TXN DB_INORDER
7367 DB_INTERNAL_BLOB_DB DB_INTERNAL_DB DB_INTERNAL_PERSISTENT_DB
7368 DB_INTERNAL_TEMPORARY_DB DB_JAVA_CALLBACK DB_JOINENV
7369 DB_JOIN_ITEM DB_JOIN_NOSORT DB_KEYEMPTY DB_KEYEXIST DB_KEYFIRST
7370 DB_KEYLAST DB_LAST DB_LEGACY DB_LOCAL_SITE DB_LOCKDOWN
7371 DB_LOCKMAGIC DB_LOCKVERSION DB_LOCK_ABORT DB_LOCK_CHECK
7372 DB_LOCK_CONFLICT DB_LOCK_DEADLOCK DB_LOCK_DEFAULT DB_LOCK_EXPIRE
7373 DB_LOCK_FREE_LOCKER DB_LOCK_IGNORE_REC DB_LOCK_MAXLOCKS
7374 DB_LOCK_MAXWRITE DB_LOCK_MINLOCKS DB_LOCK_MINWRITE DB_LOCK_NORUN
7375 DB_LOCK_NOTEXIST DB_LOCK_NOTGRANTED DB_LOCK_NOTHELD
7376 DB_LOCK_NOWAIT DB_LOCK_OLDEST DB_LOCK_RANDOM DB_LOCK_RECORD
7377 DB_LOCK_REMOVE DB_LOCK_RIW_N DB_LOCK_RW_N DB_LOCK_SET_TIMEOUT
7378 DB_LOCK_SWITCH DB_LOCK_UPGRADE DB_LOCK_YOUNGEST DB_LOGCHKSUM
7379 DB_LOGC_BUF_SIZE DB_LOGFILEID_INVALID DB_LOGMAGIC DB_LOGOLDVER
7380 DB_LOGVERSION DB_LOGVERSION_LATCHING DB_LOG_AUTOREMOVE
7381 DB_LOG_AUTO_REMOVE DB_LOG_BLOB DB_LOG_BUFFER_FULL DB_LOG_CHKPNT
7382 DB_LOG_COMMIT DB_LOG_DIRECT DB_LOG_DISK DB_LOG_DSYNC
7383 DB_LOG_EXT_FILE DB_LOG_INMEMORY DB_LOG_IN_MEMORY DB_LOG_LOCKED
7384 DB_LOG_NOCOPY DB_LOG_NOSYNC DB_LOG_NOT_DURABLE DB_LOG_NO_DATA
7385 DB_LOG_PERM DB_LOG_RESEND DB_LOG_SILENT_ERR DB_LOG_VERIFY_BAD
7386 DB_LOG_VERIFY_CAF DB_LOG_VERIFY_DBFILE DB_LOG_VERIFY_ERR
7387 DB_LOG_VERIFY_FORWARD DB_LOG_VERIFY_INTERR DB_LOG_VERIFY_PARTIAL
7388 DB_LOG_VERIFY_VERBOSE DB_LOG_VERIFY_WARNING DB_LOG_WRNOSYNC
7389 DB_LOG_ZERO DB_MAX_PAGES DB_MAX_RECORDS DB_META_CHKSUM_FAIL
7390 DB_MPOOL_CLEAN DB_MPOOL_CREATE DB_MPOOL_DIRTY DB_MPOOL_DISCARD
7391 DB_MPOOL_EDIT DB_MPOOL_EXTENT DB_MPOOL_FREE DB_MPOOL_LAST
7392 DB_MPOOL_NEW DB_MPOOL_NEW_GROUP DB_MPOOL_NOFILE DB_MPOOL_NOLOCK
7393 DB_MPOOL_PRIVATE DB_MPOOL_TRY DB_MPOOL_UNLINK DB_MULTIPLE
7394 DB_MULTIPLE_KEY DB_MULTIVERSION DB_MUTEXDEBUG DB_MUTEXLOCKS
7395 DB_MUTEX_ALLOCATED DB_MUTEX_DESCRIBE_STRLEN DB_MUTEX_LOCKED
7396 DB_MUTEX_LOGICAL_LOCK DB_MUTEX_OWNER_DEAD DB_MUTEX_PROCESS_ONLY
7397 DB_MUTEX_SELF_BLOCK DB_MUTEX_SHARED DB_MUTEX_THREAD DB_NEEDSPLIT
7398 DB_NEXT DB_NEXT_DUP DB_NEXT_NODUP DB_NOCOPY DB_NODUPDATA
7399 DB_NOERROR DB_NOFLUSH DB_NOINTMP DB_NOLOCKING DB_NOMMAP
7400 DB_NOORDERCHK DB_NOOVERWRITE DB_NOPANIC DB_NORECURSE DB_NOSERVER
7401 DB_NOSERVER_HOME DB_NOSERVER_ID DB_NOSYNC DB_NOTFOUND
7402 DB_NO_AUTO_COMMIT DB_NO_CHECKPOINT DB_ODDFILESIZE DB_OFF_T_MAX
7403 DB_OK_BTREE DB_OK_HASH DB_OK_HEAP DB_OK_QUEUE DB_OK_RECNO
7404 DB_OLD_VERSION DB_OPEN_CALLED DB_OPFLAGS_MASK DB_ORDERCHKONLY
7405 DB_OVERWRITE DB_OVERWRITE_DUP DB_PAD DB_PAGEYIELD DB_PAGE_LOCK
7406 DB_PAGE_NOTFOUND DB_PANIC_ENVIRONMENT DB_PERMANENT DB_POSITION
7407 DB_POSITIONI DB_PREV DB_PREV_DUP DB_PREV_NODUP DB_PRINTABLE
7408 DB_PRIVATE DB_PR_HEADERS DB_PR_PAGE DB_PR_RECOVERYTEST
7409 DB_QAMMAGIC DB_QAMOLDVER DB_QAMVERSION DB_RDONLY DB_RDWRMASTER
7410 DB_READ_COMMITTED DB_READ_UNCOMMITTED DB_RECNUM DB_RECORDCOUNT
7411 DB_RECORD_LOCK DB_RECOVER DB_RECOVER_FATAL DB_REGION_ANON
7412 DB_REGION_INIT DB_REGION_MAGIC DB_REGION_MAGIC_RECOVER
7413 DB_REGION_NAME DB_REGISTER DB_REGISTERED DB_RENAMEMAGIC
7414 DB_RENUMBER DB_REPFLAGS_MASK DB_REPMGR_ACKS_ALL
7415 DB_REPMGR_ACKS_ALL_AVAILABLE DB_REPMGR_ACKS_ALL_PEERS
7416 DB_REPMGR_ACKS_NONE DB_REPMGR_ACKS_ONE DB_REPMGR_ACKS_ONE_PEER
7417 DB_REPMGR_ACKS_QUORUM DB_REPMGR_CONF_2SITE_STRICT
7418 DB_REPMGR_CONF_DISABLE_POLL DB_REPMGR_CONF_ELECTIONS
7419 DB_REPMGR_CONF_ENABLE_EPOLL DB_REPMGR_CONF_FORWARD_WRITES
7420 DB_REPMGR_CONF_PREFMAS_CLIENT DB_REPMGR_CONF_PREFMAS_MASTER
7421 DB_REPMGR_CONNECTED DB_REPMGR_DISCONNECTED DB_REPMGR_ISELECTABLE
7422 DB_REPMGR_ISPEER DB_REPMGR_ISVIEW DB_REPMGR_NEED_RESPONSE
7423 DB_REPMGR_PEER DB_REP_ACK_TIMEOUT DB_REP_ANYWHERE DB_REP_BULKOVF
7424 DB_REP_CHECKPOINT_DELAY DB_REP_CLIENT DB_REP_CONF_AUTOINIT
7425 DB_REP_CONF_AUTOROLLBACK DB_REP_CONF_BULK
7426 DB_REP_CONF_DELAYCLIENT DB_REP_CONF_ELECT_LOGLENGTH
7427 DB_REP_CONF_INMEM DB_REP_CONF_LEASE DB_REP_CONF_NOAUTOINIT
7428 DB_REP_CONF_NOWAIT DB_REP_CONNECTION_RETRY DB_REP_CREATE
7429 DB_REP_DEFAULT_PRIORITY DB_REP_DUPMASTER DB_REP_EGENCHG
7430 DB_REP_ELECTION DB_REP_ELECTION_RETRY DB_REP_ELECTION_TIMEOUT
7431 DB_REP_FULL_ELECTION DB_REP_FULL_ELECTION_TIMEOUT
7432 DB_REP_HANDLE_DEAD DB_REP_HEARTBEAT_MONITOR
7433 DB_REP_HEARTBEAT_SEND DB_REP_HOLDELECTION DB_REP_IGNORE
7434 DB_REP_INELECT DB_REP_ISPERM DB_REP_JOIN_FAILURE
7435 DB_REP_LEASE_EXPIRED DB_REP_LEASE_TIMEOUT DB_REP_LOCKOUT
7436 DB_REP_LOGREADY DB_REP_LOGSONLY DB_REP_MASTER DB_REP_NEWMASTER
7437 DB_REP_NEWSITE DB_REP_NOBUFFER DB_REP_NOTPERM DB_REP_OUTDATED
7438 DB_REP_PAGEDONE DB_REP_PAGELOCKED DB_REP_PERMANENT
7439 DB_REP_REREQUEST DB_REP_STARTUPDONE DB_REP_UNAVAIL
7440 DB_REP_WOULDROLLBACK DB_REP_WRITE_FORWARD_TIMEOUT DB_REVSPLITOFF
7441 DB_RMW DB_RPCCLIENT DB_RPC_SERVERPROG DB_RPC_SERVERVERS
7442 DB_RUNRECOVERY DB_SALVAGE DB_SA_SKIPFIRSTKEY DB_SA_UNKNOWNKEY
7443 DB_SECONDARY_BAD DB_SEQUENCE_OLDVER DB_SEQUENCE_VERSION
7444 DB_SEQUENTIAL DB_SEQ_DEC DB_SEQ_INC DB_SEQ_RANGE_SET DB_SEQ_WRAP
7445 DB_SEQ_WRAPPED DB_SET DB_SET_LOCK_TIMEOUT DB_SET_LTE
7446 DB_SET_MUTEX_FAILCHK_TIMEOUT DB_SET_RANGE DB_SET_RECNO
7447 DB_SET_REG_TIMEOUT DB_SET_TXN_NOW DB_SET_TXN_TIMEOUT
7448 DB_SHALLOW_DUP DB_SLICED DB_SLICE_CORRUPT DB_SNAPSHOT
7449 DB_SPARE_FLAG DB_STAT_ALL DB_STAT_ALLOC DB_STAT_CLEAR
7450 DB_STAT_LOCK_CONF DB_STAT_LOCK_LOCKERS DB_STAT_LOCK_OBJECTS
7451 DB_STAT_LOCK_PARAMS DB_STAT_MEMP_HASH DB_STAT_MEMP_NOERROR
7452 DB_STAT_NOERROR DB_STAT_SUBSYSTEM DB_STAT_SUMMARY DB_STREAM_READ
7453 DB_STREAM_SYNC_WRITE DB_STREAM_WRITE DB_ST_DUPOK DB_ST_DUPSET
7454 DB_ST_DUPSORT DB_ST_IS_RECNO DB_ST_OVFL_LEAF DB_ST_RECNUM
7455 DB_ST_RELEN DB_ST_TOPLEVEL DB_SURPRISE_KID DB_SWAPBYTES
7456 DB_SYSTEM_MEM DB_SYSTEM_MEM_MISSING DB_TEMPORARY
7457 DB_TEST_ELECTINIT DB_TEST_ELECTSEND DB_TEST_ELECTVOTE1
7458 DB_TEST_ELECTVOTE2 DB_TEST_ELECTWAIT1 DB_TEST_ELECTWAIT2
7459 DB_TEST_POSTDESTROY DB_TEST_POSTLOG DB_TEST_POSTLOGMETA
7460 DB_TEST_POSTOPEN DB_TEST_POSTRENAME DB_TEST_POSTSYNC
7461 DB_TEST_PREDESTROY DB_TEST_PREOPEN DB_TEST_PRERENAME
7462 DB_TEST_RECYCLE DB_TEST_SUBDB_LOCKS DB_THREAD DB_THREADID_STRLEN
7463 DB_TIMEOUT DB_TIME_NOTGRANTED DB_TRUNCATE DB_TXNMAGIC
7464 DB_TXNVERSION DB_TXN_BULK DB_TXN_CKP DB_TXN_DISPATCH
7465 DB_TXN_FAMILY DB_TXN_LOCK DB_TXN_LOCK_2PL DB_TXN_LOCK_MASK
7466 DB_TXN_LOCK_OPTIMIST DB_TXN_LOCK_OPTIMISTIC DB_TXN_LOG_MASK
7467 DB_TXN_LOG_REDO DB_TXN_LOG_UNDO DB_TXN_LOG_UNDOREDO
7468 DB_TXN_NOSYNC DB_TXN_NOT_DURABLE DB_TXN_NOWAIT DB_TXN_REDO
7469 DB_TXN_SNAPSHOT DB_TXN_SYNC DB_TXN_TOKEN_SIZE DB_TXN_UNDO
7470 DB_TXN_WAIT DB_TXN_WRITE_NOSYNC DB_UNREF DB_UPDATE_SECONDARY
7471 DB_UPGRADE DB_USERCOPY_GETDATA DB_USERCOPY_SETDATA
7472 DB_USE_ENVIRON DB_USE_ENVIRON_ROOT DB_VERB_BACKUP
7473 DB_VERB_CHKPOINT DB_VERB_DEADLOCK DB_VERB_FILEOPS
7474 DB_VERB_FILEOPS_ALL DB_VERB_MVCC DB_VERB_RECOVERY
7475 DB_VERB_REGISTER DB_VERB_REPLICATION DB_VERB_REPMGR_CONNFAIL
7476 DB_VERB_REPMGR_MISC DB_VERB_REP_ELECT DB_VERB_REP_LEASE
7477 DB_VERB_REP_MISC DB_VERB_REP_MSGS DB_VERB_REP_SYNC
7478 DB_VERB_REP_SYSTEM DB_VERB_REP_TEST DB_VERB_SLICE
7479 DB_VERB_WAITSFOR DB_VERIFY DB_VERIFY_BAD DB_VERIFY_FATAL
7480 DB_VERIFY_PARTITION DB_VERSION_FAMILY DB_VERSION_MAJOR
7481 DB_VERSION_MINOR DB_VERSION_MISMATCH DB_VERSION_PATCH
7482 DB_VERSION_RELEASE DB_VRFY_FLAGMASK DB_WRITECURSOR DB_WRITELOCK
7483 DB_WRITEOPEN DB_WRNOSYNC DB_XA_CREATE DB_XIDDATASIZE DB_YIELDCPU
7484 DB_debug_FLAG DB_user_BEGIN HAVE_EPOLL),
7485 {name=>"DB_BACKUP_READ_COUNT", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 3) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 3 && \\\n DB_VERSION_PATCH >= 15)\n", "#endif\n"]},
7486 {name=>"DB_BACKUP_READ_SLEEP", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 3) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 3 && \\\n DB_VERSION_PATCH >= 15)\n", "#endif\n"]},
7487 {name=>"DB_BACKUP_SIZE", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 3) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 3 && \\\n DB_VERSION_PATCH >= 15)\n", "#endif\n"]},
7488 {name=>"DB_BACKUP_WRITE_DIRECT", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 3) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 3 && \\\n DB_VERSION_PATCH >= 15)\n", "#endif\n"]},
7489 {name=>"DB_BTREE", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 2) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 3)\n", "#endif\n"]},
7490 {name=>"DB_HASH", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 2) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 3)\n", "#endif\n"]},
7491 {name=>"DB_HEAP", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 2) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 2 && \\\n DB_VERSION_PATCH >= 10)\n", "#endif\n"]},
7492 {name=>"DB_LOCK_DUMP", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 2) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 3)\n", "#endif\n"]},
7493 {name=>"DB_LOCK_GET", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 2) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 3)\n", "#endif\n"]},
7494 {name=>"DB_LOCK_GET_TIMEOUT", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 14)\n", "#endif\n"]},
7495 {name=>"DB_LOCK_INHERIT", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 2) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 7) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 7 && \\\n DB_VERSION_PATCH >= 1)\n", "#endif\n"]},
7496 {name=>"DB_LOCK_PUT", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 2) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 3)\n", "#endif\n"]},
7497 {name=>"DB_LOCK_PUT_ALL", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 2) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 3)\n", "#endif\n"]},
7498 {name=>"DB_LOCK_PUT_OBJ", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 2) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 3)\n", "#endif\n"]},
7499 {name=>"DB_LOCK_PUT_READ", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 14)\n", "#endif\n"]},
7500 {name=>"DB_LOCK_TIMEOUT", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 14)\n", "#endif\n"]},
7501 {name=>"DB_LOCK_TRADE", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 24)\n", "#endif\n"]},
7502 {name=>"DB_LOCK_UPGRADE_WRITE", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 14)\n", "#endif\n"]},
7503 {name=>"DB_MEM_DATABASE", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 6) || \\\n (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR > 3) || \\\n (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR == 3 && \\\n DB_VERSION_PATCH >= 10)\n", "#endif\n"]},
7504 {name=>"DB_MEM_DATABASE_LENGTH", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 6) || \\\n (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR > 3) || \\\n (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR == 3 && \\\n DB_VERSION_PATCH >= 10)\n", "#endif\n"]},
7505 {name=>"DB_MEM_EXTFILE_DATABASE", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 6) || \\\n (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR > 3) || \\\n (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR == 3 && \\\n DB_VERSION_PATCH >= 10)\n", "#endif\n"]},
7506 {name=>"DB_MEM_LOCK", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 2) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 2 && \\\n DB_VERSION_PATCH >= 10)\n", "#endif\n"]},
7507 {name=>"DB_MEM_LOCKER", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 2) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 2 && \\\n DB_VERSION_PATCH >= 10)\n", "#endif\n"]},
7508 {name=>"DB_MEM_LOCKOBJECT", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 2) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 2 && \\\n DB_VERSION_PATCH >= 10)\n", "#endif\n"]},
7509 {name=>"DB_MEM_LOGID", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 2) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 2 && \\\n DB_VERSION_PATCH >= 10)\n", "#endif\n"]},
7510 {name=>"DB_MEM_REP_SITE", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 6) || \\\n (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR > 3) || \\\n (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR == 3 && \\\n DB_VERSION_PATCH >= 10)\n", "#endif\n"]},
7511 {name=>"DB_MEM_THREAD", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 2) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 2 && \\\n DB_VERSION_PATCH >= 10)\n", "#endif\n"]},
7512 {name=>"DB_MEM_TRANSACTION", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 2) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 2 && \\\n DB_VERSION_PATCH >= 10)\n", "#endif\n"]},
7513 {name=>"DB_PRIORITY_DEFAULT", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 24)\n", "#endif\n"]},
7514 {name=>"DB_PRIORITY_HIGH", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 24)\n", "#endif\n"]},
7515 {name=>"DB_PRIORITY_LOW", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 24)\n", "#endif\n"]},
7516 {name=>"DB_PRIORITY_UNCHANGED", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 6) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 6 && \\\n DB_VERSION_PATCH >= 18)\n", "#endif\n"]},
7517 {name=>"DB_PRIORITY_VERY_HIGH", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 24)\n", "#endif\n"]},
7518 {name=>"DB_PRIORITY_VERY_LOW", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 24)\n", "#endif\n"]},
7519 {name=>"DB_QUEUE", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 3) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 55)\n", "#endif\n"]},
7520 {name=>"DB_RECNO", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 2) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 3)\n", "#endif\n"]},
7521 {name=>"DB_TXN_ABORT", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 3) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 14)\n", "#endif\n"]},
7522 {name=>"DB_TXN_APPLY", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 14)\n", "#endif\n"]},
7523 {name=>"DB_TXN_BACKWARD_ROLL", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 3) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 14)\n", "#endif\n"]},
7524 {name=>"DB_TXN_FORWARD_ROLL", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 3) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 14)\n", "#endif\n"]},
7525 {name=>"DB_TXN_LOG_VERIFY", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 21)\n", "#endif\n"]},
7526 {name=>"DB_TXN_OPENFILES", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 3) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 3 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 14)\n", "#endif\n"]},
7527 {name=>"DB_TXN_POPENFILES", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 14)\n", "#endif\n"]},
7528 {name=>"DB_TXN_PRINT", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 4) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR > 1) || \\\n (DB_VERSION_MAJOR == 4 && DB_VERSION_MINOR == 1 && \\\n DB_VERSION_PATCH >= 24)\n", "#endif\n"]},
7529 {name=>"DB_UNKNOWN", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 2) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 2 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 3)\n", "#endif\n"]},
7530 {name=>"DB_VERSION_FULL_STRING", type=>"PV"},
7531 {name=>"DB_VERSION_STRING", type=>"PV"},
7532 {name=>"EPOLL", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 6) || \\\n (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR > 3) || \\\n (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR == 3 && \\\n DB_VERSION_PATCH >= 10)\n", "#endif\n"]},
7533 {name=>"LOGREC_ARG", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 21)\n", "#endif\n"]},
7534 {name=>"LOGREC_DATA", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 21)\n", "#endif\n"]},
7535 {name=>"LOGREC_DB", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 21)\n", "#endif\n"]},
7536 {name=>"LOGREC_DBOP", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 21)\n", "#endif\n"]},
7537 {name=>"LOGREC_DBT", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 21)\n", "#endif\n"]},
7538 {name=>"LOGREC_Done", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 21)\n", "#endif\n"]},
7539 {name=>"LOGREC_HDR", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 21)\n", "#endif\n"]},
7540 {name=>"LOGREC_LOCKS", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 21)\n", "#endif\n"]},
7541 {name=>"LOGREC_LONGARG", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 6) || \\\n (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 30)\n", "#endif\n"]},
7542 {name=>"LOGREC_OP", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 21)\n", "#endif\n"]},
7543 {name=>"LOGREC_PGDBT", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 21)\n", "#endif\n"]},
7544 {name=>"LOGREC_PGDDBT", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 21)\n", "#endif\n"]},
7545 {name=>"LOGREC_PGLIST", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 21)\n", "#endif\n"]},
7546 {name=>"LOGREC_POINTER", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 21)\n", "#endif\n"]},
7547 {name=>"LOGREC_TIME", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 5) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR > 0) || \\\n (DB_VERSION_MAJOR == 5 && DB_VERSION_MINOR == 0 && \\\n DB_VERSION_PATCH >= 21)\n", "#endif\n"]},
7548 {name=>"POLL", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 6) || \\\n (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR > 3) || \\\n (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR == 3 && \\\n DB_VERSION_PATCH >= 10)\n", "#endif\n"]},
7549 {name=>"SELECT", type=>"IV", macro=>["#if (DB_VERSION_MAJOR > 6) || \\\n (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR > 3) || \\\n (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR == 3 && \\\n DB_VERSION_PATCH >= 10)\n", "#endif\n"]});
7550
7551 print constant_types(), "\n"; # macro defs
7552 foreach (C_constant ("BerkeleyDB", 'constant', 'IV', $types, undef, 3, @names) ) {
7553 print $_, "\n"; # C constant subs
7554 }
7555 print "\n#### XS Section:\n";
7556 print XS_constant ("BerkeleyDB", $types);
7557 __END__
7558 */
7559
7560 switch (len) {
7561 case 4:
7562 if (memEQ(name, "POLL", 4)) {
7563 #if (DB_VERSION_MAJOR > 6) || \
7564 (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR > 3) || \
7565 (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR == 3 && \
7566 DB_VERSION_PATCH >= 10)
7567 *iv_return = POLL;
7568 return PERL_constant_ISIV;
7569 #else
7570 return PERL_constant_NOTDEF;
7571 #endif
7572 }
7573 break;
7574 case 5:
7575 if (memEQ(name, "EPOLL", 5)) {
7576 #if (DB_VERSION_MAJOR > 6) || \
7577 (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR > 3) || \
7578 (DB_VERSION_MAJOR == 6 && DB_VERSION_MINOR == 3 && \
7579 DB_VERSION_PATCH >= 10)
7580 *iv_return = EPOLL;
7581 return PERL_constant_ISIV;
7582 #else
7583 return PERL_constant_NOTDEF;
7584 #endif
7585 }
7586 break;
7587 case 6:
7588 return constant_6 (aTHX_ name, iv_return);
7589 break;
7590 case 7:
7591 return constant_7 (aTHX_ name, iv_return);
7592 break;
7593 case 8:
7594 return constant_8 (aTHX_ name, iv_return);
7595 break;
7596 case 9:
7597 return constant_9 (aTHX_ name, iv_return);
7598 break;
7599 case 10:
7600 return constant_10 (aTHX_ name, iv_return);
7601 break;
7602 case 11:
7603 return constant_11 (aTHX_ name, iv_return);
7604 break;
7605 case 12:
7606 return constant_12 (aTHX_ name, iv_return);
7607 break;
7608 case 13:
7609 return constant_13 (aTHX_ name, iv_return);
7610 break;
7611 case 14:
7612 return constant_14 (aTHX_ name, iv_return);
7613 break;
7614 case 15:
7615 return constant_15 (aTHX_ name, iv_return);
7616 break;
7617 case 16:
7618 return constant_16 (aTHX_ name, iv_return);
7619 break;
7620 case 17:
7621 return constant_17 (aTHX_ name, iv_return, pv_return);
7622 break;
7623 case 18:
7624 return constant_18 (aTHX_ name, iv_return);
7625 break;
7626 case 19:
7627 return constant_19 (aTHX_ name, iv_return);
7628 break;
7629 case 20:
7630 return constant_20 (aTHX_ name, iv_return);
7631 break;
7632 case 21:
7633 return constant_21 (aTHX_ name, iv_return);
7634 break;
7635 case 22:
7636 return constant_22 (aTHX_ name, iv_return, pv_return);
7637 break;
7638 case 23:
7639 return constant_23 (aTHX_ name, iv_return);
7640 break;
7641 case 24:
7642 return constant_24 (aTHX_ name, iv_return);
7643 break;
7644 case 25:
7645 return constant_25 (aTHX_ name, iv_return);
7646 break;
7647 case 27:
7648 return constant_27 (aTHX_ name, iv_return);
7649 break;
7650 case 28:
7651 return constant_28 (aTHX_ name, iv_return);
7652 break;
7653 case 29:
7654 return constant_29 (aTHX_ name, iv_return);
7655 break;
7656 case 31:
7657 /* Names all of length 31. */
7658 /* DB_EVENT_REP_CONNECT_TRY_FAILED DB_EVENT_REP_LOCAL_SITE_REMOVED */
7659 /* Offset 19 gives the best switch position. */
7660 switch (name[19]) {
7661 case 'S':
7662 if (memEQ(name, "DB_EVENT_REP_LOCAL_SITE_REMOVED", 31)) {
7663 /* ^ */
7664 #ifdef DB_EVENT_REP_LOCAL_SITE_REMOVED
7665 *iv_return = DB_EVENT_REP_LOCAL_SITE_REMOVED;
7666 return PERL_constant_ISIV;
7667 #else
7668 return PERL_constant_NOTDEF;
7669 #endif
7670 }
7671 break;
7672 case 'T':
7673 if (memEQ(name, "DB_EVENT_REP_CONNECT_TRY_FAILED", 31)) {
7674 /* ^ */
7675 #ifdef DB_EVENT_REP_CONNECT_TRY_FAILED
7676 *iv_return = DB_EVENT_REP_CONNECT_TRY_FAILED;
7677 return PERL_constant_ISIV;
7678 #else
7679 return PERL_constant_NOTDEF;
7680 #endif
7681 }
7682 break;
7683 }
7684 break;
7685 case 32:
7686 if (memEQ(name, "DB_EVENT_REP_AUTOTAKEOVER_FAILED", 32)) {
7687 #ifdef DB_EVENT_REP_AUTOTAKEOVER_FAILED
7688 *iv_return = DB_EVENT_REP_AUTOTAKEOVER_FAILED;
7689 return PERL_constant_ISIV;
7690 #else
7691 return PERL_constant_NOTDEF;
7692 #endif
7693 }
7694 break;
7695 }
7696 return PERL_constant_NOTFOUND;
7697 }
7698
7699