Commit e6e55b40 authored by POTTIER Francois's avatar POTTIER Francois
Browse files

Rename [CompressedBitSet] to [SparseBitSet].

parent e17c5c7f
...@@ -11,10 +11,11 @@ ...@@ -11,10 +11,11 @@
(* *) (* *)
(******************************************************************************) (******************************************************************************)
(* A compressed (or should we say sparse?) bit set is a list of pairs (* This data structure implements sets of integers (of unbounded magnitude). *)
of integers. The first component of every pair is an index, while
the second component is a bit field. The list is sorted by order (* A sparse bit set is a list of pairs of integers. The first component of
of increasing indices. *) every pair is an index, while the second component is a bit field. The list
is sorted by order of increasing indices. *)
type t = type t =
| N | N
...@@ -235,4 +236,3 @@ let rec disjoint s1 s2 = ...@@ -235,4 +236,3 @@ let rec disjoint s1 s2 =
disjoint qs1 s2 disjoint qs1 s2
else else
disjoint s1 qs2 disjoint s1 qs2
...@@ -11,8 +11,8 @@ ...@@ -11,8 +11,8 @@
(* *) (* *)
(******************************************************************************) (******************************************************************************)
(* This is a stripped down version of [GSet] that describes both [Patricia] (* This signature describes several implementations of sets, including
and [CompressedBitSet]. The full version of [GSet] is in [AlphaLib]. *) [Patricia], [AtomicBitSet], and [SparseBitSet]. *)
module type S = sig module type S = sig
...@@ -112,4 +112,3 @@ module type S = sig ...@@ -112,4 +112,3 @@ module type S = sig
val subset: (t -> t -> bool) val subset: (t -> t -> bool)
end end
...@@ -403,7 +403,7 @@ end ...@@ -403,7 +403,7 @@ end
module TerminalSet = struct module TerminalSet = struct
include CompressedBitSet include SparseBitSet
let print toks = let print toks =
Misc.separated_iter_to_string Terminal.print " " (fun f -> iter f toks) Misc.separated_iter_to_string Terminal.print " " (fun f -> iter f toks)
......
...@@ -23,7 +23,7 @@ module InfiniteArray = ...@@ -23,7 +23,7 @@ module InfiniteArray =
terminal symbols and of a number of set variables. Set variables as terminal symbols and of a number of set variables. Set variables as
encoded as integers. *) encoded as integers. *)
module VarSet = CompressedBitSet module VarSet = SparseBitSet
module SymbolicLookahead = struct module SymbolicLookahead = struct
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment