add set_global, update unit test

include/chaiscript/dispatchkit/dispatchkit.hpp

@@ -561,6 +561,21 @@ namespace chaiscript
             }
         }
 
+        /// Adds a new global (non-const) shared object, between all the threads
+        void set_global(const Boxed_Value &obj, const std::string &name)
+        {
+            validate_object_name(name);
+
+            chaiscript::detail::threading::unique_lock<chaiscript::detail::threading::shared_mutex> l(m_mutex);
+
+            const auto itr = m_state.m_global_objects.find(name);
+            if (itr != m_state.m_global_objects.end())
+            {
+                itr->second.assign(obj);
+            } else {
+                m_state.m_global_objects.insert(std::make_pair(name, obj));
+            }
+        }
 
         /// Adds a new scope to the stack
         void new_scope()

include/chaiscript/language/chaiscript_engine.hpp

@@ -401,7 +401,7 @@ namespace chaiscript
 
       m_engine.add(fun([this](const Boxed_Value &t_bv, const std::string &t_name){ add_global_const(t_bv, t_name); }), "add_global_const");
       m_engine.add(fun([this](const Boxed_Value &t_bv, const std::string &t_name){ add_global(t_bv, t_name); }), "add_global");
-
+      m_engine.add(fun([this](const Boxed_Value &t_bv, const std::string &t_name){ set_global(t_bv, t_name); }), "set_global");
     }
 
 
@@ -626,6 +626,12 @@ namespace chaiscript
         return *this;
     }
 
+    ChaiScript &set_global(const Boxed_Value &t_bv, const std::string &t_name)
+    {
+        m_engine.set_global(t_bv, t_name);
+        return *this;
+    }
+
       /// \brief Represents the current state of the ChaiScript system. State and be saved and restored
     /// \warning State object does not contain the user defined type conversions of the engine. They
     ///          are left out due to performance considerations involved in tracking the state

unittests/global_in_script.chai

@@ -8,3 +8,17 @@ def myFun()
 }
 
 myFun();
+
+
+def myFun2()
+{
+  assert_equal(j, 7)
+}
+
+set_global(7, "j")
+
+myFun2();
+
+set_global(5, "j")
+
+myFun();