Privilege setting code

[hcoop/domtool2.git] / src / main.sig

diff --git a/src/main.sig b/src/main.sig
index 46aedfb..ee6df59 100644 (file)
--- a/src/main.sig
+++ b/src/main.sig
@@ -20,10 +20,22 @@
 
 signature MAIN = sig
 
-    val tInit : Ast.typ
+    val init : unit -> unit
 
-    val check : string -> unit
-    val reduce : string -> unit
+    val check : string -> Env.env * Ast.exp option
+    val check' : Env.env -> string -> Env.env
+
+    val basis : unit -> Env.env
+
+    val reduce : string -> Ast.exp option
     val eval : string -> unit
 
+    val request : string -> unit
+    val requestGrant : Acl.acl -> unit
+
+    val service : unit -> unit
+    val slave : unit -> unit
+
+    val autodocBasis : string -> unit
+
 end