+ 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');
+ }
+}
+
+static int export_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);
+
+ return 0;