X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/8a7c40fa29ff18a437fcf4ee3f248a7aeb41c19c..86aa5de7d9f2754d50489432ffaa43cba3fa170f:/src/main.sig?ds=sidebyside

diff --git a/src/main.sig b/src/main.sig
index 62a87ef..ca699b8 100644
--- a/src/main.sig
+++ b/src/main.sig
@@ -20,15 +20,47 @@
 
 signature MAIN = sig
 
-    val tInit : unit -> Ast.typ
-    val registerDefault : string * Ast.typ * (unit -> Ast.exp) -> unit
+    val init : unit -> unit
 
     val check : string -> Env.env * Ast.exp option
     val check' : Env.env -> string -> Env.env
+    val checkDir : string -> unit
 
     val basis : unit -> Env.env
 
     val reduce : string -> Ast.exp option
     val eval : string -> unit
 
+    val request : string -> unit
+    val requestDir : string -> unit
+
+    val requestGrant : Acl.acl -> unit
+    val requestRevoke : Acl.acl -> unit
+    val requestListPerms : string -> (string * string list) list option
+    val requestWhoHas : {class : string, value : string} -> string list option
+    val requestRmdom : string list -> unit
+    val requestRegen : unit -> unit
+    val requestRmuser : string -> unit
+
+    val service : unit -> unit
+    val slave : unit -> unit
+
+    val listBasis : unit -> string list
+    val autodocBasis : string -> unit
+
+    val requestDbUser : {dbtype : string, passwd : string option} -> unit
+    val requestDbPasswd : {dbtype : string, passwd : string} -> unit
+    val requestDbTable : {dbtype : string, dbname : string} -> unit
+
+    val requestListMailboxes : string -> Vmail.listing
+    val requestNewMailbox : {domain : string, user : string,
+			     passwd : string, mailbox : string} -> unit
+    val requestPasswdMailbox : {domain : string, user : string, passwd : string}
+			       -> unit
+    val requestRmMailbox : {domain : string, user : string} -> unit
+
+    val requestSaQuery : string -> unit
+    val requestSaSet : string * bool -> unit
+
+    val requestSmtpLog : string -> unit
 end