/[cl-dbf]/cl-dbf/conses.lisp
ViewVC logotype

Contents of /cl-dbf/conses.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Wed Mar 20 17:37:22 2013 UTC (13 months ago) by rklochkov
Branch: MAIN
CVS Tags: HEAD
Added support for FoxPro Memo
Thanks to Rafael Jesús Alcántara Pérez, <ralcantara@dedaloingenieros.com>
1 rklochkov 1.1 ;; (c) Roman Klochkov, kalimehtar@mail.ru
2     ;;
3    
4    
5     (in-package #:cl-dbf)
6    
7    
8     (defun dbf-to-conses-of-strings (filename &key external-format)
9     "FILENAME is a name of dbf file to open.
10     Returns a list (field-names . record-values),
11     where values are strings.
12     EXTERNAL-FORMAT is passed to flexi-streams:octets-to-string"
13     (with-db db filename
14     (when external-format
15     (setf (slot-value db 'external-format) external-format)
16     (cons (mapcar #'name (fields db))
17     (loop
18     :for rec = (read-record db)
19     :while rec
20     :collect rec)))))

  ViewVC Help
Powered by ViewVC 1.1.5