Partial implementation of the JSON module.

modules/json/JObject.cpp

@@ -0,0 +1,49 @@
+// ------------------------------------------------------------------------------------------------
+#include "JObject.hpp"
+
+// ------------------------------------------------------------------------------------------------
+namespace SqMod {
+
+// ------------------------------------------------------------------------------------------------
+std::size_t JObject::s_Flags = JSON_ENCODE_ANY;
+
+// ------------------------------------------------------------------------------------------------
+SQInteger JObject::Typename(HSQUIRRELVM vm)
+{
+    static const SQChar name[] = _SC("SqJSONObject");
+    sq_pushstring(vm, name, sizeof(name));
+    return 1;
+}
+
+// ------------------------------------------------------------------------------------------------
+Object JObject::ToString() const
+{
+    // Dump the values to a string
+    const CStrGuard csg(json_dumps(m_Ptr, s_Flags));
+    // Remember the current stack size
+    const StackGuard sg;
+    // Transform the string into a script object
+    sq_pushstring(_SqVM, csg.mPtr ? csg.mPtr : _SC(""), -1);
+    // Return the created script object
+    return Var< Object >(_SqVM, -1).value;
+}
+
+// ================================================================================================
+void Register_JObject(Table & jns)
+{
+    jns.Bind(_SC("Object"), Class< JObject >(jns.GetVM(), _SC("SqJSONObject"))
+        // Constructors
+        .Ctor()
+        .Ctor< const JObject & >()
+        // Core Meta-methods
+        .Func(_SC("_cmp"), &JObject::Cmp)
+        .SquirrelFunc(_SC("_typename"), &JObject::Typename)
+        .Func(_SC("_tostring"), &JObject::ToString)
+        // Properties
+        //.Prop(_SC("Prop"), &JObject::Prop)
+        // Member Methods
+        //.Func(_SC("Func"), &JObject::Func)
+    );
+}
+
+} // Namespace:: SqMod