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

Implement a retry loop when SQLite database is "BUSY".

Browse Source 
It turns our that you can't do some operations on SQLite from several
concurrent connections, such as a "pgrama encoding" query.

Fixes #1193.
This commit is contained in:
Dimitri Fontaine 2020-07-27 21:11:28 +02:00
parent 49e5877853
commit e388909f0c
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/sources/sqlite/sqlite-schema.lisp
View File

@ -10,9 +10,21 @@
;;;
;;; SQLite schema introspection facilities
;;;
(defun sqlite-pragma-encoding (db)
(handler-case
(sqlite:execute-single db "pragma encoding;")
(sqlite:sqlite-error (e)
(if (eq :busy (sqlite:sqlite-error-code e))
;; retry when "database is locked" for being BUSY
(progn
(sleep 0.1)
(sqlite-pragma-encoding db))
;; fail by re-signaling the error
(error e)))))
(defun sqlite-encoding (db)
"Return a BABEL suitable encoding for the SQLite db handle."
(let ((encoding-string (sqlite:execute-single db "pragma encoding;")))
(let ((encoding-string (sqlite-pragma-encoding db)))
(cond ((string-equal encoding-string "UTF-8") :utf-8)
((string-equal encoding-string "UTF-16") :utf-16)
((string-equal encoding-string "UTF-16le") :utf-16le)