E-mail aliases

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

diff --git a/src/env.sig b/src/env.sig
index d239e14..adbf0b4 100644 (file)
--- a/src/env.sig
+++ b/src/env.sig
@@ -32,7 +32,24 @@ signature ENV = sig
     val registerContainer : string * action * (unit -> unit) -> unit
     val container : string -> (action * (unit -> unit)) option
 
-    val badArgs : string -> 'a
+    val badArgs : string * Ast.exp list -> 'a
+    val badArg : string * string * Ast.exp -> 'a
+
+    type 'a arg = Ast.exp -> 'a option
+
+    val int : int arg
+    val string : string arg
+    val list : 'a arg -> 'a list arg
+
+    val one : string -> string * 'a arg -> ('a -> unit) -> action
+    val two : string -> string * 'a arg * string * 'b arg -> ('a * 'b -> unit) -> action
+
+    val type_one : string -> 'a arg -> ('a -> bool) -> unit
+
+    val action_one : string -> string * 'a arg -> ('a -> unit) -> unit
+    val action_two : string -> string * 'a arg * string * 'b arg -> ('a * 'b -> unit) -> unit
+
+    val container_one : string -> string * 'a arg -> ('a -> unit) * (unit -> unit) -> unit
 
     type env
     val empty : env