Implement support for DBF deleted records.

Skip over deleted records rather than blindly importing them. Requires an
update of the underlying DBF library.

Fixes #985.
This commit is contained in:
Dimitri Fontaine 2019-06-10 22:58:12 +02:00
parent d8b0bd5145
commit 26cc9ca79f

View File

@ -23,7 +23,9 @@
(loop (loop
:with count := (db3:record-count db3) :with count := (db3:record-count db3)
:repeat count :repeat count
:for row-array := (db3:load-record db3 stream) :for (row-array deleted) := (multiple-value-list
(db3:load-record db3 stream))
:unless deleted
:do (funcall process-row-fn row-array) :do (funcall process-row-fn row-array)
:finally (return count))))) :finally (return count)))))