upkg: Print object properties in info mode.

diff --git a/src/upkg.c b/src/upkg.c
index 16f16b2d8c14aca4b1db0f8f5d5e6584aecab2c5..5766e8ba4bed90d2152074ffcb0560c39df1db3a 100644 (file)
--- a/src/upkg.c
+++ b/src/upkg.c
@@ -264,7 +264,7 @@ static int package_list(GTypeModule *pkg, long parent)
        }
 }
 
-static int export_info(GTypeModule *pkg, unsigned long idx)
+static int object_info(GTypeModule *pkg, unsigned long idx)
 {
        struct upkg *upkg = U_PKG(pkg)->pkg;
        const struct upkg_export *export;
@@ -276,6 +276,43 @@ static int export_info(GTypeModule *pkg, unsigned long idx)
        class = upkg_export_class(upkg, idx, &package);
        printf(" (%s.%s)\n", package, class);
 
+       if (verbose >= 1) {
+               GParamSpec **props;
+               GObject *obj;
+               GType type;
+               unsigned n;
+
+               type = u_object_module_get_class(package, class);
+               if (!type) {
+                       printf("  (unknown class)\n");
+                       return 0;
+               }
+
+               obj = g_object_new(type, NULL);
+
+               if (u_object_deserialize(obj, upkg, idx) != 0) {
+                       g_object_unref(obj);
+                       return -1;
+               }
+
+               props = g_object_class_list_properties(G_OBJECT_GET_CLASS(obj), &n);
+               for (unsigned i = 0; i < n; i++) {
+                       GValue val = {0};
+                       char *valstr;
+
+                       printf("  %s: ", props[i]->name);
+                       fflush(stdout);
+
+                       g_value_init(&val, props[i]->value_type);
+                       g_object_get_property(obj, props[i]->name, &val);
+                       valstr = g_strdup_value_contents(&val);
+                       printf("%s\n", valstr);
+               }
+               free(props);
+
+               g_object_unref(obj);
+       }
+
        return 0;
 }
 
@@ -400,7 +437,7 @@ static int process_object(int mode, const char *objname)
                if (current < 0)
                        ret = package_info(U_PKG(pkg)->pkg);
                else
-                       ret = export_info(pkg, current);
+                       ret = object_info(pkg, current);
                break;
        case MODE_LIST:
                ret = package_list(pkg, current+1);