mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2025-08-07 14:56:59 +02:00
Code Issues Projects Releases Wiki Activity

Remove the FreeTDS dbbuffer setting.

Browse Source 
In current testing it's counter-productive and introduces surprising bugs.
This commit is contained in:
Dimitri Fontaine 2014-12-23 15:38:19 +01:00
parent 6eac0d9dd8
commit cd0b7b4240
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/monkey/mssql.lisp
View File

@ -99,20 +99,18 @@
(otherwise (error "not supported type ~A"
(foreign-enum-keyword '%syb-value-type type))))))
(defconstant +dbbuffer+ 14)
;; (defconstant +dbbuffer+ 14)
(define-sybdb-function ("dbsetopt" %dbsetopt) %RETCODE
(dbproc %DBPROCESS)
(option :int)
(char-param :pointer)
(int-param :int))
;; (define-sybdb-function ("dbsetopt" %dbsetopt) %RETCODE
;; (dbproc %DBPROCESS)
;; (option :int)
;; (char-param :pointer)
;; (int-param :int))
(defun map-query-results (query &key row-fn (connection *database*))
"Map the query results through the map-fn function."
(let ((%dbproc (slot-value connection 'dbproc))
(cffi:*default-foreign-encoding* (slot-value connection 'external-format)))
(with-foreign-string (%nrows "25000")
(%dbsetopt %dbproc +dbbuffer+ %nrows 0))
(with-foreign-string (%query query)
(%dbcmd %dbproc %query))
(%dbsqlexec %dbproc)