[gobject-introspection/ebassi/property-default-value: 1/2] Dump the default value of object properties

[Emmanuele Bassi <ebassi src gnome org>]

commit 15c3806b1ce77018e342c444739fd0a679b8f6d9
Author: Emmanuele Bassi <ebassi gnome org>
Date:   Tue Aug 30 23:43:51 2022 +0100

    Dump the default value of object properties
    
    We use g_param_spec_get_default_value() to get the default GValue of a
    GParamSpec, and then we serialize it into a string according to the
    value's own contents and type.

 girepository/gdump.c | 47 +++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 45 insertions(+), 2 deletions(-)
---
diff --git a/girepository/gdump.c b/girepository/gdump.c
index e79f17192..3ee687b6c 100644
--- a/girepository/gdump.c
+++ b/girepository/gdump.c
@@ -119,6 +119,40 @@ invoke_error_quark (GModule *self, const char *symbol, GError **error)
   return sym ();
 }
 
+/* A simpler version of g_strdup_value_contents(), but with stable
+ * output and less complex semantics
+ */
+static char *
+value_to_string (const GValue *value)
+{
+  if (G_VALUE_HOLDS_STRING (value))
+    {
+      const char *s = g_value_get_string (value);
+
+      if (s == NULL)
+        return g_strdup ("NULL");
+
+      return g_strescape (s, NULL);
+    }
+  else if (g_value_type_transformable (G_VALUE_TYPE (value), G_TYPE_STRING))
+    {
+      GValue tmp = G_VALUE_INIT;
+      char *s;
+
+      g_value_init (&tmp, G_TYPE_STRING);
+      g_value_transform (value, &tmp);
+      s = g_strescape (g_value_get_string (&tmp), NULL);
+      g_value_unset (&tmp);
+
+      if (s == NULL)
+        return g_strdup ("NULL");
+
+      return s;
+    }
+  else
+    return g_strdup ("NULL");
+}
+
 static void
 dump_properties (GType type, GOutputStream *out)
 {
@@ -147,9 +181,18 @@ dump_properties (GType type, GOutputStream *out)
       if (prop->owner_type != type)
        continue;
 
-      escaped_printf (out, "    <property name=\"%s\" type=\"%s\" flags=\"%d\"/>\n",
-                     prop->name, g_type_name (prop->value_type), prop->flags);
+      const GValue *v = g_param_spec_get_default_value (prop);
+      char *default_value = value_to_string (v);
+
+      escaped_printf (out, "    <property name=\"%s\" type=\"%s\" flags=\"%d\" default-value=\"%s\"/>\n",
+                     prop->name,
+                      g_type_name (prop->value_type),
+                      prop->flags,
+                      default_value);
+
+      g_free (default_value);
     }
+
   g_free (props);
 }