Commit 2b343074 authored by -urso-'s avatar -urso-

updated docs after adding sequences to bdb

darcs-hash:2002ed6687efb7358cfdb8fb18f525308b0629c7
parent 0e5f7e94
Fri Jun 2 21:26:09 CEST 2006 -urso-@web.de
* added support for sequences
Fri Jun 2 21:10:39 CEST 2006 -urso-@web.de
* improved with-txn macro
Fri Jun 2 19:13:30 CEST 2006 -urso-@web.de
* fixed typo between constants no-sync and txn-no-sync
Fri Jun 2 18:55:09 CEST 2006 -urso-@web.de
* added support for sequences into libbdb (c library)
Thu Jun 1 18:25:55 CEST 2006 -urso-@web.de
* added classes.lisp to qbook generation
Thu Jun 1 18:14:51 CEST 2006 -urso-@web.de
* added some docs to classes.lisp
Thu Jun 1 17:54:51 CEST 2006 -urso-@web.de
* introduced classes db-ext-env, db-ext and ext-cursor which store buffer reader and writer functions in its instances, thus user only needs to work with objects
......
......@@ -316,10 +316,10 @@
<span class="paren">(</span>env :pointer :class <span class="paren">(</span>db-env db-env-handle<span class="paren">)</span><span class="paren">)</span>
<span class="paren">(</span>parent :pointer :class txn-handle<span class="paren">)</span> ;;parent is optional
<span class="paren">(</span>tid :out :pointer<span class="paren">)</span>
<span class="paren">(</span>flags :flag <span class="paren">(</span>:no-sync
:not-durable
:no-wait
:sync<span class="paren">)</span><span class="paren">)</span><span class="paren">)</span></span></pre
<span class="paren">(</span>flags :flag <span class="paren">(</span>:txn-no-sync
:txn-not-durable
:txn-no-wait
:txn-sync<span class="paren">)</span><span class="paren">)</span><span class="paren">)</span></span></pre
>
......@@ -331,7 +331,7 @@
<pre class="code"
><span class="first-line"><span class="paren">(</span>defmethod+ <span class="paren">(</span>&quot;db_txn_commit&quot; %db-txn-commit<span class="paren">)</span> :int</span><span class"body">
<span class="paren">(</span>tid :pointer :class txn-handle<span class="paren">)</span>
<span class="paren">(</span>flags :flag <span class="paren">(</span>:no-sync :sync<span class="paren">)</span><span class="paren">)</span><span class="paren">)</span></span></pre
<span class="paren">(</span>flags :flag <span class="paren">(</span>:txn-no-sync :txn-sync<span class="paren">)</span><span class="paren">)</span><span class="paren">)</span></span></pre
>
......@@ -351,6 +351,66 @@
<span class="paren">(</span>secondary :pointer<span class="paren">)</span>
<span class="paren">(</span>flags :flag <span class="paren">(</span>:create<span class="paren">)</span><span class="paren">)</span><span class="paren">)</span></span></pre
>
<pre class="code"
><span class="first-line"><span class="paren">(</span>defmethod+ <span class="paren">(</span>&quot;bdb_sequence_create&quot; %bdb-sequ-create<span class="paren">)</span> :int</span><span class"body">
<span class="paren">(</span>sequ :out :pointer<span class="paren">)</span>
<span class="paren">(</span>db :pointer :class <span class="paren">(</span>db db-handle<span class="paren">)</span><span class="paren">)</span>
<span class="paren">(</span>flags :uint32 :const 0<span class="paren">)</span><span class="paren">)</span></span></pre
>
<pre class="code"
><span class="first-line"><span class="paren">(</span>defmethod+ <span class="paren">(</span>&quot;db_sequence_open&quot; %db-sequ-open<span class="paren">)</span> :int</span><span class"body">
<span class="paren">(</span>sequ :pointer<span class="paren">)</span>
<span class="paren">(</span>txn :pointer :class txn-handle<span class="paren">)</span>
<span class="paren">(</span>key :pointer<span class="paren">)</span>
<span class="paren">(</span>key-size :uint32<span class="paren">)</span>
<span class="paren">(</span>flags :flag <span class="paren">(</span>:create :exclusive :threaded<span class="paren">)</span><span class="paren">)</span><span class="paren">)</span></span></pre
>
<pre class="code"
><span class="first-line"><span class="paren">(</span>defmethod+ <span class="paren">(</span>&quot;db_sequence_set_flags&quot; %db-sequ-set-flags<span class="paren">)</span> :int</span><span class"body">
<span class="paren">(</span>sequ :pointer<span class="paren">)</span>
<span class="paren">(</span>flags :flag <span class="paren">(</span>:seq-dec :seq-inc :seq-wrap<span class="paren">)</span><span class="paren">)</span><span class="paren">)</span></span></pre
>
<pre class="code"
><span class="first-line"><span class="paren">(</span>defmethod+ <span class="paren">(</span>&quot;db_sequence_get_flags&quot; %db-sequ-get-flags<span class="paren">)</span> :int</span><span class"body">
<span class="paren">(</span>sequ :pointer :class <span class="paren">(</span>db-sequence sequ-handle<span class="paren">)</span><span class="paren">)</span>
<span class="paren">(</span>flags :out :uint32<span class="paren">)</span><span class="paren">)</span></span></pre
>
<pre class="code"
><span class="first-line"><span class="paren">(</span>defmethod+ <span class="paren">(</span>&quot;db_sequence_init_value&quot; %db-sequ-init-value<span class="paren">)</span> :int</span><span class"body">
<span class="paren">(</span>sequ :pointer<span class="paren">)</span>
<span class="paren">(</span>value :int64<span class="paren">)</span><span class="paren">)</span></span></pre
>
<pre class="code"
><span class="first-line"><span class="paren">(</span>defmethod+ <span class="paren">(</span>&quot;db_sequence_remove&quot; %db-sequ-remove<span class="paren">)</span> :int</span><span class"body">
<span class="paren">(</span>sequ :pointer :class <span class="paren">(</span>db-sequence sequ-handle<span class="paren">)</span><span class="paren">)</span>
<span class="paren">(</span>txn :pointer :class txn-handle<span class="paren">)</span>
<span class="paren">(</span>flags :flag <span class="paren">(</span>:txn-no-sync<span class="paren">)</span><span class="paren">)</span><span class="paren">)</span></span></pre
>
<pre class="code"
><span class="first-line"><span class="paren">(</span>defmethod+ <span class="paren">(</span>&quot;db_sequence_close&quot; %db-sequ-close<span class="paren">)</span> :int</span><span class"body">
<span class="paren">(</span>sequ :pointer<span class="paren">)</span>
<span class="paren">(</span>flags :uint32 :const 0<span class="paren">)</span><span class="paren">)</span></span></pre
>
<pre class="code"
><span class="first-line"><span class="paren">(</span>defmethod+ <span class="paren">(</span>&quot;db_sequence_get&quot; %db-sequ-get<span class="paren">)</span> :int</span><span class"body">
<span class="paren">(</span>sequ :pointer :class <span class="paren">(</span>db-sequence sequ-handle<span class="paren">)</span><span class="paren">)</span>
<span class="paren">(</span>txn :pointer :class txn-handle<span class="paren">)</span>
<span class="paren">(</span>delta :int32<span class="paren">)</span>
<span class="paren">(</span>ret :out :int64<span class="paren">)</span>
<span class="paren">(</span>flags :flag <span class="paren">(</span>:txn-no-sync<span class="paren">)</span><span class="paren">)</span><span class="paren">)</span></span></pre
>
</div
></div
></body
......
......@@ -80,6 +80,9 @@
:depends-on <span class="paren">(</span>&quot;package&quot; &quot;consts&quot;
&quot;aux-bindings&quot; &quot;classes&quot;<span class="paren">)</span><span class="paren">)</span>
<span class="paren">(</span>:file &quot;secondary&quot;
:depends-on <span class="paren">(</span>&quot;package&quot; &quot;consts&quot;
&quot;aux-bindings&quot; &quot;classes&quot;<span class="paren">)</span><span class="paren">)</span>
<span class="paren">(</span>:file &quot;sequence&quot;
:depends-on <span class="paren">(</span>&quot;package&quot; &quot;consts&quot;
&quot;aux-bindings&quot; &quot;classes&quot;<span class="paren">)</span><span class="paren">)</span><span class="paren">)</span><span class="paren">)</span><span class="paren">)</span>
:depends-on <span class="paren">(</span>:cffi-util<span class="paren">)</span><span class="paren">)</span></span></pre
......
......@@ -58,6 +58,22 @@
></div
>
<div class="computational-element-link computational-element-link-class"
><p
><a href="api/class_005FBDB_003A_003ADB-SEQUENCE.html" name="class_005FBDB_003A_003ADB-SEQUENCE"
>Class DB-SEQUENCE</a
> </p
></div
>
<div class="computational-element-link computational-element-link-class"
><p
><a href="api/class_005FBDB_003A_003ADB-SEQUENCE-TXN.html" name="class_005FBDB_003A_003ADB-SEQUENCE-TXN"
>Class DB-SEQUENCE-TXN</a
> </p
></div
>
<div class="computational-element-link computational-element-link-class"
><p
><a href="api/class_005FBDB_003A_003AEXT-CURSOR.html" name="class_005FBDB_003A_003AEXT-CURSOR"
......@@ -149,6 +165,14 @@
> </p
></div
>
<div class="computational-element-link computational-element-link-method"
><p
><a href="api/method_005FBDB_003A_003A_0028DB-GET-ENV_0020DB-SEQUENCE-TXN_0029.html" name="method_005FBDB_003A_003A_0028DB-GET-ENV_0020DB-SEQUENCE-TXN_0029"
>Method (DB-GET-ENV DB-SEQUENCE-TXN)</a
> </p
></div
>
</div
></div
></body
......
......@@ -96,10 +96,10 @@
:rpc-client DB_RPCCLIENT #x0000001
;;db-env-txn-begin
:no-sync DB_TXN_NOSYNC #x0000100
:not-durable DB_TXN_NOT_DURABLE #x0000200
:no-wait DB_TXN_NOWAIT #x0001000
:sync DB_TXN_SYNC #x0002000
:txn-no-sync DB_TXN_NOSYNC #x0000100
:txn-not-durable DB_TXN_NOT_DURABLE #x0000200
:txn-no-wait DB_TXN_NOWAIT #x0001000
:txn-sync DB_TXN_SYNC #x0002000
;;db-cursor-get
:current DB_CURRENT 7
......@@ -159,6 +159,11 @@
;;txn-timeout
:lock-timeout DB_SET_LOCK_TIMEOUT 29
:txn-timeout DB_SET_TXN_TIMEOUT 33
;;db-sequ-set-flags
:seq-dec DB_SEQ_DEC 1
:seq-inc DB_SEQ_INC 2
:seq-wrap DB_SEQ_WRAP 8
<span class="paren">)</span>
3<span class="paren">)</span><span class="paren">)</span></span></pre
>
......
......@@ -132,6 +132,16 @@
#:db-env-get-timeout
#:with-txn
;;sequences
#:db-sequ-open
#:db-sequ-close
#:db-sequ-get
#:db-sequ-get-flags
#:db-sequ-remove
#:db-sequ-get-cachesize
#:db-sequ-set-cachesize
;;util
#:make-cbuffer-writer
#:make-cbuffer-reader<span class="paren">)</span><span class="paren">)</span></span></pre
......
......@@ -19,7 +19,7 @@
>prev</a
> | <span class="dead-nav-link"
>up</span
> | <a href="Utilities.html"
> | <a href="Sequences.html"
>next</a
> | <a href="index.html"
>toc</a
......
<html
><head
><title
>Berkley DB CFFI-Bindings</title
><link href="style.css" rel="stylesheet"
/><link title="Print" href="print.css" rel="alternate stylesheet"
/></head
><body
><div class="qbook"
><h1 class="title"
>Berkley DB CFFI-Bindings</h1
><div class="contents"
><h2
><a name="Sequences"
>Sequences</a
>&nbsp;</h2
><div class="nav-links"
><a class="nav-link" href="Secondary_0020Databases.html"
>prev</a
> | <span class="dead-nav-link"
>up</span
> | <a href="Utilities.html"
>next</a
> | <a href="index.html"
>toc</a
></div
>
<div class="computational-element-link computational-element-link-method"
><p
><a href="api/method_005FBDB_003A_003A_0028DB-SEQU-OPEN_0020DB_0020T_0029.html" name="method_005FBDB_003A_003A_0028DB-SEQU-OPEN_0020DB_0020T_0029"
>Method (DB-SEQU-OPEN DB T)</a
> </p
></div
>
<div class="computational-element-link computational-element-link-method"
><p
><a href="api/method_005FBDB_003A_003A_0028DB-SEQU-OPEN_0020DB-TXN_0020T_0029.html" name="method_005FBDB_003A_003A_0028DB-SEQU-OPEN_0020DB-TXN_0020T_0029"
>Method (DB-SEQU-OPEN DB-TXN T)</a
> </p
></div
>
<div class="computational-element-link computational-element-link-method"
><p
><a href="api/method_005FBDB_003A_003A_0028DB-SEQU-OPEN_0020DB-EXT_0020T_0029.html" name="method_005FBDB_003A_003A_0028DB-SEQU-OPEN_0020DB-EXT_0020T_0029"
>Method (DB-SEQU-OPEN DB-EXT T)</a
> </p
></div
>
<div class="computational-element-link computational-element-link-method"
><p
><a href="api/method_005FBDB_003A_003A_0028DB-SEQU-CLOSE_0020DB-SEQUENCE_0029.html" name="method_005FBDB_003A_003A_0028DB-SEQU-CLOSE_0020DB-SEQUENCE_0029"
>Method (DB-SEQU-CLOSE DB-SEQUENCE)</a
> </p
></div
>
<div class="computational-element-link computational-element-link-method"
><p
><a href="api/method_005FBDB_003A_003A_0028INITIALIZE-SEQUENCE_0020DB_0020T_0029.html" name="method_005FBDB_003A_003A_0028INITIALIZE-SEQUENCE_0020DB_0020T_0029"
>Method (INITIALIZE-SEQUENCE DB T)</a
> </p
></div
>
<div class="computational-element-link computational-element-link-method"
><p
><a href="api/method_005FBDB_003A_003A_0028INITIALIZE-SEQUENCE_0020DB-TXN_0020T_0029.html" name="method_005FBDB_003A_003A_0028INITIALIZE-SEQUENCE_0020DB-TXN_0020T_0029"
>Method (INITIALIZE-SEQUENCE DB-TXN T)</a
> </p
></div
>
<div class="computational-element-link computational-element-link-method"
><p
><a href="api/method_005FBDB_003A_003A_0028DB-SEQU-GET_0020DB-SEQUENCE_0029.html" name="method_005FBDB_003A_003A_0028DB-SEQU-GET_0020DB-SEQUENCE_0029"
>Method (DB-SEQU-GET DB-SEQUENCE)</a
> </p
></div
>
<div class="computational-element-link computational-element-link-method"
><p
><a href="api/method_005FBDB_003A_003A_0028DB-SEQU-GET_0020DB-SEQUENCE-TXN_0029.html" name="method_005FBDB_003A_003A_0028DB-SEQU-GET_0020DB-SEQUENCE-TXN_0029"
>Method (DB-SEQU-GET DB-SEQUENCE-TXN)</a
> </p
></div
>
<div class="computational-element-link computational-element-link-method"
><p
><a href="api/method_005FBDB_003A_003A_0028DB-SEQU-GET-FLAGS_0020DB-SEQUENCE_0029.html" name="method_005FBDB_003A_003A_0028DB-SEQU-GET-FLAGS_0020DB-SEQUENCE_0029"
>Method (DB-SEQU-GET-FLAGS DB-SEQUENCE)</a
> </p
></div
>
<div class="computational-element-link computational-element-link-method"
><p
><a href="api/method_005FBDB_003A_003A_0028DB-SEQU-REMOVE_0020DB-SEQUENCE_0029.html" name="method_005FBDB_003A_003A_0028DB-SEQU-REMOVE_0020DB-SEQUENCE_0029"
>Method (DB-SEQU-REMOVE DB-SEQUENCE)</a
> </p
></div
>
<div class="computational-element-link computational-element-link-method"
><p
><a href="api/method_005FBDB_003A_003A_0028DB-SEQU-REMOVE_0020DB-SEQUENCE-TXN_0029.html" name="method_005FBDB_003A_003A_0028DB-SEQU-REMOVE_0020DB-SEQUENCE-TXN_0029"
>Method (DB-SEQU-REMOVE DB-SEQUENCE-TXN)</a
> </p
></div
>
<pre class="code"
><span class="first-line"><span class="paren">(</span>defmethod+ <span class="paren">(</span>&quot;db_sequence_set_cachesize&quot; db-sequ-set-cachesize<span class="paren">)</span> :int</span><span class"body">
<span class="paren">(</span>sequ :pointer :class <span class="paren">(</span>db-sequence sequ-handle<span class="paren">)</span><span class="paren">)</span>
<span class="paren">(</span>size :int32<span class="paren">)</span><span class="paren">)</span></span></pre
>
<pre class="code"
><span class="first-line"><span class="paren">(</span>defmethod+ <span class="paren">(</span>&quot;db_sequence_get_cachesize&quot; db-sequ-get-cachesize<span class="paren">)</span> :int</span><span class"body">
<span class="paren">(</span>sequ :pointer :class <span class="paren">(</span>db-sequence sequ-handle<span class="paren">)</span><span class="paren">)</span>
<span class="paren">(</span>size :out :int32<span class="paren">)</span><span class="paren">)</span></span></pre
>
</div
></div
></body
></html
>
\ No newline at end of file
......@@ -50,6 +50,14 @@
></div
>
<div class="computational-element-link computational-element-link-macro"
><p
><a href="api/macro_005FBDB_003A_003AIN-TXN.html" name="macro_005FBDB_003A_003AIN-TXN"
>Macro IN-TXN</a
> </p
></div
>
<div class="computational-element-link computational-element-link-macro"
><p
><a href="api/macro_005FBDB_003A_003AWITH-TXN.html" name="macro_005FBDB_003A_003AWITH-TXN"
......
......@@ -15,7 +15,7 @@
>Utilities</a
>&nbsp;</h2
><div class="nav-links"
><a class="nav-link" href="Secondary_0020Databases.html"
><a class="nav-link" href="Sequences.html"
>prev</a
> | <span class="dead-nav-link"
>up</span
......
<html
><head
><title
>Class DB-SEQUENCE-TXN</title
><link href="../style.css" rel="stylesheet"
/><link title="Print" href="../print.css" rel="alternate stylesheet"
/></head
><body
><div class="qbook"
><div class="computational-element"
><h1
>Class: DB-SEQUENCE-TXN</h1
><div class="contents"
><h2
>Slots</h2
><ul
><li
>DB</li
></ul
><h2
>Hierachy</h2
><h3
>Precedence List</h3
><ul
><li
><a href="../api/class_005FBDB_003A_003ADB-SEQUENCE.html"
>DB-SEQUENCE</a
></li
></ul
><h2
>Source</h2
><pre class="code"
>(defclass db-sequence-txn (db-sequence)
((db :accessor db :initarg :db)))</pre
><a href="../BDB_0020Classes.html#class_005FBDB_003A_003ADB-SEQUENCE-TXN"
>Source Context</a
></div
></div
></div
></body
></html
>
\ No newline at end of file
<html
><head
><title
>Class DB-SEQUENCE</title
><link href="../style.css" rel="stylesheet"
/><link title="Print" href="../print.css" rel="alternate stylesheet"
/></head
><body
><div class="qbook"
><div class="computational-element"
><h1
>Class: DB-SEQUENCE</h1
><div class="contents"
><h2
>Slots</h2
><ul
><li
>SEQU-HANDLE</li
></ul
><h2
>Hierachy</h2
><h3
>Precedence List</h3
><ul
><li
>STANDARD-OBJECT</li
></ul
><h3
>Sub Classes</h3
><ul
><li
><a href="../api/class_005FBDB_003A_003ADB-SEQUENCE-TXN.html"
>DB-SEQUENCE-TXN</a
></li
></ul
><h2
>Source</h2
><pre class="code"
>(defclass db-sequence ()
((sequ-handle :accessor sequ-handle :initarg :handle)))</pre
><a href="../BDB_0020Classes.html#class_005FBDB_003A_003ADB-SEQUENCE"
>Source Context</a
></div
></div
></div
></body
></html
>
\ No newline at end of file
<html
><head
><title
>Macro IN-TXN</title
><link href="../style.css" rel="stylesheet"
/><link title="Print" href="../print.css" rel="alternate stylesheet"
/></head
><body
><div class="qbook"
><div class="computational-element"
><h1
>Macro: IN-TXN</h1
><div class="contents"
><h2
>Source</h2
><pre class="code"
>(defmacro in-txn ((txn &amp;key no-sync sync) &amp;body body)
(with-gensyms (success return)
(once-only (txn)
`(let ((,return nil)
(,success nil))
(unwind-protect
(progn
(setq ,return (multiple-value-list
(progn
,@body)))
(db-txn-commit ,txn
:no-sync ,no-sync
:sync ,sync)
(setq ,success t)
(apply #'values ,return))
(unless ,success
(db-txn-abort ,txn)))))))</pre
><a href="../Transactions.html#macro_005FBDB_003A_003AIN-TXN"
>Source Context</a
></div
></div
></div
></body
></html
>
\ No newline at end of file
......@@ -14,24 +14,21 @@
><h2
>Source</h2
><pre class="code"
>(defmacro with-txn ((txn-var env &amp;key parent no-sync not-durable no-wait sync)
>(defmacro with-txn ((txn-var env &amp;key parent txn
no-sync not-durable no-wait sync)
&amp;body body)
(once-only (env parent no-sync not-durable no-wait sync)
(with-gensyms (success)
`(let ((,txn-var (db-env-txn-begin ,env
:parent ,parent
:no-sync ,no-sync
:not-durable ,not-durable
:no-wait ,no-wait
:sync ,sync))
(,success nil))
(unwind-protect
(progn
(progn ,@body)
(db-txn-commit ,txn-var :no-sync ,no-sync :sync ,sync)
(setq ,success t))
(unless ,success
(db-txn-abort ,txn-var)))))))</pre
(once-only (env txn parent no-sync not-durable no-wait sync)
`(let ((,txn-var (if ,txn
,txn
(db-env-txn-begin ,env
:parent ,parent
:no-sync ,no-sync
:not-durable ,not-durable
:no-wait ,no-wait
:sync ,sync))))
(in-txn (txn :no-sync ,no-sync
:sync ,sync)
,@body))))</pre
><a href="../Transactions.html#macro_005FBDB_003A_003AWITH-TXN"
>Source Context</a
></div
......
......@@ -18,10 +18,10 @@
no-sync not-durable no-wait sync)
(make-instance 'txn
:handle (%db-env-txn-begin env parent
:no-sync no-sync
:not-durable not-durable
:no-wait no-wait
:sync sync)))</pre
:txn-no-sync no-sync
:txn-not-durable not-durable
:txn-no-wait no-wait
:txn-sync sync)))</pre
><a href="../Transactions.html#method_005FBDB_003A_003A_0028DB-ENV-TXN-BEGIN_0020DB-ENV_0029"
>Source Context</a
></div
......
<html
><head
><title
>Method (DB-GET-ENV DB-SEQUENCE-TXN)</title
><link href="../style.css" rel="stylesheet"
/><link title="Print" href="../print.css" rel="alternate stylesheet"
/></head
><body
><div class="qbook"
><div class="computational-element"
><h1
>Method: (DB-GET-ENV DB-SEQUENCE-TXN)</h1
><div class="contents"
><h2
>Source</h2
><pre class="code"
>(defmethod db-get-env ((sequ db-sequence-txn))
(db-get-env (db sequ)))</pre
><a href="../BDB_0020Classes.html#method_005FBDB_003A_003A_0028DB-GET-ENV_0020DB-SEQUENCE-TXN_0029"
>Source Context</a
></div
></div
></div
></body
></html
>
\ No newline at end of file
<html
><head
><title
>Method (DB-SEQU-CLOSE DB-SEQUENCE)</title
><link href="../style.css" rel="stylesheet"
/><link title="Print" href="../print.css" rel="alternate stylesheet"
/></head
><body
><div class="qbook"
><div class="computational-element"
><h1
>Method: (DB-SEQU-CLOSE DB-SEQUENCE)</h1
><div class="contents"
><h2
>Source</h2
><pre class="code"
>(defmethod db-sequ-close ((sequ db-sequence))
(%db-sequ-close (sequ-handle sequ)))</pre
><a href="../Sequences.html#method_005FBDB_003A_003A_0028DB-SEQU-CLOSE_0020DB-SEQUENCE_0029"
>Source Context</a
></div
></div
></div
></body
></html
>
\ No newline at end of file
<html
><head
><title
>Method (DB-SEQU-GET-FLAGS DB-SEQUENCE)</title
><link href="../style.css" rel="stylesheet"
/><link title="Print" href="../print.css" rel="alternate stylesheet"
/></head
><body
><div class="qbook"
><div class="computational-element"
><h1
>Method: (DB-SEQU-GET-FLAGS DB-SEQUENCE)</h1
><div class="contents"
><h2
>Source</h2
><pre class="code"
>(defmethod db-sequ-get-flags ((sequ db-sequence))
(let ((value (%db-sequ-get-flags sequ)))
(with-flag-system (find-flag-system :bdb-flags)
(flag-list value
'(:seq-dec :seq-inc :seq-wrap)))))</pre
><a href="../Sequences.html#method_005FBDB_003A_003A_0028DB-SEQU-GET-FLAGS_0020DB-SEQUENCE_0029"
>Source Context</a
></div
></div
></div
></body
></html
>
\ No newline at end of file
<html
><head
><title
>Method (DB-SEQU-GET DB-SEQUENCE-TXN)</title
><link href="../style.css" rel="stylesheet"
/><link title="Print" href="../print.css" rel="alternate stylesheet"
/></head
><body
><div class="qbook"
><div class="computational-element"
><h1
>Method: (DB-SEQU-GET DB-SEQUENCE-TXN)</h1
><div class="contents"
><h2
>Source</h2
><pre class="code"
>(defmethod db-sequ-get ((sequ db-sequence-txn) &amp;key txn (delta 1) no-sync)
(with-txn (txn (db-get-env sequ) :txn txn)
(call-next-method sequ
:txn txn
:delta delta
:no-sync no-sync)))</pre
><a href="../Sequences.html#method_005FBDB_003A_003A_0028DB-SEQU-GET_0020DB-SEQUENCE-TXN_0029"
>Source Context</a
></div
></div
></div
></body
></html
>
\ No newline at end of file
<html
><head
><title
>Method (DB-SEQU-GET DB-SEQUENCE)</title
><link href="../style.css" rel="stylesheet"
/><link title="Print" href="../print.css" rel="alternate stylesheet"
/></head
><body
><div class="qbook"
><div class="computational-element"
><h1
>Method: (DB-SEQU-GET DB-SEQUENCE)</h1
><div class="contents"
><h2
>Source</h2
><pre class="code"
>(defmethod db-sequ-get ((sequ db-sequence) &amp;key txn (delta 1) no-sync)
(%db-sequ-get sequ txn delta :txn-no-sync no-sync))</pre
><a href="../Sequences.html#method_005FBDB_003A_003A_0028DB-SEQU-GET_0020DB-SEQUENCE_0029"
>Source Context</a
></div
></div
></div
></body