+ return 0;
+}
+
+static void export_print_name(struct upkg *upkg, const struct upkg_export *e)
+{
+ if (e) {
+ export_print_name(upkg, upkg_get_export(upkg, e->package-1));
+ printf(".%s", e->name);
+ }
+}
+
+static void
+export_print_fullname(GTypeModule *pkg, const struct upkg_export *export)
+{
+ printf("%s", pkg->name);
+ export_print_name(U_PKG(pkg)->pkg, export);
+}
+
+static int package_list(GTypeModule *pkg, long parent)
+{
+ struct upkg *upkg = U_PKG(pkg)->pkg;
+ const struct upkg_export *export;
+
+ for (unsigned i = 0; i < upkg->export_count; i++) {
+ export = upkg_get_export(upkg, i);
+
+ if (export->package != parent)
+ continue;
+
+ export_print_fullname(pkg, export);
+
+ if (verbose >= 1) {
+ const char *class, *package;
+
+ class = upkg_export_class(upkg, i, &package);
+ printf(" (%s.%s)", package, class);
+ }
+
+ putchar('\n');
+ }
+
+ return 0;
+}
+
+static int object_info(GTypeModule *pkg, unsigned long idx)
+{
+ struct upkg *upkg = U_PKG(pkg)->pkg;
+ const struct upkg_export *export;
+ const char *class, *package;
+
+ export = upkg_get_export(upkg, idx);
+ export_print_fullname(pkg, export);
+
+ class = upkg_export_class(upkg, idx, &package);
+ printf(" (%s.%s)\n", package, class);
+
+ /* Print out object properties. */
+ if (verbose >= 1) {
+ GParamSpec **props;
+ GObject *obj;
+ unsigned n;
+
+ obj = u_object_new_from_package(upkg, idx);
+ if (!obj) {
+ fprintf(stderr, "%s: failed to load object.\n",
+ progname);
+ 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(" property %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);
+ }
+
+ /* Print raw file info. */
+ if (verbose >= 3) {
+ struct upkg_file *f = upkg_export_open(upkg, idx);
+ if (!f) {
+ fprintf(stderr, "%s: failed to open export.\n",
+ progname);
+ return -1;
+ }
+
+ printf(" file size: %lu\n", f->len);
+ printf(" file start: %#lx\n", f->base);
+ printf(" file end: %#lx\n", f->base + f->len);
+
+ upkg_export_close(f);
+ }
+
+ return 0;