module DB.HSQL.MySQL.Type where
import Foreign(Ptr)
import Foreign.C(CString,CULong)
import Database.HSQL.Types
type MYSQL = Ptr ()
type MYSQL_RES = Ptr ()
type MYSQL_FIELD = Ptr ()
type MYSQL_ROW = Ptr CString
type MYSQL_LENGTHS = Ptr CULong
mkSqlType :: Int -> Int -> Int -> SqlType
mkSqlType (254) size _ = SqlChar size
mkSqlType (253) size _ = SqlVarChar size
mkSqlType (0) size prec = SqlNumeric size prec
mkSqlType (2) _ _ = SqlSmallInt
mkSqlType (9) _ _ = SqlMedInt
mkSqlType (3) _ _ = SqlInteger
mkSqlType (4) _ _ = SqlReal
mkSqlType (5) _ _ = SqlDouble
mkSqlType (1) _ _ = SqlTinyInt
mkSqlType (8) _ _ = SqlBigInt
mkSqlType (10) _ _ = SqlDate
mkSqlType (11) _ _ = SqlTime
mkSqlType (7) _ _ = SqlTimeStamp
mkSqlType (12) _ _ = SqlDateTime
mkSqlType (13) _ _ = SqlYear
mkSqlType (252) _ _ = SqlBLOB
mkSqlType (248) _ _ = SqlSET
mkSqlType (247) _ _ = SqlENUM
mkSqlType tp _ _ = SqlUnknown tp