+ 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 = export_info(pkg, current);
+ break;
+ case MODE_EXPORT:
+ ret = package_export(U_PKG(pkg)->pkg);
+ break;
+ default:
+ abort();
+ }
+
+out_unuse:
+ g_type_module_unuse(pkg);
+out:
+ return ret;
+}
+
+int main(int argc, char **argv)
+{