From 8286ac511144e4f17d34eac9affb97e50646344a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=B6rg=20Frings-F=C3=BCrst?= <debian@jff-webhosting.net>
Date: Wed, 23 Jul 2014 15:25:44 +0200
Subject: Imported Upstream version 4.0.0

---
 libcutl/cutl/compiler/context.cxx | 54 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100644 libcutl/cutl/compiler/context.cxx

(limited to 'libcutl/cutl/compiler/context.cxx')

diff --git a/libcutl/cutl/compiler/context.cxx b/libcutl/cutl/compiler/context.cxx
new file mode 100644
index 0000000..51311fc
--- /dev/null
+++ b/libcutl/cutl/compiler/context.cxx
@@ -0,0 +1,54 @@
+// file      : cutl/compiler/context.cxx
+// copyright : Copyright (c) 2009-2013 Code Synthesis Tools CC
+// license   : MIT; see accompanying LICENSE file
+
+#include <cutl/compiler/context.hxx>
+
+using namespace std;
+
+namespace cutl
+{
+  namespace compiler
+  {
+    void context::
+    set (string const& key, container::any const& value)
+    {
+      using container::any;
+
+      std::pair<map::iterator, bool> r (
+        map_.insert (map::value_type (key, value)));
+
+      any& x (r.first->second);
+
+      if (!r.second)
+      {
+        if (value.type_info () != x.type_info ())
+          throw typing ();
+
+        x = value;
+      }
+    }
+
+    void context::
+    remove (string const& key)
+    {
+      map::iterator i (map_.find (key));
+
+      if (i == map_.end ())
+        throw no_entry ();
+
+      map_.erase (i);
+    }
+
+    type_info const& context::
+    type_info (string const& key) const
+    {
+      map::const_iterator i (map_.find (key));
+
+      if (i == map_.end ())
+        throw no_entry ();
+
+      return i->second.type_info ();
+    }
+  }
+}
-- 
cgit v1.2.3