Move ambient environment defaults into Env.env

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

diff --git a/src/env.sig b/src/env.sig
index 0a50620..c8371a8 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 -> 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 lookupEquation : env -> string -> Ast.exp option
     val lookupContext : env -> string -> bool
 
     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 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