1 (* This file has been generated automatically
. DO NOT EDIT
! *)
2 (* [from code at
"/usr/include/gconv.h":37.1-51.2, "/usr/include/gconv.h":55.1-59.2] *)
3 (* [by Matthias Blume
's ml
-nlffigen (version
0.9.1) for x86
-unix
] *)
4 (* Send comments
and suggestions to blume@tti
-c
.org
. Thanks
! *)
8 type mlrep
= MLRep
.Signed
.int
9 val e___GCONV_EMPTY_INPUT
= 4 : mlrep
10 val e___GCONV_FULL_OUTPUT
= 5 : mlrep
11 val e___GCONV_IGNORE_ERRORS
= 0 : mlrep
12 val e___GCONV_ILLEGAL_DESCRIPTOR
= 8 : mlrep
13 val e___GCONV_ILLEGAL_INPUT
= 6 : mlrep
14 val e___GCONV_INCOMPLETE_INPUT
= 7 : mlrep
15 val e___GCONV_INTERNAL_ERROR
= 9 : mlrep
16 val e___GCONV_IS_LAST
= 0 : mlrep
17 val e___GCONV_NOCONV
= 1 : mlrep
18 val e___GCONV_NODB
= 2 : mlrep
19 val e___GCONV_NOMEM
= 3 : mlrep
20 val e___GCONV_OK
= 0 : mlrep
21 fun m2i (x
: mlrep
) = x
: MLRep
.Signed
.int
22 fun i2m (x
: MLRep
.Signed
.int) = x
: mlrep
23 fun c x
= Cvt
.i2c_enum (m2i x
) : tag enum
24 fun ml (x
: tag enum
) = i2m (Cvt
.c2i_enum x
)
25 fun get
' (x
: (tag
, 'c
) enum_obj
') = i2m (Get
.enum
' x
)
26 fun set
' (x
: (tag
, rw
) enum_obj
', v
) = Set
.enum
' (x
, m2i v
)
27 fun get (x
: (tag
, 'c
) enum_obj
) = i2m (Get
.enum x
)
28 fun set (x
: (tag
, rw
) enum_obj
, v
) = Set
.enum (x
, m2i v
)