Add support for IXF CLOB data type.

In passing, fix the condition message to read the unknown IXF data types
as decimal numbers (rather than hexadecimal) as they are documented that
way in the IBM reference documentation.
This commit is contained in:
Dimitri Fontaine 2015-09-23 23:15:48 +02:00
parent 598c860cf5
commit bd44e6423b

View File

@ -37,14 +37,16 @@
(#. ixf:+time+ . "time")
(#. ixf:+char+ . "text")
(#. ixf:+varchar+ . "text")))
(#. ixf:+varchar+ . "text")
(#. ixf:+dbclob-location-spec+ . "text")))
(defun cast-ixf-type (ixf-type)
"Return the PostgreSQL type name for a given IXF type name."
(let ((pgtype
(cdr (assoc ixf-type *ixf-pgsql-type-mapping*))))
(unless pgtype
(error "IXF Type mapping unknown for: ~x" ixf-type))
(error "IXF Type mapping unknown for: ~d" ixf-type))
pgtype))
(defun format-default-value (default)