More Exim stuff

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

diff --git a/src/env.sig b/src/env.sig
index adbf0b4..9c26f00 100644 (file)
--- a/src/env.sig
+++ b/src/env.sig
@@ -41,11 +41,13 @@ signature ENV = sig
     val string : string arg
     val list : 'a arg -> 'a list arg
 
+    val none : string -> (unit -> unit) -> action
     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_none : string -> (unit -> unit) -> 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
 
@@ -56,9 +58,14 @@ signature ENV = sig
 
     val bindType : env -> string -> env
     val bindVal : env -> string * Ast.typ * Ast.exp option -> env
+    val bindContext : env -> string -> env
 
     val lookupType : env -> string -> bool
     val lookupVal : env -> string -> Ast.typ option
     val lookupEquation : env -> string -> Ast.exp option
+    val lookupContext : env -> string -> bool
 
+    val types : env -> Ast.StringSet.set
+    val vals : env -> Ast.StringSet.set
+    val contexts : env -> Ast.StringSet.set
 end