OdbcArrayType = byte | char | Utf16Char

OdbcFixedLenType = SomeNumber | bool | enum | GUID | OdbcDate | OdbcTime |
    OdbcTimestamp

OdbcPrimType = enum
  otByteArray, otCharArray, otWideArray, otBool, otInt8, otInt16, otInt32,
  otInt64, otFloat32, otFloat64, otDate, otTime, otTimestamp, otGuid

OdbcValue = object
  case kind*: OdbcPrimType
  of otByteArray:
    bytes*: seq[byte]
  of otCharArray:
    chars*: seq[char]
  of otWideArray:
    wchars*: seq[Utf16Char]
  of odbcIntKinds:
    i64*: int64
  of otFloat32:
    f32*: float32
  of otFloat64:
    f64*: float64
  of otDate:
    date*: OdbcDate
  of otTime:
    time*: OdbcTime
  of otTimestamp:
    datetime*: OdbcTimestamp
  of otGuid:
    guid*: GUID
  

ResizableContainer[T] = concept var x
    x[int] is var T
    x.setLen(int)

odbcIntKinds = {otBool..otInt64}

proc bindCol(stmt: SqlHandle; colIdx: TSqlUSmallInt; ret: var OdbcFixedLenType)

proc bindCol[I; T: OdbcArrayType](stmt: SqlHandle; colIdx: TSqlUSmallInt;
                                  ret: var array[I, T])

proc bindCol[T](stmt: SqlHandle; colIdx: TSqlUSmallInt; ret: var T)

proc bindParam(stmt: SqlHandle; idx: TSqlUSmallInt;
               param: ptr (OdbcFixedLenType and not SomeFloat))

proc bindParam(stmt: SqlHandle; idx: TSqlUSmallInt; param: ptr SomeFloat)

proc bindParam[I](stmt: SqlHandle; idx: TSqlUSmallInt;
                  param: ptr array[I, char | Utf16Char])

proc bindParam[I](stmt: SqlHandle; idx: TSqlUSmallInt; param: ptr array[I, byte])

proc bindParam[T](stmt: SqlHandle; idx: TSqlUSmallInt; param: ptr Option[T])

proc bindParam[T](stmt: SqlHandle; idx: TSqlUSmallInt; param: ptr T)

proc getData(ds: SqlHandle; colIdx: TSqlUSmallInt; ret: var OdbcFixedLenType) {.
    sideEffect, ...tags: [IOEffect].}

proc getData(ds: SqlHandle; colIdx: TSqlUSmallInt; ret: var OdbcValue) {.
    sideEffect, ...tags: [IOEffect], raises: [OdbcException].}

proc getData(ds: SqlHandle; colIdx: TSqlUSmallInt; ret: var string) {.
    sideEffect, ...tags: [IOEffect], raises: [OdbcException].}

proc getData[I; T: OdbcArrayType](ds: SqlHandle; colIdx: TSqlUSmallInt;
                                  ret: var array[I, T]) {.sideEffect,
    ...tags: [IOEffect].}

proc getData[T: OdbcArrayType](ds: SqlHandle; colIdx: TSqlUSmallInt;
                               ret: var openArray[T]) {.sideEffect,
    ...tags: [IOEffect].}

proc getData[T: OdbcFixedLenType](ds: SqlHandle; colIdx: TSqlUSmallInt;
                                  ret: var Option[T]) {.sideEffect,
    ...tags: [IOEffect].}

proc getData[T](ds: SqlHandle; colIdx: TSqlUSmallInt; ret: var seq[T]) {.
    sideEffect, ...tags: [IOEffect].}

proc getData[T](ds: SqlHandle; colIdx: TSqlUSmallInt; ret: var T) {.sideEffect,
    ...tags: [IOEffect].}

proc getDataResizable[T](ds: SqlHandle; colIdx: TSqlUSmallInt;
                         ret: var ResizableContainer[T]) {.sideEffect,
    ...tags: [IOEffect].}

template bindParam(stmt: SqlHandle; idx: TSqlUSmallInt; param: openArray[char])

template bindParam(stmt: SqlHandle; idx: TSqlUSmallInt;
                   param: openArray[OdbcArrayType])