From 5f754e3f883b468953a73afd8a12b279a3a5c2b8 Mon Sep 17 00:00:00 2001
From: Grégoire Duchêne <gduchene@awhk.org>
Date: Sat, 27 Sep 2014 15:33:20 +0200
Subject: Moved the code into src/

---
 src/Environment.ml | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 src/Environment.ml

(limited to 'src/Environment.ml')

diff --git a/src/Environment.ml b/src/Environment.ml
new file mode 100644
index 0000000..dab9bce
--- /dev/null
+++ b/src/Environment.ml
@@ -0,0 +1,52 @@
+(*
+Copyright (c) 2014, Grégoire Duchêne <gduchene@awhk.org>
+
+Permission to use, copy, modify, and/or distribute this software for
+any purpose with or without fee is hereby granted, provided that the
+above copyright notice and this permission notice appear in all
+copies.
+
+THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
+WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
+WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE
+AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
+DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
+PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
+TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
+PERFORMANCE OF THIS SOFTWARE.
+*)
+
+open Common
+
+type t = {
+  global  : (id, value)      Hashtbl.t;
+  lexical : (id * value ref) list;
+}
+
+let assign_lexical env id v =
+  List.assoc id env.lexical := v
+
+let bind_global env id v =
+  Hashtbl.add env.global id v
+
+let bind_lexical env id v =
+  { env with lexical = (id, ref v) :: env.lexical }
+
+let bind_lexical_all env l =
+  List.fold_left (fun env (id, v) -> bind_lexical env id v) env l
+
+let fresh () =
+  { global = Hashtbl.create 10; lexical = []; }
+
+let lookup_global env id =
+  try  Hashtbl.find env.global id
+  with Not_found ->
+    try  Symtable.get_global_value id
+    with Symtable.Error e -> id_not_found id
+
+let lookup_lexical env id =
+  try  !(List.assoc id env.lexical)
+  with Not_found -> id_not_found id
+
+let lookup_lexical_str env id =
+  !(snd @$ List.find (fun (id', _) -> id = id'.Ident.name) env.lexical)
-- 
cgit v1.2.3-70-g09d2