/[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 - (show annotations)
Wed Mar 20 17:37:22 2013 UTC (12 months, 4 weeks 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 ;; (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