From 8ff6bd42c0708b35f3026633e99f109de1bec89e Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Fri, 25 Sep 2026 22:53:34 -0300 Subject: wip ephemeral relations as program consumers --- lib/protocols/Generative.mli | 35 ----------------------------------- 1 file changed, 35 deletions(-) delete mode 100644 lib/protocols/Generative.mli (limited to 'lib/protocols/Generative.mli') diff --git a/lib/protocols/Generative.mli b/lib/protocols/Generative.mli deleted file mode 100644 index 5ada329..0000000 --- a/lib/protocols/Generative.mli +++ /dev/null @@ -1,35 +0,0 @@ -type t - -(** values fixed for some of a relation's attributes, the attributes - absent from it being the ones left free. *) -type binding = Concepts.Value.value BatMap.String.t - -class type implementation = object - method modes : (Concepts.Mode.t, Concepts.Condition.condition) result - method generate : binding -> (Handle.t, Concepts.Condition.condition) result -end - -val make : #implementation -> Handle.protocol -val from : Handle.t -> t Handle.interface option -val require : Handle.t -> (t Handle.interface, Concepts.Condition.condition) result -val modes : t Handle.interface -> (Concepts.Mode.t, Concepts.Condition.condition) result - -(** a handle carrying a cursor over the members agreeing with the - binding and under the empty binding this is enumeration, so a - relation carrying enumerable answers the same members here. Refused - when no declared mode generates under the attributes bound. *) -val generate : t Handle.interface -> binding -> (Handle.t, Concepts.Condition.condition) result - -val nothing : binding -val bound : binding -> Concepts.Mode.attributes -val satisfies : binding -> Concepts.Tuple.t -> bool - -(** membership for a relation with no lookup of its own, asked of the - generator under the binding the tuple fixes. Only a tuple carrying - exactly the [heading] can be a member, and it must match one whole. *) -class virtual membership : object - val virtual heading : Concepts.Mode.attributes - method virtual modes : (Concepts.Mode.t, Concepts.Condition.condition) result - method virtual generate : binding -> (Handle.t, Concepts.Condition.condition) result - method contains : Concepts.Tuple.t -> (bool, Concepts.Condition.condition) result -end -- cgit v1.2.3