module Writer: sig .. end
type string -> int -> int -> unit
val write_raw_byte : string -> write_handler -> int -> unit
val write_raw_int8 : write_handler -> int -> unit
val write_raw_int16 : write_handler -> int -> unit
val write_raw_int32 : write_handler -> int32 -> unit
val write_raw_int64 : write_handler -> int64 -> unit
val write_raw_extended_image : write_handler -> int64 * int -> unit
val write_raw_extended : write_handler -> float -> unit
val write_raw_short_string : write_handler -> string -> unit
val write_raw_zero_terminated_string : write_handler -> string -> unit
: write_handler -> string -> int -> unit
val write_value : write_handler -> Dfm.value_type -> unit
val write_int8 : write_handler -> int -> unit
val write_int16 : write_handler -> int -> unit
val write_int32 : write_handler -> int32 -> unit
val write_int64 : write_handler -> int64 -> unit
val write_int : write_handler -> int -> unit
val write_string : write_handler -> string -> unit
val write_wide_string : write_handler -> Unicode.utf16_string -> unit
val write_char : write_handler -> char -> unit
val write_wchar : write_handler -> int -> unit
val write_bool : write_handler -> bool -> unit
val write_ident : write_handler -> string -> unit
val write_single : write_handler -> float -> unit
val write_double : write_handler -> float -> unit
val write_extended_image : write_handler -> int64 * int -> unit
val write_extended : write_handler -> float -> unit
val write_currency : write_handler -> float -> unit
val write_date : write_handler -> float -> unit
val write_binary : write_handler -> Dfm.byte_array -> unit
val write_nil : write_handler -> unit
val write_null : write_handler -> unit
val write_property_name : write_handler -> string -> unit
val write_list_begin : write_handler -> unit
val write_list_end : write_handler -> unit
val write_collection_begin : write_handler -> unit
val write_collection_end : write_handler -> unit
val write_set_begin : write_handler -> unit
val write_set_end : write_handler -> unit
val write_set_element : write_handler ->
[ `char of char | `int of int | `tag of string | `wchar of int ] -> unit
val write_signature : write_handler -> unit
val write_component : write_handler ->
Dfm.filer_flags -> int -> string -> string -> unit
val write_variant : write_handler -> Dfm.variant -> unit
val create : ?resource_header:bool ->
string ->
Pervasives.out_channel ->
[> `writing of
(unit -> unit) list Pervasives.ref *
(string ->
[< `binary of Dfm.byte_array
| `bool of bool
| `char of char
| `currency of float
| `efloat of float * (int64 * int)
| `end_of_list
| `end_of_record
| `float of float
| `int of int
| `int32 of int32
| `int64 of int64
| `list of [< `any | `record ]
| `nil
| `none
| `null
| `record
| `sfloat of float
| `some
| `string of string
| `tag of string
| `time of float
| `wchar of int
| `wstring of Unicode.utf16_string ] ->
unit) ]