Module Dfm.Reader

module Reader: sig .. end

type read_handler = string -> int -> int -> int 

val read_raw_byte : string -> read_handler -> int

val read_raw_int8 : read_handler -> int

val read_raw_int16 : read_handler -> int

val read_raw_int32 : read_handler -> int32

val read_raw_int64 : read_handler -> int64

val read_raw_extended : read_handler -> float * (int64 * int)

val read_raw_date : read_handler -> float

val read_raw_short_string : read_handler -> string

val read_raw_zero_terminated_string : read_handler -> string

val read_raw_long_string : read_handler -> string

val read_raw_wide_string : read_handler -> Unicode.utf16_string

val read_raw_binary : read_handler -> Dfm.byte_array

val read_value : read_handler -> Dfm.value_type

val read_int : read_handler -> int64

val read_set_element : read_handler ->
       [ `char of char | `int of int | `tag of string | `wchar of int ] option

val read_list : read_handler -> int option

val read_variant : read_handler ->
       [ `binary of Dfm.byte_array
       | `bool of bool
       | `char of char
       | `collection
       | `currency of float
       | `efloat of float * (int64 * int)
       | `float of float
       | `int of int
       | `int32 of int32
       | `int64 of int64
       | `list
       | `nil
       | `null
       | `set
       | `sfloat of float
       | `string of string
       | `tag of string
       | `time of float
       | `wchar of int
       | `wstring of Unicode.utf16_string ]

val read_property_name : read_handler -> string option

val read_resource_header : read_handler -> string

val read_signature : read_handler -> unit

val read_component : read_handler -> (Dfm.filer_flags * int * string * string) option

val create : ?resource_header:bool ->
       string ->
       Pervasives.in_channel ->
       [> `reading of
            string Pervasives.ref *
            [> `binary of Dfm.byte_array
             | `bool of bool
             | `char of char
             | `end_of_list
             | `end_of_record
             | `float of float
             | `int of int
             | `int32 of int32
             | `int64 of int64
             | `list of [> `any ]
             | `nil
             | `null
             | `record
             | `string of string
             | `tag of string
             | `time of float ]
            Pervasives.ref * (unit -> unit) * (float -> float) ]