simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

updated doc

Browse source
This commit is contained in:
Simon Cruanes 2014-12-16 23:58:31 +01:00
parent 61465fa19a
commit e7cd24b903
6 changed files with 17 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
_oasis
View file

@ -117,8 +117,8 @@ Library "containers_thread"
FindlibParent: containers FindlibParent: containers
Build$: flag(thread) Build$: flag(thread)
Install$: flag(thread) Install$: flag(thread)
BuildDepends: containers,threads BuildDepends: containers, threads
XMETARequires: containers,threads XMETARequires: containers, threads
Library "containers_lwt" Library "containers_lwt"
Path: src/lwt Path: src/lwt

2
_tags
View file

@ -160,5 +160,5 @@
<tests/*.ml{,i}>: thread <tests/*.ml{,i}>: thread
<src/threads/*.ml{,i}>: thread <src/threads/*.ml{,i}>: thread
<src/core/CCVector.cmx>: inline(25) <src/core/CCVector.cmx>: inline(25)
<src/{string,core}/**/*.ml>: warn_A, warn(-4), warn(-44) <src/**/*.ml> and not <src/misc/*.ml>: warn_A, warn(-4), warn(-44)
true: no_alias_deps true: no_alias_deps

8
doc/intro.txt
View file

@ -41,6 +41,10 @@ CCString
CCVector CCVector
} }
{4 Pervasives (aliases to Core Modules)}
{!modules: CCPervasives}
{4 Containers.data} {4 Containers.data}
{!modules: {!modules:
@ -48,6 +52,7 @@ CCBV
CCCache CCCache
CCFQueue CCFQueue
CCFlatHashtbl CCFlatHashtbl
CCMixtbl
CCMultiMap CCMultiMap
CCMultiSet CCMultiSet
CCPersistentHashtbl CCPersistentHashtbl
@ -94,7 +99,6 @@ Hashset
Heap Heap
Heap Heap
LazyGraph LazyGraph
Mixtbl
PHashtbl PHashtbl
PrintBox PrintBox
RAL RAL
@ -107,7 +111,7 @@ Univ
{4 Others} {4 Others}
{!modules: Future} {!modules: CCFuture}
{2 Index} {2 Index}

8
src/advanced/CCLinq.ml
View file

@ -38,7 +38,7 @@ let _id x = x
exception ExitWithError of string exception ExitWithError of string
let _exit_with_error s = raise (ExitWithError s) let _exit_with_error s = raise (ExitWithError s)
let _error_of_exn f = try `Ok (f ()) with ExitWithError s -> `Error let _error_of_exn f = try `Ok (f ()) with ExitWithError s -> `Error s
type 'a collection = type 'a collection =
| Seq : 'a sequence -> 'a collection | Seq : 'a sequence -> 'a collection
@ -519,9 +519,9 @@ and _optimize_unary : type a b. (a,b) unary -> a t -> b t
_optimize_unary _optimize_unary
(FilterMap (fun x -> if p x then Some (f x) else None)) (FilterMap (fun x -> if p x then Some (f x) else None))
cont cont
| PMap f, Binary (Append, q1, q2) -> | PMap _, Binary (Append, q1, q2) ->
_optimize_binary Append (Unary (u, q1)) (Unary (u, q2)) _optimize_binary Append (Unary (u, q1)) (Unary (u, q2))
| Filter p, Binary (Append, q1, q2) -> | Filter _, Binary (Append, q1, q2) ->
_optimize_binary Append (Unary (u, q1)) (Unary (u, q2)) _optimize_binary Append (Unary (u, q1)) (Unary (u, q2))
| Fold (f,acc), Unary (PMap f', cont) -> | Fold (f,acc), Unary (PMap f', cont) ->
_optimize_unary _optimize_unary
@ -739,7 +739,7 @@ let group_by ?cmp ?eq ?hash f q =
Unary (GroupBy (_make_build ?cmp ?eq ?hash (),f), q) Unary (GroupBy (_make_build ?cmp ?eq ?hash (),f), q)
let group_by' ?cmp ?eq ?hash f q = let group_by' ?cmp ?eq ?hash f q =
M.iter (group_by ?cmp f q) M.iter (group_by ?cmp ?eq ?hash f q)
let count ?cmp ?eq ?hash () q = let count ?cmp ?eq ?hash () q =
Unary (Count (_make_build ?cmp ?eq ?hash ()), q) Unary (Count (_make_build ?cmp ?eq ?hash ()), q)

6
src/sexp/CCSexp.ml
View file

@ -141,7 +141,7 @@ let to_chan oc t =
let to_file_seq filename seq = let to_file_seq filename seq =
_with_out filename _with_out filename
(fun oc -> (fun oc ->
seq (fun t -> to_chan oc t; output_char oc '\n') seq (fun t -> to_chan oc t; output_char oc '\n')
) )
@ -167,7 +167,7 @@ module Source = struct
mutable stop : bool; mutable stop : bool;
buf : Buffer.t; (* accessible chunk of input *) buf : Buffer.t; (* accessible chunk of input *)
} }
let make() = { let make() = {
i = 0; i = 0;
stop = false; stop = false;
@ -231,7 +231,7 @@ module Source = struct
then ( then (
match g() with match g() with
| None -> stop := true; NC_end | None -> stop := true; NC_end
| Some buf -> s := buf; i := 0; next () | Some buf -> s := buf; i := 0; next ()
) else ( ) else (
let c = String.get !s !i in let c = String.get !s !i in
incr i; incr i;

2
src/sexp/CCSexp.mli
View file

@ -283,7 +283,7 @@ module Traverse : sig
val to_list_with : (t -> 'a option) -> 'a list conv val to_list_with : (t -> 'a option) -> 'a list conv
(** Expect a list, applies [f] to all the elements of the list, and succeeds (** Expect a list, applies [f] to all the elements of the list, and succeeds
only if [f] succeeded on every element only if [f] succeeded on every element
@since 0.4.1 *) @since 0.4.1 *)
val to_pair : (t * t) conv val to_pair : (t * t) conv