Artifact 8227f03a446cc825b9366d4b597d49a3b3e56fe9:
- File lmdb.sls — part of check-in [b358a80757] at 2016-09-04 14:50:46 on branch trunk — added missing file changes (user: aldo size: 6978)
0000: 3b 3b 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 ;;.;; Copyright 0010: 32 30 31 36 20 41 6c 64 6f 20 4e 69 63 6f 6c 61 2016 Aldo Nicola 0020: 73 20 42 72 75 6e 6f 0a 3b 3b 0a 3b 3b 20 4c 69 s Bruno.;;.;; Li 0030: 63 65 6e 73 65 64 20 75 6e 64 65 72 20 74 68 65 censed under the 0040: 20 41 70 61 63 68 65 20 4c 69 63 65 6e 73 65 2c Apache License, 0050: 20 56 65 72 73 69 6f 6e 20 32 2e 30 20 28 74 68 Version 2.0 (th 0060: 65 20 22 4c 69 63 65 6e 73 65 22 29 3b 0a 3b 3b e "License");.;; 0070: 20 79 6f 75 20 6d 61 79 20 6e 6f 74 20 75 73 65 you may not use 0080: 20 74 68 69 73 20 66 69 6c 65 20 65 78 63 65 70 this file excep 0090: 74 20 69 6e 20 63 6f 6d 70 6c 69 61 6e 63 65 20 t in compliance 00a0: 77 69 74 68 20 74 68 65 20 4c 69 63 65 6e 73 65 with the License 00b0: 2e 0a 3b 3b 20 59 6f 75 20 6d 61 79 20 6f 62 74 ..;; You may obt 00c0: 61 69 6e 20 61 20 63 6f 70 79 20 6f 66 20 74 68 ain a copy of th 00d0: 65 20 4c 69 63 65 6e 73 65 20 61 74 0a 3b 3b 0a e License at.;;. 00e0: 3b 3b 20 20 20 20 20 68 74 74 70 3a 2f 2f 77 77 ;; http://ww 00f0: 77 2e 61 70 61 63 68 65 2e 6f 72 67 2f 6c 69 63 w.apache.org/lic 0100: 65 6e 73 65 73 2f 4c 49 43 45 4e 53 45 2d 32 2e enses/LICENSE-2. 0110: 30 0a 3b 3b 0a 3b 3b 20 55 6e 6c 65 73 73 20 72 0.;;.;; Unless r 0120: 65 71 75 69 72 65 64 20 62 79 20 61 70 70 6c 69 equired by appli 0130: 63 61 62 6c 65 20 6c 61 77 20 6f 72 20 61 67 72 cable law or agr 0140: 65 65 64 20 74 6f 20 69 6e 20 77 72 69 74 69 6e eed to in writin 0150: 67 2c 20 73 6f 66 74 77 61 72 65 0a 3b 3b 20 64 g, software.;; d 0160: 69 73 74 72 69 62 75 74 65 64 20 75 6e 64 65 72 istributed under 0170: 20 74 68 65 20 4c 69 63 65 6e 73 65 20 69 73 20 the License is 0180: 64 69 73 74 72 69 62 75 74 65 64 20 6f 6e 20 61 distributed on a 0190: 6e 20 22 41 53 20 49 53 22 20 42 41 53 49 53 2c n "AS IS" BASIS, 01a0: 0a 3b 3b 20 57 49 54 48 4f 55 54 20 57 41 52 52 .;; WITHOUT WARR 01b0: 41 4e 54 49 45 53 20 4f 52 20 43 4f 4e 44 49 54 ANTIES OR CONDIT 01c0: 49 4f 4e 53 20 4f 46 20 41 4e 59 20 4b 49 4e 44 IONS OF ANY KIND 01d0: 2c 20 65 69 74 68 65 72 20 65 78 70 72 65 73 73 , either express 01e0: 20 6f 72 20 69 6d 70 6c 69 65 64 2e 0a 3b 3b 20 or implied..;; 01f0: 53 65 65 20 74 68 65 20 4c 69 63 65 6e 73 65 20 See the License 0200: 66 6f 72 20 74 68 65 20 73 70 65 63 69 66 69 63 for the specific 0210: 20 6c 61 6e 67 75 61 67 65 20 67 6f 76 65 72 6e language govern 0220: 69 6e 67 20 70 65 72 6d 69 73 73 69 6f 6e 73 20 ing permissions 0230: 61 6e 64 0a 3b 3b 20 6c 69 6d 69 74 61 74 69 6f and.;; limitatio 0240: 6e 73 20 75 6e 64 65 72 20 74 68 65 20 4c 69 63 ns under the Lic 0250: 65 6e 73 65 2e 0a 0a 23 21 72 36 72 73 0a 28 6c ense...#!r6rs.(l 0260: 69 62 72 61 72 79 20 0a 20 28 6c 6d 64 62 29 20 ibrary . (lmdb) 0270: 0a 20 28 65 78 70 6f 72 74 0a 20 20 6d 64 62 2d . (export. mdb- 0280: 76 65 72 73 69 6f 6e 20 6d 64 62 2d 73 74 72 65 version mdb-stre 0290: 72 72 6f 72 20 6d 64 62 2d 65 6e 76 2d 63 72 65 rror mdb-env-cre 02a0: 61 74 65 20 6d 64 62 2d 65 6e 76 2d 6f 70 65 6e ate mdb-env-open 02b0: 20 6d 64 62 2d 65 6e 76 2d 63 6f 70 79 0a 20 20 mdb-env-copy. 02c0: 6d 64 62 2d 65 6e 76 2d 63 6f 70 79 66 64 20 6d mdb-env-copyfd m 02d0: 64 62 2d 65 6e 76 2d 63 6f 70 79 32 20 6d 64 62 db-env-copy2 mdb 02e0: 2d 65 6e 76 2d 63 6f 70 79 66 64 32 20 6d 64 62 -env-copyfd2 mdb 02f0: 2d 65 6e 76 2d 73 74 61 74 20 6d 64 62 2d 65 6e -env-stat mdb-en 0300: 76 2d 69 6e 66 6f 0a 20 20 6d 64 62 2d 65 6e 76 v-info. mdb-env 0310: 2d 73 79 6e 63 20 6d 64 62 2d 65 6e 76 2d 63 6c -sync mdb-env-cl 0320: 6f 73 65 20 6d 64 62 2d 65 6e 76 2d 73 65 74 2d ose mdb-env-set- 0330: 66 6c 61 67 73 20 6d 64 62 2d 65 6e 76 2d 67 65 flags mdb-env-ge 0340: 74 2d 66 6c 61 67 73 0a 20 20 6d 64 62 2d 65 6e t-flags. mdb-en 0350: 76 2d 67 65 74 2d 70 61 74 68 20 6d 64 62 2d 65 v-get-path mdb-e 0360: 6e 76 2d 67 65 74 2d 66 64 20 6d 64 62 2d 65 6e nv-get-fd mdb-en 0370: 76 2d 73 65 74 2d 6d 61 70 73 69 7a 65 0a 20 20 v-set-mapsize. 0380: 6d 64 62 2d 65 6e 76 2d 73 65 74 2d 6d 61 78 72 mdb-env-set-maxr 0390: 65 61 64 65 72 73 20 6d 64 62 2d 65 6e 76 2d 67 eaders mdb-env-g 03a0: 65 74 2d 6d 61 78 72 65 61 64 65 72 73 20 6d 64 et-maxreaders md 03b0: 62 2d 65 6e 76 2d 73 65 74 2d 6d 61 78 64 62 73 b-env-set-maxdbs 03c0: 0a 20 20 6d 64 62 2d 65 6e 76 2d 67 65 74 2d 6d . mdb-env-get-m 03d0: 61 78 6b 65 79 73 69 7a 65 20 6d 64 62 2d 65 6e axkeysize mdb-en 03e0: 76 2d 73 65 74 2d 75 73 65 72 63 74 78 20 6d 64 v-set-userctx md 03f0: 62 2d 65 6e 76 2d 67 65 74 2d 75 73 65 72 63 74 b-env-get-userct 0400: 78 0a 20 20 6d 64 62 2d 65 6e 76 2d 73 65 74 2d x. mdb-env-set- 0410: 61 73 73 65 72 74 20 6d 64 62 2d 74 78 6e 2d 62 assert mdb-txn-b 0420: 65 67 69 6e 20 6d 64 62 2d 74 78 6e 2d 65 6e 76 egin mdb-txn-env 0430: 20 6d 64 62 2d 74 78 6e 2d 69 64 20 6d 64 62 2d mdb-txn-id mdb- 0440: 74 78 6e 2d 63 6f 6d 6d 69 74 0a 20 20 6d 64 62 txn-commit. mdb 0450: 2d 74 78 6e 2d 61 62 6f 72 74 20 6d 64 62 2d 74 -txn-abort mdb-t 0460: 78 6e 2d 72 65 73 65 74 20 6d 64 62 2d 74 78 6e xn-reset mdb-txn 0470: 2d 72 65 6e 65 77 20 6d 64 62 2d 64 62 69 2d 6f -renew mdb-dbi-o 0480: 70 65 6e 20 6d 64 62 2d 73 74 61 74 0a 20 20 6d pen mdb-stat. m 0490: 64 62 2d 64 62 69 2d 66 6c 61 67 73 20 6d 64 62 db-dbi-flags mdb 04a0: 2d 64 62 69 2d 63 6c 6f 73 65 20 6d 64 62 2d 64 -dbi-close mdb-d 04b0: 72 6f 70 20 6d 64 62 2d 73 65 74 2d 63 6f 6d 70 rop mdb-set-comp 04c0: 61 72 65 20 6d 64 62 2d 73 65 74 2d 64 75 70 73 are mdb-set-dups 04d0: 6f 72 74 0a 20 20 6d 64 62 2d 73 65 74 2d 72 65 ort. mdb-set-re 04e0: 6c 66 75 6e 63 20 6d 64 62 2d 73 65 74 2d 72 65 lfunc mdb-set-re 04f0: 6c 63 74 78 20 6d 64 62 2d 67 65 74 20 6d 64 62 lctx mdb-get mdb 0500: 2d 70 75 74 20 6d 64 62 2d 64 65 6c 20 6d 64 62 -put mdb-del mdb 0510: 2d 63 75 72 73 6f 72 2d 6f 70 65 6e 0a 20 20 6d -cursor-open. m 0520: 64 62 2d 63 75 72 73 6f 72 2d 63 6c 6f 73 65 20 db-cursor-close 0530: 6d 64 62 2d 63 75 72 73 6f 72 2d 72 65 6e 65 77 mdb-cursor-renew 0540: 20 6d 64 62 2d 63 75 72 73 6f 72 2d 74 78 6e 20 mdb-cursor-txn 0550: 6d 64 62 2d 63 75 72 73 6f 72 2d 64 62 69 0a 20 mdb-cursor-dbi. 0560: 20 6d 64 62 2d 63 75 72 73 6f 72 2d 67 65 74 20 mdb-cursor-get 0570: 6d 64 62 2d 63 75 72 73 6f 72 2d 70 75 74 20 6d mdb-cursor-put m 0580: 64 62 2d 63 75 72 73 6f 72 2d 64 65 6c 20 6d 64 db-cursor-del md 0590: 62 2d 63 75 72 73 6f 72 2d 63 6f 75 6e 74 20 6d b-cursor-count m 05a0: 64 62 2d 63 6d 70 0a 20 20 6d 64 62 2d 64 63 6d db-cmp. mdb-dcm 05b0: 70 20 6d 64 62 2d 72 65 61 64 65 72 2d 6c 69 73 p mdb-reader-lis 05c0: 74 20 6d 64 62 2d 72 65 61 64 65 72 2d 63 68 65 t mdb-reader-che 05d0: 63 6b 0a 0a 20 20 4d 44 42 5f 53 55 43 43 45 53 ck.. MDB_SUCCES 05e0: 53 20 4d 44 42 5f 4b 45 59 45 58 49 53 54 20 4d S MDB_KEYEXIST M 05f0: 44 42 5f 4e 4f 54 46 4f 55 4e 44 20 4d 44 42 5f DB_NOTFOUND MDB_ 0600: 50 41 47 45 5f 4e 4f 54 46 4f 55 4e 44 20 4d 44 PAGE_NOTFOUND MD 0610: 42 5f 43 4f 52 52 55 50 54 45 44 0a 20 20 4d 44 B_CORRUPTED. MD 0620: 42 5f 50 41 4e 49 43 20 4d 44 42 5f 56 45 52 53 B_PANIC MDB_VERS 0630: 49 4f 4e 5f 4d 49 53 4d 41 54 43 48 20 4d 44 42 ION_MISMATCH MDB 0640: 5f 49 4e 56 41 4c 49 44 20 4d 44 42 5f 4d 41 50 _INVALID MDB_MAP 0650: 5f 46 55 4c 4c 20 4d 44 42 5f 44 42 53 5f 46 55 _FULL MDB_DBS_FU 0660: 4c 4c 0a 20 20 4d 44 42 5f 52 45 41 44 45 52 53 LL. MDB_READERS 0670: 5f 46 55 4c 4c 20 4d 44 42 5f 54 4c 53 5f 46 55 _FULL MDB_TLS_FU 0680: 4c 4c 20 4d 44 42 5f 54 58 4e 5f 46 55 4c 4c 20 LL MDB_TXN_FULL 0690: 4d 44 42 5f 43 55 52 53 4f 52 5f 46 55 4c 4c 0a MDB_CURSOR_FULL. 06a0: 20 20 4d 44 42 5f 50 41 47 45 5f 46 55 4c 4c 20 MDB_PAGE_FULL 06b0: 4d 44 42 5f 4d 41 50 5f 52 45 53 49 5a 45 44 20 MDB_MAP_RESIZED 06c0: 4d 44 42 5f 49 4e 43 4f 4d 50 41 54 49 42 4c 45 MDB_INCOMPATIBLE 06d0: 20 4d 44 42 5f 42 41 44 5f 52 53 4c 4f 54 0a 20 MDB_BAD_RSLOT. 06e0: 20 4d 44 42 5f 42 41 44 5f 54 58 4e 20 4d 44 42 MDB_BAD_TXN MDB 06f0: 5f 42 41 44 5f 56 41 4c 53 49 5a 45 20 4d 44 42 _BAD_VALSIZE MDB 0700: 5f 42 41 44 5f 44 42 49 20 4d 44 42 5f 50 52 4f _BAD_DBI MDB_PRO 0710: 42 4c 45 4d 20 4d 44 42 5f 4c 41 53 54 5f 45 52 BLEM MDB_LAST_ER 0720: 52 43 4f 44 45 0a 0a 0a 20 20 4d 44 42 5f 46 49 RCODE... MDB_FI 0730: 58 45 44 4d 41 50 20 4d 44 42 5f 4e 4f 53 55 42 XEDMAP MDB_NOSUB 0740: 44 49 52 20 4d 44 42 5f 4e 4f 53 59 4e 43 20 4d DIR MDB_NOSYNC M 0750: 44 42 5f 52 44 4f 4e 4c 59 20 4d 44 42 5f 4e 4f DB_RDONLY MDB_NO 0760: 4d 45 54 41 53 59 4e 43 0a 20 20 4d 44 42 5f 57 METASYNC. MDB_W 0770: 52 49 54 45 4d 41 50 20 4d 44 42 5f 4d 41 50 41 RITEMAP MDB_MAPA 0780: 53 59 4e 43 20 4d 44 42 5f 4e 4f 54 4c 53 20 4d SYNC MDB_NOTLS M 0790: 44 42 5f 4e 4f 4c 4f 43 4b 20 4d 44 42 5f 4e 4f DB_NOLOCK MDB_NO 07a0: 52 44 41 48 45 41 44 0a 20 20 4d 44 42 5f 4e 4f RDAHEAD. MDB_NO 07b0: 4d 45 4d 49 4e 49 54 20 4d 44 42 5f 52 45 56 45 MEMINIT MDB_REVE 07c0: 52 53 45 4b 45 59 20 4d 44 42 5f 44 55 50 53 4f RSEKEY MDB_DUPSO 07d0: 52 54 20 4d 44 42 5f 49 4e 54 45 47 45 52 4b 45 RT MDB_INTEGERKE 07e0: 59 20 4d 44 42 5f 44 55 50 46 49 58 45 44 0a 20 Y MDB_DUPFIXED. 07f0: 20 4d 44 42 5f 49 4e 54 45 47 45 52 44 55 50 20 MDB_INTEGERDUP 0800: 4d 44 42 5f 52 45 56 45 52 53 45 44 55 50 20 4d MDB_REVERSEDUP M 0810: 44 42 5f 43 52 45 41 54 45 0a 0a 20 20 4d 44 42 DB_CREATE.. MDB 0820: 5f 4e 4f 4f 56 45 52 57 52 49 54 45 20 4d 44 42 _NOOVERWRITE MDB 0830: 5f 4e 4f 44 55 50 44 41 54 41 20 4d 44 42 5f 43 _NODUPDATA MDB_C 0840: 55 52 52 45 4e 54 20 4d 44 42 5f 52 45 53 45 52 URRENT MDB_RESER 0850: 56 45 20 4d 44 42 5f 41 50 50 45 4e 44 0a 20 20 VE MDB_APPEND. 0860: 4d 44 42 5f 41 50 50 45 4e 44 44 55 50 20 4d 44 MDB_APPENDDUP MD 0870: 42 5f 4d 55 4c 54 49 50 4c 45 0a 0a 20 20 4d 44 B_MULTIPLE.. MD 0880: 42 5f 43 50 5f 43 4f 4d 50 41 43 54 0a 0a 20 20 B_CP_COMPACT.. 0890: 4d 44 42 5f 56 45 52 53 49 4f 4e 5f 4d 41 4a 4f MDB_VERSION_MAJO 08a0: 52 20 4d 44 42 5f 56 45 52 53 49 4f 4e 5f 4d 49 R MDB_VERSION_MI 08b0: 4e 4f 52 20 4d 44 42 5f 56 45 52 53 49 4f 4e 5f NOR MDB_VERSION_ 08c0: 50 41 54 43 48 0a 0a 20 20 6d 64 62 2d 65 6e 76 PATCH.. mdb-env 08d0: 20 6d 64 62 2d 74 78 6e 20 6d 64 62 2d 64 62 69 mdb-txn mdb-dbi 08e0: 20 6d 64 62 2d 63 75 72 73 6f 72 20 6d 64 62 2d mdb-cursor mdb- 08f0: 76 61 6c 20 6d 64 62 2d 63 6d 62 2d 66 75 6e 63 val mdb-cmb-func 0900: 20 6d 64 62 2d 72 65 6c 2d 66 75 6e 63 0a 20 20 mdb-rel-func. 0910: 6d 64 62 2d 73 74 61 74 2d 74 20 6d 64 62 2d 65 mdb-stat-t mdb-e 0920: 6e 76 69 6e 66 6f 2d 74 0a 0a 20 20 6d 64 62 2d nvinfo-t.. mdb- 0930: 63 75 72 73 6f 72 2d 6f 70 20 6d 64 62 2d 63 75 cursor-op mdb-cu 0940: 72 73 6f 72 2d 6f 70 2d 72 65 66 20 6d 64 62 2d rsor-op-ref mdb- 0950: 63 75 72 73 6f 72 2d 6f 70 2d 74 0a 20 20 0a 20 cursor-op-t. . 0960: 20 6d 64 62 2d 6c 69 62 72 61 72 79 2d 69 6e 69 mdb-library-ini 0970: 74 0a 0a 20 20 6d 64 62 2d 61 6c 6c 6f 63 2d 76 t.. mdb-alloc-v 0980: 61 6c 20 6d 64 62 2d 61 6c 6c 6f 63 2d 74 78 6e al mdb-alloc-txn 0990: 2a 20 6d 64 62 2d 61 6c 6c 6f 63 2d 65 6e 76 2a * mdb-alloc-env* 09a0: 20 6d 64 62 2d 61 6c 6c 6f 63 2d 64 62 69 0a 20 mdb-alloc-dbi. 09b0: 20 6d 61 6b 65 2d 6d 64 62 2d 76 61 6c 20 6d 64 make-mdb-val md 09c0: 62 2d 76 61 6c 2d 73 69 7a 65 2d 73 65 74 21 20 b-val-size-set! 09d0: 6d 64 62 2d 76 61 6c 2d 64 61 74 61 2d 73 65 74 mdb-val-data-set 09e0: 21 0a 20 20 6d 64 62 2d 76 61 6c 2d 3e 62 79 74 !. mdb-val->byt 09f0: 65 76 65 63 74 6f 72 20 6d 64 62 2d 76 61 6c 2d evector mdb-val- 0a00: 73 69 7a 65 20 6d 64 62 2d 76 61 6c 2d 64 61 74 size mdb-val-dat 0a10: 61 0a 20 20 0a 20 20 77 69 74 68 2d 6d 64 62 2d a. . with-mdb- 0a20: 65 6e 76 20 77 69 74 68 2d 6d 64 62 2d 64 62 69 env with-mdb-dbi 0a30: 20 77 69 74 68 2d 6d 64 62 2d 74 78 6e 20 20 0a with-mdb-txn . 0a40: 20 20 6d 64 62 2d 6e 75 6c 6c 2d 74 78 6e 20 6d mdb-null-txn m 0a50: 64 62 2d 6e 75 6c 6c 2d 76 61 6c 0a 20 20 6d 64 db-null-val. md 0a60: 62 2d 66 72 65 65 2d 67 61 72 62 61 67 65 20 6d b-free-garbage m 0a70: 64 62 2d 67 75 61 72 64 69 61 6e 20 6d 64 62 2d db-guardian mdb- 0a80: 67 75 61 72 64 2d 70 6f 69 6e 74 65 72 0a 0a 20 guard-pointer.. 0a90: 20 6d 61 6b 65 2d 6d 64 62 2d 63 6f 6e 64 20 6d make-mdb-cond m 0aa0: 64 62 2d 63 6f 6e 64 3f 20 6d 64 62 2d 63 6f 6e db-cond? mdb-con 0ab0: 64 2d 65 72 72 6e 6f 20 6d 64 62 2d 63 6f 6e 64 d-errno mdb-cond 0ac0: 2d 73 74 72 0a 20 20 29 20 3b 65 78 70 6f 72 74 -str. ) ;export 0ad0: 0a 20 28 69 6d 70 6f 72 74 20 28 66 66 69 2d 75 . (import (ffi-u 0ae0: 74 69 6c 73 29 20 28 63 68 65 7a 73 63 68 65 6d tils) (chezschem 0af0: 65 29 29 0a 20 0a 20 28 64 65 66 69 6e 65 20 28 e)). . (define ( 0b00: 6d 64 62 2d 6c 69 62 72 61 72 79 2d 69 6e 69 74 mdb-library-init 0b10: 20 2e 20 74 29 0a 20 20 20 28 6c 6f 61 64 2d 73 . t). (load-s 0b20: 68 61 72 65 64 2d 6f 62 6a 65 63 74 20 28 69 66 hared-object (if 0b30: 20 28 6e 75 6c 6c 3f 20 74 29 20 22 6c 69 62 6c (null? t) "libl 0b40: 6d 64 62 2e 73 6f 22 20 28 63 61 72 20 74 29 29 mdb.so" (car t)) 0b50: 29 29 0a 0a 0a 28 69 6e 63 6c 75 64 65 20 22 6c ))...(include "l 0b60: 6d 64 62 2f 66 66 69 2e 73 73 22 29 20 0a 28 69 mdb/ffi.ss") .(i 0b70: 6e 63 6c 75 64 65 20 22 6c 6d 64 62 2f 63 6f 6e nclude "lmdb/con 0b80: 73 74 61 6e 74 73 2e 73 73 22 29 0a 28 69 6e 63 stants.ss").(inc 0b90: 6c 75 64 65 20 22 6c 6d 64 62 2f 65 6e 75 6d 73 lude "lmdb/enums 0ba0: 2e 73 73 22 29 0a 28 69 6e 63 6c 75 64 65 20 22 .ss").(include " 0bb0: 6c 6d 64 62 2f 66 74 79 70 65 73 2e 73 73 22 29 lmdb/ftypes.ss") 0bc0: 0a 28 69 6e 63 6c 75 64 65 20 22 6c 6d 64 62 2f .(include "lmdb/ 0bd0: 67 75 61 72 64 69 61 6e 2e 73 73 22 29 0a 0a 28 guardian.ss")..( 0be0: 64 65 66 69 6e 65 2d 63 6f 6e 64 69 74 69 6f 6e define-condition 0bf0: 2d 74 79 70 65 20 26 6d 64 62 2d 63 6f 6e 64 20 -type &mdb-cond 0c00: 26 63 6f 6e 64 69 74 69 6f 6e 0a 20 20 6d 61 6b &condition. mak 0c10: 65 2d 6d 64 62 2d 63 6f 6e 64 20 6d 64 62 2d 63 e-mdb-cond mdb-c 0c20: 6f 6e 64 3f 0a 20 20 28 65 72 72 6e 6f 20 6d 64 ond?. (errno md 0c30: 62 2d 63 6f 6e 64 2d 65 72 72 6e 6f 29 0a 20 20 b-cond-errno). 0c40: 28 73 74 72 20 6d 64 62 2d 63 6f 6e 64 2d 73 74 (str mdb-cond-st 0c50: 72 29 29 0a 0a 28 69 6e 63 6c 75 64 65 20 22 6c r))..(include "l 0c60: 6d 64 62 2f 6c 6d 64 62 2d 66 75 6e 63 74 69 6f mdb/lmdb-functio 0c70: 6e 73 2e 73 73 22 29 0a 0a 0a 28 64 65 66 69 6e ns.ss")...(defin 0c80: 65 2d 6d 64 62 2d 61 6c 6c 6f 63 61 74 6f 72 20 e-mdb-allocator 0c90: 6d 64 62 2d 61 6c 6c 6f 63 2d 76 61 6c 20 6d 64 mdb-alloc-val md 0ca0: 62 2d 76 61 6c 29 0a 28 64 65 66 69 6e 65 2d 6d b-val).(define-m 0cb0: 64 62 2d 61 6c 6c 6f 63 61 74 6f 72 20 6d 64 62 db-allocator mdb 0cc0: 2d 61 6c 6c 6f 63 2d 64 62 69 20 6d 64 62 2d 64 -alloc-dbi mdb-d 0cd0: 62 69 29 0a 0a 3b 28 64 65 66 69 6e 65 20 28 6d bi)..;(define (m 0ce0: 64 62 2d 61 6c 6c 6f 63 2d 76 6f 69 64 29 20 28 db-alloc-void) ( 0cf0: 6d 61 6b 65 2d 66 74 79 70 65 2d 70 6f 69 6e 74 make-ftype-point 0d00: 65 72 20 76 6f 69 64 2a 20 28 66 6f 72 65 69 67 er void* (foreig 0d10: 6e 2d 61 6c 6c 6f 63 20 28 66 74 79 70 65 2d 73 n-alloc (ftype-s 0d20: 69 7a 65 6f 66 20 76 6f 69 64 2a 29 29 29 29 0a izeof void*)))). 0d30: 28 64 65 66 69 6e 65 2d 6d 64 62 2d 61 6c 6c 6f (define-mdb-allo 0d40: 63 61 74 6f 72 20 6d 64 62 2d 61 6c 6c 6f 63 2d cator mdb-alloc- 0d50: 65 6e 76 2a 20 6d 64 62 2d 65 6e 76 2a 29 0a 28 env* mdb-env*).( 0d60: 64 65 66 69 6e 65 2d 6d 64 62 2d 61 6c 6c 6f 63 define-mdb-alloc 0d70: 61 74 6f 72 20 6d 64 62 2d 61 6c 6c 6f 63 2d 74 ator mdb-alloc-t 0d80: 78 6e 2a 20 6d 64 62 2d 74 78 6e 2a 29 0a 28 64 xn* mdb-txn*).(d 0d90: 65 66 69 6e 65 2d 6d 64 62 2d 61 6c 6c 6f 63 61 efine-mdb-alloca 0da0: 74 6f 72 20 6d 64 62 2d 61 6c 6c 6f 63 2d 63 75 tor mdb-alloc-cu 0db0: 72 73 6f 72 2a 20 6d 64 62 2d 63 75 72 73 6f 72 rsor* mdb-cursor 0dc0: 2a 29 0a 0a 28 64 65 66 69 6e 65 20 28 62 79 74 *)..(define (byt 0dd0: 65 76 65 63 74 6f 72 2d 3e 63 68 61 72 2d 61 72 evector->char-ar 0de0: 72 61 79 20 62 76 29 0a 20 20 28 6c 65 74 20 28 ray bv). (let ( 0df0: 5b 70 74 72 20 28 63 61 73 74 20 75 6e 73 69 67 [ptr (cast unsig 0e00: 6e 65 64 2d 38 20 0a 09 09 20 20 20 28 66 6f 72 ned-8 ... (for 0e10: 65 69 67 6e 2d 61 6c 6c 6f 63 20 28 62 79 74 65 eign-alloc (byte 0e20: 76 65 63 74 6f 72 2d 6c 65 6e 67 74 68 20 62 76 vector-length bv 0e30: 29 29 29 5d 29 0a 20 20 20 20 28 66 6f 72 2d 65 )))]). (for-e 0e40: 61 63 68 20 28 6c 61 6d 62 64 61 20 28 69 29 20 ach (lambda (i) 0e50: 0a 09 09 28 66 74 79 70 65 2d 73 65 74 21 20 75 ...(ftype-set! u 0e60: 6e 73 69 67 6e 65 64 2d 38 20 28 29 20 70 74 72 nsigned-8 () ptr 0e70: 20 69 20 28 62 79 74 65 76 65 63 74 6f 72 2d 75 i (bytevector-u 0e80: 38 2d 72 65 66 20 62 76 20 69 29 29 29 0a 09 20 8-ref bv i))).. 0e90: 20 20 20 20 20 28 69 6f 74 61 20 28 62 79 74 65 (iota (byte 0ea0: 76 65 63 74 6f 72 2d 6c 65 6e 67 74 68 20 62 76 vector-length bv 0eb0: 29 29 29 0a 20 20 20 20 70 74 72 29 29 0a 0a 28 ))). ptr))..( 0ec0: 64 65 66 69 6e 65 20 28 63 68 61 72 2d 61 72 72 define (char-arr 0ed0: 61 79 2d 3e 62 79 74 65 76 65 63 74 6f 72 20 70 ay->bytevector p 0ee0: 74 72 20 6c 65 6e 29 0a 20 20 28 6c 65 74 20 28 tr len). (let ( 0ef0: 5b 62 76 20 28 6d 61 6b 65 2d 62 79 74 65 76 65 [bv (make-byteve 0f00: 63 74 6f 72 20 6c 65 6e 29 5d 29 0a 20 20 20 20 ctor len)]). 0f10: 28 66 6f 72 2d 65 61 63 68 20 28 6c 61 6d 62 64 (for-each (lambd 0f20: 61 20 28 69 29 20 0a 09 09 28 62 79 74 65 76 65 a (i) ...(byteve 0f30: 63 74 6f 72 2d 75 38 2d 73 65 74 21 20 62 76 20 ctor-u8-set! bv 0f40: 69 20 28 66 74 79 70 65 2d 72 65 66 20 75 6e 73 i (ftype-ref uns 0f50: 69 67 6e 65 64 2d 38 20 28 29 20 70 74 72 20 69 igned-8 () ptr i 0f60: 29 29 29 0a 09 20 20 20 20 20 20 28 69 6f 74 61 ))).. (iota 0f70: 20 6c 65 6e 29 29 0a 20 20 20 20 62 76 29 29 0a len)). bv)). 0f80: 0a 28 64 65 66 69 6e 65 20 6d 61 6b 65 2d 6d 64 .(define make-md 0f90: 62 2d 76 61 6c 20 0a 20 20 28 63 61 73 65 2d 6c b-val . (case-l 0fa0: 61 6d 62 64 61 20 0a 20 20 20 5b 28 64 61 74 61 ambda . [(data 0fb0: 29 0a 20 20 20 20 28 6c 65 74 20 28 5b 64 61 74 ). (let ([dat 0fc0: 61 20 28 69 66 20 28 62 79 74 65 76 65 63 74 6f a (if (bytevecto 0fd0: 72 3f 20 64 61 74 61 29 20 64 61 74 61 0a 09 09 r? data) data... 0fe0: 20 20 20 20 28 73 74 72 69 6e 67 2d 3e 75 74 66 (string->utf 0ff0: 38 20 64 61 74 61 29 29 5d 29 0a 20 20 20 20 20 8 data))]). 1000: 20 28 6c 65 74 20 28 5b 76 61 6c 20 28 6d 64 62 (let ([val (mdb 1010: 2d 61 6c 6c 6f 63 2d 76 61 6c 29 5d 29 0a 09 28 -alloc-val)])..( 1020: 6d 64 62 2d 76 61 6c 2d 64 61 74 61 2d 73 65 74 mdb-val-data-set 1030: 21 20 76 61 6c 20 64 61 74 61 29 0a 09 28 6d 64 ! val data)..(md 1040: 62 2d 76 61 6c 2d 73 69 7a 65 2d 73 65 74 21 20 b-val-size-set! 1050: 76 61 6c 20 28 62 79 74 65 76 65 63 74 6f 72 2d val (bytevector- 1060: 6c 65 6e 67 74 68 20 64 61 74 61 29 29 0a 09 76 length data))..v 1070: 61 6c 29 29 5d 0a 20 20 20 5b 28 29 20 28 6d 64 al))]. [() (md 1080: 62 2d 61 6c 6c 6f 63 2d 76 61 6c 29 5d 29 29 0a b-alloc-val)])). 1090: 0a 28 64 65 66 69 6e 65 20 28 6d 64 62 2d 76 61 .(define (mdb-va 10a0: 6c 2d 73 69 7a 65 2d 73 65 74 21 20 76 20 73 69 l-size-set! v si 10b0: 7a 65 29 0a 20 20 28 66 74 79 70 65 2d 73 65 74 ze). (ftype-set 10c0: 21 20 6d 64 62 2d 76 61 6c 20 28 6d 76 2d 73 69 ! mdb-val (mv-si 10d0: 7a 65 29 20 76 20 73 69 7a 65 29 29 0a 0a 28 64 ze) v size))..(d 10e0: 65 66 69 6e 65 20 28 6d 64 62 2d 76 61 6c 2d 64 efine (mdb-val-d 10f0: 61 74 61 2d 73 65 74 21 20 6b 20 64 61 74 61 29 ata-set! k data) 1100: 0a 20 20 28 66 74 79 70 65 2d 73 65 74 21 20 6d . (ftype-set! m 1110: 64 62 2d 76 61 6c 20 28 6d 76 2d 64 61 74 61 29 db-val (mv-data) 1120: 20 6b 0a 09 20 20 20 20 20 20 28 66 74 79 70 65 k.. (ftype 1130: 2d 70 6f 69 6e 74 65 72 2d 61 64 64 72 65 73 73 -pointer-address 1140: 0a 09 20 20 20 20 20 20 20 28 63 6f 6e 64 20 5b .. (cond [ 1150: 28 62 79 74 65 76 65 63 74 6f 72 3f 20 64 61 74 (bytevector? dat 1160: 61 29 20 28 62 79 74 65 76 65 63 74 6f 72 2d 3e a) (bytevector-> 1170: 63 68 61 72 2d 61 72 72 61 79 20 64 61 74 61 29 char-array data) 1180: 5d 0a 09 09 20 20 20 20 20 5b 65 6c 73 65 20 64 ]... [else d 1190: 61 74 61 5d 29 29 29 29 0a 0a 28 64 65 66 69 6e ata]))))..(defin 11a0: 65 20 28 6d 64 62 2d 76 61 6c 2d 73 69 7a 65 20 e (mdb-val-size 11b0: 6b 29 0a 20 20 28 66 74 79 70 65 2d 72 65 66 20 k). (ftype-ref 11c0: 6d 64 62 2d 76 61 6c 20 28 6d 76 2d 73 69 7a 65 mdb-val (mv-size 11d0: 29 20 6b 29 29 0a 28 64 65 66 69 6e 65 20 28 6d ) k)).(define (m 11e0: 64 62 2d 76 61 6c 2d 64 61 74 61 20 6b 29 0a 20 db-val-data k). 11f0: 20 28 6d 61 6b 65 2d 66 74 79 70 65 2d 70 6f 69 (make-ftype-poi 1200: 6e 74 65 72 20 75 6e 73 69 67 6e 65 64 2d 38 20 nter unsigned-8 1210: 28 66 74 79 70 65 2d 72 65 66 20 6d 64 62 2d 76 (ftype-ref mdb-v 1220: 61 6c 20 28 6d 76 2d 64 61 74 61 29 20 6b 29 29 al (mv-data) k)) 1230: 29 0a 20 0a 28 64 65 66 69 6e 65 20 28 6d 64 62 ). .(define (mdb 1240: 2d 76 61 6c 2d 3e 62 79 74 65 76 65 63 74 6f 72 -val->bytevector 1250: 20 6b 29 0a 20 20 28 63 68 61 72 2d 61 72 72 61 k). (char-arra 1260: 79 2d 3e 62 79 74 65 76 65 63 74 6f 72 20 28 6d y->bytevector (m 1270: 64 62 2d 76 61 6c 2d 64 61 74 61 20 6b 29 20 28 db-val-data k) ( 1280: 6d 64 62 2d 76 61 6c 2d 73 69 7a 65 20 6b 29 29 mdb-val-size k)) 1290: 29 0a 0a 28 64 65 66 69 6e 65 20 6d 64 62 2d 6e )..(define mdb-n 12a0: 75 6c 6c 2d 74 78 6e 20 28 6d 61 6b 65 2d 66 74 ull-txn (make-ft 12b0: 79 70 65 2d 70 6f 69 6e 74 65 72 20 6d 64 62 2d ype-pointer mdb- 12c0: 74 78 6e 20 30 29 29 0a 28 64 65 66 69 6e 65 20 txn 0)).(define 12d0: 6d 64 62 2d 6e 75 6c 6c 2d 76 61 6c 20 28 6d 61 mdb-null-val (ma 12e0: 6b 65 2d 66 74 79 70 65 2d 70 6f 69 6e 74 65 72 ke-ftype-pointer 12f0: 20 6d 64 62 2d 76 61 6c 20 30 29 29 0a 0a 28 64 mdb-val 0))..(d 1300: 65 66 69 6e 65 20 28 6d 64 62 2d 74 78 6e 2d 62 efine (mdb-txn-b 1310: 65 67 69 6e 20 65 6e 76 20 70 61 72 65 6e 74 20 egin env parent 1320: 66 6c 61 67 73 29 0a 20 20 28 64 65 66 69 6e 65 flags). (define 1330: 20 28 6d 64 62 2d 74 78 6e 2d 72 65 66 20 74 78 (mdb-txn-ref tx 1340: 6e 2a 29 0a 20 20 20 20 28 6d 61 6b 65 2d 66 74 n*). (make-ft 1350: 79 70 65 2d 70 6f 69 6e 74 65 72 20 6d 64 62 2d ype-pointer mdb- 1360: 74 78 6e 20 28 66 74 79 70 65 2d 72 65 66 20 6d txn (ftype-ref m 1370: 64 62 2d 74 78 6e 2a 20 28 29 20 74 78 6e 2a 29 db-txn* () txn*) 1380: 29 29 0a 20 20 28 6c 65 74 2a 20 28 5b 74 78 6e )). (let* ([txn 1390: 2a 20 28 6d 64 62 2d 61 6c 6c 6f 63 2d 74 78 6e * (mdb-alloc-txn 13a0: 2a 29 5d 0a 09 20 5b 78 78 78 20 28 66 74 79 70 *)].. [xxx (ftyp 13b0: 65 2d 73 65 74 21 20 6d 64 62 2d 74 78 6e 2a 20 e-set! mdb-txn* 13c0: 28 29 20 74 78 6e 2a 20 30 29 5d 0a 09 20 5b 65 () txn* 0)].. [e 13d0: 31 20 28 6d 64 62 2d 74 78 6e 2d 62 65 67 69 6e 1 (mdb-txn-begin 13e0: 25 20 65 6e 76 20 70 61 72 65 6e 74 20 66 6c 61 % env parent fla 13f0: 67 73 20 28 66 74 79 70 65 2d 70 6f 69 6e 74 65 gs (ftype-pointe 1400: 72 2d 61 64 64 72 65 73 73 20 74 78 6e 2a 29 29 r-address txn*)) 1410: 5d 0a 09 20 5b 74 78 6e 20 28 6d 64 62 2d 74 78 ].. [txn (mdb-tx 1420: 6e 2d 72 65 66 20 74 78 6e 2a 29 5d 29 0a 20 20 n-ref txn*)]). 1430: 20 20 74 78 6e 29 29 0a 0a 28 64 65 66 69 6e 65 txn))..(define 1440: 2d 73 79 6e 74 61 78 20 77 69 74 68 2d 6d 64 62 -syntax with-mdb 1450: 2d 74 78 6e 0a 20 20 20 28 73 79 6e 74 61 78 2d -txn. (syntax- 1460: 72 75 6c 65 73 20 28 29 0a 20 20 20 20 20 5b 28 rules (). [( 1470: 5f 20 28 74 78 6e 2d 6e 61 6d 65 20 65 6e 76 20 _ (txn-name env 1480: 70 61 72 65 6e 74 20 66 6c 61 67 73 29 20 66 6f parent flags) fo 1490: 72 6d 73 20 2e 2e 2e 29 0a 20 20 20 20 20 20 28 rms ...). ( 14a0: 6c 65 74 20 28 5b 74 78 6e 2d 6e 61 6d 65 20 28 let ([txn-name ( 14b0: 6d 64 62 2d 74 78 6e 2d 62 65 67 69 6e 20 65 6e mdb-txn-begin en 14c0: 76 20 70 61 72 65 6e 74 20 66 6c 61 67 73 29 5d v parent flags)] 14d0: 0a 09 20 20 20 20 5b 63 6f 6d 6d 69 74 20 23 66 .. [commit #f 14e0: 5d 29 0a 09 28 67 75 61 72 64 20 28 65 20 5b 28 ])..(guard (e [( 14f0: 65 71 3f 20 65 20 27 61 62 6f 72 74 2d 74 78 6e eq? e 'abort-txn 1500: 29 20 28 6d 64 62 2d 74 78 6e 2d 61 62 6f 72 74 ) (mdb-txn-abort 1510: 20 74 78 6e 2d 6e 61 6d 65 29 5d 0a 09 09 20 20 txn-name)]... 1520: 5b 28 65 71 3f 20 65 20 27 63 6f 6d 6d 69 74 2d [(eq? e 'commit- 1530: 74 78 6e 29 20 28 6d 64 62 2d 74 78 6e 2d 63 6f txn) (mdb-txn-co 1540: 6d 6d 69 74 20 74 78 6e 2d 6e 61 6d 65 29 5d 0a mmit txn-name)]. 1550: 09 09 20 20 5b 65 6c 73 65 20 28 6d 64 62 2d 74 .. [else (mdb-t 1560: 78 6e 2d 61 62 6f 72 74 20 74 78 6e 2d 6e 61 6d xn-abort txn-nam 1570: 65 29 20 0a 09 09 09 28 72 61 69 73 65 20 65 29 e) ....(raise e) 1580: 5d 29 0a 09 20 20 20 20 20 20 20 20 66 6f 72 6d ]).. form 1590: 73 20 2e 2e 2e 20 0a 09 20 20 20 20 20 20 20 28 s ... .. ( 15a0: 6d 64 62 2d 74 78 6e 2d 63 6f 6d 6d 69 74 20 74 mdb-txn-commit t 15b0: 78 6e 2d 6e 61 6d 65 29 29 29 5d 29 29 0a 0a 28 xn-name)))]))..( 15c0: 64 65 66 69 6e 65 2d 73 79 6e 74 61 78 20 77 69 define-syntax wi 15d0: 74 68 2d 6d 64 62 2d 64 62 69 0a 20 20 28 73 79 th-mdb-dbi. (sy 15e0: 6e 74 61 78 2d 72 75 6c 65 73 20 28 29 0a 20 20 ntax-rules (). 15f0: 20 20 5b 28 5f 20 28 64 62 69 2d 6e 61 6d 65 20 [(_ (dbi-name 1600: 74 78 6e 20 6e 61 6d 65 20 66 6c 61 67 73 29 20 txn name flags) 1610: 66 6f 72 6d 73 20 2e 2e 2e 29 0a 20 20 20 20 20 forms ...). 1620: 28 6c 65 74 20 28 5b 64 62 69 2d 6e 61 6d 65 20 (let ([dbi-name 1630: 28 6d 64 62 2d 64 62 69 2d 6f 70 65 6e 20 74 78 (mdb-dbi-open tx 1640: 6e 20 6e 61 6d 65 20 66 6c 61 67 73 29 5d 29 0a n name flags)]). 1650: 20 20 20 20 20 20 20 66 6f 72 6d 73 20 2e 2e 2e forms ... 1660: 0a 20 20 20 20 20 20 20 28 6d 64 62 2d 64 62 69 . (mdb-dbi 1670: 2d 63 6c 6f 73 65 20 28 6d 64 62 2d 74 78 6e 2d -close (mdb-txn- 1680: 65 6e 76 20 74 78 6e 29 20 64 62 69 2d 6e 61 6d env txn) dbi-nam 1690: 65 29 29 5d 29 29 0a 0a 28 64 65 66 69 6e 65 20 e))]))..(define 16a0: 28 6d 64 62 2d 64 62 69 2d 6f 70 65 6e 20 74 78 (mdb-dbi-open tx 16b0: 6e 20 6e 61 6d 65 20 66 6c 61 67 73 29 20 0a 20 n name flags) . 16c0: 20 28 64 65 66 69 6e 65 20 28 6d 64 62 2d 64 62 (define (mdb-db 16d0: 69 2d 72 65 66 20 64 62 69 2a 29 0a 20 20 20 20 i-ref dbi*). 16e0: 28 66 74 79 70 65 2d 72 65 66 20 75 6e 73 69 67 (ftype-ref unsig 16f0: 6e 65 64 2d 69 6e 74 20 28 29 20 64 62 69 2a 29 ned-int () dbi*) 1700: 29 0a 20 20 28 6c 65 74 2a 20 28 5b 64 62 69 2a ). (let* ([dbi* 1710: 20 28 6d 64 62 2d 61 6c 6c 6f 63 2d 64 62 69 29 (mdb-alloc-dbi) 1720: 5d 0a 09 20 5b 65 32 20 28 6d 64 62 2d 64 62 69 ].. [e2 (mdb-dbi 1730: 2d 6f 70 65 6e 25 20 74 78 6e 20 6e 61 6d 65 20 -open% txn name 1740: 66 6c 61 67 73 20 64 62 69 2a 29 5d 0a 09 20 5b flags dbi*)].. [ 1750: 64 62 69 20 28 6d 64 62 2d 64 62 69 2d 72 65 66 dbi (mdb-dbi-ref 1760: 20 64 62 69 2a 29 5d 29 0a 20 20 20 20 3b 3b 46 dbi*)]). ;;F 1770: 49 58 4d 45 3b 20 47 55 41 52 44 49 41 4e 20 43 IXME; GUARDIAN C 1780: 41 4e 4e 4f 54 20 42 45 20 41 50 50 4c 49 45 44 ANNOT BE APPLIED 1790: 20 42 45 43 41 55 53 45 20 57 45 20 4e 45 45 44 BECAUSE WE NEED 17a0: 20 41 4c 53 4f 20 65 6e 76 0a 20 20 20 20 3b 3b ALSO env. ;; 17b0: 20 4d 41 59 42 45 20 53 54 4f 52 45 20 54 48 45 MAYBE STORE THE 17c0: 20 45 4e 56 20 53 4f 4d 45 57 48 45 52 45 3f 0a ENV SOMEWHERE?. 17d0: 20 20 20 20 64 62 69 29 29 0a 20 20 0a 28 64 65 dbi)). .(de 17e0: 66 69 6e 65 20 28 6d 64 62 2d 63 75 72 73 6f 72 fine (mdb-cursor 17f0: 2d 6f 70 65 6e 20 74 78 6e 20 64 62 69 29 0a 20 -open txn dbi). 1800: 20 28 64 65 66 69 6e 65 20 28 6d 64 62 2d 63 75 (define (mdb-cu 1810: 72 73 6f 72 2d 72 65 66 20 63 75 72 73 6f 72 2a rsor-ref cursor* 1820: 29 0a 20 20 20 20 28 6d 61 6b 65 2d 66 74 79 70 ). (make-ftyp 1830: 65 2d 70 6f 69 6e 74 65 72 20 6d 64 62 2d 63 75 e-pointer mdb-cu 1840: 72 73 6f 72 20 28 66 74 79 70 65 2d 72 65 66 20 rsor (ftype-ref 1850: 6d 64 62 2d 63 75 72 73 6f 72 2a 20 28 29 20 63 mdb-cursor* () c 1860: 75 72 73 6f 72 2a 29 29 29 0a 20 20 28 6c 65 74 ursor*))). (let 1870: 2a 20 28 5b 63 75 72 73 6f 72 2a 20 28 6d 64 62 * ([cursor* (mdb 1880: 2d 61 6c 6c 6f 63 2d 63 75 72 73 6f 72 2a 29 5d -alloc-cursor*)] 1890: 0a 09 20 5b 65 32 20 28 6d 64 62 2d 63 75 72 73 .. [e2 (mdb-curs 18a0: 6f 72 2d 6f 70 65 6e 25 20 74 78 6e 20 64 62 69 or-open% txn dbi 18b0: 20 28 66 74 79 70 65 2d 70 6f 69 6e 74 65 72 2d (ftype-pointer- 18c0: 61 64 64 72 65 73 73 20 63 75 72 73 6f 72 2a 29 address cursor*) 18d0: 29 5d 0a 09 20 5b 63 75 72 73 6f 72 20 28 6d 64 )].. [cursor (md 18e0: 62 2d 67 75 61 72 64 2d 70 6f 69 6e 74 65 72 20 b-guard-pointer 18f0: 28 6d 64 62 2d 63 75 72 73 6f 72 2d 72 65 66 20 (mdb-cursor-ref 1900: 63 75 72 73 6f 72 2a 29 29 5d 29 0a 20 20 20 20 cursor*))]). 1910: 3b 3b 46 49 58 4d 45 3b 20 47 55 41 52 44 49 41 ;;FIXME; GUARDIA 1920: 4e 20 43 41 4e 4e 4f 54 20 42 45 20 41 50 50 4c N CANNOT BE APPL 1930: 49 45 44 20 42 45 43 41 55 53 45 20 57 45 20 4e IED BECAUSE WE N 1940: 45 45 44 20 41 4c 53 4f 20 65 6e 76 0a 20 20 20 EED ALSO env. 1950: 20 3b 3b 20 4d 41 59 42 45 20 53 54 4f 52 45 20 ;; MAYBE STORE 1960: 54 48 45 20 45 4e 56 20 53 4f 4d 45 57 48 45 52 THE ENV SOMEWHER 1970: 45 3f 0a 20 20 20 20 63 75 72 73 6f 72 29 29 0a E?. cursor)). 1980: 0a 28 64 65 66 69 6e 65 20 28 6d 64 62 2d 65 6e .(define (mdb-en 1990: 76 2d 63 72 65 61 74 65 29 0a 20 20 28 64 65 66 v-create). (def 19a0: 69 6e 65 20 28 6d 64 62 2d 65 6e 76 2d 72 65 66 ine (mdb-env-ref 19b0: 20 65 6e 76 2a 29 0a 20 20 20 20 28 6d 61 6b 65 env*). (make 19c0: 2d 66 74 79 70 65 2d 70 6f 69 6e 74 65 72 20 6d -ftype-pointer m 19d0: 64 62 2d 65 6e 76 20 28 66 74 79 70 65 2d 72 65 db-env (ftype-re 19e0: 66 20 6d 64 62 2d 65 6e 76 2a 20 28 29 20 65 6e f mdb-env* () en 19f0: 76 2a 29 29 29 0a 20 20 28 6c 65 74 2a 20 28 5b v*))). (let* ([ 1a00: 65 6e 76 2a 20 28 6d 64 62 2d 61 6c 6c 6f 63 2d env* (mdb-alloc- 1a10: 65 6e 76 2a 29 5d 0a 09 20 5b 65 20 28 6d 64 62 env*)].. [e (mdb 1a20: 2d 65 6e 76 2d 63 72 65 61 74 65 25 20 20 28 66 -env-create% (f 1a30: 74 79 70 65 2d 70 6f 69 6e 74 65 72 2d 61 64 64 type-pointer-add 1a40: 72 65 73 73 20 65 6e 76 2a 29 29 5d 0a 09 20 5b ress env*))].. [ 1a50: 65 6e 76 20 28 6d 64 62 2d 67 75 61 72 64 2d 70 env (mdb-guard-p 1a60: 6f 69 6e 74 65 72 20 28 6d 64 62 2d 65 6e 76 2d ointer (mdb-env- 1a70: 72 65 66 20 65 6e 76 2a 29 29 5d 29 0a 20 20 20 ref env*))]). 1a80: 20 65 6e 76 29 29 0a 0a 28 64 65 66 69 6e 65 2d env))..(define- 1a90: 73 79 6e 74 61 78 20 77 69 74 68 2d 6d 64 62 2d syntax with-mdb- 1aa0: 65 6e 76 20 0a 20 20 28 73 79 6e 74 61 78 2d 72 env . (syntax-r 1ab0: 75 6c 65 73 20 28 29 0a 20 20 20 20 5b 28 5f 20 ules (). [(_ 1ac0: 28 65 6e 76 2d 6e 61 6d 65 29 20 66 6f 72 6d 73 (env-name) forms 1ad0: 20 2e 2e 2e 29 0a 20 20 20 20 20 28 6c 65 74 2a ...). (let* 1ae0: 20 28 5b 65 6e 76 2d 6e 61 6d 65 20 28 6d 64 62 ([env-name (mdb 1af0: 2d 65 6e 76 2d 63 72 65 61 74 65 29 5d 29 0a 20 -env-create)]). 1b00: 20 20 20 20 20 20 66 6f 72 6d 73 20 2e 2e 2e 0a forms .... 1b10: 20 20 20 20 20 20 20 28 6d 64 62 2d 65 6e 76 2d (mdb-env- 1b20: 63 6c 6f 73 65 20 65 6e 76 2d 6e 61 6d 65 29 29 close env-name)) 1b30: 5d 29 29 0a 0a 0a 20 29 3b 3b 6c 69 62 72 61 72 ]))... );;librar 1b40: 79 0a y.