Commit 81c71733 authored by asmyles's avatar asmyles

added cursor get-at-range and rename get@ to get-at for consistency

darcs-hash:dc60ec2ca410e03a9c0d9ef817d623977fc5e9de
parent f9d4a2e2
......@@ -96,9 +96,12 @@
(defun cursor-get-current (cursor &rest flags)
(cursor-get cursor nil nil (apply #'logior DB_CURRENT flags)))
(defun cursor-get@ (cursor key &rest flags)
(defun cursor-get-at (cursor key &rest flags)
(cursor-get cursor key nil (apply #'logior DB_SET flags)))
(defun cursor-get-at-range (cursor key &rest flags)
(cursor-get cursor key nil (apply #'logior DB_SET_RANGE flags)))
(defun cursor-get-both (cursor key data &rest flags)
(cursor-get cursor key data (apply #'logior DB_GET_BOTH flags)))
......@@ -40,7 +40,7 @@
;cursor.lisp
(:export #:cursor #:db-cursor #:cursor-close #:cursor-count #:cursor-delete #:copy-cursor #:cursor-get #:cursor-pget #:cursor-put)
;cursor-get functions
(:export #:cursor-get-first #:cursor-get-next #:cursor-get-prev #:cursor-get-last #:cursor-get-current #:cursor-get@ #:cursor-get-both)
(:export #:cursor-get-first #:cursor-get-next #:cursor-get-prev #:cursor-get-last #:cursor-get-current #:cursor-get-at #:cursor-get-at-range #:cursor-get-both)
;cursor get flags
(:export #:DB_CURRENT #:DB_FIRST #:DB_GET_BOTH #:DB_GET_BOTH_RANGE #:DB_GET_RECNO #:DB_JOIN_ITEM #:DB_LAST #:DB_NEXT #:DBNEXT_NODUP #:DB_PREV #:DB_PREV_NODUP #:DB_SET #:DB_SET_RANGE #:DB_SET_RECNO #:DB_MULTIPLE #:DB_RMW)
;cursor put flags
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment