convert-sql-type ( number -- symbol )

Vocabulary

odbc

Inputs

number

an object

Outputs

symbol

an object

Definition

USING: combinators kernel ;

IN: odbc

: convert-sql-type ( number -- symbol )
    {
        { 1 [ SQL_CHAR ] }
        { 12 [ SQL_VARCHAR ] }
        { -1 [ SQL_LONGVARCHAR ] }
        { -8 [ SQL_WCHAR ] }
        { -9 [ SQL_WCHARVAR ] }
        { -10 [ SQL_WLONGCHARVAR ] }
        { 3 [ SQL_DECIMAL ] }
        { 5 [ SQL_SMALLINT ] }
        { 2 [ SQL_NUMERIC ] }
        { 4 [ SQL_INTEGER ] }
        { 7 [ SQL_REAL ] }
        { 6 [ SQL_FLOAT ] }
        { 8 [ SQL_DOUBLE ] }
        { -7 [ SQL_BIT ] }
        { -6 [ SQL_TINYINT ] }
        { -5 [ SQL_BIGINT ] }
        { -2 [ SQL_BINARY ] }
        { -3 [ SQL_VARBINARY ] }
        { -4 [ SQL_LONGVARBINARY ] }
        { 91 [ SQL_TYPE_DATE ] }
        { 92 [ SQL_TYPE_TIME ] }
        { 93 [ SQL_TYPE_TIMESTAMP ] }
        { -151 [ SQL_XML ] }
        { -152 [ SQL_UDT ] }
        { -153 [ SQL_GEOMETRY ] }
        { -154 [ SQL_GEOMETRYCOLLECTION ] }
        { -155 [ SQL_CIRCULARSTRING ] }
        { -156 [ SQL_COMPOUNDCURVE ] }
        { -157 [ SQL_CURVEPOLYGON ] }
        { -158 [ SQL_FULLTEXT ] }
        { -159 [ SQL_FULLTEXTKEY ] }
        { -160 [ SQL_LINESTRING ] }
        { -161 [ SQL_MULTILINESTRING ] }
        { -162 [ SQL_MULTIPOINT ] }
        { -163 [ SQL_MULTIPOLYGON ] }
        { -164 [ SQL_POINT ] }
        { -165 [ SQL_POLYGON ] }
        [ drop SQL_TYPE_UNKNOWN ]
    } case ;