Build scripts & automatic generation of FFI files

[hcoop/smlsql.git] / libpq / FFI / s-_PQprintOpt.sml

(* This file has been generated automatically. DO NOT EDIT! *)
(* [from code at "/usr/include/postgresql/libpq-fe.h":120.1-134.13] *)
(* [by Matthias Blume's ml-nlffigen (version 0.9.1) for x86-unix] *)
(* Send comments and suggestions to blume@tti-c.org. Thanks! *)
local open C.Dim C_Int in
structure S__PQprintOpt = struct
    open ST__PQprintOpt
    type t_f_header = uchar
    val typ_f_header = T.uchar : t_f_header T.typ
    fun f_header' (x : (tag, 'c) su_obj')
        = mk_field' (0, x) : (t_f_header, 'c) obj'
    fun f_header (x : (tag, 'c) su_obj) = mk_rw_field (typ_f_header, 0, x)
    type t_f_align = uchar
    val typ_f_align = T.uchar : t_f_align T.typ
    fun f_align' (x : (tag, 'c) su_obj')
        = mk_field' (1, x) : (t_f_align, 'c) obj'
    fun f_align (x : (tag, 'c) su_obj) = mk_rw_field (typ_f_align, 1, x)
    type t_f_standard = uchar
    val typ_f_standard = T.uchar : t_f_standard T.typ
    fun f_standard' (x : (tag, 'c) su_obj')
        = mk_field' (2, x) : (t_f_standard, 'c) obj'
    fun f_standard (x : (tag, 'c) su_obj)
        = mk_rw_field (typ_f_standard, 2, x)
    type t_f_html3 = uchar
    val typ_f_html3 = T.uchar : t_f_html3 T.typ
    fun f_html3' (x : (tag, 'c) su_obj')
        = mk_field' (3, x) : (t_f_html3, 'c) obj'
    fun f_html3 (x : (tag, 'c) su_obj) = mk_rw_field (typ_f_html3, 3, x)
    type t_f_expanded = uchar
    val typ_f_expanded = T.uchar : t_f_expanded T.typ
    fun f_expanded' (x : (tag, 'c) su_obj')
        = mk_field' (4, x) : (t_f_expanded, 'c) obj'
    fun f_expanded (x : (tag, 'c) su_obj)
        = mk_rw_field (typ_f_expanded, 4, x)
    type t_f_pager = uchar
    val typ_f_pager = T.uchar : t_f_pager T.typ
    fun f_pager' (x : (tag, 'c) su_obj')
        = mk_field' (5, x) : (t_f_pager, 'c) obj'
    fun f_pager (x : (tag, 'c) su_obj) = mk_rw_field (typ_f_pager, 5, x)
    type t_f_fieldSep = rw uchar_obj ptr
    val typ_f_fieldSep = T.pointer T.uchar : t_f_fieldSep T.typ
    fun f_fieldSep' (x : (tag, 'c) su_obj')
        = mk_field' (8, x) : (t_f_fieldSep, 'c) obj'
    fun f_fieldSep (x : (tag, 'c) su_obj)
        = mk_rw_field (typ_f_fieldSep, 8, x)
    type t_f_tableOpt = rw uchar_obj ptr
    val typ_f_tableOpt = T.pointer T.uchar : t_f_tableOpt T.typ
    fun f_tableOpt' (x : (tag, 'c) su_obj')
        = mk_field' (12, x) : (t_f_tableOpt, 'c) obj'
    fun f_tableOpt (x : (tag, 'c) su_obj)
        = mk_rw_field (typ_f_tableOpt, 12, x)
    type t_f_caption = rw uchar_obj ptr
    val typ_f_caption = T.pointer T.uchar : t_f_caption T.typ
    fun f_caption' (x : (tag, 'c) su_obj')
        = mk_field' (16, x) : (t_f_caption, 'c) obj'
    fun f_caption (x : (tag, 'c) su_obj)
        = mk_rw_field (typ_f_caption, 16, x)
    type t_f_fieldName = (rw uchar_obj ptr, rw) obj ptr
    val typ_f_fieldName =
        T.pointer (T.pointer T.uchar) : t_f_fieldName T.typ
    fun f_fieldName' (x : (tag, 'c) su_obj')
        = mk_field' (20, x) : (t_f_fieldName, 'c) obj'
    fun f_fieldName (x : (tag, 'c) su_obj)
        = mk_rw_field (typ_f_fieldName, 20, x)
end
end