Partial implementation of the JSON module.

modules/json/JValue.cpp

@@ -0,0 +1,49 @@
+// ------------------------------------------------------------------------------------------------
+#include "JValue.hpp"
+
+// ------------------------------------------------------------------------------------------------
+namespace SqMod {
+
+// ------------------------------------------------------------------------------------------------
+std::size_t JValue::s_Flags = JSON_ENCODE_ANY;
+
+// ------------------------------------------------------------------------------------------------
+SQInteger JValue::Typename(HSQUIRRELVM vm)
+{
+    static const SQChar name[] = _SC("SqJSONValue");
+    sq_pushstring(vm, name, sizeof(name));
+    return 1;
+}
+
+// ------------------------------------------------------------------------------------------------
+Object JValue::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_JValue(Table & jns)
+{
+    jns.Bind(_SC("Value"), Class< JValue >(jns.GetVM(), _SC("SqJSONValue"))
+        // Constructors
+        .Ctor()
+        .Ctor< const JValue & >()
+        // Core Meta-methods
+        .Func(_SC("_cmp"), &JValue::Cmp)
+        .SquirrelFunc(_SC("_typename"), &JValue::Typename)
+        .Func(_SC("_tostring"), &JValue::ToString)
+        // Properties
+        //.Prop(_SC("Prop"), &JValue::Prop)
+        // Member Methods
+        //.Func(_SC("Func"), &JValue::Func)
+    );
+}
+
+} // Namespace:: SqMod