ocamlnet 4.1.9-2 · OCaml Package

val find_line_end : string -> int -> int -> int

val find_line_end_poly : 
  's Netstring_tstring.tstring_ops ->
  's ->
  int ->
  int ->
  int

val find_line_start : string -> int -> int -> int

val find_line_start_poly : 
  's Netstring_tstring.tstring_ops ->
  's ->
  int ->
  int ->
  int

val find_double_line_start : string -> int -> int -> int

val find_double_line_start_poly : 
  's Netstring_tstring.tstring_ops ->
  's ->
  int ->
  int ->
  int

val skip_line_ends : string -> int -> int -> int

val skip_line_ends_poly : 
  's Netstring_tstring.tstring_ops ->
  's ->
  int ->
  int ->
  int

val fold_lines_p : 
  ('a -> int -> int -> int -> bool -> 'a) ->
  'a ->
  string ->
  int ->
  int ->
  'a

val fold_lines_p_poly : 
  's Netstring_tstring.tstring_ops ->
  ('a -> int -> int -> int -> bool -> 'a) ->
  'a ->
  's ->
  int ->
  int ->
  'a

val fold_lines : ('a -> string -> 'a) -> 'a -> string -> int -> int -> 'a

val fold_lines_poly : 
  's Netstring_tstring.tstring_ops ->
  ('a -> 's -> 'a) ->
  'a ->
  's ->
  int ->
  int ->
  'a

val iter_lines : (string -> unit) -> string -> int -> int -> unit

val iter_lines_poly : 
  's Netstring_tstring.tstring_ops ->
  ('s -> unit) ->
  's ->
  int ->
  int ->
  unit

val skip_whitespace_left : string -> int -> int -> int

val skip_whitespace_right : string -> int -> int -> int

val fold_header : 
  ?downcase:bool ->
  ?unfold:bool ->
  ?strip:bool ->
  ('a -> string -> string -> 'a) ->
  'a ->
  string ->
  int ->
  int ->
  'a

val list_header : 
  ?downcase:bool ->
  ?unfold:bool ->
  ?strip:bool ->
  string ->
  int ->
  int ->
  (string * string) list

val scan_header : 
  ?downcase:bool ->
  ?unfold:bool ->
  ?strip:bool ->
  string ->
  start_pos:int ->
  end_pos:int ->
  (string * string) list * int

val scan_header_tstring : 
  ?downcase:bool ->
  ?unfold:bool ->
  ?strip:bool ->
  Netsys_types.tstring ->
  start_pos:int ->
  end_pos:int ->
  (string * string) list * int

val scan_header_poly : 
  ?downcase:bool ->
  ?unfold:bool ->
  ?strip:bool ->
  's Netstring_tstring.tstring_ops ->
  's ->
  start_pos:int ->
  end_pos:int ->
  (string * string) list * int

val read_header : 
  ?downcase:bool ->
  ?unfold:bool ->
  ?strip:bool ->
  Netstream.in_obj_stream ->
  (string * string) list

val write_header : 
  ?soft_eol:string ->
  ?eol:string ->
  Netchannels.out_obj_channel ->
  (string * string) list ->
  unit

type s_token =

| Atom of string
| EncodedWord of (string * string) * string * string
| QString of string
| Control of char
| Special of char
| DomainLiteral of string
| Comment
| End

type s_option =

| No_backslash_escaping
| Return_comments
| Recognize_encoded_words

type s_extended_token

val get_token : s_extended_token -> s_token

val get_decoded_word : s_extended_token -> string

val get_charset : s_extended_token -> string

val get_language : s_extended_token -> string

val get_pos : s_extended_token -> int

val get_line : s_extended_token -> int

val get_column : s_extended_token -> int

val get_length : s_extended_token -> int

val separates_adjacent_encoded_words : s_extended_token -> bool

type mime_scanner

val create_mime_scanner : 
  specials:char list ->
  scan_options:s_option list ->
  ?pos:int ->
  ?line:int ->
  ?column:int ->
  string ->
  mime_scanner

val get_pos_of_scanner : mime_scanner -> int

val get_line_of_scanner : mime_scanner -> int

val get_column_of_scanner : mime_scanner -> int

val scan_token : mime_scanner -> s_extended_token * s_token

val scan_token_list : mime_scanner -> (s_extended_token * s_token) list

val scan_structured_value : 
  string ->
  char list ->
  s_option list ->
  s_token list

val specials_rfc822 : char list

val specials_rfc2045 : char list

val scan_encoded_text_value : string -> s_extended_token list

val scan_value_with_parameters : 
  string ->
  s_option list ->
  string * (string * string) list

type s_param

val param_value : s_param -> string

val param_charset : s_param -> string

val param_language : s_param -> string

val mk_param : ?charset:string -> ?language:string -> string -> s_param

val print_s_param : Format.formatter -> s_param -> unit

val scan_value_with_parameters_ep : 
  string ->
  s_option list ->
  string * (string * s_param) list

val scan_mime_type : string -> s_option list -> string * (string * string) list

val scan_mime_type_ep : 
  string ->
  s_option list ->
  string * (string * s_param) list

val split_mime_type : string -> string * string

exception Line_too_long

val write_value : 
  ?maxlen1:int ->
  ?maxlen:int ->
  ?hardmaxlen1:int ->
  ?hardmaxlen:int ->
  ?fold_qstring:bool ->
  ?fold_literal:bool ->
  ?unused:int Pervasives.ref ->
  ?hardunused:int Pervasives.ref ->
  Netchannels.out_obj_channel ->
  s_token list ->
  unit

val param_tokens : ?maxlen:int -> (string * s_param) list -> s_token list

val split_uri : string -> s_token list

val scan_multipart_body : 
  string ->
  start_pos:int ->
  end_pos:int ->
  boundary:string ->
  ((string * string) list * string) list

val scan_multipart_body_and_decode : 
  string ->
  start_pos:int ->
  end_pos:int ->
  boundary:string ->
  ((string * string) list * string) list

val scan_multipart_body_from_netstream : 
  Netstream.in_obj_stream ->
  boundary:string ->
  create:((string * string) list -> 'a) ->
  add:('a -> Netstream.in_obj_stream -> int -> int -> unit) ->
  stop:('a -> unit) ->
  unit

val read_multipart_body : 
  (Netstream.in_obj_stream -> 'a) ->
  string ->
  Netstream.in_obj_stream ->
  'a list

val create_boundary : ?random:string list -> ?nr:int -> unit -> string

package ocamlnet