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

2
_tags
View file

@ -160,5 +160,5 @@
<tests/*.ml{,i}>: thread
<src/threads/*.ml{,i}>: thread
<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

8
doc/intro.txt
View file

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

8
src/advanced/CCLinq.ml
View file

@ -38,7 +38,7 @@ let _id x = x
exception ExitWithError of string
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 =
| Seq : 'a sequence -> 'a collection
@ -519,9 +519,9 @@ and _optimize_unary : type a b. (a,b) unary -> a t -> b t
_optimize_unary
(FilterMap (fun x -> if p x then Some (f x) else None))
cont
| PMap f, Binary (Append, q1, q2) ->
| PMap _, Binary (Append, q1, 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))
| Fold (f,acc), Unary (PMap f', cont) ->
_optimize_unary
@ -739,7 +739,7 @@ let group_by ?cmp ?eq ?hash f q =
Unary (GroupBy (_make_build ?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 =
Unary (Count (_make_build ?cmp ?eq ?hash ()), q)