HCoop
/
hcoop
/
domtool2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
apache: Implement fastcgi alias support
[hcoop/domtool2.git]
/
src
/
env.sig
diff --git
a/src/env.sig
b/src/env.sig
index
0a50620
..
6668c5e
100644
(file)
--- a/
src/env.sig
+++ b/
src/env.sig
@@
-1,5
+1,6
@@
(* HCoop Domtool (http://hcoop.sourceforge.net/)
* Copyright (c) 2006, Adam Chlipala
(* HCoop Domtool (http://hcoop.sourceforge.net/)
* Copyright (c) 2006, Adam Chlipala
+ * Copyright (c) 2014 Clinton Ebadi <clinton@unknownlamer.org>
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
@@
-73,6
+74,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
@@
-90,16
+94,22
@@
signature ENV = sig
type env
val empty : env
type env
val empty : env
+ val initialDynEnvTypes : env -> Ast.typ Ast.StringMap.map
+ val initialDynEnvVals : (env -> Ast.exp -> Ast.exp) -> env -> env_vars
+
val bindType : env -> string -> env
val bindVal : env -> string * Ast.typ * Ast.exp option -> env
val bindContext : env -> string -> env
val bindType : env -> string -> env
val bindVal : env -> string * Ast.typ * Ast.exp option -> env
val bindContext : env -> string -> env
+ val bindInitialDynEnvVal : env -> string * Ast.typ * Ast.exp -> env
val lookupType : env -> string -> bool
val lookupVal : env -> string -> Ast.typ option
val lookupType : env -> string -> bool
val lookupVal : env -> string -> Ast.typ option
- val lookupEquation : env -> string ->
Ast.exp
option
+ val lookupEquation : env -> string ->
(Ast.exp * env)
option
val lookupContext : env -> string -> bool
val lookupContext : env -> string -> bool
+ val lookupInitialDynEnvVal : env -> string -> Ast.typ option
val types : env -> Ast.StringSet.set
val vals : env -> Ast.StringSet.set
val contexts : env -> Ast.StringSet.set
val types : env -> Ast.StringSet.set
val vals : env -> Ast.StringSet.set
val contexts : env -> Ast.StringSet.set
+ val dynamics : env -> Ast.StringSet.set
end
end