`sig
module File_descr :
sig
type t = Unix.file_descr
val equal : t Core_kernel.Std.Equal.equal
val hash : t -> int
val compare : t -> t -> int
val hashable : t Core_kernel.Std.Hashable.Hashtbl.Hashable.t
module Table :
sig
type key = t
type ('a, 'b) hashtbl = ('a, 'b) Core_kernel.Std.Hashable.Hashtbl.t
type 'b t = (key, 'b) hashtbl
type ('a, 'b) t_ = 'b t
type 'a key_ = key
val hashable : key Core_kernel.Core_hashtbl_intf.Hashable.t
val create :
('a key_, 'b, unit -> ('a, 'b) t_)
Core_kernel.Core_hashtbl_intf.create_options_without_hashable
val of_alist :
('a key_, 'b,
('a key_ * 'b) list ->
[ `Duplicate_key of 'a key_ | `Ok of ('a, 'b) t_ ])
Core_kernel.Core_hashtbl_intf.create_options_without_hashable
val of_alist_report_all_dups :
('a key_, 'b,
('a key_ * 'b) list ->
[ `Duplicate_keys of 'a key_ list | `Ok of ('a, 'b) t_ ])
Core_kernel.Core_hashtbl_intf.create_options_without_hashable
val of_alist_or_error :
('a key_, 'b,
('a key_ * 'b) list -> ('a, 'b) t_ Core_kernel.Or_error.t)
Core_kernel.Core_hashtbl_intf.create_options_without_hashable
val of_alist_exn :
('a key_, 'b, ('a key_ * 'b) list -> ('a, 'b) t_)
Core_kernel.Core_hashtbl_intf.create_options_without_hashable
val of_alist_multi :
('a key_, 'b list, ('a key_ * 'b) list -> ('a, 'b list) t_)
Core_kernel.Core_hashtbl_intf.create_options_without_hashable
val create_mapped :
('a key_, 'b,
get_key:('r -> 'a key_) ->
get_data:('r -> 'b) ->
'r list ->
[ `Duplicate_keys of 'a key_ list | `Ok of ('a, 'b) t_ ])
Core_kernel.Core_hashtbl_intf.create_options_without_hashable
val create_with_key :
('a key_, 'r,
get_key:('r -> 'a key_) ->
'r list ->
[ `Duplicate_keys of 'a key_ list | `Ok of ('a, 'r) t_ ])
Core_kernel.Core_hashtbl_intf.create_options_without_hashable
val create_with_key_or_error :
('a key_, 'r,
get_key:('r -> 'a key_) ->
'r list -> ('a, 'r) t_ Core_kernel.Or_error.t)
Core_kernel.Core_hashtbl_intf.create_options_without_hashable
val create_with_key_exn :
('a key_, 'r, get_key:('r -> 'a key_) -> 'r list -> ('a, 'r) t_)
Core_kernel.Core_hashtbl_intf.create_options_without_hashable
val group :
('a key_, 'b,
get_key:('r -> 'a key_) ->
get_data:('r -> 'b) ->
combine:('b -> 'b -> 'b) -> 'r list -> ('a, 'b) t_)
Core_kernel.Core_hashtbl_intf.create_options_without_hashable
val sexp_of_key : ('a, 'b) t_ -> 'a key_ -> Sexplib.Sexp.t
val clear : ('a, 'b) t_ -> unit
val copy : ('a, 'b) t_ -> ('a, 'b) t_
val invariant : ('a, 'b) t_ -> unit
val fold :
('a, 'b) t_ ->
init:'c -> f:(key:'a key_ -> data:'b -> 'c -> 'c) -> 'c
val iter :
('a, 'b) t_ -> f:(key:'a key_ -> data:'b -> unit) -> unit
val existsi :
('a, 'b) t_ -> f:(key:'a key_ -> data:'b -> bool) -> bool
val exists : ('a, 'b) t_ -> f:('b -> bool) -> bool
val for_alli :
('a, 'b) t_ -> f:(key:'a key_ -> data:'b -> bool) -> bool
val for_all : ('a, 'b) t_ -> f:('b -> bool) -> bool
val length : ('a, 'b) t_ -> int
val is_empty : ('a, 'b) t_ -> bool
val mem : ('a, 'b) t_ -> 'a key_ -> bool
val remove : ('a, 'b) t_ -> 'a key_ -> unit
val remove_one : ('a, 'b list) t_ -> 'a key_ -> unit
val replace : ('a, 'b) t_ -> key:'a key_ -> data:'b -> unit
val set : ('a, 'b) t_ -> key:'a key_ -> data:'b -> unit
val add :
('a, 'b) t_ -> key:'a key_ -> data:'b -> [ `Duplicate | `Ok ]
val add_or_error :
('a, 'b) t_ ->
key:'a key_ -> data:'b -> unit Core_kernel.Or_error.t
val add_exn : ('a, 'b) t_ -> key:'a key_ -> data:'b -> unit
val change :
('a, 'b) t_ -> 'a key_ -> ('b option -> 'b option) -> unit
val add_multi : ('a, 'b list) t_ -> key:'a key_ -> data:'b -> unit
val remove_multi : ('a, 'b list) t_ -> 'a key_ -> unit
val map :
('c, ('a, 'b) t_ -> f:('b -> 'c) -> ('a, 'c) t_)
Core_kernel.Core_hashtbl_intf.no_map_options
val mapi :
('c,
('a, 'b) t_ -> f:(key:'a key_ -> data:'b -> 'c) -> ('a, 'c) t_)
Core_kernel.Core_hashtbl_intf.no_map_options
val filter_map :
('c, ('a, 'b) t_ -> f:('b -> 'c option) -> ('a, 'c) t_)
Core_kernel.Core_hashtbl_intf.no_map_options
val filter_mapi :
('c,
('a, 'b) t_ ->
f:(key:'a key_ -> data:'b -> 'c option) -> ('a, 'c) t_)
Core_kernel.Core_hashtbl_intf.no_map_options
val filter : ('a, 'b) t_ -> f:('b -> bool) -> ('a, 'b) t_
val filteri :
('a, 'b) t_ -> f:(key:'a key_ -> data:'b -> bool) -> ('a, 'b) t_
val partition_map :
('c,
('d,
('a, 'b) t_ ->
f:('b -> [ `Fst of 'c | `Snd of 'd ]) ->
('a, 'c) t_ * ('a, 'd) t_)
Core_kernel.Core_hashtbl_intf.no_map_options)
Core_kernel.Core_hashtbl_intf.no_map_options
val partition_mapi :
('c,
('d,
('a, 'b) t_ ->
f:(key:'a key_ -> data:'b -> [ `Fst of 'c | `Snd of 'd ]) ->
('a, 'c) t_ * ('a, 'd) t_)
Core_kernel.Core_hashtbl_intf.no_map_options)
Core_kernel.Core_hashtbl_intf.no_map_options
val partition_tf :
('a, 'b) t_ -> f:('b -> bool) -> ('a, 'b) t_ * ('a, 'b) t_
val partitioni_tf :
('a, 'b) t_ ->
f:(key:'a key_ -> data:'b -> bool) -> ('a, 'b) t_ * ('a, 'b) t_
val find_or_add :
('a, 'b) t_ -> 'a key_ -> default:(unit -> 'b) -> 'b
val find : ('a, 'b) t_ -> 'a key_ -> 'b option
val find_exn : ('a, 'b) t_ -> 'a key_ -> 'b
val find_and_call :
('a, 'b) t_ ->
'a key_ ->
if_found:('b -> 'c) -> if_not_found:('a key_ -> 'c) -> 'c
val find_and_remove : ('a, 'b) t_ -> 'a key_ -> 'b option
val iter_vals : ('a, 'b) t_ -> f:('b -> unit) -> unit
val merge :
('c,
('k, 'a) t_ ->
('k, 'b) t_ ->
f:(key:'k key_ ->
[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] ->
'c option) ->
('k, 'c) t_)
Core_kernel.Core_hashtbl_intf.no_map_options
val merge_into :
f:(key:'a key_ -> 'b -> 'c option -> 'c option) ->
src:('a, 'b) t_ -> dst:('a, 'c) t_ -> unit
val keys : ('a, 'b) t_ -> 'a key_ list
val data : ('a, 'b) t_ -> 'b list
val filter_inplace : ('a, 'b) t_ -> f:('b -> bool) -> unit
val filteri_inplace :
('a, 'b) t_ -> f:('a key_ -> 'b -> bool) -> unit
val equal :
('a, 'b) t_ -> ('a, 'b) t_ -> ('b -> 'b -> bool) -> bool
val similar :
('a, 'b1) t_ -> ('a, 'b2) t_ -> ('b1 -> 'b2 -> bool) -> bool
val to_alist : ('a, 'b) t_ -> ('a key_ * 'b) list
val validate :
name:('a key_ -> string) ->
'b Core_kernel.Validate.check ->
('a, 'b) t_ Core_kernel.Validate.check
val incr : ?by:int -> ('a, int) t_ -> 'a key_ -> unit
val t_of_sexp : (Sexplib.Sexp.t -> 'b) -> Sexplib.Sexp.t -> 'b t
val sexp_of_t : ('b -> Sexplib.Sexp.t) -> 'b t -> Sexplib.Sexp.t
end
module Hash_set :
sig
type elt = t
type 'a hash_set = 'a Core_kernel.Hash_set.t
type t = elt hash_set
type 'a t_ = t
type 'a elt_ = elt
val create :
('a, unit -> 'a t_)
Core_kernel.Hash_set_intf.create_options_without_hashable
val of_list :
('a, 'a elt_ list -> 'a t_)
Core_kernel.Hash_set_intf.create_options_without_hashable
val t_of_sexp : Sexplib.Sexp.t -> t
val sexp_of_t : t -> Sexplib.Sexp.t
end
module Hash_queue :
sig
module Key :
sig
type t = t
val hash : t -> int
val t_of_sexp : Sexplib.Sexp.t -> t
val sexp_of_t : t -> Sexplib.Sexp.t
val compare : t -> t -> int
end
type 'a t
val length : 'a t -> int
val is_empty : 'a t -> bool
val iter : 'a t -> f:('a -> unit) -> unit
val fold :
'a t -> init:'accum -> f:('accum -> 'a -> 'accum) -> 'accum
val exists : 'a t -> f:('a -> bool) -> bool
val for_all : 'a t -> f:('a -> bool) -> bool
val count : 'a t -> f:('a -> bool) -> int
val sum :
(module Core_kernel.Commutative_group.S with type t = 'sum) ->
'a t -> f:('a -> 'sum) -> 'sum
val find : 'a t -> f:('a -> bool) -> 'a option
val find_map : 'a t -> f:('a -> 'b option) -> 'b option
val to_list : 'a t -> 'a list
val to_array : 'a t -> 'a array
val min_elt : 'a t -> cmp:('a -> 'a -> int) -> 'a option
val max_elt : 'a t -> cmp:('a -> 'a -> int) -> 'a option
val invariant : 'a t -> unit
val create : ?growth_allowed:bool -> ?size:int -> unit -> 'a t
val clear : 'a t -> unit
val mem : 'a t -> Key.t -> bool
val lookup : 'a t -> Key.t -> 'a option
val lookup_exn : 'a t -> Key.t -> 'a
val enqueue : 'a t -> Key.t -> 'a -> [ `Key_already_present | `Ok ]
val enqueue_exn : 'a t -> Key.t -> 'a -> unit
val first : 'a t -> 'a option
val first_with_key : 'a t -> (Key.t * 'a) option
val keys : 'a t -> Key.t list
val dequeue : 'a t -> 'a option
val dequeue_exn : 'a t -> 'a
val dequeue_with_key : 'a t -> (Key.t * 'a) option
val dequeue_with_key_exn : 'a t -> Key.t * 'a
val dequeue_all : 'a t -> f:('a -> unit) -> unit
val remove : 'a t -> Key.t -> [ `No_such_key | `Ok ]
val remove_exn : 'a t -> Key.t -> unit
val replace : 'a t -> Key.t -> 'a -> [ `No_such_key | `Ok ]
val replace_exn : 'a t -> Key.t -> 'a -> unit
val iteri : 'a t -> f:(key:Key.t -> data:'a -> unit) -> unit
val foldi :
'a t -> init:'b -> f:('b -> key:Key.t -> data:'a -> 'b) -> 'b
val sexp_of_t : ('a -> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.t
end
val of_string : string -> t
val to_string : t -> string
val of_int : int -> Core_unix.File_descr.t
val to_int : Core_unix.File_descr.t -> int
val t_of_sexp : Sexplib.Sexp.t -> Core_unix.File_descr.t
val sexp_of_t : Core_unix.File_descr.t -> Sexplib.Sexp.t
val bin_t :
Core_unix.File_descr.t Core_kernel.Std.Bin_prot.Type_class.t
val bin_read_t :
Core_unix.File_descr.t Core_kernel.Std.Bin_prot.Read.reader
val __bin_read_t__ :
(int -> Core_unix.File_descr.t) Core_kernel.Std.Bin_prot.Read.reader
val bin_reader_t :
Core_unix.File_descr.t Core_kernel.Std.Bin_prot.Type_class.reader
val bin_size_t :
Core_unix.File_descr.t Core_kernel.Std.Bin_prot.Size.sizer
val bin_write_t :
Core_unix.File_descr.t Core_kernel.Std.Bin_prot.Write.writer
val bin_writer_t :
Core_unix.File_descr.t Core_kernel.Std.Bin_prot.Type_class.writer
end
type error =
Unix.error =
E2BIG
| EACCES
| EAGAIN
| EBADF
| EBUSY
| ECHILD
| EDEADLK
| EDOM
| EEXIST
| EFAULT
| EFBIG
| EINTR
| EINVAL
| EIO
| EISDIR
| EMFILE
| EMLINK
| ENAMETOOLONG
| ENFILE
| ENODEV
| ENOENT
| ENOEXEC
| ENOLCK
| ENOMEM
| ENOSPC
| ENOSYS
| ENOTDIR
| ENOTEMPTY
| ENOTTY
| ENXIO
| EPERM
| EPIPE
| ERANGE
| EROFS
| ESPIPE
| ESRCH
| EXDEV
| EWOULDBLOCK
| EINPROGRESS
| EALREADY
| ENOTSOCK
| EDESTADDRREQ
| EMSGSIZE
| EPROTOTYPE
| ENOPROTOOPT
| EPROTONOSUPPORT
| ESOCKTNOSUPPORT
| EOPNOTSUPP
| EPFNOSUPPORT
| EAFNOSUPPORT
| EADDRINUSE
| EADDRNOTAVAIL
| ENETDOWN
| ENETUNREACH
| ENETRESET
| ECONNABORTED
| ECONNRESET
| ENOBUFS
| EISCONN
| ENOTCONN
| ESHUTDOWN
| ETOOMANYREFS
| ETIMEDOUT
| ECONNREFUSED
| EHOSTDOWN
| EHOSTUNREACH
| ELOOP
| EOVERFLOW
| EUNKNOWNERR of int
module Error :
sig
type t =
Unix.error =
E2BIG
| EACCES
| EAGAIN
| EBADF
| EBUSY
| ECHILD
| EDEADLK
| EDOM
| EEXIST
| EFAULT
| EFBIG
| EINTR
| EINVAL
| EIO
| EISDIR
| EMFILE
| EMLINK
| ENAMETOOLONG
| ENFILE
| ENODEV
| ENOENT
| ENOEXEC
| ENOLCK
| ENOMEM
| ENOSPC
| ENOSYS
| ENOTDIR
| ENOTEMPTY
| ENOTTY
| ENXIO
| EPERM
| EPIPE
| ERANGE
| EROFS
| ESPIPE
| ESRCH
| EXDEV
| EWOULDBLOCK
| EINPROGRESS
| EALREADY
| ENOTSOCK
| EDESTADDRREQ
| EMSGSIZE
| EPROTOTYPE
| ENOPROTOOPT
| EPROTONOSUPPORT
| ESOCKTNOSUPPORT
| EOPNOTSUPP
| EPFNOSUPPORT
| EAFNOSUPPORT
| EADDRINUSE
| EADDRNOTAVAIL
| ENETDOWN
| ENETUNREACH
| ENETRESET
| ECONNABORTED
| ECONNRESET
| ENOBUFS
| EISCONN
| ENOTCONN
| ESHUTDOWN
| ETOOMANYREFS
| ETIMEDOUT
| ECONNREFUSED
| EHOSTDOWN
| EHOSTUNREACH
| ELOOP
| EOVERFLOW
| EUNKNOWNERR of int
val of_system_int : errno:int -> Core_unix.Error.t
val message : Core_unix.Error.t -> string
val t_of_sexp : Sexplib.Sexp.t -> Core_unix.Error.t
val sexp_of_t : Core_unix.Error.t -> Sexplib.Sexp.t
end
exception Unix_error of Core_unix.Error.t * string * string
module Syscall_result :
sig
type 'a t = 'a Syscall_result.t
module type S =
sig
type ok_value
type t = ok_value t
val create_ok : ok_value -> t
val create_error : Unix_error.t -> t
val is_ok : t -> bool
val is_error : t -> bool
val to_result :
t -> (ok_value, Unix_error.t) Core_kernel.Std.Result.t
val ok_exn : t -> ok_value
val error_exn : t -> Unix_error.t
val reinterpret_error_exn : t -> 'a t
val ok_or_unix_error_exn : t -> syscall_name:string -> ok_value
val ok_or_unix_error_with_args_exn :
t ->
syscall_name:string ->
'a -> ('a -> Core_kernel.Std.Sexp.t) -> ok_value
val sexp_of_t : t -> Sexplib.Sexp.t
val compare : t -> t -> int
end
module type Arg = Syscall_result_intf.Arg
module Make :
functor (M : Arg) () ->
sig
type t = M.t t
val create_ok : M.t -> t
val create_error : Unix_error.t -> t
val is_ok : t -> bool
val is_error : t -> bool
val to_result : t -> (M.t, Unix_error.t) Core_kernel.Std.Result.t
val ok_exn : t -> M.t
val error_exn : t -> Unix_error.t
val reinterpret_error_exn : t -> 'a t
val ok_or_unix_error_exn : t -> syscall_name:string -> M.t
val ok_or_unix_error_with_args_exn :
t ->
syscall_name:string ->
'a -> ('a -> Core_kernel.Std.Sexp.t) -> M.t
val sexp_of_t : t -> Sexplib.Sexp.t
val compare : t -> t -> int
end
module Int :
sig
type t = int t
val create_ok : int -> t
val create_error : Unix_error.t -> t
val is_ok : t -> bool
val is_error : t -> bool
val to_result : t -> (int, Unix_error.t) Core_kernel.Std.Result.t
val ok_exn : t -> int
val error_exn : t -> Unix_error.t
val reinterpret_error_exn : t -> 'a t
val ok_or_unix_error_exn : t -> syscall_name:string -> int
val ok_or_unix_error_with_args_exn :
t ->
syscall_name:string ->
'a -> ('a -> Core_kernel.Std.Sexp.t) -> int
val sexp_of_t : t -> Sexplib.Sexp.t
val compare : t -> t -> int
end
module Unit :
sig
type t = unit t
val create_ok : unit -> t
val create_error : Unix_error.t -> t
val is_ok : t -> bool
val is_error : t -> bool
val to_result : t -> (unit, Unix_error.t) Core_kernel.Std.Result.t
val ok_exn : t -> unit
val error_exn : t -> Unix_error.t
val reinterpret_error_exn : t -> 'a t
val ok_or_unix_error_exn : t -> syscall_name:string -> unit
val ok_or_unix_error_with_args_exn :
t ->
syscall_name:string ->
'a -> ('a -> Core_kernel.Std.Sexp.t) -> unit
val sexp_of_t : t -> Sexplib.Sexp.t
val compare : t -> t -> int
end
val create_error : Unix_error.t -> 'a t
val unit : Unit.t
val ignore_ok_value : 'a t -> Unit.t
end
external unix_error : int -> string -> string -> 'a = "unix_error_stub"
val error_message : Core_unix.error -> string
val handle_unix_error : (unit -> 'a) -> 'a
val retry_until_no_eintr : (unit -> 'a) -> 'a
val environment : unit -> string array
val putenv : key:string -> data:string -> unit
val unsetenv : string -> unit
module Exit :
sig
type error = [ `Exit_non_zero of int ]
type t = (unit, Core_unix.Exit.error) Core_kernel.Std.Result.t
val to_string_hum : Core_unix.Exit.t -> string
val code : Core_unix.Exit.t -> int
val of_code : int -> Core_unix.Exit.t
val or_error : Core_unix.Exit.t -> unit Core_kernel.Std.Or_error.t
val error_of_sexp : Sexplib.Sexp.t -> Core_unix.Exit.error
val __error_of_sexp__ : Sexplib.Sexp.t -> Core_unix.Exit.error
val sexp_of_error : Core_unix.Exit.error -> Sexplib.Sexp.t
val compare_error : Core_unix.Exit.error -> Core_unix.Exit.error -> int
val t_of_sexp : Sexplib.Sexp.t -> Core_unix.Exit.t
val sexp_of_t : Core_unix.Exit.t -> Sexplib.Sexp.t
val compare : Core_unix.Exit.t -> Core_unix.Exit.t -> int
end
module Exit_or_signal :
sig
type error = [ `Exit_non_zero of int | `Signal of Signal.t ]
type t =
(unit, Core_unix.Exit_or_signal.error) Core_kernel.Std.Result.t
val of_unix : Unix.process_status -> Core_unix.Exit_or_signal.t
val to_string_hum : Core_unix.Exit_or_signal.t -> string
val or_error :
Core_unix.Exit_or_signal.t -> unit Core_kernel.Std.Or_error.t
val error_of_sexp : Sexplib.Sexp.t -> Core_unix.Exit_or_signal.error
val __error_of_sexp__ :
Sexplib.Sexp.t -> Core_unix.Exit_or_signal.error
val sexp_of_error : Core_unix.Exit_or_signal.error -> Sexplib.Sexp.t
val compare_error :
Core_unix.Exit_or_signal.error ->
Core_unix.Exit_or_signal.error -> int
val t_of_sexp : Sexplib.Sexp.t -> Core_unix.Exit_or_signal.t
val sexp_of_t : Core_unix.Exit_or_signal.t -> Sexplib.Sexp.t
val compare :
Core_unix.Exit_or_signal.t -> Core_unix.Exit_or_signal.t -> int
end
module Exit_or_signal_or_stop :
sig
type error =
[ `Exit_non_zero of int | `Signal of Signal.t | `Stop of Signal.t ]
type t =
(unit, Core_unix.Exit_or_signal_or_stop.error)
Core_kernel.Std.Result.t
val of_unix : Unix.process_status -> Core_unix.Exit_or_signal_or_stop.t
val to_string_hum : Core_unix.Exit_or_signal_or_stop.t -> string
val or_error :
Core_unix.Exit_or_signal_or_stop.t -> unit Core_kernel.Std.Or_error.t
val error_of_sexp :
Sexplib.Sexp.t -> Core_unix.Exit_or_signal_or_stop.error
val __error_of_sexp__ :
Sexplib.Sexp.t -> Core_unix.Exit_or_signal_or_stop.error
val sexp_of_error :
Core_unix.Exit_or_signal_or_stop.error -> Sexplib.Sexp.t
val t_of_sexp : Sexplib.Sexp.t -> Core_unix.Exit_or_signal_or_stop.t
val sexp_of_t : Core_unix.Exit_or_signal_or_stop.t -> Sexplib.Sexp.t
end
type env =
[ `Extend of (string * string) list
| `Replace of (string * string) list
| `Replace_raw of string list ]
val exec :
prog:string ->
args:string list ->
?use_path:bool ->
?env:Core_unix.env -> unit -> Core_kernel.Std.never_returns
val fork_exec :
prog:string ->
args:string list ->
?use_path:bool -> ?env:Core_unix.env -> unit -> Core_kernel.Std.Pid.t
val fork :
unit -> [ `In_the_child | `In_the_parent of Core_kernel.Std.Pid.t ]
type wait_on =
[ `Any
| `Group of Core_kernel.Std.Pid.t
| `My_group
| `Pid of Core_kernel.Std.Pid.t ]
val wait :
?restart:bool ->
Core_unix.wait_on -> Core_kernel.Std.Pid.t * Core_unix.Exit_or_signal.t
val wait_nohang :
Core_unix.wait_on ->
(Core_kernel.Std.Pid.t * Core_unix.Exit_or_signal.t) option
val wait_untraced :
?restart:bool ->
Core_unix.wait_on ->
Core_kernel.Std.Pid.t * Core_unix.Exit_or_signal_or_stop.t
val wait_nohang_untraced :
Core_unix.wait_on ->
(Core_kernel.Std.Pid.t * Core_unix.Exit_or_signal_or_stop.t) option
val waitpid : Core_kernel.Std.Pid.t -> Core_unix.Exit_or_signal.t
val waitpid_exn : Core_kernel.Std.Pid.t -> unit
val system : string -> Core_unix.Exit_or_signal.t
val getpid : unit -> Core_kernel.Std.Pid.t
val getppid : unit -> Core_kernel.Std.Pid.t option
val getppid_exn : unit -> Core_kernel.Std.Pid.t
module Thread_id :
sig
type t
val ( >= ) : t -> t -> bool
val ( <= ) : t -> t -> bool
val ( = ) : t -> t -> bool
val ( > ) : t -> t -> bool
val ( < ) : t -> t -> bool
val ( <> ) : t -> t -> bool
val equal : t -> t -> bool
val compare : t -> t -> int
val min : t -> t -> t
val max : t -> t -> t
val ascending : t -> t -> int
val descending : t -> t -> int
val between : t -> low:t -> high:t -> bool
module Replace_polymorphic_compare :
sig
val ( >= ) : t -> t -> bool
val ( <= ) : t -> t -> bool
val ( = ) : t -> t -> bool
val ( > ) : t -> t -> bool
val ( < ) : t -> t -> bool
val ( <> ) : t -> t -> bool
val equal : t -> t -> bool
val compare : t -> t -> int
val min : t -> t -> t
val max : t -> t -> t
val _squelch_unused_module_warning_ : unit
end
type comparator_witness
val comparator :
(t, comparator_witness) Core_kernel.Comparator.comparator
val validate_lbound :
min:t Core_kernel.Comparable_intf.bound ->
t Core_kernel.Validate.check
val validate_ubound :
max:t Core_kernel.Comparable_intf.bound ->
t Core_kernel.Validate.check
val validate_bound :
min:t Core_kernel.Comparable_intf.bound ->
max:t Core_kernel.Comparable_intf.bound ->
t Core_kernel.Validate.check
module Map :
sig
module Key :
sig
type t = t
type comparator_witness = comparator_witness
val comparator :
(t, comparator_witness) Core_kernel.Comparator.comparator
end
module Tree :
sig
type 'a t =
(Key.t, 'a, Key.comparator_witness)
Core_kernel.Core_map.Tree.t
val empty : 'a t
val singleton : Key.t -> 'a -> 'a t
val of_alist :
(Key.t * 'a) list ->
[ `Duplicate_key of Key.t | `Ok of 'a t ]
val of_alist_or_error :
(Key.t * 'a) list -> 'a t Core_kernel.Or_error.t
val of_alist_exn : (Key.t * 'a) list -> 'a t
val of_alist_multi : (Key.t * 'a) list -> 'a list t
val of_alist_fold :
(Key.t * 'a) list -> init:'b -> f:('b -> 'a -> 'b) -> 'b t
val of_alist_reduce :
(Key.t * 'a) list -> f:('a -> 'a -> 'a) -> 'a t
val of_sorted_array :
(Key.t * 'a) array -> 'a t Core_kernel.Or_error.t
val of_sorted_array_unchecked : (Key.t * 'a) array -> 'a t
val of_tree : 'a t -> 'a t
val invariants : 'a t -> bool
val is_empty : 'a t -> bool
val length : 'a t -> int
val add : 'a t -> key:Key.t -> data:'a -> 'a t
val add_multi : 'a list t -> key:Key.t -> data:'a -> 'a list t
val change : 'a t -> Key.t -> ('a option -> 'a option) -> 'a t
val find : 'a t -> Key.t -> 'a option
val find_exn : 'a t -> Key.t -> 'a
val remove : 'a t -> Key.t -> 'a t
val mem : 'a t -> Key.t -> bool
val iter : 'a t -> f:(key:Key.t -> data:'a -> unit) -> unit
val iter2 :
'a t ->
'b t ->
f:(key:Key.t ->
data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] ->
unit) ->
unit
val map : 'a t -> f:('a -> 'b) -> 'b t
val mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b) -> 'b t
val fold :
'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold_right :
'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val filter : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t
val filter_map : 'a t -> f:('a -> 'b option) -> 'b t
val filter_mapi :
'a t -> f:(key:Key.t -> data:'a -> 'b option) -> 'b t
val compare_direct : ('a -> 'a -> int) -> 'a t -> 'a t -> int
val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
val keys : 'a t -> Key.t list
val data : 'a t -> 'a list
val to_alist : 'a t -> (Key.t * 'a) list
val validate :
name:(Key.t -> string) ->
'a Core_kernel.Validate.check ->
'a t Core_kernel.Validate.check
val merge :
'a t ->
'b t ->
f:(key:Key.t ->
[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] ->
'c option) ->
'c t
val symmetric_diff :
'a t ->
'a t ->
data_equal:('a -> 'a -> bool) ->
(Key.t * [ `Left of 'a | `Right of 'a | `Unequal of 'a * 'a ])
Core_kernel.Sequence.t
val min_elt : 'a t -> (Key.t * 'a) option
val min_elt_exn : 'a t -> Key.t * 'a
val max_elt : 'a t -> (Key.t * 'a) option
val max_elt_exn : 'a t -> Key.t * 'a
val for_all : 'a t -> f:('a -> bool) -> bool
val exists : 'a t -> f:('a -> bool) -> bool
val split : 'a t -> Key.t -> 'a t * (Key.t * 'a) option * 'a t
val fold_range_inclusive :
'a t ->
min:Key.t ->
max:Key.t ->
init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val range_to_alist :
'a t -> min:Key.t -> max:Key.t -> (Key.t * 'a) list
val closest_key :
'a t ->
[ `Greater_or_equal_to
| `Greater_than
| `Less_or_equal_to
| `Less_than ] -> Key.t -> (Key.t * 'a) option
val nth : 'a t -> int -> (Key.t * 'a) option
val rank : 'a t -> Key.t -> int option
val to_tree : 'a t -> 'a t
val to_sequence :
?order:[ `Decreasing_key | `Increasing_key ] ->
?keys_greater_or_equal_to:Key.t ->
?keys_less_or_equal_to:Key.t ->
'a t -> (Key.t * 'a) Core_kernel.Sequence.t
val t_of_sexp :
(Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a t
val sexp_of_t :
('a -> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.t
end
type 'a t =
(Key.t, 'a, Key.comparator_witness) Core_kernel.Core_map.t
val empty : 'a t
val singleton : Key.t -> 'a -> 'a t
val of_alist :
(Key.t * 'a) list -> [ `Duplicate_key of Key.t | `Ok of 'a t ]
val of_alist_or_error :
(Key.t * 'a) list -> 'a t Core_kernel.Or_error.t
val of_alist_exn : (Key.t * 'a) list -> 'a t
val of_alist_multi : (Key.t * 'a) list -> 'a list t
val of_alist_fold :
(Key.t * 'a) list -> init:'b -> f:('b -> 'a -> 'b) -> 'b t
val of_alist_reduce :
(Key.t * 'a) list -> f:('a -> 'a -> 'a) -> 'a t
val of_sorted_array :
(Key.t * 'a) array -> 'a t Core_kernel.Or_error.t
val of_sorted_array_unchecked : (Key.t * 'a) array -> 'a t
val of_tree : 'a Tree.t -> 'a t
val invariants : 'a t -> bool
val is_empty : 'a t -> bool
val length : 'a t -> int
val add : 'a t -> key:Key.t -> data:'a -> 'a t
val add_multi : 'a list t -> key:Key.t -> data:'a -> 'a list t
val change : 'a t -> Key.t -> ('a option -> 'a option) -> 'a t
val find : 'a t -> Key.t -> 'a option
val find_exn : 'a t -> Key.t -> 'a
val remove : 'a t -> Key.t -> 'a t
val mem : 'a t -> Key.t -> bool
val iter : 'a t -> f:(key:Key.t -> data:'a -> unit) -> unit
val iter2 :
'a t ->
'b t ->
f:(key:Key.t ->
data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> unit) ->
unit
val map : 'a t -> f:('a -> 'b) -> 'b t
val mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b) -> 'b t
val fold :
'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold_right :
'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val filter : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t
val filter_map : 'a t -> f:('a -> 'b option) -> 'b t
val filter_mapi :
'a t -> f:(key:Key.t -> data:'a -> 'b option) -> 'b t
val compare_direct : ('a -> 'a -> int) -> 'a t -> 'a t -> int
val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
val keys : 'a t -> Key.t list
val data : 'a t -> 'a list
val to_alist : 'a t -> (Key.t * 'a) list
val validate :
name:(Key.t -> string) ->
'a Core_kernel.Validate.check -> 'a t Core_kernel.Validate.check
val merge :
'a t ->
'b t ->
f:(key:Key.t ->
[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> 'c option) ->
'c t
val symmetric_diff :
'a t ->
'a t ->
data_equal:('a -> 'a -> bool) ->
(Key.t * [ `Left of 'a | `Right of 'a | `Unequal of 'a * 'a ])
Core_kernel.Sequence.t
val min_elt : 'a t -> (Key.t * 'a) option
val min_elt_exn : 'a t -> Key.t * 'a
val max_elt : 'a t -> (Key.t * 'a) option
val max_elt_exn : 'a t -> Key.t * 'a
val for_all : 'a t -> f:('a -> bool) -> bool
val exists : 'a t -> f:('a -> bool) -> bool
val split : 'a t -> Key.t -> 'a t * (Key.t * 'a) option * 'a t
val fold_range_inclusive :
'a t ->
min:Key.t ->
max:Key.t ->
init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val range_to_alist :
'a t -> min:Key.t -> max:Key.t -> (Key.t * 'a) list
val closest_key :
'a t ->
[ `Greater_or_equal_to
| `Greater_than
| `Less_or_equal_to
| `Less_than ] -> Key.t -> (Key.t * 'a) option
val nth : 'a t -> int -> (Key.t * 'a) option
val rank : 'a t -> Key.t -> int option
val to_tree : 'a t -> 'a Tree.t
val to_sequence :
?order:[ `Decreasing_key | `Increasing_key ] ->
?keys_greater_or_equal_to:Key.t ->
?keys_less_or_equal_to:Key.t ->
'a t -> (Key.t * 'a) Core_kernel.Sequence.t
val t_of_sexp : (Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a t
val sexp_of_t : ('a -> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.t
val compare : ('a -> 'a -> int) -> 'a t -> 'a t -> int
end
module Set :
sig
module Elt :
sig
type t = t
type comparator_witness = comparator_witness
val comparator :
(t, comparator_witness) Core_kernel.Comparator.comparator
val t_of_sexp : Sexplib.Sexp.t -> t
val sexp_of_t : t -> Sexplib.Sexp.t
end
module Tree :
sig
type t =
(Elt.t, Elt.comparator_witness) Core_kernel.Core_set.Tree.t
val length : t -> int
val is_empty : t -> bool
val iter : t -> f:(Elt.t -> unit) -> unit
val fold :
t -> init:'accum -> f:('accum -> Elt.t -> 'accum) -> 'accum
val exists : t -> f:(Elt.t -> bool) -> bool
val for_all : t -> f:(Elt.t -> bool) -> bool
val count : t -> f:(Elt.t -> bool) -> int
val sum :
(module Core_kernel.Commutative_group.S with type t = 'sum) ->
t -> f:(Elt.t -> 'sum) -> 'sum
val find : t -> f:(Elt.t -> bool) -> Elt.t option
val find_map : t -> f:(Elt.t -> 'a option) -> 'a option
val to_list : t -> Elt.t list
val to_array : t -> Elt.t array
val invariants : t -> bool
val mem : t -> Elt.t -> bool
val add : t -> Elt.t -> t
val remove : t -> Elt.t -> t
val union : t -> t -> t
val inter : t -> t -> t
val diff : t -> t -> t
val symmetric_diff :
t ->
t ->
(Elt.t, Elt.t) Core_kernel.Either.t Core_kernel.Sequence.t
val compare_direct : t -> t -> int
val equal : t -> t -> bool
val subset : t -> t -> bool
val fold_until :
t ->
init:'b ->
f:('b -> Elt.t -> [ `Continue of 'b | `Stop of 'b ]) -> 'b
val fold_right : t -> init:'b -> f:(Elt.t -> 'b -> 'b) -> 'b
val iter2 :
t ->
t ->
f:([ `Both of Elt.t * Elt.t
| `Left of Elt.t
| `Right of Elt.t ] -> unit) ->
unit
val filter : t -> f:(Elt.t -> bool) -> t
val partition_tf : t -> f:(Elt.t -> bool) -> t * t
val elements : t -> Elt.t list
val min_elt : t -> Elt.t option
val min_elt_exn : t -> Elt.t
val max_elt : t -> Elt.t option
val max_elt_exn : t -> Elt.t
val choose : t -> Elt.t option
val choose_exn : t -> Elt.t
val split : t -> Elt.t -> t * Elt.t option * t
val group_by : t -> equiv:(Elt.t -> Elt.t -> bool) -> t list
val find_exn : t -> f:(Elt.t -> bool) -> Elt.t
val find_index : t -> int -> Elt.t option
val remove_index : t -> int -> t
val to_tree : t -> t
val to_sequence :
?order:[ `Decreasing | `Increasing ] ->
?greater_or_equal_to:Elt.t ->
?less_or_equal_to:Elt.t -> t -> Elt.t Core_kernel.Sequence.t
val to_map :
t ->
f:(Elt.t -> 'data) ->
(Elt.t, 'data, Elt.comparator_witness)
Core_kernel.Core_set_intf.Map.t
val empty : t
val singleton : Elt.t -> t
val union_list : t list -> t
val of_list : Elt.t list -> t
val of_array : Elt.t array -> t
val of_sorted_array : Elt.t array -> t Core_kernel.Or_error.t
val of_sorted_array_unchecked : Elt.t array -> t
val stable_dedup_list : Elt.t list -> Elt.t list
val map :
('a, 'b) Core_kernel.Core_set.Tree.t -> f:('a -> Elt.t) -> t
val filter_map :
('a, 'b) Core_kernel.Core_set.Tree.t ->
f:('a -> Elt.t option) -> t
val of_tree : t -> t
val of_map_keys :
(Elt.t, 'a, Elt.comparator_witness)
Core_kernel.Core_set_intf.Map.t -> t
val t_of_sexp : Sexplib.Sexp.t -> t
val sexp_of_t : t -> Sexplib.Sexp.t
val compare : t -> t -> int
end
type t = (Elt.t, Elt.comparator_witness) Core_kernel.Core_set.t
val length : t -> int
val is_empty : t -> bool
val iter : t -> f:(Elt.t -> unit) -> unit
val fold :
t -> init:'accum -> f:('accum -> Elt.t -> 'accum) -> 'accum
val exists : t -> f:(Elt.t -> bool) -> bool
val for_all : t -> f:(Elt.t -> bool) -> bool
val count : t -> f:(Elt.t -> bool) -> int
val sum :
(module Core_kernel.Commutative_group.S with type t = 'sum) ->
t -> f:(Elt.t -> 'sum) -> 'sum
val find : t -> f:(Elt.t -> bool) -> Elt.t option
val find_map : t -> f:(Elt.t -> 'a option) -> 'a option
val to_list : t -> Elt.t list
val to_array : t -> Elt.t array
val invariants : t -> bool
val mem : t -> Elt.t -> bool
val add : t -> Elt.t -> t
val remove : t -> Elt.t -> t
val union : t -> t -> t
val inter : t -> t -> t
val diff : t -> t -> t
val symmetric_diff :
t ->
t -> (Elt.t, Elt.t) Core_kernel.Either.t Core_kernel.Sequence.t
val compare_direct : t -> t -> int
val equal : t -> t -> bool
val subset : t -> t -> bool
val fold_until :
t ->
init:'b ->
f:('b -> Elt.t -> [ `Continue of 'b | `Stop of 'b ]) -> 'b
val fold_right : t -> init:'b -> f:(Elt.t -> 'b -> 'b) -> 'b
val iter2 :
t ->
t ->
f:([ `Both of Elt.t * Elt.t | `Left of Elt.t | `Right of Elt.t ] ->
unit) ->
unit
val filter : t -> f:(Elt.t -> bool) -> t
val partition_tf : t -> f:(Elt.t -> bool) -> t * t
val elements : t -> Elt.t list
val min_elt : t -> Elt.t option
val min_elt_exn : t -> Elt.t
val max_elt : t -> Elt.t option
val max_elt_exn : t -> Elt.t
val choose : t -> Elt.t option
val choose_exn : t -> Elt.t
val split : t -> Elt.t -> t * Elt.t option * t
val group_by : t -> equiv:(Elt.t -> Elt.t -> bool) -> t list
val find_exn : t -> f:(Elt.t -> bool) -> Elt.t
val find_index : t -> int -> Elt.t option
val remove_index : t -> int -> t
val to_tree : t -> Tree.t
val to_sequence :
?order:[ `Decreasing | `Increasing ] ->
?greater_or_equal_to:Elt.t ->
?less_or_equal_to:Elt.t -> t -> Elt.t Core_kernel.Sequence.t
val to_map :
t ->
f:(Elt.t -> 'data) ->
(Elt.t, 'data, Elt.comparator_witness)
Core_kernel.Core_set_intf.Map.t
val empty : t
val singleton : Elt.t -> t
val union_list : t list -> t
val of_list : Elt.t list -> t
val of_array : Elt.t array -> t
val of_sorted_array : Elt.t array -> t Core_kernel.Or_error.t
val of_sorted_array_unchecked : Elt.t array -> t
val stable_dedup_list : Elt.t list -> Elt.t list
val map : ('a, 'b) Core_kernel.Core_set.t -> f:('a -> Elt.t) -> t
val filter_map :
('a, 'b) Core_kernel.Core_set.t -> f:('a -> Elt.t option) -> t
val of_tree : Tree.t -> t
val of_map_keys :
(Elt.t, 'a, Elt.comparator_witness)
Core_kernel.Core_set_intf.Map.t -> t
val t_of_sexp : Sexplib.Sexp.t -> t
val sexp_of_t : t -> Sexplib.Sexp.t
val compare : t -> t -> int
end
val to_int : Core_unix.Thread_id.t -> int
val bin_t : Core_unix.Thread_id.t Core_kernel.Std.Bin_prot.Type_class.t
val bin_read_t :
Core_unix.Thread_id.t Core_kernel.Std.Bin_prot.Read.reader
val __bin_read_t__ :
(int -> Core_unix.Thread_id.t) Core_kernel.Std.Bin_prot.Read.reader
val bin_reader_t :
Core_unix.Thread_id.t Core_kernel.Std.Bin_prot.Type_class.reader
val bin_size_t :
Core_unix.Thread_id.t Core_kernel.Std.Bin_prot.Size.sizer
val bin_write_t :
Core_unix.Thread_id.t Core_kernel.Std.Bin_prot.Write.writer
val bin_writer_t :
Core_unix.Thread_id.t Core_kernel.Std.Bin_prot.Type_class.writer
val sexp_of_t : Core_unix.Thread_id.t -> Sexplib.Sexp.t
end
val gettid : (unit -> Core_unix.Thread_id.t) Core_kernel.Std.Or_error.t
val nice : int -> int
val stdin : Core_unix.File_descr.t
val stdout : Core_unix.File_descr.t
val stderr : Core_unix.File_descr.t
type open_flag =
Unix.open_flag =
O_RDONLY
| O_WRONLY
| O_RDWR
| O_NONBLOCK
| O_APPEND
| O_CREAT
| O_TRUNC
| O_EXCL
| O_NOCTTY
| O_DSYNC
| O_SYNC
| O_RSYNC
| O_SHARE_DELETE
| O_CLOEXEC
val open_flag_of_sexp : Core_kernel.Std.Sexp.t -> Core_unix.open_flag
val sexp_of_open_flag : Core_unix.open_flag -> Core_kernel.Std.Sexp.t
type file_perm = int
val openfile :
?perm:Core_unix.file_perm ->
mode:Core_unix.open_flag list -> string -> Core_unix.File_descr.t
module Open_flags :
sig
type t
val typerep_of_t : t Typerep_lib.Std.Typerep.t
val typename_of_t : t Typerep_lib.Std.Typename.t
val ( >= ) : t -> t -> bool
val ( <= ) : t -> t -> bool
val ( = ) : t -> t -> bool
val ( > ) : t -> t -> bool
val ( < ) : t -> t -> bool
val ( <> ) : t -> t -> bool
val equal : t -> t -> bool
val compare : t -> t -> int
val min : t -> t -> t
val max : t -> t -> t
val ascending : t -> t -> int
val descending : t -> t -> int
val between : t -> low:t -> high:t -> bool
module Replace_polymorphic_compare :
sig
val ( >= ) : t -> t -> bool
val ( <= ) : t -> t -> bool
val ( = ) : t -> t -> bool
val ( > ) : t -> t -> bool
val ( < ) : t -> t -> bool
val ( <> ) : t -> t -> bool
val equal : t -> t -> bool
val compare : t -> t -> int
val min : t -> t -> t
val max : t -> t -> t
val _squelch_unused_module_warning_ : unit
end
type comparator_witness
val comparator :
(t, comparator_witness) Core_kernel.Comparator.comparator
val validate_lbound :
min:t Core_kernel.Comparable_intf.bound ->
t Core_kernel.Validate.check
val validate_ubound :
max:t Core_kernel.Comparable_intf.bound ->
t Core_kernel.Validate.check
val validate_bound :
min:t Core_kernel.Comparable_intf.bound ->
max:t Core_kernel.Comparable_intf.bound ->
t Core_kernel.Validate.check
module Map :
sig
module Key :
sig
type t = t
type comparator_witness = comparator_witness
val comparator :
(t, comparator_witness) Core_kernel.Comparator.comparator
end
module Tree :
sig
type 'a t =
(Key.t, 'a, Key.comparator_witness)
Core_kernel.Core_map.Tree.t
val empty : 'a t
val singleton : Key.t -> 'a -> 'a t
val of_alist :
(Key.t * 'a) list ->
[ `Duplicate_key of Key.t | `Ok of 'a t ]
val of_alist_or_error :
(Key.t * 'a) list -> 'a t Core_kernel.Or_error.t
val of_alist_exn : (Key.t * 'a) list -> 'a t
val of_alist_multi : (Key.t * 'a) list -> 'a list t
val of_alist_fold :
(Key.t * 'a) list -> init:'b -> f:('b -> 'a -> 'b) -> 'b t
val of_alist_reduce :
(Key.t * 'a) list -> f:('a -> 'a -> 'a) -> 'a t
val of_sorted_array :
(Key.t * 'a) array -> 'a t Core_kernel.Or_error.t
val of_sorted_array_unchecked : (Key.t * 'a) array -> 'a t
val of_tree : 'a t -> 'a t
val invariants : 'a t -> bool
val is_empty : 'a t -> bool
val length : 'a t -> int
val add : 'a t -> key:Key.t -> data:'a -> 'a t
val add_multi : 'a list t -> key:Key.t -> data:'a -> 'a list t
val change : 'a t -> Key.t -> ('a option -> 'a option) -> 'a t
val find : 'a t -> Key.t -> 'a option
val find_exn : 'a t -> Key.t -> 'a
val remove : 'a t -> Key.t -> 'a t
val mem : 'a t -> Key.t -> bool
val iter : 'a t -> f:(key:Key.t -> data:'a -> unit) -> unit
val iter2 :
'a t ->
'b t ->
f:(key:Key.t ->
data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] ->
unit) ->
unit
val map : 'a t -> f:('a -> 'b) -> 'b t
val mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b) -> 'b t
val fold :
'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold_right :
'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val filter : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t
val filter_map : 'a t -> f:('a -> 'b option) -> 'b t
val filter_mapi :
'a t -> f:(key:Key.t -> data:'a -> 'b option) -> 'b t
val compare_direct : ('a -> 'a -> int) -> 'a t -> 'a t -> int
val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
val keys : 'a t -> Key.t list
val data : 'a t -> 'a list
val to_alist : 'a t -> (Key.t * 'a) list
val validate :
name:(Key.t -> string) ->
'a Core_kernel.Validate.check ->
'a t Core_kernel.Validate.check
val merge :
'a t ->
'b t ->
f:(key:Key.t ->
[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] ->
'c option) ->
'c t
val symmetric_diff :
'a t ->
'a t ->
data_equal:('a -> 'a -> bool) ->
(Key.t * [ `Left of 'a | `Right of 'a | `Unequal of 'a * 'a ])
Core_kernel.Sequence.t
val min_elt : 'a t -> (Key.t * 'a) option
val min_elt_exn : 'a t -> Key.t * 'a
val max_elt : 'a t -> (Key.t * 'a) option
val max_elt_exn : 'a t -> Key.t * 'a
val for_all : 'a t -> f:('a -> bool) -> bool
val exists : 'a t -> f:('a -> bool) -> bool
val split : 'a t -> Key.t -> 'a t * (Key.t * 'a) option * 'a t
val fold_range_inclusive :
'a t ->
min:Key.t ->
max:Key.t ->
init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val range_to_alist :
'a t -> min:Key.t -> max:Key.t -> (Key.t * 'a) list
val closest_key :
'a t ->
[ `Greater_or_equal_to
| `Greater_than
| `Less_or_equal_to
| `Less_than ] -> Key.t -> (Key.t * 'a) option
val nth : 'a t -> int -> (Key.t * 'a) option
val rank : 'a t -> Key.t -> int option
val to_tree : 'a t -> 'a t
val to_sequence :
?order:[ `Decreasing_key | `Increasing_key ] ->
?keys_greater_or_equal_to:Key.t ->
?keys_less_or_equal_to:Key.t ->
'a t -> (Key.t * 'a) Core_kernel.Sequence.t
val t_of_sexp :
(Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a t
val sexp_of_t :
('a -> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.t
end
type 'a t =
(Key.t, 'a, Key.comparator_witness) Core_kernel.Core_map.t
val empty : 'a t
val singleton : Key.t -> 'a -> 'a t
val of_alist :
(Key.t * 'a) list -> [ `Duplicate_key of Key.t | `Ok of 'a t ]
val of_alist_or_error :
(Key.t * 'a) list -> 'a t Core_kernel.Or_error.t
val of_alist_exn : (Key.t * 'a) list -> 'a t
val of_alist_multi : (Key.t * 'a) list -> 'a list t
val of_alist_fold :
(Key.t * 'a) list -> init:'b -> f:('b -> 'a -> 'b) -> 'b t
val of_alist_reduce :
(Key.t * 'a) list -> f:('a -> 'a -> 'a) -> 'a t
val of_sorted_array :
(Key.t * 'a) array -> 'a t Core_kernel.Or_error.t
val of_sorted_array_unchecked : (Key.t * 'a) array -> 'a t
val of_tree : 'a Tree.t -> 'a t
val invariants : 'a t -> bool
val is_empty : 'a t -> bool
val length : 'a t -> int
val add : 'a t -> key:Key.t -> data:'a -> 'a t
val add_multi : 'a list t -> key:Key.t -> data:'a -> 'a list t
val change : 'a t -> Key.t -> ('a option -> 'a option) -> 'a t
val find : 'a t -> Key.t -> 'a option
val find_exn : 'a t -> Key.t -> 'a
val remove : 'a t -> Key.t -> 'a t
val mem : 'a t -> Key.t -> bool
val iter : 'a t -> f:(key:Key.t -> data:'a -> unit) -> unit
val iter2 :
'a t ->
'b t ->
f:(key:Key.t ->
data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> unit) ->
unit
val map : 'a t -> f:('a -> 'b) -> 'b t
val mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b) -> 'b t
val fold :
'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold_right :
'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val filter : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t
val filter_map : 'a t -> f:('a -> 'b option) -> 'b t
val filter_mapi :
'a t -> f:(key:Key.t -> data:'a -> 'b option) -> 'b t
val compare_direct : ('a -> 'a -> int) -> 'a t -> 'a t -> int
val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
val keys : 'a t -> Key.t list
val data : 'a t -> 'a list
val to_alist : 'a t -> (Key.t * 'a) list
val validate :
name:(Key.t -> string) ->
'a Core_kernel.Validate.check -> 'a t Core_kernel.Validate.check
val merge :
'a t ->
'b t ->
f:(key:Key.t ->
[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> 'c option) ->
'c t
val symmetric_diff :
'a t ->
'a t ->
data_equal:('a -> 'a -> bool) ->
(Key.t * [ `Left of 'a | `Right of 'a | `Unequal of 'a * 'a ])
Core_kernel.Sequence.t
val min_elt : 'a t -> (Key.t * 'a) option
val min_elt_exn : 'a t -> Key.t * 'a
val max_elt : 'a t -> (Key.t * 'a) option
val max_elt_exn : 'a t -> Key.t * 'a
val for_all : 'a t -> f:('a -> bool) -> bool
val exists : 'a t -> f:('a -> bool) -> bool
val split : 'a t -> Key.t -> 'a t * (Key.t * 'a) option * 'a t
val fold_range_inclusive :
'a t ->
min:Key.t ->
max:Key.t ->
init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val range_to_alist :
'a t -> min:Key.t -> max:Key.t -> (Key.t * 'a) list
val closest_key :
'a t ->
[ `Greater_or_equal_to
| `Greater_than
| `Less_or_equal_to
| `Less_than ] -> Key.t -> (Key.t * 'a) option
val nth : 'a t -> int -> (Key.t * 'a) option
val rank : 'a t -> Key.t -> int option
val to_tree : 'a t -> 'a Tree.t
val to_sequence :
?order:[ `Decreasing_key | `Increasing_key ] ->
?keys_greater_or_equal_to:Key.t ->
?keys_less_or_equal_to:Key.t ->
'a t -> (Key.t * 'a) Core_kernel.Sequence.t
val t_of_sexp : (Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a t
val sexp_of_t : ('a -> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.t
val compare : ('a -> 'a -> int) -> 'a t -> 'a t -> int
end
module Set :
sig
module Elt :
sig
type t = t
type comparator_witness = comparator_witness
val comparator :
(t, comparator_witness) Core_kernel.Comparator.comparator
val t_of_sexp : Sexplib.Sexp.t -> t
val sexp_of_t : t -> Sexplib.Sexp.t
end
module Tree :
sig
type t =
(Elt.t, Elt.comparator_witness) Core_kernel.Core_set.Tree.t
val length : t -> int
val is_empty : t -> bool
val iter : t -> f:(Elt.t -> unit) -> unit
val fold :
t -> init:'accum -> f:('accum -> Elt.t -> 'accum) -> 'accum
val exists : t -> f:(Elt.t -> bool) -> bool
val for_all : t -> f:(Elt.t -> bool) -> bool
val count : t -> f:(Elt.t -> bool) -> int
val sum :
(module Core_kernel.Commutative_group.S with type t = 'sum) ->
t -> f:(Elt.t -> 'sum) -> 'sum
val find : t -> f:(Elt.t -> bool) -> Elt.t option
val find_map : t -> f:(Elt.t -> 'a option) -> 'a option
val to_list : t -> Elt.t list
val to_array : t -> Elt.t array
val invariants : t -> bool
val mem : t -> Elt.t -> bool
val add : t -> Elt.t -> t
val remove : t -> Elt.t -> t
val union : t -> t -> t
val inter : t -> t -> t
val diff : t -> t -> t
val symmetric_diff :
t ->
t ->
(Elt.t, Elt.t) Core_kernel.Either.t Core_kernel.Sequence.t
val compare_direct : t -> t -> int
val equal : t -> t -> bool
val subset : t -> t -> bool
val fold_until :
t ->
init:'b ->
f:('b -> Elt.t -> [ `Continue of 'b | `Stop of 'b ]) -> 'b
val fold_right : t -> init:'b -> f:(Elt.t -> 'b -> 'b) -> 'b
val iter2 :
t ->
t ->
f:([ `Both of Elt.t * Elt.t
| `Left of Elt.t
| `Right of Elt.t ] -> unit) ->
unit
val filter : t -> f:(Elt.t -> bool) -> t
val partition_tf : t -> f:(Elt.t -> bool) -> t * t
val elements : t -> Elt.t list
val min_elt : t -> Elt.t option
val min_elt_exn : t -> Elt.t
val max_elt : t -> Elt.t option
val max_elt_exn : t -> Elt.t
val choose : t -> Elt.t option
val choose_exn : t -> Elt.t
val split : t -> Elt.t -> t * Elt.t option * t
val group_by : t -> equiv:(Elt.t -> Elt.t -> bool) -> t list
val find_exn : t -> f:(Elt.t -> bool) -> Elt.t
val find_index : t -> int -> Elt.t option
val remove_index : t -> int -> t
val to_tree : t -> t
val to_sequence :
?order:[ `Decreasing | `Increasing ] ->
?greater_or_equal_to:Elt.t ->
?less_or_equal_to:Elt.t -> t -> Elt.t Core_kernel.Sequence.t
val to_map :
t ->
f:(Elt.t -> 'data) ->
(Elt.t, 'data, Elt.comparator_witness)
Core_kernel.Core_set_intf.Map.t
val empty : t
val singleton : Elt.t -> t
val union_list : t list -> t
val of_list : Elt.t list -> t
val of_array : Elt.t array -> t
val of_sorted_array : Elt.t array -> t Core_kernel.Or_error.t
val of_sorted_array_unchecked : Elt.t array -> t
val stable_dedup_list : Elt.t list -> Elt.t list
val map :
('a, 'b) Core_kernel.Core_set.Tree.t -> f:('a -> Elt.t) -> t
val filter_map :
('a, 'b) Core_kernel.Core_set.Tree.t ->
f:('a -> Elt.t option) -> t
val of_tree : t -> t
val of_map_keys :
(Elt.t, 'a, Elt.comparator_witness)
Core_kernel.Core_set_intf.Map.t -> t
val t_of_sexp : Sexplib.Sexp.t -> t
val sexp_of_t : t -> Sexplib.Sexp.t
val compare : t -> t -> int
end
type t = (Elt.t, Elt.comparator_witness) Core_kernel.Core_set.t
val length : t -> int
val is_empty : t -> bool
val iter : t -> f:(Elt.t -> unit) -> unit
val fold :
t -> init:'accum -> f:('accum -> Elt.t -> 'accum) -> 'accum
val exists : t -> f:(Elt.t -> bool) -> bool
val for_all : t -> f:(Elt.t -> bool) -> bool
val count : t -> f:(Elt.t -> bool) -> int
val sum :
(module Core_kernel.Commutative_group.S with type t = 'sum) ->
t -> f:(Elt.t -> 'sum) -> 'sum
val find : t -> f:(Elt.t -> bool) -> Elt.t option
val find_map : t -> f:(Elt.t -> 'a option) -> 'a option
val to_list : t -> Elt.t list
val to_array : t -> Elt.t array
val invariants : t -> bool
val mem : t -> Elt.t -> bool
val add : t -> Elt.t -> t
val remove : t -> Elt.t -> t
val union : t -> t -> t
val inter : t -> t -> t
val diff : t -> t -> t
val symmetric_diff :
t ->
t -> (Elt.t, Elt.t) Core_kernel.Either.t Core_kernel.Sequence.t
val compare_direct : t -> t -> int
val equal : t -> t -> bool
val subset : t -> t -> bool
val fold_until :
t ->
init:'b ->
f:('b -> Elt.t -> [ `Continue of 'b | `Stop of 'b ]) -> 'b
val fold_right : t -> init:'b -> f:(Elt.t -> 'b -> 'b) -> 'b
val iter2 :
t ->
t ->
f:([ `Both of Elt.t * Elt.t | `Left of Elt.t | `Right of Elt.t ] ->
unit) ->
unit
val filter : t -> f:(Elt.t -> bool) -> t
val partition_tf : t -> f:(Elt.t -> bool) -> t * t
val elements : t -> Elt.t list
val min_elt : t -> Elt.t option
val min_elt_exn : t -> Elt.t
val max_elt : t -> Elt.t option
val max_elt_exn : t -> Elt.t
val choose : t -> Elt.t option
val choose_exn : t -> Elt.t
val split : t -> Elt.t -> t * Elt.t option * t
val group_by : t -> equiv:(Elt.t -> Elt.t -> bool) -> t list
val find_exn : t -> f:(Elt.t -> bool) -> Elt.t
val find_index : t -> int -> Elt.t option
val remove_index : t -> int -> t
val to_tree : t -> Tree.t
val to_sequence :
?order:[ `Decreasing | `Increasing ] ->
?greater_or_equal_to:Elt.t ->
?less_or_equal_to:Elt.t -> t -> Elt.t Core_kernel.Sequence.t
val to_map :
t ->
f:(Elt.t -> 'data) ->
(Elt.t, 'data, Elt.comparator_witness)
Core_kernel.Core_set_intf.Map.t
val empty : t
val singleton : Elt.t -> t
val union_list : t list -> t
val of_list : Elt.t list -> t
val of_array : Elt.t array -> t
val of_sorted_array : Elt.t array -> t Core_kernel.Or_error.t
val of_sorted_array_unchecked : Elt.t array -> t
val stable_dedup_list : Elt.t list -> Elt.t list
val map : ('a, 'b) Core_kernel.Core_set.t -> f:('a -> Elt.t) -> t
val filter_map :
('a, 'b) Core_kernel.Core_set.t -> f:('a -> Elt.t option) -> t
val of_tree : Tree.t -> t
val of_map_keys :
(Elt.t, 'a, Elt.comparator_witness)
Core_kernel.Core_set_intf.Map.t -> t
val t_of_sexp : Sexplib.Sexp.t -> t
val sexp_of_t : t -> Sexplib.Sexp.t
val compare : t -> t -> int
end
val of_int : int -> t
val to_int_exn : t -> int
val empty : t
val ( + ) : t -> t -> t
val ( - ) : t -> t -> t
val intersect : t -> t -> t
val complement : t -> t
val is_empty : t -> bool
val do_intersect : t -> t -> bool
val are_disjoint : t -> t -> bool
val t_of_sexp : Sexplib.Sexp.t -> t
val rdonly : Core_unix.Open_flags.t
val wronly : Core_unix.Open_flags.t
val rdwr : Core_unix.Open_flags.t
val creat : Core_unix.Open_flags.t
val excl : Core_unix.Open_flags.t
val noctty : Core_unix.Open_flags.t
val trunc : Core_unix.Open_flags.t
val append : Core_unix.Open_flags.t
val nonblock : Core_unix.Open_flags.t
val dsync : Core_unix.Open_flags.t
val sync : Core_unix.Open_flags.t
val rsync : Core_unix.Open_flags.t
val can_read : Core_unix.Open_flags.t -> bool
val can_write : Core_unix.Open_flags.t -> bool
val sexp_of_t : Core_unix.Open_flags.t -> Sexplib.Sexp.t
end
val fcntl_getfl : Core_unix.File_descr.t -> Core_unix.Open_flags.t
val fcntl_setfl : Core_unix.File_descr.t -> Core_unix.Open_flags.t -> unit
val close : ?restart:bool -> Core_unix.File_descr.t -> unit
val with_file :
?perm:Core_unix.file_perm ->
string ->
mode:Core_unix.open_flag list -> f:(Core_unix.File_descr.t -> 'a) -> 'a
val read :
?restart:bool ->
?pos:int -> ?len:int -> Core_unix.File_descr.t -> buf:string -> int
val write :
?pos:int -> ?len:int -> Core_unix.File_descr.t -> buf:string -> int
val single_write :
?restart:bool ->
?pos:int -> ?len:int -> Core_unix.File_descr.t -> buf:string -> int
val in_channel_of_descr :
Core_unix.File_descr.t -> Core_kernel.Std.In_channel.t
val out_channel_of_descr :
Core_unix.File_descr.t -> Core_kernel.Std.Out_channel.t
val descr_of_in_channel :
Core_kernel.Std.In_channel.t -> Core_unix.File_descr.t
val descr_of_out_channel :
Core_kernel.Std.Out_channel.t -> Core_unix.File_descr.t
type seek_command = Unix.seek_command = SEEK_SET | SEEK_CUR | SEEK_END
val lseek :
Core_unix.File_descr.t -> int64 -> mode:Core_unix.seek_command -> int64
val truncate : string -> len:int64 -> unit
val ftruncate : Core_unix.File_descr.t -> len:int64 -> unit
type file_kind =
Unix.file_kind =
S_REG
| S_DIR
| S_CHR
| S_BLK
| S_LNK
| S_FIFO
| S_SOCK
type stats =
Unix.LargeFile.stats = {
st_dev : int;
st_ino : int;
st_kind : Core_unix.file_kind;
st_perm : Core_unix.file_perm;
st_nlink : int;
st_uid : int;
st_gid : int;
st_rdev : int;
st_size : int64;
st_atime : float;
st_mtime : float;
st_ctime : float;
}
val stat : string -> Core_unix.stats
val lstat : string -> Core_unix.stats
val fstat : Core_unix.File_descr.t -> Core_unix.stats
module Native_file :
sig
type stats =
Unix.stats = {
st_dev : int;
st_ino : int;
st_kind : Core_unix.file_kind;
st_perm : Core_unix.file_perm;
st_nlink : int;
st_uid : int;
st_gid : int;
st_rdev : int;
st_size : int;
st_atime : float;
st_mtime : float;
st_ctime : float;
}
val stat : string -> Core_unix.Native_file.stats
val lstat : string -> Core_unix.Native_file.stats
val fstat : Core_unix.File_descr.t -> Core_unix.Native_file.stats
val lseek :
Core_unix.File_descr.t -> int -> mode:Core_unix.seek_command -> int
val truncate : string -> len:int -> unit
val ftruncate : Core_unix.File_descr.t -> len:int -> unit
val stats_of_sexp : Sexplib.Sexp.t -> Core_unix.Native_file.stats
val sexp_of_stats : Core_unix.Native_file.stats -> Sexplib.Sexp.t
end
type lock_command =
Unix.lock_command =
F_ULOCK
| F_LOCK
| F_TLOCK
| F_TEST
| F_RLOCK
| F_TRLOCK
val lockf :
Core_unix.File_descr.t ->
mode:Core_unix.lock_command -> len:Core_kernel.Std.Int64.t -> unit
module Flock_command :
sig
type t
val lock_shared : Core_unix.Flock_command.t
val lock_exclusive : Core_unix.Flock_command.t
val unlock : Core_unix.Flock_command.t
end
val flock : Core_unix.File_descr.t -> Core_unix.Flock_command.t -> bool
val isatty : Core_unix.File_descr.t -> bool
val unlink : string -> unit
val remove : string -> unit
val rename : src:string -> dst:string -> unit
val link : ?force:bool -> target:string -> link_name:string -> unit -> unit
val chmod : string -> perm:Core_unix.file_perm -> unit
val fchmod : Core_unix.File_descr.t -> perm:Core_unix.file_perm -> unit
val chown : string -> uid:int -> gid:int -> unit
val fchown : Core_unix.File_descr.t -> uid:int -> gid:int -> unit
val umask : int -> int
val access :
string ->
[ `Exec | `Exists | `Read | `Write ] list ->
(unit, exn) Core_kernel.Std.Result.t
val access_exn :
string -> [ `Exec | `Exists | `Read | `Write ] list -> unit
val dup : Core_unix.File_descr.t -> Core_unix.File_descr.t
val dup2 : src:Core_unix.File_descr.t -> dst:Core_unix.File_descr.t -> unit
val set_nonblock : Core_unix.File_descr.t -> unit
val clear_nonblock : Core_unix.File_descr.t -> unit
val set_close_on_exec : Core_unix.File_descr.t -> unit
val clear_close_on_exec : Core_unix.File_descr.t -> unit
val mkdir : ?perm:Core_unix.file_perm -> string -> unit
val mkdir_p : ?perm:Core_unix.file_perm -> string -> unit
val rmdir : string -> unit
val chdir : string -> unit
val getcwd : unit -> string
val chroot : string -> unit
type dir_handle = Unix.dir_handle
val opendir : ?restart:bool -> string -> Core_unix.dir_handle
val readdir : Core_unix.dir_handle -> string
val rewinddir : Core_unix.dir_handle -> unit
val closedir : Core_unix.dir_handle -> unit
val pipe : unit -> Core_unix.File_descr.t * Core_unix.File_descr.t
val mkfifo : string -> perm:Core_unix.file_perm -> unit
module Process_info :
sig
type t = {
pid : Core_kernel.Std.Pid.t;
stdin : Core_unix.File_descr.t;
stdout : Core_unix.File_descr.t;
stderr : Core_unix.File_descr.t;
}
val t_of_sexp : Sexplib.Sexp.t -> Core_unix.Process_info.t
val sexp_of_t : Core_unix.Process_info.t -> Sexplib.Sexp.t
end
val create_process :
prog:string -> args:string list -> Core_unix.Process_info.t
val create_process_env :
?working_dir:string ->
prog:string ->
args:string list -> env:Core_unix.env -> unit -> Core_unix.Process_info.t
val open_process_in : string -> Pervasives.in_channel
val open_process_out : string -> Pervasives.out_channel
val open_process : string -> Pervasives.in_channel * Pervasives.out_channel
module Process_channels :
sig
type t = {
stdin : Pervasives.out_channel;
stdout : Pervasives.in_channel;
stderr : Pervasives.in_channel;
}
end
val open_process_full :
string -> env:string array -> Core_unix.Process_channels.t
val close_process_in : Pervasives.in_channel -> Core_unix.Exit_or_signal.t
val close_process_out :
Pervasives.out_channel -> Core_unix.Exit_or_signal.t
val close_process :
Pervasives.in_channel * Pervasives.out_channel ->
Core_unix.Exit_or_signal.t
val close_process_full :
Core_unix.Process_channels.t -> Core_unix.Exit_or_signal.t
val symlink : src:string -> dst:string -> unit
val readlink : string -> string
module Select_fds :
sig
type t = {
read : Core_unix.File_descr.t list;
write : Core_unix.File_descr.t list;
except : Core_unix.File_descr.t list;
}
val empty : Core_unix.Select_fds.t
val sexp_of_t : Core_unix.Select_fds.t -> Sexplib.Sexp.t
end
type select_timeout =
[ `After of Core_kernel.Time_ns.Span.t | `Immediately | `Never ]
val select :
?restart:bool ->
read:Core_unix.File_descr.t list ->
write:Core_unix.File_descr.t list ->
except:Core_unix.File_descr.t list ->
timeout:Core_unix.select_timeout -> unit -> Core_unix.Select_fds.t
val pause : unit -> unit
type process_times =
Unix.process_times = {
tms_utime : float;
tms_stime : float;
tms_cutime : float;
tms_cstime : float;
}
type tm =
Unix.tm = {
tm_sec : int;
tm_min : int;
tm_hour : int;
tm_mday : int;
tm_mon : int;
tm_year : int;
tm_wday : int;
tm_yday : int;
tm_isdst : bool;
}
val time : unit -> float
val gettimeofday : unit -> float
val gmtime : float -> Core_unix.tm
val timegm : Core_unix.tm -> float
val localtime : float -> Core_unix.tm
val mktime : Core_unix.tm -> float * Core_unix.tm
val strftime : Core_unix.tm -> string -> string
val strptime : fmt:string -> string -> Unix.tm
val alarm : int -> int
val sleep : int -> unit
val nanosleep : float -> float
val times : unit -> Core_unix.process_times
val utimes : string -> access:float -> modif:float -> unit
type interval_timer =
Unix.interval_timer =
ITIMER_REAL
| ITIMER_VIRTUAL
| ITIMER_PROF
type interval_timer_status =
Unix.interval_timer_status = {
it_interval : float;
it_value : float;
}
val getitimer : Core_unix.interval_timer -> Core_unix.interval_timer_status
val setitimer :
Core_unix.interval_timer ->
Core_unix.interval_timer_status -> Core_unix.interval_timer_status
val getuid : unit -> int
val geteuid : unit -> int
val setuid : int -> unit
val getgid : unit -> int
val getegid : unit -> int
val setgid : int -> unit
module Passwd :
sig
type t = {
name : string;
passwd : string;
uid : int;
gid : int;
gecos : string;
dir : string;
shell : string;
}
val getbyname : string -> Core_unix.Passwd.t option
val getbyname_exn : string -> Core_unix.Passwd.t
val getbyuid : int -> Core_unix.Passwd.t option
val getbyuid_exn : int -> Core_unix.Passwd.t
val getpwents : unit -> Core_unix.Passwd.t list
module Low_level :
sig
val setpwent : unit -> unit
val getpwent : unit -> Core_unix.Passwd.t option
val getpwent_exn : unit -> Core_unix.Passwd.t
val endpwent : unit -> unit
end
val t_of_sexp : Sexplib.Sexp.t -> Core_unix.Passwd.t
val sexp_of_t : Core_unix.Passwd.t -> Sexplib.Sexp.t
end
module Group :
sig
type t = {
name : string;
passwd : string;
gid : int;
mem : string array;
}
val getbyname : string -> Core_unix.Group.t option
val getbyname_exn : string -> Core_unix.Group.t
val getbygid : int -> Core_unix.Group.t option
val getbygid_exn : int -> Core_unix.Group.t
val sexp_of_t : Core_unix.Group.t -> Sexplib.Sexp.t
end
val getlogin : unit -> string
module Protocol_family :
sig
type t = [ `Inet | `Inet6 | `Unix ]
val t_of_sexp : Sexplib.Sexp.t -> Core_unix.Protocol_family.t
val __t_of_sexp__ : Sexplib.Sexp.t -> Core_unix.Protocol_family.t
val sexp_of_t : Core_unix.Protocol_family.t -> Sexplib.Sexp.t
val bin_t :
Core_unix.Protocol_family.t Core_kernel.Std.Bin_prot.Type_class.t
val bin_read_t :
Core_unix.Protocol_family.t Core_kernel.Std.Bin_prot.Read.reader
val __bin_read_t__ :
(int -> Core_unix.Protocol_family.t)
Core_kernel.Std.Bin_prot.Read.reader
val bin_reader_t :
Core_unix.Protocol_family.t
Core_kernel.Std.Bin_prot.Type_class.reader
val bin_size_t :
Core_unix.Protocol_family.t Core_kernel.Std.Bin_prot.Size.sizer
val bin_write_t :
Core_unix.Protocol_family.t Core_kernel.Std.Bin_prot.Write.writer
val bin_writer_t :
Core_unix.Protocol_family.t
Core_kernel.Std.Bin_prot.Type_class.writer
end
module Inet_addr :
sig
type t = Unix.inet_addr
val ( >= ) : t -> t -> bool
val ( <= ) : t -> t -> bool
val ( = ) : t -> t -> bool
val ( > ) : t -> t -> bool
val ( < ) : t -> t -> bool
val ( <> ) : t -> t -> bool
val equal : t -> t -> bool
val compare : t -> t -> int
val min : t -> t -> t
val max : t -> t -> t
val ascending : t -> t -> int
val descending : t -> t -> int
val between : t -> low:t -> high:t -> bool
module Replace_polymorphic_compare :
sig
val ( >= ) : t -> t -> bool
val ( <= ) : t -> t -> bool
val ( = ) : t -> t -> bool
val ( > ) : t -> t -> bool
val ( < ) : t -> t -> bool
val ( <> ) : t -> t -> bool
val equal : t -> t -> bool
val compare : t -> t -> int
val min : t -> t -> t
val max : t -> t -> t
val _squelch_unused_module_warning_ : unit
end
type comparator_witness
val comparator :
(t, comparator_witness) Core_kernel.Comparator.comparator
val validate_lbound :
min:t Core_kernel.Comparable_intf.bound ->
t Core_kernel.Validate.check
val validate_ubound :
max:t Core_kernel.Comparable_intf.bound ->
t Core_kernel.Validate.check
val validate_bound :
min:t Core_kernel.Comparable_intf.bound ->
max:t Core_kernel.Comparable_intf.bound ->
t Core_kernel.Validate.check
module Map :
sig
module Key :
sig
type t = t
type comparator_witness = comparator_witness
val comparator :
(t, comparator_witness) Core_kernel.Comparator.comparator
end
module Tree :
sig
type 'a t =
(Key.t, 'a, Key.comparator_witness)
Core_kernel.Core_map.Tree.t
val empty : 'a t
val singleton : Key.t -> 'a -> 'a t
val of_alist :
(Key.t * 'a) list ->
[ `Duplicate_key of Key.t | `Ok of 'a t ]
val of_alist_or_error :
(Key.t * 'a) list -> 'a t Core_kernel.Or_error.t
val of_alist_exn : (Key.t * 'a) list -> 'a t
val of_alist_multi : (Key.t * 'a) list -> 'a list t
val of_alist_fold :
(Key.t * 'a) list -> init:'b -> f:('b -> 'a -> 'b) -> 'b t
val of_alist_reduce :
(Key.t * 'a) list -> f:('a -> 'a -> 'a) -> 'a t
val of_sorted_array :
(Key.t * 'a) array -> 'a t Core_kernel.Or_error.t
val of_sorted_array_unchecked : (Key.t * 'a) array -> 'a t
val of_tree : 'a t -> 'a t
val invariants : 'a t -> bool
val is_empty : 'a t -> bool
val length : 'a t -> int
val add : 'a t -> key:Key.t -> data:'a -> 'a t
val add_multi : 'a list t -> key:Key.t -> data:'a -> 'a list t
val change : 'a t -> Key.t -> ('a option -> 'a option) -> 'a t
val find : 'a t -> Key.t -> 'a option
val find_exn : 'a t -> Key.t -> 'a
val remove : 'a t -> Key.t -> 'a t
val mem : 'a t -> Key.t -> bool
val iter : 'a t -> f:(key:Key.t -> data:'a -> unit) -> unit
val iter2 :
'a t ->
'b t ->
f:(key:Key.t ->
data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] ->
unit) ->
unit
val map : 'a t -> f:('a -> 'b) -> 'b t
val mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b) -> 'b t
val fold :
'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold_right :
'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val filter : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t
val filter_map : 'a t -> f:('a -> 'b option) -> 'b t
val filter_mapi :
'a t -> f:(key:Key.t -> data:'a -> 'b option) -> 'b t
val compare_direct : ('a -> 'a -> int) -> 'a t -> 'a t -> int
val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
val keys : 'a t -> Key.t list
val data : 'a t -> 'a list
val to_alist : 'a t -> (Key.t * 'a) list
val validate :
name:(Key.t -> string) ->
'a Core_kernel.Validate.check ->
'a t Core_kernel.Validate.check
val merge :
'a t ->
'b t ->
f:(key:Key.t ->
[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] ->
'c option) ->
'c t
val symmetric_diff :
'a t ->
'a t ->
data_equal:('a -> 'a -> bool) ->
(Key.t * [ `Left of 'a | `Right of 'a | `Unequal of 'a * 'a ])
Core_kernel.Sequence.t
val min_elt : 'a t -> (Key.t * 'a) option
val min_elt_exn : 'a t -> Key.t * 'a
val max_elt : 'a t -> (Key.t * 'a) option
val max_elt_exn : 'a t -> Key.t * 'a
val for_all : 'a t -> f:('a -> bool) -> bool
val exists : 'a t -> f:('a -> bool) -> bool
val split : 'a t -> Key.t -> 'a t * (Key.t * 'a) option * 'a t
val fold_range_inclusive :
'a t ->
min:Key.t ->
max:Key.t ->
init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val range_to_alist :
'a t -> min:Key.t -> max:Key.t -> (Key.t * 'a) list
val closest_key :
'a t ->
[ `Greater_or_equal_to
| `Greater_than
| `Less_or_equal_to
| `Less_than ] -> Key.t -> (Key.t * 'a) option
val nth : 'a t -> int -> (Key.t * 'a) option
val rank : 'a t -> Key.t -> int option
val to_tree : 'a t -> 'a t
val to_sequence :
?order:[ `Decreasing_key | `Increasing_key ] ->
?keys_greater_or_equal_to:Key.t ->
?keys_less_or_equal_to:Key.t ->
'a t -> (Key.t * 'a) Core_kernel.Sequence.t
val t_of_sexp :
(Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a t
val sexp_of_t :
('a -> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.t
end
type 'a t =
(Key.t, 'a, Key.comparator_witness) Core_kernel.Core_map.t
val empty : 'a t
val singleton : Key.t -> 'a -> 'a t
val of_alist :
(Key.t * 'a) list -> [ `Duplicate_key of Key.t | `Ok of 'a t ]
val of_alist_or_error :
(Key.t * 'a) list -> 'a t Core_kernel.Or_error.t
val of_alist_exn : (Key.t * 'a) list -> 'a t
val of_alist_multi : (Key.t * 'a) list -> 'a list t
val of_alist_fold :
(Key.t * 'a) list -> init:'b -> f:('b -> 'a -> 'b) -> 'b t
val of_alist_reduce :
(Key.t * 'a) list -> f:('a -> 'a -> 'a) -> 'a t
val of_sorted_array :
(Key.t * 'a) array -> 'a t Core_kernel.Or_error.t
val of_sorted_array_unchecked : (Key.t * 'a) array -> 'a t
val of_tree : 'a Tree.t -> 'a t
val invariants : 'a t -> bool
val is_empty : 'a t -> bool
val length : 'a t -> int
val add : 'a t -> key:Key.t -> data:'a -> 'a t
val add_multi : 'a list t -> key:Key.t -> data:'a -> 'a list t
val change : 'a t -> Key.t -> ('a option -> 'a option) -> 'a t
val find : 'a t -> Key.t -> 'a option
val find_exn : 'a t -> Key.t -> 'a
val remove : 'a t -> Key.t -> 'a t
val mem : 'a t -> Key.t -> bool
val iter : 'a t -> f:(key:Key.t -> data:'a -> unit) -> unit
val iter2 :
'a t ->
'b t ->
f:(key:Key.t ->
data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> unit) ->
unit
val map : 'a t -> f:('a -> 'b) -> 'b t
val mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b) -> 'b t
val fold :
'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold_right :
'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val filter : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t
val filter_map : 'a t -> f:('a -> 'b option) -> 'b t
val filter_mapi :
'a t -> f:(key:Key.t -> data:'a -> 'b option) -> 'b t
val compare_direct : ('a -> 'a -> int) -> 'a t -> 'a t -> int
val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
val keys : 'a t -> Key.t list
val data : 'a t -> 'a list
val to_alist : 'a t -> (Key.t * 'a) list
val validate :
name:(Key.t -> string) ->
'a Core_kernel.Validate.check -> 'a t Core_kernel.Validate.check
val merge :
'a t ->
'b t ->
f:(key:Key.t ->
[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> 'c option) ->
'c t
val symmetric_diff :
'a t ->
'a t ->
data_equal:('a -> 'a -> bool) ->
(Key.t * [ `Left of 'a | `Right of 'a | `Unequal of 'a * 'a ])
Core_kernel.Sequence.t
val min_elt : 'a t -> (Key.t * 'a) option
val min_elt_exn : 'a t -> Key.t * 'a
val max_elt : 'a t -> (Key.t * 'a) option
val max_elt_exn : 'a t -> Key.t * 'a
val for_all : 'a t -> f:('a -> bool) -> bool
val exists : 'a t -> f:('a -> bool) -> bool
val split : 'a t -> Key.t -> 'a t * (Key.t * 'a) option * 'a t
val fold_range_inclusive :
'a t ->
min:Key.t ->
max:Key.t ->
init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val range_to_alist :
'a t -> min:Key.t -> max:Key.t -> (Key.t * 'a) list
val closest_key :
'a t ->
[ `Greater_or_equal_to
| `Greater_than
| `Less_or_equal_to
| `Less_than ] -> Key.t -> (Key.t * 'a) option
val nth : 'a t -> int -> (Key.t * 'a) option
val rank : 'a t -> Key.t -> int option
val to_tree : 'a t -> 'a Tree.t
val to_sequence :
?order:[ `Decreasing_key | `Increasing_key ] ->
?keys_greater_or_equal_to:Key.t ->
?keys_less_or_equal_to:Key.t ->
'a t -> (Key.t * 'a) Core_kernel.Sequence.t
val t_of_sexp : (Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a t
val sexp_of_t : ('a -> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.t
val compare : ('a -> 'a -> int) -> 'a t -> 'a t -> int
end
module Set :
sig
module Elt :
sig
type t = t
type comparator_witness = comparator_witness
val comparator :
(t, comparator_witness) Core_kernel.Comparator.comparator
val t_of_sexp : Sexplib.Sexp.t -> t
val sexp_of_t : t -> Sexplib.Sexp.t
end
module Tree :
sig
type t =
(Elt.t, Elt.comparator_witness) Core_kernel.Core_set.Tree.t
val length : t -> int
val is_empty : t -> bool
val iter : t -> f:(Elt.t -> unit) -> unit
val fold :
t -> init:'accum -> f:('accum -> Elt.t -> 'accum) -> 'accum
val exists : t -> f:(Elt.t -> bool) -> bool
val for_all : t -> f:(Elt.t -> bool) -> bool
val count : t -> f:(Elt.t -> bool) -> int
val sum :
(module Core_kernel.Commutative_group.S with type t = 'sum) ->
t -> f:(Elt.t -> 'sum) -> 'sum
val find : t -> f:(Elt.t -> bool) -> Elt.t option
val find_map : t -> f:(Elt.t -> 'a option) -> 'a option
val to_list : t -> Elt.t list
val to_array : t -> Elt.t array
val invariants : t -> bool
val mem : t -> Elt.t -> bool
val add : t -> Elt.t -> t
val remove : t -> Elt.t -> t
val union : t -> t -> t
val inter : t -> t -> t
val diff : t -> t -> t
val symmetric_diff :
t ->
t ->
(Elt.t, Elt.t) Core_kernel.Either.t Core_kernel.Sequence.t
val compare_direct : t -> t -> int
val equal : t -> t -> bool
val subset : t -> t -> bool
val fold_until :
t ->
init:'b ->
f:('b -> Elt.t -> [ `Continue of 'b | `Stop of 'b ]) -> 'b
val fold_right : t -> init:'b -> f:(Elt.t -> 'b -> 'b) -> 'b
val iter2 :
t ->
t ->
f:([ `Both of Elt.t * Elt.t
| `Left of Elt.t
| `Right of Elt.t ] -> unit) ->
unit
val filter : t -> f:(Elt.t -> bool) -> t
val partition_tf : t -> f:(Elt.t -> bool) -> t * t
val elements : t -> Elt.t list
val min_elt : t -> Elt.t option
val min_elt_exn : t -> Elt.t
val max_elt : t -> Elt.t option
val max_elt_exn : t -> Elt.t
val choose : t -> Elt.t option
val choose_exn : t -> Elt.t
val split : t -> Elt.t -> t * Elt.t option * t
val group_by : t -> equiv:(Elt.t -> Elt.t -> bool) -> t list
val find_exn : t -> f:(Elt.t -> bool) -> Elt.t
val find_index : t -> int -> Elt.t option
val remove_index : t -> int -> t
val to_tree : t -> t
val to_sequence :
?order:[ `Decreasing | `Increasing ] ->
?greater_or_equal_to:Elt.t ->
?less_or_equal_to:Elt.t -> t -> Elt.t Core_kernel.Sequence.t
val to_map :
t ->
f:(Elt.t -> 'data) ->
(Elt.t, 'data, Elt.comparator_witness)
Core_kernel.Core_set_intf.Map.t
val empty : t
val singleton : Elt.t -> t
val union_list : t list -> t
val of_list : Elt.t list -> t
val of_array : Elt.t array -> t
val of_sorted_array : Elt.t array -> t Core_kernel.Or_error.t
val of_sorted_array_unchecked : Elt.t array -> t
val stable_dedup_list : Elt.t list -> Elt.t list
val map :
('a, 'b) Core_kernel.Core_set.Tree.t -> f:('a -> Elt.t) -> t
val filter_map :
('a, 'b) Core_kernel.Core_set.Tree.t ->
f:('a -> Elt.t option) -> t
val of_tree : t -> t
val of_map_keys :
(Elt.t, 'a, Elt.comparator_witness)
Core_kernel.Core_set_intf.Map.t -> t
val t_of_sexp : Sexplib.Sexp.t -> t
val sexp_of_t : t -> Sexplib.Sexp.t
val compare : t -> t -> int
end
type t = (Elt.t, Elt.comparator_witness) Core_kernel.Core_set.t
val length : t -> int
val is_empty : t -> bool
val iter : t -> f:(Elt.t -> unit) -> unit
val fold :
t -> init:'accum -> f:('accum -> Elt.t -> 'accum) -> 'accum
val exists : t -> f:(Elt.t -> bool) -> bool
val for_all : t -> f:(Elt.t -> bool) -> bool
val count : t -> f:(Elt.t -> bool) -> int
val sum :
(module Core_kernel.Commutative_group.S with type t = 'sum) ->
t -> f:(Elt.t -> 'sum) -> 'sum
val find : t -> f:(Elt.t -> bool) -> Elt.t option
val find_map : t -> f:(Elt.t -> 'a option) -> 'a option
val to_list : t -> Elt.t list
val to_array : t -> Elt.t array
val invariants : t -> bool
val mem : t -> Elt.t -> bool
val add : t -> Elt.t -> t
val remove : t -> Elt.t -> t
val union : t -> t -> t
val inter : t -> t -> t
val diff : t -> t -> t
val symmetric_diff :
t ->
t -> (Elt.t, Elt.t) Core_kernel.Either.t Core_kernel.Sequence.t
val compare_direct : t -> t -> int
val equal : t -> t -> bool
val subset : t -> t -> bool
val fold_until :
t ->
init:'b ->
f:('b -> Elt.t -> [ `Continue of 'b | `Stop of 'b ]) -> 'b
val fold_right : t -> init:'b -> f:(Elt.t -> 'b -> 'b) -> 'b
val iter2 :
t ->
t ->
f:([ `Both of Elt.t * Elt.t | `Left of Elt.t | `Right of Elt.t ] ->
unit) ->
unit
val filter : t -> f:(Elt.t -> bool) -> t
val partition_tf : t -> f:(Elt.t -> bool) -> t * t
val elements : t -> Elt.t list
val min_elt : t -> Elt.t option
val min_elt_exn : t -> Elt.t
val max_elt : t -> Elt.t option
val max_elt_exn : t -> Elt.t
val choose : t -> Elt.t option
val choose_exn : t -> Elt.t
val split : t -> Elt.t -> t * Elt.t option * t
val group_by : t -> equiv:(Elt.t -> Elt.t -> bool) -> t list
val find_exn : t -> f:(Elt.t -> bool) -> Elt.t
val find_index : t -> int -> Elt.t option
val remove_index : t -> int -> t
val to_tree : t -> Tree.t
val to_sequence :
?order:[ `Decreasing | `Increasing ] ->
?greater_or_equal_to:Elt.t ->
?less_or_equal_to:Elt.t -> t -> Elt.t Core_kernel.Sequence.t
val to_map :
t ->
f:(Elt.t -> 'data) ->
(Elt.t, 'data, Elt.comparator_witness)
Core_kernel.Core_set_intf.Map.t
val empty : t
val singleton : Elt.t -> t
val union_list : t list -> t
val of_list : Elt.t list -> t
val of_array : Elt.t array -> t
val of_sorted_array : Elt.t array -> t Core_kernel.Or_error.t
val of_sorted_array_unchecked : Elt.t array -> t
val stable_dedup_list : Elt.t list -> Elt.t list
val map : ('a, 'b) Core_kernel.Core_set.t -> f:('a -> Elt.t) -> t
val filter_map :
('a, 'b) Core_kernel.Core_set.t -> f:('a -> Elt.t option) -> t
val of_tree : Tree.t -> t
val of_map_keys :
(Elt.t, 'a, Elt.comparator_witness)
Core_kernel.Core_set_intf.Map.t -> t
val t_of_sexp : Sexplib.Sexp.t -> t
val sexp_of_t : t -> Sexplib.Sexp.t
val compare : t -> t -> int
end
val of_string : string -> Core_unix.Inet_addr.t
val of_string_or_getbyname : string -> Core_unix.Inet_addr.t
val to_string : Core_unix.Inet_addr.t -> string
val bind_any : Core_unix.Inet_addr.t
val bind_any_inet6 : Core_unix.Inet_addr.t
val localhost : Core_unix.Inet_addr.t
val localhost_inet6 : Core_unix.Inet_addr.t
val inet4_addr_of_int32 :
Core_kernel.Std.Int32.t -> Core_unix.Inet_addr.t
val inet4_addr_to_int32_exn :
Core_unix.Inet_addr.t -> Core_kernel.Std.Int32.t
val t_of_sexp : Sexplib.Sexp.t -> Core_unix.Inet_addr.t
val sexp_of_t : Core_unix.Inet_addr.t -> Sexplib.Sexp.t
val bin_t : Core_unix.Inet_addr.t Core_kernel.Std.Bin_prot.Type_class.t
val bin_read_t :
Core_unix.Inet_addr.t Core_kernel.Std.Bin_prot.Read.reader
val __bin_read_t__ :
(int -> Core_unix.Inet_addr.t) Core_kernel.Std.Bin_prot.Read.reader
val bin_reader_t :
Core_unix.Inet_addr.t Core_kernel.Std.Bin_prot.Type_class.reader
val bin_size_t :
Core_unix.Inet_addr.t Core_kernel.Std.Bin_prot.Size.sizer
val bin_write_t :
Core_unix.Inet_addr.t Core_kernel.Std.Bin_prot.Write.writer
val bin_writer_t :
Core_unix.Inet_addr.t Core_kernel.Std.Bin_prot.Type_class.writer
end
module Cidr :
sig
type t
val ( >= ) : t -> t -> bool
val ( <= ) : t -> t -> bool
val ( = ) : t -> t -> bool
val ( > ) : t -> t -> bool
val ( < ) : t -> t -> bool
val ( <> ) : t -> t -> bool
val equal : t -> t -> bool
val compare : t -> t -> int
val min : t -> t -> t
val max : t -> t -> t
val ascending : t -> t -> int
val descending : t -> t -> int
val between : t -> low:t -> high:t -> bool
module Replace_polymorphic_compare :
sig
val ( >= ) : t -> t -> bool
val ( <= ) : t -> t -> bool
val ( = ) : t -> t -> bool
val ( > ) : t -> t -> bool
val ( < ) : t -> t -> bool
val ( <> ) : t -> t -> bool
val equal : t -> t -> bool
val compare : t -> t -> int
val min : t -> t -> t
val max : t -> t -> t
val _squelch_unused_module_warning_ : unit
end
type comparator_witness
val validate_lbound :
min:t Core_kernel.Comparable_intf.bound ->
t Core_kernel.Validate.check
val validate_ubound :
max:t Core_kernel.Comparable_intf.bound ->
t Core_kernel.Validate.check
val validate_bound :
min:t Core_kernel.Comparable_intf.bound ->
max:t Core_kernel.Comparable_intf.bound ->
t Core_kernel.Validate.check
val comparator :
(t, comparator_witness) Core_kernel.Comparator.comparator
module Map :
sig
module Key :
sig
type t = t
type comparator_witness = comparator_witness
val comparator :
(t, comparator_witness) Core_kernel.Comparator.comparator
end
module Tree :
sig
type 'a t =
(Key.t, 'a, Key.comparator_witness)
Core_kernel.Core_map.Tree.t
val empty : 'a t
val singleton : Key.t -> 'a -> 'a t
val of_alist :
(Key.t * 'a) list ->
[ `Duplicate_key of Key.t | `Ok of 'a t ]
val of_alist_or_error :
(Key.t * 'a) list -> 'a t Core_kernel.Or_error.t
val of_alist_exn : (Key.t * 'a) list -> 'a t
val of_alist_multi : (Key.t * 'a) list -> 'a list t
val of_alist_fold :
(Key.t * 'a) list -> init:'b -> f:('b -> 'a -> 'b) -> 'b t
val of_alist_reduce :
(Key.t * 'a) list -> f:('a -> 'a -> 'a) -> 'a t
val of_sorted_array :
(Key.t * 'a) array -> 'a t Core_kernel.Or_error.t
val of_sorted_array_unchecked : (Key.t * 'a) array -> 'a t
val of_tree : 'a t -> 'a t
val invariants : 'a t -> bool
val is_empty : 'a t -> bool
val length : 'a t -> int
val add : 'a t -> key:Key.t -> data:'a -> 'a t
val add_multi : 'a list t -> key:Key.t -> data:'a -> 'a list t
val change : 'a t -> Key.t -> ('a option -> 'a option) -> 'a t
val find : 'a t -> Key.t -> 'a option
val find_exn : 'a t -> Key.t -> 'a
val remove : 'a t -> Key.t -> 'a t
val mem : 'a t -> Key.t -> bool
val iter : 'a t -> f:(key:Key.t -> data:'a -> unit) -> unit
val iter2 :
'a t ->
'b t ->
f:(key:Key.t ->
data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] ->
unit) ->
unit
val map : 'a t -> f:('a -> 'b) -> 'b t
val mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b) -> 'b t
val fold :
'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold_right :
'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val filter : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t
val filter_map : 'a t -> f:('a -> 'b option) -> 'b t
val filter_mapi :
'a t -> f:(key:Key.t -> data:'a -> 'b option) -> 'b t
val compare_direct : ('a -> 'a -> int) -> 'a t -> 'a t -> int
val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
val keys : 'a t -> Key.t list
val data : 'a t -> 'a list
val to_alist : 'a t -> (Key.t * 'a) list
val validate :
name:(Key.t -> string) ->
'a Core_kernel.Validate.check ->
'a t Core_kernel.Validate.check
val merge :
'a t ->
'b t ->
f:(key:Key.t ->
[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] ->
'c option) ->
'c t
val symmetric_diff :
'a t ->
'a t ->
data_equal:('a -> 'a -> bool) ->
(Key.t * [ `Left of 'a | `Right of 'a | `Unequal of 'a * 'a ])
Core_kernel.Sequence.t
val min_elt : 'a t -> (Key.t * 'a) option
val min_elt_exn : 'a t -> Key.t * 'a
val max_elt : 'a t -> (Key.t * 'a) option
val max_elt_exn : 'a t -> Key.t * 'a
val for_all : 'a t -> f:('a -> bool) -> bool
val exists : 'a t -> f:('a -> bool) -> bool
val split : 'a t -> Key.t -> 'a t * (Key.t * 'a) option * 'a t
val fold_range_inclusive :
'a t ->
min:Key.t ->
max:Key.t ->
init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val range_to_alist :
'a t -> min:Key.t -> max:Key.t -> (Key.t * 'a) list
val closest_key :
'a t ->
[ `Greater_or_equal_to
| `Greater_than
| `Less_or_equal_to
| `Less_than ] -> Key.t -> (Key.t * 'a) option
val nth : 'a t -> int -> (Key.t * 'a) option
val rank : 'a t -> Key.t -> int option
val to_tree : 'a t -> 'a t
val to_sequence :
?order:[ `Decreasing_key | `Increasing_key ] ->
?keys_greater_or_equal_to:Key.t ->
?keys_less_or_equal_to:Key.t ->
'a t -> (Key.t * 'a) Core_kernel.Sequence.t
val t_of_sexp :
(Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a t
val sexp_of_t :
('a -> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.t
end
type 'a t =
(Key.t, 'a, Key.comparator_witness) Core_kernel.Core_map.t
val empty : 'a t
val singleton : Key.t -> 'a -> 'a t
val of_alist :
(Key.t * 'a) list -> [ `Duplicate_key of Key.t | `Ok of 'a t ]
val of_alist_or_error :
(Key.t * 'a) list -> 'a t Core_kernel.Or_error.t
val of_alist_exn : (Key.t * 'a) list -> 'a t
val of_alist_multi : (Key.t * 'a) list -> 'a list t
val of_alist_fold :
(Key.t * 'a) list -> init:'b -> f:('b -> 'a -> 'b) -> 'b t
val of_alist_reduce :
(Key.t * 'a) list -> f:('a -> 'a -> 'a) -> 'a t
val of_sorted_array :
(Key.t * 'a) array -> 'a t Core_kernel.Or_error.t
val of_sorted_array_unchecked : (Key.t * 'a) array -> 'a t
val of_tree : 'a Tree.t -> 'a t
val invariants : 'a t -> bool
val is_empty : 'a t -> bool
val length : 'a t -> int
val add : 'a t -> key:Key.t -> data:'a -> 'a t
val add_multi : 'a list t -> key:Key.t -> data:'a -> 'a list t
val change : 'a t -> Key.t -> ('a option -> 'a option) -> 'a t
val find : 'a t -> Key.t -> 'a option
val find_exn : 'a t -> Key.t -> 'a
val remove : 'a t -> Key.t -> 'a t
val mem : 'a t -> Key.t -> bool
val iter : 'a t -> f:(key:Key.t -> data:'a -> unit) -> unit
val iter2 :
'a t ->
'b t ->
f:(key:Key.t ->
data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> unit) ->
unit
val map : 'a t -> f:('a -> 'b) -> 'b t
val mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b) -> 'b t
val fold :
'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold_right :
'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val filter : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t
val filter_map : 'a t -> f:('a -> 'b option) -> 'b t
val filter_mapi :
'a t -> f:(key:Key.t -> data:'a -> 'b option) -> 'b t
val compare_direct : ('a -> 'a -> int) -> 'a t -> 'a t -> int
val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
val keys : 'a t -> Key.t list
val data : 'a t -> 'a list
val to_alist : 'a t -> (Key.t * 'a) list
val validate :
name:(Key.t -> string) ->
'a Core_kernel.Validate.check -> 'a t Core_kernel.Validate.check
val merge :
'a t ->
'b t ->
f:(key:Key.t ->
[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> 'c option) ->
'c t
val symmetric_diff :
'a t ->
'a t ->
data_equal:('a -> 'a -> bool) ->
(Key.t * [ `Left of 'a | `Right of 'a | `Unequal of 'a * 'a ])
Core_kernel.Sequence.t
val min_elt : 'a t -> (Key.t * 'a) option
val min_elt_exn : 'a t -> Key.t * 'a
val max_elt : 'a t -> (Key.t * 'a) option
val max_elt_exn : 'a t -> Key.t * 'a
val for_all : 'a t -> f:('a -> bool) -> bool
val exists : 'a t -> f:('a -> bool) -> bool
val split : 'a t -> Key.t -> 'a t * (Key.t * 'a) option * 'a t
val fold_range_inclusive :
'a t ->
min:Key.t ->
max:Key.t ->
init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val range_to_alist :
'a t -> min:Key.t -> max:Key.t -> (Key.t * 'a) list
val closest_key :
'a t ->
[ `Greater_or_equal_to
| `Greater_than
| `Less_or_equal_to
| `Less_than ] -> Key.t -> (Key.t * 'a) option
val nth : 'a t -> int -> (Key.t * 'a) option
val rank : 'a t -> Key.t -> int option
val to_tree : 'a t -> 'a Tree.t
val to_sequence :
?order:[ `Decreasing_key | `Increasing_key ] ->
?keys_greater_or_equal_to:Key.t ->
?keys_less_or_equal_to:Key.t ->
'a t -> (Key.t * 'a) Core_kernel.Sequence.t
val t_of_sexp : (Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a t
val sexp_of_t : ('a -> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.t
val compare : ('a -> 'a -> int) -> 'a t -> 'a t -> int
val bin_size_t : ('a, 'a t) Bin_prot.Size.sizer1
val bin_write_t : ('a, 'a t) Bin_prot.Write.writer1
val bin_read_t : ('a, 'a t) Bin_prot.Read.reader1
val __bin_read_t__ : ('a, int -> 'a t) Bin_prot.Read.reader1
val bin_writer_t : ('a, 'a t) Bin_prot.Type_class.S1.writer
val bin_reader_t : ('a, 'a t) Bin_prot.Type_class.S1.reader
val bin_t : ('a, 'a t) Bin_prot.Type_class.S1.t
end
module Set :
sig
module Elt :
sig
type t = t
type comparator_witness = comparator_witness
val comparator :
(t, comparator_witness) Core_kernel.Comparator.comparator
val t_of_sexp : Sexplib.Sexp.t -> t
val sexp_of_t : t -> Sexplib.Sexp.t
end
module Tree :
sig
type t =
(Elt.t, Elt.comparator_witness) Core_kernel.Core_set.Tree.t
val length : t -> int
val is_empty : t -> bool
val iter : t -> f:(Elt.t -> unit) -> unit
val fold :
t -> init:'accum -> f:('accum -> Elt.t -> 'accum) -> 'accum
val exists : t -> f:(Elt.t -> bool) -> bool
val for_all : t -> f:(Elt.t -> bool) -> bool
val count : t -> f:(Elt.t -> bool) -> int
val sum :
(module Core_kernel.Commutative_group.S with type t = 'sum) ->
t -> f:(Elt.t -> 'sum) -> 'sum
val find : t -> f:(Elt.t -> bool) -> Elt.t option
val find_map : t -> f:(Elt.t -> 'a option) -> 'a option
val to_list : t -> Elt.t list
val to_array : t -> Elt.t array
val invariants : t -> bool
val mem : t -> Elt.t -> bool
val add : t -> Elt.t -> t
val remove : t -> Elt.t -> t
val union : t -> t -> t
val inter : t -> t -> t
val diff : t -> t -> t
val symmetric_diff :
t ->
t ->
(Elt.t, Elt.t) Core_kernel.Either.t Core_kernel.Sequence.t
val compare_direct : t -> t -> int
val equal : t -> t -> bool
val subset : t -> t -> bool
val fold_until :
t ->
init:'b ->
f:('b -> Elt.t -> [ `Continue of 'b | `Stop of 'b ]) -> 'b
val fold_right : t -> init:'b -> f:(Elt.t -> 'b -> 'b) -> 'b
val iter2 :
t ->
t ->
f:([ `Both of Elt.t * Elt.t
| `Left of Elt.t
| `Right of Elt.t ] -> unit) ->
unit
val filter : t -> f:(Elt.t -> bool) -> t
val partition_tf : t -> f:(Elt.t -> bool) -> t * t
val elements : t -> Elt.t list
val min_elt : t -> Elt.t option
val min_elt_exn : t -> Elt.t
val max_elt : t -> Elt.t option
val max_elt_exn : t -> Elt.t
val choose : t -> Elt.t option
val choose_exn : t -> Elt.t
val split : t -> Elt.t -> t * Elt.t option * t
val group_by : t -> equiv:(Elt.t -> Elt.t -> bool) -> t list
val find_exn : t -> f:(Elt.t -> bool) -> Elt.t
val find_index : t -> int -> Elt.t option
val remove_index : t -> int -> t
val to_tree : t -> t
val to_sequence :
?order:[ `Decreasing | `Increasing ] ->
?greater_or_equal_to:Elt.t ->
?less_or_equal_to:Elt.t -> t -> Elt.t Core_kernel.Sequence.t
val to_map :
t ->
f:(Elt.t -> 'data) ->
(Elt.t, 'data, Elt.comparator_witness)
Core_kernel.Core_set_intf.Map.t
val empty : t
val singleton : Elt.t -> t
val union_list : t list -> t
val of_list : Elt.t list -> t
val of_array : Elt.t array -> t
val of_sorted_array : Elt.t array -> t Core_kernel.Or_error.t
val of_sorted_array_unchecked : Elt.t array -> t
val stable_dedup_list : Elt.t list -> Elt.t list
val map :
('a, 'b) Core_kernel.Core_set.Tree.t -> f:('a -> Elt.t) -> t
val filter_map :
('a, 'b) Core_kernel.Core_set.Tree.t ->
f:('a -> Elt.t option) -> t
val of_tree : t -> t
val of_map_keys :
(Elt.t, 'a, Elt.comparator_witness)
Core_kernel.Core_set_intf.Map.t -> t
val t_of_sexp : Sexplib.Sexp.t -> t
val sexp_of_t : t -> Sexplib.Sexp.t
val compare : t -> t -> int
end
type t = (Elt.t, Elt.comparator_witness) Core_kernel.Core_set.t
val length : t -> int
val is_empty : t -> bool
val iter : t -> f:(Elt.t -> unit) -> unit
val fold :
t -> init:'accum -> f:('accum -> Elt.t -> 'accum) -> 'accum
val exists : t -> f:(Elt.t -> bool) -> bool
val for_all : t -> f:(Elt.t -> bool) -> bool
val count : t -> f:(Elt.t -> bool) -> int
val sum :
(module Core_kernel.Commutative_group.S with type t = 'sum) ->
t -> f:(Elt.t -> 'sum) -> 'sum
val find : t -> f:(Elt.t -> bool) -> Elt.t option
val find_map : t -> f:(Elt.t -> 'a option) -> 'a option
val to_list : t -> Elt.t list
val to_array : t -> Elt.t array
val invariants : t -> bool
val mem : t -> Elt.t -> bool
val add : t -> Elt.t -> t
val remove : t -> Elt.t -> t
val union : t -> t -> t
val inter : t -> t -> t
val diff : t -> t -> t
val symmetric_diff :
t ->
t -> (Elt.t, Elt.t) Core_kernel.Either.t Core_kernel.Sequence.t
val compare_direct : t -> t -> int
val equal : t -> t -> bool
val subset : t -> t -> bool
val fold_until :
t ->
init:'b ->
f:('b -> Elt.t -> [ `Continue of 'b | `Stop of 'b ]) -> 'b
val fold_right : t -> init:'b -> f:(Elt.t -> 'b -> 'b) -> 'b
val iter2 :
t ->
t ->
f:([ `Both of Elt.t * Elt.t | `Left of Elt.t | `Right of Elt.t ] ->
unit) ->
unit
val filter : t -> f:(Elt.t -> bool) -> t
val partition_tf : t -> f:(Elt.t -> bool) -> t * t
val elements : t -> Elt.t list
val min_elt : t -> Elt.t option
val min_elt_exn : t -> Elt.t
val max_elt : t -> Elt.t option
val max_elt_exn : t -> Elt.t
val choose : t -> Elt.t option
val choose_exn : t -> Elt.t
val split : t -> Elt.t -> t * Elt.t option * t
val group_by : t -> equiv:(Elt.t -> Elt.t -> bool) -> t list
val find_exn : t -> f:(Elt.t -> bool) -> Elt.t
val find_index : t -> int -> Elt.t option
val remove_index : t -> int -> t
val to_tree : t -> Tree.t
val to_sequence :
?order:[ `Decreasing | `Increasing ] ->
?greater_or_equal_to:Elt.t ->
?less_or_equal_to:Elt.t -> t -> Elt.t Core_kernel.Sequence.t
val to_map :
t ->
f:(Elt.t -> 'data) ->
(Elt.t, 'data, Elt.comparator_witness)
Core_kernel.Core_set_intf.Map.t
val empty : t
val singleton : Elt.t -> t
val union_list : t list -> t
val of_list : Elt.t list -> t
val of_array : Elt.t array -> t
val of_sorted_array : Elt.t array -> t Core_kernel.Or_error.t
val of_sorted_array_unchecked : Elt.t array -> t
val stable_dedup_list : Elt.t list -> Elt.t list
val map : ('a, 'b) Core_kernel.Core_set.t -> f:('a -> Elt.t) -> t
val filter_map :
('a, 'b) Core_kernel.Core_set.t -> f:('a -> Elt.t option) -> t
val of_tree : Tree.t -> t
val of_map_keys :
(Elt.t, 'a, Elt.comparator_witness)
Core_kernel.Core_set_intf.Map.t -> t
val t_of_sexp : Sexplib.Sexp.t -> t
val sexp_of_t : t -> Sexplib.Sexp.t
val compare : t -> t -> int
val bin_size_t : t Bin_prot.Size.sizer
val bin_write_t : t Bin_prot.Write.writer
val bin_read_t : t Bin_prot.Read.reader
val __bin_read_t__ : (int -> t) Bin_prot.Read.reader
val bin_writer_t : t Bin_prot.Type_class.writer
val bin_reader_t : t Bin_prot.Type_class.reader
val bin_t : t Bin_prot.Type_class.t
end
val of_string : string -> t
val to_string : t -> string
val create :
base_address:Core_unix.Inet_addr.t -> bits:int -> Core_unix.Cidr.t
val base_address : Core_unix.Cidr.t -> Core_unix.Inet_addr.t
val bits : Core_unix.Cidr.t -> int
val all_matching_addresses :
Core_unix.Cidr.t -> Core_unix.Inet_addr.t Core_kernel.Std.Sequence.t
val multicast : Core_unix.Cidr.t
val does_match : Core_unix.Cidr.t -> Core_unix.Inet_addr.t -> bool
val netmask_of_bits : Core_unix.Cidr.t -> Core_unix.Inet_addr.t
val bin_t : Core_unix.Cidr.t Core_kernel.Std.Bin_prot.Type_class.t
val bin_read_t : Core_unix.Cidr.t Core_kernel.Std.Bin_prot.Read.reader
val __bin_read_t__ :
(int -> Core_unix.Cidr.t) Core_kernel.Std.Bin_prot.Read.reader
val bin_reader_t :
Core_unix.Cidr.t Core_kernel.Std.Bin_prot.Type_class.reader
val bin_size_t : Core_unix.Cidr.t Core_kernel.Std.Bin_prot.Size.sizer
val bin_write_t :
Core_unix.Cidr.t Core_kernel.Std.Bin_prot.Write.writer
val bin_writer_t :
Core_unix.Cidr.t Core_kernel.Std.Bin_prot.Type_class.writer
val t_of_sexp : Sexplib.Sexp.t -> Core_unix.Cidr.t
val sexp_of_t : Core_unix.Cidr.t -> Sexplib.Sexp.t
end
type socket_domain = Unix.socket_domain = PF_UNIX | PF_INET | PF_INET6
type socket_type =
Unix.socket_type =
SOCK_STREAM
| SOCK_DGRAM
| SOCK_RAW
| SOCK_SEQPACKET
type sockaddr =
Unix.sockaddr =
ADDR_UNIX of string
| ADDR_INET of Core_unix.Inet_addr.t * int
val domain_of_sockaddr : Core_unix.sockaddr -> Core_unix.socket_domain
val socket :
domain:Core_unix.socket_domain ->
kind:Core_unix.socket_type -> protocol:int -> Core_unix.File_descr.t
val socketpair :
domain:Core_unix.socket_domain ->
kind:Core_unix.socket_type ->
protocol:int -> Core_unix.File_descr.t * Core_unix.File_descr.t
val accept :
Core_unix.File_descr.t -> Core_unix.File_descr.t * Core_unix.sockaddr
val bind : Core_unix.File_descr.t -> addr:Core_unix.sockaddr -> unit
val connect : Core_unix.File_descr.t -> addr:Core_unix.sockaddr -> unit
val listen : Core_unix.File_descr.t -> max:int -> unit
type shutdown_command =
Unix.shutdown_command =
SHUTDOWN_RECEIVE
| SHUTDOWN_SEND
| SHUTDOWN_ALL
val shutdown :
Core_unix.File_descr.t -> mode:Core_unix.shutdown_command -> unit
val getsockname : Core_unix.File_descr.t -> Core_unix.sockaddr
val getpeername : Core_unix.File_descr.t -> Core_unix.sockaddr
type msg_flag = Unix.msg_flag = MSG_OOB | MSG_DONTROUTE | MSG_PEEK
val recv :
Core_unix.File_descr.t ->
buf:string -> pos:int -> len:int -> mode:Core_unix.msg_flag list -> int
val recvfrom :
Core_unix.File_descr.t ->
buf:string ->
pos:int ->
len:int -> mode:Core_unix.msg_flag list -> int * Core_unix.sockaddr
val send :
Core_unix.File_descr.t ->
buf:string -> pos:int -> len:int -> mode:Core_unix.msg_flag list -> int
val sendto :
Core_unix.File_descr.t ->
buf:string ->
pos:int ->
len:int -> mode:Core_unix.msg_flag list -> addr:Core_unix.sockaddr -> int
type socket_bool_option =
SO_DEBUG
| SO_BROADCAST
| SO_REUSEADDR
| SO_KEEPALIVE
| SO_DONTROUTE
| SO_OOBINLINE
| SO_ACCEPTCONN
| TCP_NODELAY
| IPV6_ONLY
type socket_int_option =
SO_SNDBUF
| SO_RCVBUF
| SO_ERROR
| SO_TYPE
| SO_RCVLOWAT
| SO_SNDLOWAT
type socket_optint_option = SO_LINGER
type socket_float_option = SO_RCVTIMEO | SO_SNDTIMEO
val getsockopt :
Core_unix.File_descr.t -> Core_unix.socket_bool_option -> bool
val setsockopt :
Core_unix.File_descr.t -> Core_unix.socket_bool_option -> bool -> unit
val getsockopt_int :
Core_unix.File_descr.t -> Core_unix.socket_int_option -> int
val setsockopt_int :
Core_unix.File_descr.t -> Core_unix.socket_int_option -> int -> unit
val getsockopt_optint :
Core_unix.File_descr.t -> Core_unix.socket_optint_option -> int option
val setsockopt_optint :
Core_unix.File_descr.t ->
Core_unix.socket_optint_option -> int option -> unit
val getsockopt_float :
Core_unix.File_descr.t -> Core_unix.socket_float_option -> float
val setsockopt_float :
Core_unix.File_descr.t -> Core_unix.socket_float_option -> float -> unit
val open_connection :
Core_unix.sockaddr -> Pervasives.in_channel * Pervasives.out_channel
val shutdown_connection : Pervasives.in_channel -> unit
val establish_server :
(Pervasives.in_channel -> Pervasives.out_channel -> unit) ->
addr:Core_unix.sockaddr -> unit
val gethostname : unit -> string
module Host :
sig
type t = {
name : string;
aliases : string array;
family : Core_unix.Protocol_family.t;
addresses : Core_unix.Inet_addr.t array;
}
val getbyname : string -> Core_unix.Host.t option
val getbyname_exn : string -> Core_unix.Host.t
val getbyaddr : Core_unix.Inet_addr.t -> Core_unix.Host.t option
val getbyaddr_exn : Core_unix.Inet_addr.t -> Core_unix.Host.t
val have_address_in_common :
Core_unix.Host.t -> Core_unix.Host.t -> bool
val sexp_of_t : Core_unix.Host.t -> Sexplib.Sexp.t
end
module Protocol :
sig
type t = { name : string; aliases : string array; proto : int; }
val getbyname : string -> Core_unix.Protocol.t option
val getbyname_exn : string -> Core_unix.Protocol.t
val getbynumber : int -> Core_unix.Protocol.t option
val getbynumber_exn : int -> Core_unix.Protocol.t
val t_of_sexp : Sexplib.Sexp.t -> Core_unix.Protocol.t
val sexp_of_t : Core_unix.Protocol.t -> Sexplib.Sexp.t
end
module Service :
sig
type t = {
name : string;
aliases : string array;
port : int;
proto : string;
}
val getbyname : string -> protocol:string -> Core_unix.Service.t option
val getbyname_exn : string -> protocol:string -> Core_unix.Service.t
val getbyport : int -> protocol:string -> Core_unix.Service.t option
val getbyport_exn : int -> protocol:string -> Core_unix.Service.t
val t_of_sexp : Sexplib.Sexp.t -> Core_unix.Service.t
val sexp_of_t : Core_unix.Service.t -> Sexplib.Sexp.t
end
type addr_info = {
ai_family : Core_unix.socket_domain;
ai_socktype : Core_unix.socket_type;
ai_protocol : int;
ai_addr : Core_unix.sockaddr;
ai_canonname : string;
}
type getaddrinfo_option =
AI_FAMILY of Core_unix.socket_domain
| AI_SOCKTYPE of Core_unix.socket_type
| AI_PROTOCOL of int
| AI_NUMERICHOST
| AI_CANONNAME
| AI_PASSIVE
val getaddrinfo :
string ->
string -> Core_unix.getaddrinfo_option list -> Core_unix.addr_info list
type name_info = { ni_hostname : string; ni_service : string; }
type getnameinfo_option =
NI_NOFQDN
| NI_NUMERICHOST
| NI_NAMEREQD
| NI_NUMERICSERV
| NI_DGRAM
val getnameinfo :
Core_unix.sockaddr ->
Core_unix.getnameinfo_option list -> Core_unix.name_info
module Terminal_io :
sig
type t =
Unix.terminal_io = {
mutable c_ignbrk : bool;
mutable c_brkint : bool;
mutable c_ignpar : bool;
mutable c_parmrk : bool;
mutable c_inpck : bool;
mutable c_istrip : bool;
mutable c_inlcr : bool;
mutable c_igncr : bool;
mutable c_icrnl : bool;
mutable c_ixon : bool;
mutable c_ixoff : bool;
mutable c_opost : bool;
mutable c_obaud : int;
mutable c_ibaud : int;
mutable c_csize : int;
mutable c_cstopb : int;
mutable c_cread : bool;
mutable c_parenb : bool;
mutable c_parodd : bool;
mutable c_hupcl : bool;
mutable c_clocal : bool;
mutable c_isig : bool;
mutable c_icanon : bool;
mutable c_noflsh : bool;
mutable c_echo : bool;
mutable c_echoe : bool;
mutable c_echok : bool;
mutable c_echonl : bool;
mutable c_vintr : char;
mutable c_vquit : char;
mutable c_verase : char;
mutable c_vkill : char;
mutable c_veof : char;
mutable c_veol : char;
mutable c_vmin : int;
mutable c_vtime : int;
mutable c_vstart : char;
mutable c_vstop : char;
}
type setattr_when = Unix.setattr_when = TCSANOW | TCSADRAIN | TCSAFLUSH
val tcgetattr : Core_unix.File_descr.t -> Core_unix.Terminal_io.t
val tcsetattr :
Core_unix.Terminal_io.t ->
Core_unix.File_descr.t ->
mode:Core_unix.Terminal_io.setattr_when -> unit
val tcsendbreak : Core_unix.File_descr.t -> duration:int -> unit
val tcdrain : Core_unix.File_descr.t -> unit
type flush_queue = Unix.flush_queue = TCIFLUSH | TCOFLUSH | TCIOFLUSH
val tcflush :
Core_unix.File_descr.t ->
mode:Core_unix.Terminal_io.flush_queue -> unit
type flow_action = Unix.flow_action = TCOOFF | TCOON | TCIOFF | TCION
val tcflow :
Core_unix.File_descr.t ->
mode:Core_unix.Terminal_io.flow_action -> unit
val setsid : unit -> int
val sexp_of_t : Core_unix.Terminal_io.t -> Sexplib.Sexp.t
val sexp_of_setattr_when :
Core_unix.Terminal_io.setattr_when -> Sexplib.Sexp.t
val flush_queue_of_sexp :
Sexplib.Sexp.t -> Core_unix.Terminal_io.flush_queue
val sexp_of_flush_queue :
Core_unix.Terminal_io.flush_queue -> Sexplib.Sexp.t
val flow_action_of_sexp :
Sexplib.Sexp.t -> Core_unix.Terminal_io.flow_action
val sexp_of_flow_action :
Core_unix.Terminal_io.flow_action -> Sexplib.Sexp.t
end
val get_sockaddr : string -> int -> Core_unix.sockaddr
val set_in_channel_timeout : Pervasives.in_channel -> float -> unit
val set_out_channel_timeout : Pervasives.out_channel -> float -> unit
val exit_immediately : int -> 'a
val mknod :
?file_kind:Core_unix.file_kind ->
?perm:int -> ?major:int -> ?minor:int -> string -> unit
module IOVec :
sig
type 'buf t = private { buf : 'buf; pos : int; len : int; }
type 'buf kind
type bigstring =
(char, Bigarray.int8_unsigned_elt, Bigarray.c_layout)
Bigarray.Array1.t
val string_kind : string Core_unix.IOVec.kind
val bigstring_kind : Core_unix.IOVec.bigstring Core_unix.IOVec.kind
val empty : 'buf Core_unix.IOVec.kind -> 'buf Core_unix.IOVec.t
val of_string :
?pos:int -> ?len:int -> string -> string Core_unix.IOVec.t
val of_bigstring :
?pos:int ->
?len:int ->
Core_unix.IOVec.bigstring ->
Core_unix.IOVec.bigstring Core_unix.IOVec.t
val drop : 'buf Core_unix.IOVec.t -> int -> 'buf Core_unix.IOVec.t
val max_iovecs : int
val t_of_sexp :
(Sexplib.Sexp.t -> 'buf) -> Sexplib.Sexp.t -> 'buf Core_unix.IOVec.t
val sexp_of_t :
('buf -> Sexplib.Sexp.t) -> 'buf Core_unix.IOVec.t -> Sexplib.Sexp.t
end
external dirfd : Core_unix.dir_handle -> Core_unix.File_descr.t
= "unix_dirfd"
external sync : unit -> unit = "unix_sync"
external fsync : Core_unix.File_descr.t -> unit = "unix_fsync"
external fdatasync : Core_unix.File_descr.t -> unit = "unix_fdatasync"
external readdir_ino : Core_unix.dir_handle -> string * nativeint
= "unix_readdir_ino_stub"
val read_assume_fd_is_nonblocking :
Core_unix.File_descr.t -> ?pos:int -> ?len:int -> string -> int
val write_assume_fd_is_nonblocking :
Core_unix.File_descr.t -> ?pos:int -> ?len:int -> string -> int
val writev_assume_fd_is_nonblocking :
Core_unix.File_descr.t ->
?count:int -> string Core_unix.IOVec.t array -> int
val writev :
Core_unix.File_descr.t ->
?count:int -> string Core_unix.IOVec.t array -> int
external pselect :
Core_unix.File_descr.t list ->
Core_unix.File_descr.t list ->
Core_unix.File_descr.t list ->
float ->
int list ->
Core_unix.File_descr.t list * Core_unix.File_descr.t list *
Core_unix.File_descr.t list = "unix_pselect_stub"
module RLimit :
sig
type limit = Limit of int64 | Infinity
type t = {
cur : Core_unix.RLimit.limit;
max : Core_unix.RLimit.limit;
}
type resource
val core_file_size : Core_unix.RLimit.resource
val cpu_seconds : Core_unix.RLimit.resource
val data_segment : Core_unix.RLimit.resource
val file_size : Core_unix.RLimit.resource
val num_file_descriptors : Core_unix.RLimit.resource
val stack : Core_unix.RLimit.resource
val virtual_memory :
Core_unix.RLimit.resource Core_kernel.Std.Or_error.t
val nice : Core_unix.RLimit.resource Core_kernel.Std.Or_error.t
val get : Core_unix.RLimit.resource -> Core_unix.RLimit.t
val set : Core_unix.RLimit.resource -> Core_unix.RLimit.t -> unit
val limit_of_sexp : Sexplib.Sexp.t -> Core_unix.RLimit.limit
val sexp_of_limit : Core_unix.RLimit.limit -> Sexplib.Sexp.t
val t_of_sexp : Sexplib.Sexp.t -> Core_unix.RLimit.t
val sexp_of_t : Core_unix.RLimit.t -> Sexplib.Sexp.t
val resource_of_sexp : Sexplib.Sexp.t -> Core_unix.RLimit.resource
val sexp_of_resource : Core_unix.RLimit.resource -> Sexplib.Sexp.t
end
module Resource_usage :
sig
type t = {
utime : float;
stime : float;
maxrss : int64;
ixrss : int64;
idrss : int64;
isrss : int64;
minflt : int64;
majflt : int64;
nswap : int64;
inblock : int64;
oublock : int64;
msgsnd : int64;
msgrcv : int64;
nsignals : int64;
nvcsw : int64;
nivcsw : int64;
}
val nivcsw : Core_unix.Resource_usage.t -> int64
val nvcsw : Core_unix.Resource_usage.t -> int64
val nsignals : Core_unix.Resource_usage.t -> int64
val msgrcv : Core_unix.Resource_usage.t -> int64
val msgsnd : Core_unix.Resource_usage.t -> int64
val oublock : Core_unix.Resource_usage.t -> int64
val inblock : Core_unix.Resource_usage.t -> int64
val nswap : Core_unix.Resource_usage.t -> int64
val majflt : Core_unix.Resource_usage.t -> int64
val minflt : Core_unix.Resource_usage.t -> int64
val isrss : Core_unix.Resource_usage.t -> int64
val idrss : Core_unix.Resource_usage.t -> int64
val ixrss : Core_unix.Resource_usage.t -> int64
val maxrss : Core_unix.Resource_usage.t -> int64
val stime : Core_unix.Resource_usage.t -> float
val utime : Core_unix.Resource_usage.t -> float
module Fields :
sig
val names : string list
val nivcsw : (Core_unix.Resource_usage.t, int64) Fieldslib.Field.t
val nvcsw : (Core_unix.Resource_usage.t, int64) Fieldslib.Field.t
val nsignals :
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t
val msgrcv : (Core_unix.Resource_usage.t, int64) Fieldslib.Field.t
val msgsnd : (Core_unix.Resource_usage.t, int64) Fieldslib.Field.t
val oublock : (Core_unix.Resource_usage.t, int64) Fieldslib.Field.t
val inblock : (Core_unix.Resource_usage.t, int64) Fieldslib.Field.t
val nswap : (Core_unix.Resource_usage.t, int64) Fieldslib.Field.t
val majflt : (Core_unix.Resource_usage.t, int64) Fieldslib.Field.t
val minflt : (Core_unix.Resource_usage.t, int64) Fieldslib.Field.t
val isrss : (Core_unix.Resource_usage.t, int64) Fieldslib.Field.t
val idrss : (Core_unix.Resource_usage.t, int64) Fieldslib.Field.t
val ixrss : (Core_unix.Resource_usage.t, int64) Fieldslib.Field.t
val maxrss : (Core_unix.Resource_usage.t, int64) Fieldslib.Field.t
val stime : (Core_unix.Resource_usage.t, float) Fieldslib.Field.t
val utime : (Core_unix.Resource_usage.t, float) Fieldslib.Field.t
val fold :
init:'acc__ ->
utime:('acc__ ->
(Core_unix.Resource_usage.t, float) Fieldslib.Field.t ->
'acc__) ->
stime:('acc__ ->
(Core_unix.Resource_usage.t, float) Fieldslib.Field.t ->
'acc__) ->
maxrss:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'acc__) ->
ixrss:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'acc__) ->
idrss:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'acc__) ->
isrss:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'acc__) ->
minflt:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'acc__) ->
majflt:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'acc__) ->
nswap:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'acc__) ->
inblock:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'acc__) ->
oublock:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'acc__) ->
msgsnd:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'acc__) ->
msgrcv:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'acc__) ->
nsignals:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'acc__) ->
nvcsw:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'acc__) ->
nivcsw:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'acc__) ->
'acc__
val make_creator :
utime:((Core_unix.Resource_usage.t, float) Fieldslib.Field.t ->
'compile_acc__ -> ('input__ -> float) * 'compile_acc__) ->
stime:((Core_unix.Resource_usage.t, float) Fieldslib.Field.t ->
'compile_acc__ -> ('input__ -> float) * 'compile_acc__) ->
maxrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'compile_acc__ -> ('input__ -> int64) * 'compile_acc__) ->
ixrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'compile_acc__ -> ('input__ -> int64) * 'compile_acc__) ->
idrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'compile_acc__ -> ('input__ -> int64) * 'compile_acc__) ->
isrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'compile_acc__ -> ('input__ -> int64) * 'compile_acc__) ->
minflt:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'compile_acc__ -> ('input__ -> int64) * 'compile_acc__) ->
majflt:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'compile_acc__ -> ('input__ -> int64) * 'compile_acc__) ->
nswap:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'compile_acc__ -> ('input__ -> int64) * 'compile_acc__) ->
inblock:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'compile_acc__ -> ('input__ -> int64) * 'compile_acc__) ->
oublock:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'compile_acc__ -> ('input__ -> int64) * 'compile_acc__) ->
msgsnd:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'compile_acc__ -> ('input__ -> int64) * 'compile_acc__) ->
msgrcv:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'compile_acc__ -> ('input__ -> int64) * 'compile_acc__) ->
nsignals:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'compile_acc__ -> ('input__ -> int64) * 'compile_acc__) ->
nvcsw:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'compile_acc__ -> ('input__ -> int64) * 'compile_acc__) ->
nivcsw:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'compile_acc__ -> ('input__ -> int64) * 'compile_acc__) ->
'compile_acc__ ->
('input__ -> Core_unix.Resource_usage.t) * 'compile_acc__
val create :
utime:float ->
stime:float ->
maxrss:int64 ->
ixrss:int64 ->
idrss:int64 ->
isrss:int64 ->
minflt:int64 ->
majflt:int64 ->
nswap:int64 ->
inblock:int64 ->
oublock:int64 ->
msgsnd:int64 ->
msgrcv:int64 ->
nsignals:int64 ->
nvcsw:int64 -> nivcsw:int64 -> Core_unix.Resource_usage.t
val map :
utime:((Core_unix.Resource_usage.t, float) Fieldslib.Field.t ->
float) ->
stime:((Core_unix.Resource_usage.t, float) Fieldslib.Field.t ->
float) ->
maxrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
int64) ->
ixrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
int64) ->
idrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
int64) ->
isrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
int64) ->
minflt:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
int64) ->
majflt:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
int64) ->
nswap:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
int64) ->
inblock:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
int64) ->
oublock:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
int64) ->
msgsnd:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
int64) ->
msgrcv:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
int64) ->
nsignals:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
int64) ->
nvcsw:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
int64) ->
nivcsw:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
int64) ->
Core_unix.Resource_usage.t
val iter :
utime:((Core_unix.Resource_usage.t, float) Fieldslib.Field.t ->
unit) ->
stime:((Core_unix.Resource_usage.t, float) Fieldslib.Field.t ->
unit) ->
maxrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
unit) ->
ixrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
unit) ->
idrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
unit) ->
isrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
unit) ->
minflt:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
unit) ->
majflt:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
unit) ->
nswap:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
unit) ->
inblock:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
unit) ->
oublock:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
unit) ->
msgsnd:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
unit) ->
msgrcv:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
unit) ->
nsignals:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
unit) ->
nvcsw:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
unit) ->
nivcsw:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
unit) ->
unit
val for_all :
utime:((Core_unix.Resource_usage.t, float) Fieldslib.Field.t ->
bool) ->
stime:((Core_unix.Resource_usage.t, float) Fieldslib.Field.t ->
bool) ->
maxrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
ixrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
idrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
isrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
minflt:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
majflt:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
nswap:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
inblock:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
oublock:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
msgsnd:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
msgrcv:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
nsignals:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
nvcsw:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
nivcsw:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
bool
val exists :
utime:((Core_unix.Resource_usage.t, float) Fieldslib.Field.t ->
bool) ->
stime:((Core_unix.Resource_usage.t, float) Fieldslib.Field.t ->
bool) ->
maxrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
ixrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
idrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
isrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
minflt:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
majflt:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
nswap:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
inblock:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
oublock:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
msgsnd:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
msgrcv:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
nsignals:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
nvcsw:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
nivcsw:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
bool) ->
bool
val to_list :
utime:((Core_unix.Resource_usage.t, float) Fieldslib.Field.t ->
'elem__) ->
stime:((Core_unix.Resource_usage.t, float) Fieldslib.Field.t ->
'elem__) ->
maxrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'elem__) ->
ixrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'elem__) ->
idrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'elem__) ->
isrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'elem__) ->
minflt:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'elem__) ->
majflt:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'elem__) ->
nswap:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'elem__) ->
inblock:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'elem__) ->
oublock:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'elem__) ->
msgsnd:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'elem__) ->
msgrcv:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'elem__) ->
nsignals:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'elem__) ->
nvcsw:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'elem__) ->
nivcsw:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
'elem__) ->
'elem__ list
val map_poly :
([< `Read | `Set_and_create ], Core_unix.Resource_usage.t, 'x0)
Fieldslib.Field.user -> 'x0 list
module Direct :
sig
val iter :
Core_unix.Resource_usage.t ->
utime:((Core_unix.Resource_usage.t, float) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> float -> unit) ->
stime:((Core_unix.Resource_usage.t, float) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> float -> unit) ->
maxrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> unit) ->
ixrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> unit) ->
idrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> unit) ->
isrss:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> unit) ->
minflt:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> unit) ->
majflt:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> unit) ->
nswap:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> unit) ->
inblock:((Core_unix.Resource_usage.t, int64)
Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> unit) ->
oublock:((Core_unix.Resource_usage.t, int64)
Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> unit) ->
msgsnd:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> unit) ->
msgrcv:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> unit) ->
nsignals:((Core_unix.Resource_usage.t, int64)
Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> unit) ->
nvcsw:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> unit) ->
nivcsw:((Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> unit) ->
unit
val fold :
Core_unix.Resource_usage.t ->
init:'acc__ ->
utime:('acc__ ->
(Core_unix.Resource_usage.t, float) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> float -> 'acc__) ->
stime:('acc__ ->
(Core_unix.Resource_usage.t, float) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> float -> 'acc__) ->
maxrss:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> 'acc__) ->
ixrss:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> 'acc__) ->
idrss:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> 'acc__) ->
isrss:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> 'acc__) ->
minflt:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> 'acc__) ->
majflt:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> 'acc__) ->
nswap:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> 'acc__) ->
inblock:('acc__ ->
(Core_unix.Resource_usage.t, int64)
Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> 'acc__) ->
oublock:('acc__ ->
(Core_unix.Resource_usage.t, int64)
Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> 'acc__) ->
msgsnd:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> 'acc__) ->
msgrcv:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> 'acc__) ->
nsignals:('acc__ ->
(Core_unix.Resource_usage.t, int64)
Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> 'acc__) ->
nvcsw:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> 'acc__) ->
nivcsw:('acc__ ->
(Core_unix.Resource_usage.t, int64) Fieldslib.Field.t ->
Core_unix.Resource_usage.t -> int64 -> 'acc__) ->
'acc__
val set_all_mutable_fields : Core_unix.Resource_usage.t -> unit
end
end
val get : [ `Children | `Self ] -> Core_unix.Resource_usage.t
val add :
Core_unix.Resource_usage.t ->
Core_unix.Resource_usage.t -> Core_unix.Resource_usage.t
val t_of_sexp : Sexplib.Sexp.t -> Core_unix.Resource_usage.t
val sexp_of_t : Core_unix.Resource_usage.t -> Sexplib.Sexp.t
end
type sysconf =
ARG_MAX
| CHILD_MAX
| HOST_NAME_MAX
| LOGIN_NAME_MAX
| OPEN_MAX
| PAGESIZE
| RE_DUP_MAX
| STREAM_MAX
| SYMLOOP_MAX
| TTY_NAME_MAX
| TZNAME_MAX
| POSIX_VERSION
| PHYS_PAGES
| AVPHYS_PAGES
| IOV_MAX
external sysconf : Core_unix.sysconf -> int64 = "unix_sysconf"
val mkstemp : string -> string * Core_unix.File_descr.t
val mkdtemp : string -> string
external abort : unit -> 'a = "unix_abort" "noalloc"
external initgroups : string -> int -> unit = "unix_initgroups"
val getgrouplist : string -> int -> int array
val getgroups : unit -> int array
val fnmatch :
?flags:[ `Casefold
| `File_name
| `Leading_dir
| `No_escape
| `Pathname
| `Period ] list ->
pat:string -> string -> bool
val wordexp :
(?flags:[ `No_cmd | `Show_err | `Undef ] list -> string -> string array)
Core_kernel.Std.Or_error.t
module Utsname :
sig
type t
val sysname : Core_unix.Utsname.t -> string
val nodename : Core_unix.Utsname.t -> string
val release : Core_unix.Utsname.t -> string
val version : Core_unix.Utsname.t -> string
val machine : Core_unix.Utsname.t -> string
val t_of_sexp : Sexplib.Sexp.t -> Core_unix.Utsname.t
val sexp_of_t : Core_unix.Utsname.t -> Sexplib.Sexp.t
end
val uname : unit -> Core_unix.Utsname.t
val if_indextoname : int -> string
val mcast_join :
?ifname:string ->
?source:Core_unix.Inet_addr.t ->
Core_unix.File_descr.t -> Core_unix.sockaddr -> unit
val mcast_leave :
?ifname:string -> Core_unix.File_descr.t -> Core_unix.sockaddr -> unit
val get_mcast_ttl : Core_unix.File_descr.t -> int
val set_mcast_ttl : Core_unix.File_descr.t -> int -> unit
val get_mcast_loop : Core_unix.File_descr.t -> bool
val set_mcast_loop : Core_unix.File_descr.t -> bool -> unit
val set_mcast_ifname : Core_unix.File_descr.t -> string -> unit
module Scheduler :
sig
module Policy :
sig
type t = [ `Fifo | `Other | `Round_robin ]
val t_of_sexp : Sexplib.Sexp.t -> Core_unix.Scheduler.Policy.t
val __t_of_sexp__ : Sexplib.Sexp.t -> Core_unix.Scheduler.Policy.t
val sexp_of_t : Core_unix.Scheduler.Policy.t -> Sexplib.Sexp.t
end
val set :
pid:Core_kernel.Std.Pid.t option ->
policy:Core_unix.Scheduler.Policy.t -> priority:int -> unit
end
module Priority : sig external nice : int -> int = "unix_nice" end
module Mman :
sig
module Mcl_flags :
sig
type t = Current | Future
val t_of_sexp : Sexplib.Sexp.t -> Core_unix.Mman.Mcl_flags.t
val sexp_of_t : Core_unix.Mman.Mcl_flags.t -> Sexplib.Sexp.t
end
val mlockall : Core_unix.Mman.Mcl_flags.t list -> unit
val munlockall : unit -> unit
end
module Syslog :
sig
module Open_option :
sig
type t = PID | CONS | ODELAY | NDELAY | NOWAIT | PERROR
val t_of_sexp : Sexplib.Sexp.t -> t
val sexp_of_t : t -> Sexplib.Sexp.t
end
module Facility :
sig
type t =
KERN
| USER
| MAIL
| DAEMON
| AUTH
| SYSLOG
| LPR
| NEWS
| UUCP
| CRON
| AUTHPRIV
| FTP
| LOCAL0
| LOCAL1
| LOCAL2
| LOCAL3
| LOCAL4
| LOCAL5
| LOCAL6
| LOCAL7
val t_of_sexp : Sexplib.Sexp.t -> t
val sexp_of_t : t -> Sexplib.Sexp.t
end
module Level :
sig
type t =
EMERG
| ALERT
| CRIT
| ERR
| WARNING
| NOTICE
| INFO
| DEBUG
val all : t list
val of_string : string -> t
val to_string : t -> string
val t_of_sexp : Sexplib.Sexp.t -> t
val sexp_of_t : t -> Sexplib.Sexp.t
val compare : t -> t -> int
end
val setlogmask :
?allowed_levels:Level.t list ->
?from_level:Level.t -> ?to_level:Level.t -> unit -> unit
val openlog :
?id:string ->
?options:Open_option.t list -> ?facility:Facility.t -> unit -> unit
val syslog : ?facility:Facility.t -> ?level:Level.t -> string -> unit
val syslogf :
?facility:Facility.t ->
?level:Level.t -> ('a, unit, string, unit) format4 -> 'a
val closelog : unit -> unit
end
val error_of_sexp : Sexplib.Sexp.t -> Core_unix.error
val sexp_of_error : Core_unix.error -> Sexplib.Sexp.t
val env_of_sexp : Sexplib.Sexp.t -> Core_unix.env
val __env_of_sexp__ : Sexplib.Sexp.t -> Core_unix.env
val sexp_of_env : Core_unix.env -> Sexplib.Sexp.t
val wait_on_of_sexp : Sexplib.Sexp.t -> Core_unix.wait_on
val __wait_on_of_sexp__ : Sexplib.Sexp.t -> Core_unix.wait_on
val sexp_of_wait_on : Core_unix.wait_on -> Sexplib.Sexp.t
val file_perm_of_sexp : Sexplib.Sexp.t -> Core_unix.file_perm
val sexp_of_file_perm : Core_unix.file_perm -> Sexplib.Sexp.t
val seek_command_of_sexp : Sexplib.Sexp.t -> Core_unix.seek_command
val sexp_of_seek_command : Core_unix.seek_command -> Sexplib.Sexp.t
val file_kind_of_sexp : Sexplib.Sexp.t -> Core_unix.file_kind
val sexp_of_file_kind : Core_unix.file_kind -> Sexplib.Sexp.t
val stats_of_sexp : Sexplib.Sexp.t -> Core_unix.stats
val sexp_of_stats : Core_unix.stats -> Sexplib.Sexp.t
val lock_command_of_sexp : Sexplib.Sexp.t -> Core_unix.lock_command
val sexp_of_lock_command : Core_unix.lock_command -> Sexplib.Sexp.t
val sexp_of_select_timeout : Core_unix.select_timeout -> Sexplib.Sexp.t
val process_times_of_sexp : Sexplib.Sexp.t -> Core_unix.process_times
val sexp_of_process_times : Core_unix.process_times -> Sexplib.Sexp.t
val tm_of_sexp : Sexplib.Sexp.t -> Core_unix.tm
val sexp_of_tm : Core_unix.tm -> Sexplib.Sexp.t
val interval_timer_of_sexp : Sexplib.Sexp.t -> Core_unix.interval_timer
val sexp_of_interval_timer : Core_unix.interval_timer -> Sexplib.Sexp.t
val interval_timer_status_of_sexp :
Sexplib.Sexp.t -> Core_unix.interval_timer_status
val sexp_of_interval_timer_status :
Core_unix.interval_timer_status -> Sexplib.Sexp.t
val bin_socket_domain :
Core_unix.socket_domain Core_kernel.Std.Bin_prot.Type_class.t
val bin_read_socket_domain :
Core_unix.socket_domain Core_kernel.Std.Bin_prot.Read.reader
val __bin_read_socket_domain__ :
(int -> Core_unix.socket_domain) Core_kernel.Std.Bin_prot.Read.reader
val bin_reader_socket_domain :
Core_unix.socket_domain Core_kernel.Std.Bin_prot.Type_class.reader
val bin_size_socket_domain :
Core_unix.socket_domain Core_kernel.Std.Bin_prot.Size.sizer
val bin_write_socket_domain :
Core_unix.socket_domain Core_kernel.Std.Bin_prot.Write.writer
val bin_writer_socket_domain :
Core_unix.socket_domain Core_kernel.Std.Bin_prot.Type_class.writer
val socket_domain_of_sexp : Sexplib.Sexp.t -> Core_unix.socket_domain
val sexp_of_socket_domain : Core_unix.socket_domain -> Sexplib.Sexp.t
val bin_socket_type :
Core_unix.socket_type Core_kernel.Std.Bin_prot.Type_class.t
val bin_read_socket_type :
Core_unix.socket_type Core_kernel.Std.Bin_prot.Read.reader
val __bin_read_socket_type__ :
(int -> Core_unix.socket_type) Core_kernel.Std.Bin_prot.Read.reader
val bin_reader_socket_type :
Core_unix.socket_type Core_kernel.Std.Bin_prot.Type_class.reader
val bin_size_socket_type :
Core_unix.socket_type Core_kernel.Std.Bin_prot.Size.sizer
val bin_write_socket_type :
Core_unix.socket_type Core_kernel.Std.Bin_prot.Write.writer
val bin_writer_socket_type :
Core_unix.socket_type Core_kernel.Std.Bin_prot.Type_class.writer
val socket_type_of_sexp : Sexplib.Sexp.t -> Core_unix.socket_type
val sexp_of_socket_type : Core_unix.socket_type -> Sexplib.Sexp.t
val bin_sockaddr : Core_unix.sockaddr Core_kernel.Std.Bin_prot.Type_class.t
val bin_read_sockaddr :
Core_unix.sockaddr Core_kernel.Std.Bin_prot.Read.reader
val __bin_read_sockaddr__ :
(int -> Core_unix.sockaddr) Core_kernel.Std.Bin_prot.Read.reader
val bin_reader_sockaddr :
Core_unix.sockaddr Core_kernel.Std.Bin_prot.Type_class.reader
val bin_size_sockaddr :
Core_unix.sockaddr Core_kernel.Std.Bin_prot.Size.sizer
val bin_write_sockaddr :
Core_unix.sockaddr Core_kernel.Std.Bin_prot.Write.writer
val bin_writer_sockaddr :
Core_unix.sockaddr Core_kernel.Std.Bin_prot.Type_class.writer
val sockaddr_of_sexp : Sexplib.Sexp.t -> Core_unix.sockaddr
val sexp_of_sockaddr : Core_unix.sockaddr -> Sexplib.Sexp.t
val shutdown_command_of_sexp : Sexplib.Sexp.t -> Core_unix.shutdown_command
val sexp_of_shutdown_command : Core_unix.shutdown_command -> Sexplib.Sexp.t
val msg_flag_of_sexp : Sexplib.Sexp.t -> Core_unix.msg_flag
val sexp_of_msg_flag : Core_unix.msg_flag -> Sexplib.Sexp.t
val socket_bool_option_of_sexp :
Sexplib.Sexp.t -> Core_unix.socket_bool_option
val sexp_of_socket_bool_option :
Core_unix.socket_bool_option -> Sexplib.Sexp.t
val socket_int_option_of_sexp :
Sexplib.Sexp.t -> Core_unix.socket_int_option
val sexp_of_socket_int_option :
Core_unix.socket_int_option -> Sexplib.Sexp.t
val socket_float_option_of_sexp :
Sexplib.Sexp.t -> Core_unix.socket_float_option
val sexp_of_socket_float_option :
Core_unix.socket_float_option -> Sexplib.Sexp.t
val addr_info_of_sexp : Sexplib.Sexp.t -> Core_unix.addr_info
val sexp_of_addr_info : Core_unix.addr_info -> Sexplib.Sexp.t
val getaddrinfo_option_of_sexp :
Sexplib.Sexp.t -> Core_unix.getaddrinfo_option
val sexp_of_getaddrinfo_option :
Core_unix.getaddrinfo_option -> Sexplib.Sexp.t
val name_info_of_sexp : Sexplib.Sexp.t -> Core_unix.name_info
val sexp_of_name_info : Core_unix.name_info -> Sexplib.Sexp.t
val getnameinfo_option_of_sexp :
Sexplib.Sexp.t -> Core_unix.getnameinfo_option
val sexp_of_getnameinfo_option :
Core_unix.getnameinfo_option -> Sexplib.Sexp.t
val sysconf_of_sexp : Sexplib.Sexp.t -> Core_unix.sysconf
val sexp_of_sysconf : Core_unix.sysconf -> Sexplib.Sexp.t
end`