diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-09-23 03:35:36 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-09-23 03:35:36 -0300 |
| commit | 28c55a730d9a0a19a62d85c166dc879aebd7b772 (patch) | |
| tree | 25ebdd2f526078047574f28b03b53828eaeb9b33 /lib/concepts/Mode.ml | |
| parent | 882511dc8c0abded18ba6abdca64938db2652771 (diff) | |
| download | RNT-28c55a730d9a0a19a62d85c166dc879aebd7b772.tar.gz RNT-28c55a730d9a0a19a62d85c166dc879aebd7b772.zip | |
remove dead API
Diffstat (limited to '')
| -rw-r--r-- | lib/concepts/Mode.ml | 7 | ||||
| -rw-r--r-- | lib/concepts/Mode.mli | 4 |
2 files changed, 0 insertions, 11 deletions
diff --git a/lib/concepts/Mode.ml b/lib/concepts/Mode.ml index fc3ef84..b7aa814 100644 --- a/lib/concepts/Mode.ml +++ b/lib/concepts/Mode.ml @@ -7,15 +7,8 @@ type t = mode list let attributes_of_list = BatSet.String.of_list let attributes_of_map map = BatMap.String.keys map |> BatSet.String.of_enum let decides_when bound = {bound= attributes_of_list bound; affords= Decides} - -let generates_when bound cardinality = - {bound= attributes_of_list bound; affords= Generates cardinality} - let enumerable cardinality = {bound= BatSet.String.empty; affords= Generates cardinality} -let empty = [] -let declare mode declaration = mode :: declaration let of_list modes = modes -let to_list declaration = declaration let generation declaration bound = List.fold_left diff --git a/lib/concepts/Mode.mli b/lib/concepts/Mode.mli index 018eeb2..6a906d1 100644 --- a/lib/concepts/Mode.mli +++ b/lib/concepts/Mode.mli @@ -13,12 +13,8 @@ type t val attributes_of_list : attribute list -> attributes val attributes_of_map : 'a BatMap.String.t -> attributes val decides_when : attribute list -> mode -val generates_when : attribute list -> Cardinality.t -> mode val enumerable : Cardinality.t -> mode -val empty : t -val declare : mode -> t -> t val of_list : mode list -> t -val to_list : t -> mode list (** the tightest class declared for generating under [bound]. A mode declared for fewer bound attributes applies to more, since the |