`sig
exception Malformed_code
exception Cannot_represent of int
type encoding =
[ `Enc_adobe_standard_encoding
| `Enc_adobe_symbol_encoding
| `Enc_adobe_zapf_dingbats_encoding
| `Enc_asn1_T61
| `Enc_asn1_iso646
| `Enc_asn1_printable
| `Enc_cp037
| `Enc_cp1006
| `Enc_cp1026
| `Enc_cp1047
| `Enc_cp424
| `Enc_cp437
| `Enc_cp500
| `Enc_cp737
| `Enc_cp775
| `Enc_cp850
| `Enc_cp852
| `Enc_cp855
| `Enc_cp856
| `Enc_cp857
| `Enc_cp860
| `Enc_cp861
| `Enc_cp862
| `Enc_cp863
| `Enc_cp864
| `Enc_cp865
| `Enc_cp866
| `Enc_cp869
| `Enc_cp874
| `Enc_cp875
| `Enc_empty
| `Enc_eucjp
| `Enc_euckr
| `Enc_iso88591
| `Enc_iso885910
| `Enc_iso885911
| `Enc_iso885913
| `Enc_iso885914
| `Enc_iso885915
| `Enc_iso885916
| `Enc_iso88592
| `Enc_iso88593
| `Enc_iso88594
| `Enc_iso88595
| `Enc_iso88596
| `Enc_iso88597
| `Enc_iso88598
| `Enc_iso88599
| `Enc_java
| `Enc_jis0201
| `Enc_koi8r
| `Enc_macroman
| `Enc_subset of Netconversion.encoding * (int -> bool)
| `Enc_usascii
| `Enc_utf16
| `Enc_utf16_be
| `Enc_utf16_le
| `Enc_utf32
| `Enc_utf32_be
| `Enc_utf32_le
| `Enc_utf8
| `Enc_utf8_opt_bom
| `Enc_windows1250
| `Enc_windows1251
| `Enc_windows1252
| `Enc_windows1253
| `Enc_windows1254
| `Enc_windows1255
| `Enc_windows1256
| `Enc_windows1257
| `Enc_windows1258 ]
type charset =
[ `Set_adobe_standard_encoding
| `Set_adobe_symbol_encoding
| `Set_adobe_zapf_dingbats_encoding
| `Set_asn1_T61
| `Set_asn1_iso646
| `Set_asn1_printable
| `Set_cp037
| `Set_cp1006
| `Set_cp1026
| `Set_cp1047
| `Set_cp424
| `Set_cp437
| `Set_cp500
| `Set_cp737
| `Set_cp775
| `Set_cp850
| `Set_cp852
| `Set_cp855
| `Set_cp856
| `Set_cp857
| `Set_cp860
| `Set_cp861
| `Set_cp862
| `Set_cp863
| `Set_cp864
| `Set_cp865
| `Set_cp866
| `Set_cp869
| `Set_cp874
| `Set_cp875
| `Set_iso88591
| `Set_iso885910
| `Set_iso885911
| `Set_iso885913
| `Set_iso885914
| `Set_iso885915
| `Set_iso885916
| `Set_iso88592
| `Set_iso88593
| `Set_iso88594
| `Set_iso88595
| `Set_iso88596
| `Set_iso88597
| `Set_iso88598
| `Set_iso88599
| `Set_jis0201
| `Set_jis0208
| `Set_jis0212
| `Set_koi8r
| `Set_ks1001
| `Set_macroman
| `Set_unicode
| `Set_usascii
| `Set_windows1250
| `Set_windows1251
| `Set_windows1252
| `Set_windows1253
| `Set_windows1254
| `Set_windows1255
| `Set_windows1256
| `Set_windows1257
| `Set_windows1258 ]
val encoding_of_string : string -> Netconversion.encoding
val string_of_encoding : Netconversion.encoding -> string
val is_ascii_compatible : Netconversion.encoding -> bool
val is_single_byte : Netconversion.encoding -> bool
val same_encoding :
Netconversion.encoding -> Netconversion.encoding -> bool
val byte_order_mark : Netconversion.encoding -> string
val makechar : Netconversion.encoding -> int -> string
val ustring_of_uchar : Netconversion.encoding -> int -> string
val to_unicode : Netconversion.charset -> int -> int
val from_unicode : Netconversion.charset -> int -> int
val available_input_encodings : unit -> Netconversion.encoding list
val available_output_encodings : unit -> Netconversion.encoding list
val user_encoding : unit -> Netconversion.encoding option
val win32_code_pages : (int * Netconversion.encoding) list
val convert :
?subst:(int -> string) ->
in_enc:Netconversion.encoding ->
out_enc:Netconversion.encoding ->
?range_pos:int -> ?range_len:int -> string -> string
val convert_tstring :
?subst:(int -> string) ->
in_enc:Netconversion.encoding ->
out_enc:Netconversion.encoding ->
out_kind:'s Netstring_tstring.tstring_kind ->
?range_pos:int -> ?range_len:int -> Netsys_types.tstring -> 's
val convert_poly :
in_ops:'s1 Netstring_tstring.tstring_ops ->
out_kind:'s2 Netstring_tstring.tstring_kind ->
?subst:(int -> string) ->
in_enc:Netconversion.encoding ->
out_enc:Netconversion.encoding ->
?range_pos:int -> ?range_len:int -> 's1 -> 's2
val recode :
in_enc:Netconversion.encoding ->
in_buf:string ->
in_pos:int ->
in_len:int ->
out_enc:Netconversion.encoding ->
out_buf:Stdlib.Bytes.t ->
out_pos:int ->
out_len:int ->
max_chars:int ->
subst:(int -> string) -> int * int * Netconversion.encoding
val recode_tstring :
in_enc:Netconversion.encoding ->
in_buf:Netsys_types.tstring ->
in_pos:int ->
in_len:int ->
out_enc:Netconversion.encoding ->
out_buf:Stdlib.Bytes.t ->
out_pos:int ->
out_len:int ->
max_chars:int ->
subst:(int -> string) -> int * int * Netconversion.encoding
val recode_poly :
in_ops:'s Netstring_tstring.tstring_ops ->
in_enc:Netconversion.encoding ->
in_buf:'s ->
in_pos:int ->
in_len:int ->
out_enc:Netconversion.encoding ->
out_buf:Stdlib.Bytes.t ->
out_pos:int ->
out_len:int ->
max_chars:int ->
subst:(int -> string) -> int * int * Netconversion.encoding
class conversion_pipe :
?subst:(int -> string) ->
in_enc:Netconversion.encoding ->
out_enc:Netconversion.encoding -> unit -> Netchannels.io_obj_channel
type 's poly_cursor
type cursor = string Netconversion.poly_cursor
exception End_of_string
exception Cursor_out_of_range
exception Partial_character
exception Byte_order_mark
val create_cursor :
?range_pos:int ->
?range_len:int ->
?initial_rel_pos:int ->
Netconversion.encoding -> string -> Netconversion.cursor
val create_poly_cursor :
?range_pos:int ->
?range_len:int ->
?initial_rel_pos:int ->
Netconversion.encoding ->
's Netstring_tstring.tstring_ops -> 's -> 's Netconversion.poly_cursor
type 'a with_cursor_fun = {
with_cursor_fun :
's.
's Netstring_tstring.tstring_ops ->
's Netconversion.poly_cursor -> 'a;
}
val with_tstring_cursor :
?range_pos:int ->
?range_len:int ->
?initial_rel_pos:int ->
Netconversion.encoding ->
Netsys_types.tstring -> 'a Netconversion.with_cursor_fun -> 'a
val reinit_cursor :
?range_pos:int ->
?range_len:int ->
?initial_rel_pos:int ->
?enc:Netconversion.encoding -> 's -> 's Netconversion.poly_cursor -> unit
val copy_cursor :
?enc:Netconversion.encoding ->
's Netconversion.poly_cursor -> 's Netconversion.poly_cursor
val cursor_target : 's Netconversion.poly_cursor -> 's
val cursor_range : 'a Netconversion.poly_cursor -> int * int
val cursor_initial_rel_pos : 'a Netconversion.poly_cursor -> int
val cursor_char_count : 'a Netconversion.poly_cursor -> int
val cursor_pos : 'a Netconversion.poly_cursor -> int
val uchar_at : 'a Netconversion.poly_cursor -> int
val cursor_byte_length : 'a Netconversion.poly_cursor -> int
val cursor_at_end : 'a Netconversion.poly_cursor -> bool
val move : ?num:int -> 'a Netconversion.poly_cursor -> unit
val cursor_encoding :
'a Netconversion.poly_cursor -> Netconversion.encoding
val cursor_blit :
'a Netconversion.poly_cursor -> int array -> int -> int -> int
val cursor_blit_maxlen : 'a Netconversion.poly_cursor -> int
val cursor_blit_positions :
'a Netconversion.poly_cursor -> int array -> int -> int -> int
val ustring_length :
Netconversion.encoding ->
?range_pos:int -> ?range_len:int -> string -> int
val ustring_length_ts :
Netconversion.encoding ->
?range_pos:int -> ?range_len:int -> Netsys_types.tstring -> int
val ustring_length_poly :
's Netstring_tstring.tstring_ops ->
Netconversion.encoding -> ?range_pos:int -> ?range_len:int -> 's -> int
val ustring_iter :
Netconversion.encoding ->
(int -> unit) -> ?range_pos:int -> ?range_len:int -> string -> unit
val ustring_iter_ts :
Netconversion.encoding ->
(int -> unit) ->
?range_pos:int -> ?range_len:int -> Netsys_types.tstring -> unit
val ustring_iter_poly :
's Netstring_tstring.tstring_ops ->
Netconversion.encoding ->
(int -> unit) -> ?range_pos:int -> ?range_len:int -> 's -> unit
val ustring_map :
Netconversion.encoding ->
(int -> int list) -> ?range_pos:int -> ?range_len:int -> string -> string
val ustring_map_ts :
Netconversion.encoding ->
(int -> int list) ->
?range_pos:int ->
?range_len:int -> Netsys_types.tstring -> Netsys_types.tstring
val ustring_map_poly :
's Netstring_tstring.tstring_ops ->
't Netstring_tstring.tstring_kind ->
Netconversion.encoding ->
(int -> int list) -> ?range_pos:int -> ?range_len:int -> 's -> 't
val ustring_to_lower :
Netconversion.encoding ->
?range_pos:int -> ?range_len:int -> string -> string
val ustring_to_lower_ts :
Netconversion.encoding ->
?range_pos:int ->
?range_len:int -> Netsys_types.tstring -> Netsys_types.tstring
val ustring_to_lower_poly :
's Netstring_tstring.tstring_ops ->
't Netstring_tstring.tstring_kind ->
Netconversion.encoding -> ?range_pos:int -> ?range_len:int -> 's -> 't
val ustring_to_upper :
Netconversion.encoding ->
?range_pos:int -> ?range_len:int -> string -> string
val ustring_to_upper_ts :
Netconversion.encoding ->
?range_pos:int ->
?range_len:int -> Netsys_types.tstring -> Netsys_types.tstring
val ustring_to_upper_poly :
's Netstring_tstring.tstring_ops ->
't Netstring_tstring.tstring_kind ->
Netconversion.encoding -> ?range_pos:int -> ?range_len:int -> 's -> 't
val ustring_to_title :
Netconversion.encoding ->
?range_pos:int -> ?range_len:int -> string -> string
val ustring_to_title_ts :
Netconversion.encoding ->
?range_pos:int ->
?range_len:int -> Netsys_types.tstring -> Netsys_types.tstring
val ustring_to_title_poly :
's Netstring_tstring.tstring_ops ->
't Netstring_tstring.tstring_kind ->
Netconversion.encoding -> ?range_pos:int -> ?range_len:int -> 's -> 't
val ustring_sub :
Netconversion.encoding ->
int -> int -> ?range_pos:int -> ?range_len:int -> string -> string
val ustring_sub_ts :
Netconversion.encoding ->
int ->
int ->
?range_pos:int ->
?range_len:int -> Netsys_types.tstring -> Netsys_types.tstring
val ustring_sub_poly :
's Netstring_tstring.tstring_ops ->
't Netstring_tstring.tstring_kind ->
Netconversion.encoding ->
int -> int -> ?range_pos:int -> ?range_len:int -> 's -> 't
val ustring_compare :
Netconversion.encoding ->
(int -> int -> int) ->
?range_pos:int ->
?range_len:int ->
string -> ?range_pos:int -> ?range_len:int -> string -> int
val ustring_compare_ts :
Netconversion.encoding ->
(int -> int -> int) ->
?range_pos:int ->
?range_len:int ->
Netsys_types.tstring ->
?range_pos:int -> ?range_len:int -> Netsys_types.tstring -> int
val ustring_compare_poly :
's1 Netstring_tstring.tstring_ops ->
's2 Netstring_tstring.tstring_ops ->
Netconversion.encoding ->
(int -> int -> int) ->
?range_pos:int ->
?range_len:int -> 's1 -> ?range_pos:int -> ?range_len:int -> 's2 -> int
val code_cmp : int -> int -> int
val ci_code_cmp : int -> int -> int
val uarray_of_ustring :
Netconversion.encoding ->
?range_pos:int -> ?range_len:int -> string -> int array
val uarray_of_ustring_ts :
Netconversion.encoding ->
?range_pos:int -> ?range_len:int -> Netsys_types.tstring -> int array
val uarray_of_ustring_poly :
's Netstring_tstring.tstring_ops ->
Netconversion.encoding ->
?range_pos:int -> ?range_len:int -> 's -> int array
val ustring_of_uarray :
?subst:(int -> string) ->
Netconversion.encoding -> ?pos:int -> ?len:int -> int array -> string
exception Malformed_code_at of int
val verify :
Netconversion.encoding ->
?range_pos:int -> ?range_len:int -> string -> unit
val verify_ts :
Netconversion.encoding ->
?range_pos:int -> ?range_len:int -> Netsys_types.tstring -> unit
val verify_poly :
's Netstring_tstring.tstring_ops ->
Netconversion.encoding -> ?range_pos:int -> ?range_len:int -> 's -> unit
val big_slice : int
type poly_reader = {
read :
's.
's Netstring_tstring.tstring_ops ->
int array ->
int array -> 's -> int -> int -> int * int * Netconversion.encoding;
}
val read_iso88591_ref :
(int -> Netconversion.encoding -> Netconversion.poly_reader) Stdlib.ref
val read_iso88591 :
int -> Netconversion.encoding -> Netconversion.poly_reader
val read_utf8_ref : (bool -> Netconversion.poly_reader) Stdlib.ref
val read_utf8 : bool -> Netconversion.poly_reader
val internal_name : Netconversion.charset -> string
end`