[cl-dbf-cvs] CVS cl-dbf

[CVS User rklochkov]

Update of /project/cl-dbf/cvsroot/cl-dbf
In directory tiger.common-lisp.net:/tmp/cvs-serv5720

Modified Files:
	package.lisp src.lisp 
Log Message:
Changed export list
Added GUI example: dbfview


--- /project/cl-dbf/cvsroot/cl-dbf/package.lisp	2011/05/07 18:28:43	1.1.1.1
+++ /project/cl-dbf/cvsroot/cl-dbf/package.lisp	2012/05/08 09:00:11	1.2
@@ -1,4 +1,13 @@
 (defpackage #:cl-dbf
   (:use #:cl #:binary-data #:com.gigamonkeys.binary-data.common-datatypes)
-  (:export #:read))
+  (:export 
+   #:records-count
+   #:read-record
+   #:fields
+   #:with-db
+   #:name
+   #:dbopen
+   #:code-page
+   #:goto-bof
+   #:goto-record))
 
--- /project/cl-dbf/cvsroot/cl-dbf/src.lisp	2011/05/08 13:48:23	1.2
+++ /project/cl-dbf/cvsroot/cl-dbf/src.lisp	2012/05/08 09:00:12	1.3
@@ -131,6 +131,10 @@
 (defun goto-bof (driver)
   (file-position (slot-value driver 'stream) (header-size driver)))
 
+(defun goto-record (driver n)
+  (file-position (slot-value driver 'stream) 
+                 (+ (header-size driver) (* n (record-size driver)))))
+
 (defun external-format (driver)
   (case (code-page driver)
     (2    '(:code-page :id 850))