X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/fb09779a844e6ebb2388d68ef1170c816b6bc07c..8061fadf3b4e8cb08c97fe61cb38476f66efa352:/src/env.sig

diff --git a/src/env.sig b/src/env.sig
index 8e5962c..6668c5e 100644
--- a/src/env.sig
+++ b/src/env.sig
@@ -1,5 +1,6 @@
 (* 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
@@ -93,16 +94,22 @@ signature ENV = sig
     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 bindInitialDynEnvVal : env -> string * Ast.typ * Ast.exp -> env
 
     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 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 dynamics : env -> Ast.StringSet.set
 end