lmdb

Check-in [9f4cd15298]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Set current-database-environment to #f when it is closed
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 9f4cd15298639df169397bccc69fb45398e5ab0b02f4414a647bbf5aa393e631
User & Date: murphy 2018-08-20 18:09:29
Context
2018-08-20
21:13
Conversions between databases and association lists check-in: 6ef9d5e1d4 user: murphy tags: trunk
18:09
Set current-database-environment to #f when it is closed check-in: 9f4cd15298 user: murphy tags: trunk
16:35
Initial binding of cursor operations check-in: 85c0637f63 user: murphy tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to lmdb.scm.

218
219
220
221
222
223
224
225



226
227
228
229
230
231
232
          env path (fxior flags no-tls) mode)))
      (current-database-environment env))))

(define (close-database-environment #!optional [env (current-database-environment)])
  ((foreign-lambda
    void "mdb_env_close"
    nonnull-database-environment)
   env))




(define-foreign-enum-argconvert (database-environment-copy-flags unsigned-int)
  [#:compact "MDB_CP_COMPACT"])

(define (copy-database-environment path . args)
  (let-keys+flags copy-database-environment args
                  ([0 env (current-database-environment)])







|
>
>
>







218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
          env path (fxior flags no-tls) mode)))
      (current-database-environment env))))

(define (close-database-environment #!optional [env (current-database-environment)])
  ((foreign-lambda
    void "mdb_env_close"
    nonnull-database-environment)
   env)
  (when (equal? env (current-database-environment))
    (current-database-environment #f))
  (void))

(define-foreign-enum-argconvert (database-environment-copy-flags unsigned-int)
  [#:compact "MDB_CP_COMPACT"])

(define (copy-database-environment path . args)
  (let-keys+flags copy-database-environment args
                  ([0 env (current-database-environment)])