sqltypes.f90

! This file was automatically generated by SWIG (https://www.swig.org).
! Version 4.2.0
!
! Do not make changes to this file unless you know what you are doing - modify
! the SWIG interface file instead.
module sqltypes
 use, intrinsic :: iso_c_binding
 implicit none
 private
 
 ! DECLARATION CONSTRUCTS
 ! struct struct tagDATE_STRUCT
 type, bind(C), public :: DATE_STRUCT
  integer(c_short), public :: year
  integer(c_short), public :: month
  integer(c_short), public :: day
 end type date_struct
 ! struct struct tagTIME_STRUCT
 type, bind(C), public :: TIME_STRUCT
  integer(c_short), public :: hour
  integer(c_short), public :: minute
  integer(c_short), public :: second
 end type time_struct
 ! struct struct tagTIMESTAMP_STRUCT
 type, bind(C), public :: TIMESTAMP_STRUCT
  integer(c_short), public :: year
  integer(c_short), public :: month
  integer(c_short), public :: day
  integer(c_short), public :: hour
  integer(c_short), public :: minute
  integer(c_short), public :: second
  integer(C_INT), public :: fraction
 end type timestamp_struct
 ! typedef enum SQLINTERVAL
 enum, bind(c)
  enumerator :: SQL_IS_YEAR = 1
  enumerator :: SQL_IS_MONTH = 2
  enumerator :: SQL_IS_DAY = 3
  enumerator :: SQL_IS_HOUR = 4
  enumerator :: SQL_IS_MINUTE = 5
  enumerator :: SQL_IS_SECOND = 6
  enumerator :: SQL_IS_YEAR_TO_MONTH = 7
  enumerator :: SQL_IS_DAY_TO_HOUR = 8
  enumerator :: SQL_IS_DAY_TO_MINUTE = 9
  enumerator :: SQL_IS_DAY_TO_SECOND = 10
  enumerator :: SQL_IS_HOUR_TO_MINUTE = 11
  enumerator :: SQL_IS_HOUR_TO_SECOND = 12
  enumerator :: SQL_IS_MINUTE_TO_SECOND = 13
 end enum
 integer, parameter, public :: SQLINTERVAL = kind(sql_is_year)
 public :: sql_is_year, sql_is_month, sql_is_day, sql_is_hour, sql_is_minute, sql_is_second, sql_is_year_to_month, &
    sql_is_day_to_hour, sql_is_day_to_minute, sql_is_day_to_second, sql_is_hour_to_minute, sql_is_hour_to_second, &
    sql_is_minute_to_second
 ! struct struct tagSQL_YEAR_MONTH
 type, bind(C), public :: SQL_YEAR_MONTH_STRUCT
  integer(C_INT), public :: year
  integer(C_INT), public :: month
 end type sql_year_month_struct
 ! struct struct tagSQL_DAY_SECOND
 type, bind(C), public :: SQL_DAY_SECOND_STRUCT
  integer(C_INT), public :: day
  integer(C_INT), public :: hour
  integer(C_INT), public :: minute
  integer(C_INT), public :: second
  integer(C_INT), public :: fraction
 end type sql_day_second_struct
 integer(C_INT), parameter, public :: SQL_MAX_NUMERIC_LEN = 16_c_int
 ! struct struct tagSQL_NUMERIC_STRUCT
 type, bind(C), public :: SQL_NUMERIC_STRUCT
  character(kind=c_char), public :: precision
  integer(C_SIGNED_CHAR), public :: scale
  character(kind=c_char), public :: sign
  integer(C_SIGNED_CHAR), dimension(16), public :: val
 end type sql_numeric_struct
 ! struct struct tagSQLGUID
 type, bind(C), public :: SQLGUID
  integer(c_long), public :: Data1
  integer(c_short), public :: Data2
  integer(c_short), public :: Data3
  integer(C_SIGNED_CHAR), dimension(8), public :: Data4
 end type sqlguid
 
end module