mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2026-05-05 02:46:10 +02:00
Code Issues Projects Releases Wiki Activity

Implement support for DB3 MEMO files.

Browse Source 
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.
This commit is contained in:
Dimitri Fontaine 2019-04-14 22:14:43 +02:00
parent 7b10fabd94
commit bc1167d3e3
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/sources/db3/db3-schema.lisp
View File

@ -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)