mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2025-08-10 16:26:58 +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" (otherwise (error "not supported type ~A"
(foreign-enum-keyword '%syb-value-type type)))))) (foreign-enum-keyword '%syb-value-type type))))))
(defconstant +dbbuffer+ 14) ;; (defconstant +dbbuffer+ 14)
(define-sybdb-function ("dbsetopt" %dbsetopt) %RETCODE ;; (define-sybdb-function ("dbsetopt" %dbsetopt) %RETCODE
(dbproc %DBPROCESS) ;; (dbproc %DBPROCESS)
(option :int) ;; (option :int)
(char-param :pointer) ;; (char-param :pointer)
(int-param :int)) ;; (int-param :int))
(defun map-query-results (query &key row-fn (connection *database*)) (defun map-query-results (query &key row-fn (connection *database*))
"Map the query results through the map-fn function." "Map the query results through the map-fn function."
(let ((%dbproc (slot-value connection 'dbproc)) (let ((%dbproc (slot-value connection 'dbproc))
(cffi:*default-foreign-encoding* (slot-value connection 'external-format))) (cffi:*default-foreign-encoding* (slot-value connection 'external-format)))
(with-foreign-string (%nrows "25000")
(%dbsetopt %dbproc +dbbuffer+ %nrows 0))
(with-foreign-string (%query query) (with-foreign-string (%query query)
(%dbcmd %dbproc %query)) (%dbcmd %dbproc %query))
(%dbsqlexec %dbproc) (%dbsqlexec %dbproc)