From f49890e12d7eb6a766b966438cd475f7cbf5081b Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Thu, 8 Oct 2026 00:59:05 -0300 Subject: rework evaluators and add schema scope --- lib/kernel/Initialization.mli | 19 ++++++++----------- 1 file changed, 8 insertions(+), 11 deletions(-) (limited to 'lib/kernel/Initialization.mli') diff --git a/lib/kernel/Initialization.mli b/lib/kernel/Initialization.mli index 97a27f3..a6e6ae0 100644 --- a/lib/kernel/Initialization.mli +++ b/lib/kernel/Initialization.mli @@ -1,17 +1,14 @@ +(** a subsystem's root, \[name], holding \[name]\evaluator for the + evaluators it registers. Mounting it again gives the one there. *) +val mount : + Protocols.Handle.t -> string -> (Protocols.Handle.t, Concepts.Condition.condition) result + module Make (S : Abstract.Storage.STORAGE) : sig - (** the root of the object tree, holding only \system: its branches, - the [evaluators] by language, the sessions and the applications. *) + (** the root of the object tree, holding \system: its branches, of + which there is always a master, the system's [evaluators] by + language, the sessions and the applications. *) val initialize : ?evaluators:(string * Protocols.Handle.t) list -> S.connection -> (Protocols.Handle.t, Concepts.Condition.condition) result - - (** give a subsystem a root of its own, \[name], with branches of its - own whose heads are kept apart from every other root's. Its stored - programs run through \system\evaluator. *) - val mount : - S.connection -> - Protocols.Handle.t -> - string -> - (Protocols.Handle.t, Concepts.Condition.condition) result end -- cgit v1.2.3