+ 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 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);
+
+ 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(" %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;
+}
+
+static int export(struct upkg *pkg, GObject *obj, unsigned idx)
+{
+ const struct upkg_export *export = upkg_get_export(pkg, idx);
+ char name[256];
+ FILE *of;
+
+ if (u_object_deserialize(obj, pkg, idx) != 0) {
+ return -1;
+ }
+
+ if (U_OBJECT_IS_LOADABLE(obj) && u_object_load(obj) != 0) {
+ return -1;
+ }
+
+ u_object_export_name(obj, name, sizeof name);
+
+ printf("exporting %s to %s\n", export->name, name);
+ of = fopen(name, "wb");
+ if (!of) {
+ perror(name);
+ return -1;
+ }
+
+ u_object_export(obj, of);
+
+ if (fclose(of) != 0) {
+ perror(name);
+ return -1;
+ }
+
+ if (U_OBJECT_IS_LOADABLE(obj)) {
+ u_object_unload(obj);
+ }
+
+ return 0;
+}
+
+int package_export(struct upkg *pkg)
+{
+ const char *class, *package;
+ GObject *obj;
+ GType type;
+ int ret = 0;
+
+ for (unsigned i = 0; i < pkg->export_count; i++) {
+ class = upkg_export_class(pkg, i, &package);
+ if (!class) {
+ fprintf(stderr, "error getting class information.\n");
+ return -1;
+ }
+
+ type = u_object_module_get_class(package, class);
+ if (!type) continue;
+
+ obj = g_object_new(type, NULL);
+ if (U_OBJECT_IS_EXPORTABLE(obj)) {
+ if (export(pkg, obj, i) != 0) {
+ ret = -1;
+ }
+ }
+ g_object_unref(obj);
+ }
+
+ return ret;
+}
+
+static int process_object(int mode, const char *objname)
+{
+ char work[strlen(objname)+1], *p = work, *c;
+ GTypeModule *pkg;
+ long current = -1;
+ int ret = 0;
+
+ strcpy(work, objname);
+
+ /* First, find and open the actual package. */
+ c = strchr(p, '.');
+ if (c) *c = 0;
+
+ pkg = u_pkg_open(p);
+ if (!pkg || !g_type_module_use(pkg)) {
+ fprintf(stderr, "%s: %s: failed to open package.\n",
+ progname, work);
+ goto out;
+ }
+
+ if (!U_PKG(pkg)->pkg) {
+ if (u_pkg_is_native(pkg)) {
+ fprintf(stderr, "%s: %s: not a UObject package.\n",
+ progname, work);
+ } else {
+ fprintf(stderr, "%s: %s: package not found.\n",
+ progname, work);
+ }
+
+ goto out_unuse;
+ }
+
+ /* Resolve the hierarchical reference. */
+ while (c) {
+ p = c+1;
+ c = strchr(p, '.');
+ if (c) *c = 0;
+
+ current = upkg_export_find(U_PKG(pkg)->pkg, current, p);
+ if (current == -1) {
+ /* We want to print the full name up to this point. */
+ strcpy(work, objname);
+ if (c) *c = 0;
+
+ fprintf(stderr, "%s: %s: object not found.\n",
+ progname, work);
+ goto out_unuse;
+ }
+ }
+
+ switch (mode) {
+ case MODE_INFO:
+ if (current < 0)
+ ret = package_info(U_PKG(pkg)->pkg);
+ else
+ ret = object_info(pkg, current);
+ break;
+ case MODE_LIST:
+ ret = package_list(pkg, current+1);
+ break;
+ case MODE_EXPORT:
+ ret = package_export(U_PKG(pkg)->pkg);
+ break;
+ default:
+ abort();
+ }
+
+out_unuse:
+ g_type_module_unuse(pkg);
+out:
+ return ret;