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

Simplify Postgres version string parsing further.

Browse Source
This commit is contained in:
Dimitri Fontaine 2020-06-06 17:07:06 +02:00
parent cc8975bb88
commit 689dd4a806
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/pgsql/connection.lisp
View File

@ -429,10 +429,7 @@
(defun parse-postgresql-version-variant (version-string)
"Parse PostgreSQL select version() output for Postgres variant, if any."
(or (cl-ppcre:register-groups-bind (maybe-variant)
("PostgreSQL (?:[0-9.]+)(?: [^,]+)?, [^,]+, (.*)" version-string)
(when (cl-ppcre:scan "Redshift" maybe-variant) :redshift))
:pgdg))
(if (cl-ppcre:scan "Redshift" version-string) :redshift :pgdg))
(defun parse-postgresql-version-string (version-string)
(multiple-value-bind (full-version major-version)
@ -457,12 +454,14 @@
"A list of test values and Postgres version string")
(defun test/parse-postgresql-version-string ()
(loop :for (full major variant version-string) :in *test/versions*
:always (multiple-value-bind (parsed-full parsed-major parsed-variant)
(parse-postgresql-version-string version-string)
(and (string= parsed-full full)
(string= parsed-major major)
(eq parsed-variant variant)))))
(let ((results
(loop :for (full major variant version-string) :in *test/versions*
:collect (multiple-value-bind (parsed-full parsed-major parsed-variant)
(parse-postgresql-version-string version-string)
(and (string= parsed-full full)
(string= parsed-major major)
(eq parsed-variant variant))))))
(values (every #'identity results) results)))
(defun list-typenames-without-btree-support ()
"Fetch PostgresQL data types without btree support, so that it's possible