HCoop
/
hcoop
/
domtool2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Switch default web node from mire to navajos
[hcoop/domtool2.git]
/
src
/
env.sig
diff --git
a/src/env.sig
b/src/env.sig
index
31e6691
..
8e5962c
100644
(file)
--- 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
-> 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
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_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
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 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 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
type env
val empty : env