sig
type ('a, 'b) t constraint 'b = [< `Read | `Write ]
external length :
('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t -> int
= "%array_length"
external get :
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
int -> 'a = "%array_safe_get"
external set :
('a, [< `Read | `Write > `Write ]) Extlib.ExtArray.Array.Cap.t ->
int -> 'a -> unit = "%array_safe_set"
external make :
int -> 'a -> ('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
= "caml_make_vect"
external create :
int -> 'a -> ('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
= "caml_make_vect"
external of_array :
'a array -> ('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
= "%identity"
external to_array :
('a, [ `Read | `Write ]) Extlib.ExtArray.Array.Cap.t -> 'a array
= "%identity"
external read_only :
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
('a, [ `Read ]) Extlib.ExtArray.Array.Cap.t = "%identity"
external write_only :
('a, [< `Read | `Write > `Write ]) Extlib.ExtArray.Array.Cap.t ->
('a, [ `Write ]) Extlib.ExtArray.Array.Cap.t = "%identity"
val init :
int ->
(int -> 'a) -> ('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val make_matrix :
int ->
int ->
'a ->
(('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t,
[< `Read | `Write ])
Extlib.ExtArray.Array.Cap.t
val create_matrix :
int ->
int ->
'a ->
(('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t,
[< `Read | `Write ])
Extlib.ExtArray.Array.Cap.t
val iter :
('a -> unit) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> unit
val map :
('a -> 'b) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
('b, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val iteri :
(int -> 'a -> unit) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> unit
val mapi :
(int -> 'a -> 'b) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
('b, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val fold_left :
('a -> 'b -> 'a) ->
'a -> ('b, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> 'a
val fold_right :
('a -> 'b -> 'b) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> 'b -> 'b
val iter2 :
('a -> 'b -> unit) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
('b, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> unit
val iter2i :
(int -> 'a -> 'b -> unit) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
('b, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> unit
val for_all :
('a -> bool) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> bool
val exists :
('a -> bool) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> bool
val find :
('a -> bool) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> 'a
val mem :
'a ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> bool
val memq :
'a ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> bool
val findi :
('a -> bool) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> int
val filter :
('a -> bool) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val filter_map :
('a -> 'b option) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
('b, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val find_all :
('a -> bool) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val partition :
('a -> bool) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t *
('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val rev :
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val rev_in_place :
('a, [ `Read | `Write ]) Extlib.ExtArray.Array.Cap.t -> unit
val append :
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val concat :
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t list ->
('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val sub :
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
int -> int -> ('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val copy :
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> 'a array
val fill :
('a, [< `Read | `Write > `Write ]) Extlib.ExtArray.Array.Cap.t ->
int -> int -> 'a -> unit
val blit :
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
int ->
('a, [< `Read | `Write > `Write ]) Extlib.ExtArray.Array.Cap.t ->
int -> int -> unit
val enum :
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
'a Extlib.Enum.t
val of_enum :
'a Extlib.Enum.t -> ('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val backwards :
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
'a Extlib.Enum.t
val of_backwards :
'a Extlib.Enum.t -> ('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val to_list :
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> 'a list
val of_list :
'a list -> ('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val make_compare :
('a -> 'a -> int) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> int
val sort :
('a -> 'a -> int) ->
('a, [ `Read | `Write ]) Extlib.ExtArray.Array.Cap.t -> unit
val stable_sort :
('a -> 'a -> int) ->
('a, [ `Read | `Write ]) Extlib.ExtArray.Array.Cap.t -> unit
val fast_sort :
('a -> 'a -> int) ->
('a, [ `Read | `Write ]) Extlib.ExtArray.Array.Cap.t -> unit
val t_of_sexp :
(Sexplib.Sexp.t -> 'a) ->
Sexplib.Sexp.t -> ('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val sexp_of_t :
('a -> Sexplib.Sexp.t) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
Sexplib.Sexp.t
val print :
?first:string ->
?last:string ->
?sep:string ->
('a Extlib.IO.output -> 'b -> unit) ->
'a Extlib.IO.output ->
('b, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> unit
val sprint :
?first:string ->
?last:string ->
?sep:string ->
('a Extlib.IO.output -> 'b -> unit) ->
('b, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> string
external unsafe_get :
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
int -> 'a = "%array_unsafe_get"
external unsafe_set :
('a, [< `Read | `Write > `Write ]) Extlib.ExtArray.Array.Cap.t ->
int -> 'a -> unit = "%array_unsafe_set"
module Exceptionless :
sig
val find :
('a -> bool) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
'a option
val findi :
('a -> bool) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
int option
end
module Labels :
sig
val init :
int ->
f:(int -> 'a) ->
('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val make :
int ->
init:'a -> ('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val create :
int ->
init:'a -> ('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val make_matrix :
dimx:int ->
dimy:int ->
'a ->
(('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t,
[< `Read | `Write ])
Extlib.ExtArray.Array.Cap.t
val create_matrix :
dimx:int ->
dimy:int ->
'a ->
(('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t,
[< `Read | `Write ])
Extlib.ExtArray.Array.Cap.t
val sub :
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
pos:int ->
len:int -> ('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val fill :
('a, [< `Read | `Write > `Write ]) Extlib.ExtArray.Array.Cap.t ->
pos:int -> len:int -> 'a -> unit
val blit :
src:('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
src_pos:int ->
dst:('a, [< `Read | `Write > `Write ]) Extlib.ExtArray.Array.Cap.t ->
dst_pos:int -> len:int -> unit
val iter :
f:('a -> unit) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> unit
val map :
f:('a -> 'b) ->
('a, [< `Read | `Write > `Read ]) t -> ('b, [< `Read | `Write ]) t
val iteri :
f:(int -> 'a -> unit) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> unit
val mapi :
f:(int -> 'a -> 'b) ->
('a, [< `Read | `Write > `Read ]) t -> ('b, [< `Read | `Write ]) t
val fold_left :
f:('a -> 'b -> 'a) ->
init:'a ->
('b, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> 'a
val fold_right :
f:('a -> 'b -> 'b) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
init:'b -> 'b
val sort :
cmp:('a -> 'a -> int) ->
('a, [ `Read | `Write ]) Extlib.ExtArray.Array.Cap.t -> unit
val stable_sort :
cmp:('a -> 'a -> int) ->
('a, [ `Read | `Write ]) Extlib.ExtArray.Array.Cap.t -> unit
val fast_sort :
cmp:('a -> 'a -> int) ->
('a, [ `Read | `Write ]) Extlib.ExtArray.Array.Cap.t -> unit
val iter2 :
f:('a -> 'b -> unit) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
('b, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> unit
val iter2i :
f:(int -> 'a -> 'b -> unit) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
('b, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> unit
val exists :
f:('a -> bool) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> bool
val for_all :
f:('a -> bool) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> bool
val find :
f:('a -> bool) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t -> 'a
val map :
f:('a -> 'b) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
('b, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val mapi :
f:(int -> 'a -> 'b) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
('b, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val filter :
f:('a -> bool) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
('a, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
val filter_map :
f:('a -> 'b option) ->
('a, [< `Read | `Write > `Read ]) Extlib.ExtArray.Array.Cap.t ->
('b, [< `Read | `Write ]) Extlib.ExtArray.Array.Cap.t
end
end