sig
  exception Decoding_error of string
  exception Encoding_error of string
  type readbyte_error =
      End_of_stream
    | Transport_error
    | Peek_error
    | Request_too_large
    | Not_implemented
  exception Readbyte_error of Lber.readbyte_error
  type readbyte = ?peek:bool -> int -> string
  type writebyte = char -> unit
  type ber_class = Universal | Application | Context_specific | Private
  type ber_length = Definite of int | Indefinite
  type ber_val_header = {
    ber_class : Lber.ber_class;
    ber_primitive : bool;
    ber_tag : int;
    ber_length : Lber.ber_length;
  }
  val readbyte_of_string : string -> Lber.readbyte
  val readbyte_of_ber_element :
    Lber.ber_length -> Lber.readbyte -> Lber.readbyte
  val readbyte_of_fd : Unix.file_descr -> Lber.readbyte
  val readbyte_of_ssl : Ssl.socket -> Lber.readbyte
  val decode_ber_header : ?peek:bool -> Lber.readbyte -> Lber.ber_val_header
  val encode_ber_header : Lber.ber_val_header -> string
  val read_contents :
    ?peek:bool -> Lber.readbyte -> Lber.ber_length -> string
  val decode_ber_bool :
    ?peek:bool ->
    ?cls:Lber.ber_class ->
    ?tag:int -> ?contents:string option -> Lber.readbyte -> bool
  val encode_ber_bool : ?cls:Lber.ber_class -> ?tag:int -> bool -> string
  val decode_ber_int32 :
    ?peek:bool ->
    ?cls:Lber.ber_class ->
    ?tag:int -> ?contents:string option -> Lber.readbyte -> int32
  val encode_ber_int32 : ?cls:Lber.ber_class -> ?tag:int -> int32 -> string
  val decode_ber_enum :
    ?peek:bool ->
    ?cls:Lber.ber_class ->
    ?tag:int -> ?contents:string option -> Lber.readbyte -> int32
  val encode_ber_enum : ?cls:Lber.ber_class -> ?tag:int -> int32 -> string
  val decode_ber_octetstring :
    ?peek:bool ->
    ?cls:Lber.ber_class ->
    ?tag:int -> ?contents:string option -> Lber.readbyte -> string
  val encode_ber_octetstring :
    ?cls:Lber.ber_class -> ?tag:int -> string -> string
  val decode_ber_null :
    ?peek:bool ->
    ?cls:Lber.ber_class ->
    ?tag:int -> ?contents:string option -> Lber.readbyte -> unit
  val encode_ber_null : ?cls:Lber.ber_class -> ?tag:int -> unit -> string
  val encode_berval_list :
    ?buf:Buffer.t -> ('a -> string) -> 'a list -> string
  val decode_berval_list :
    ?lst:'a list -> (Lber.readbyte -> 'a) -> Lber.readbyte -> 'a list
end