X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/f8dfbbcc29a40de94580697e610db6254b85f0fb..599a99d3b90eb0ba81ba09cca4d69fff45f6eae6:/src/env.sig

diff --git a/src/env.sig b/src/env.sig
index 31e6691..8e5962c 100644
--- a/src/env.sig
+++ b/src/env.sig
@@ -59,6 +59,7 @@ signature ENV = sig
 		-> string * 'a arg * string * 'b arg * string * 'c arg
 		-> ('a * 'b * 'c -> unit) -> action
 
+    val noneV : string -> (env_vars -> unit) -> action
     val oneV : string -> string * 'a arg -> (env_vars * 'a -> unit) -> action
     val twoV : string -> string * 'a arg * string * 'b arg -> (env_vars * 'a * 'b -> unit) -> action
 
@@ -72,6 +73,9 @@ signature ENV = sig
     val action_three : string
 		       -> string * 'a arg * string * 'b arg * string * 'c arg
 		       -> ('a * 'b * 'c -> unit) -> unit
+    val action_four : string
+		       -> string * 'a arg * string * 'b arg * string * 'c arg * string * 'd arg
+		       -> ('a * 'b * 'c * 'd -> unit) -> unit
 
     val actionV_none : string -> (env_vars -> unit) -> unit
     val actionV_one : string -> string * 'a arg -> (env_vars * 'a -> unit) -> unit
@@ -80,8 +84,12 @@ signature ENV = sig
     val container_none : string -> (unit -> unit) * (unit -> unit) -> unit
     val container_one : string -> string * 'a arg -> ('a -> unit) * (unit -> unit) -> unit
 
+    val containerV_none : string -> (env_vars -> unit) * (unit -> unit) -> unit
     val containerV_one : string -> string * 'a arg -> (env_vars * 'a -> unit) * (unit -> unit) -> unit
 
+    val registerFunction : string * (Ast.exp list -> Ast.exp option) -> unit
+    val function : string -> (Ast.exp list -> Ast.exp option) option
+
     type env
     val empty : env