Skip to content

Commit

Permalink
Implement support for DB3 MEMO files.
Browse files Browse the repository at this point in the history
The support code is actually found in cl-db3, the changes that are necessary
for pgloader are only about updating to the new API.

Fixes #926.
  • Loading branch information
dimitri committed Apr 14, 2019
1 parent 7b10fab commit bc1167d
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion src/sources/db3/db3-schema.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -17,12 +17,13 @@
(open (fd-path dbfconn)
:direction :input
:element-type '(unsigned-byte 8)))
(let ((db3 (make-instance 'db3:db3)))
(let ((db3 (make-instance 'db3:db3 :filename (fd-path dbfconn))))
(db3:load-header db3 (conn-handle dbfconn))
(setf (fd-db3 dbfconn) db3))
dbfconn)

(defmethod close-connection ((dbfconn dbf-connection))
(db3:close-memo (fd-db3 dbfconn))
(close (conn-handle dbfconn))
(setf (conn-handle dbfconn) nil
(fd-db3 dbfconn) nil)
Expand Down

0 comments on commit bc1167d

Please sign in to comment.