+ return pkg->names[idx].name;
+}
+
+long upkg_export_find(struct upkg *pub, long parent, const char *name)
+{
+ struct upkg_priv *pkg = (struct upkg_priv *)pub;
+
+ /* This only makes sense if the assertion below is not violated. */
+ long package = parent < 0 ? 0 : parent + 1;
+
+ for (unsigned long i = 0; i < pkg->pub.export_count; i++) {
+ struct upkg_export_priv *e = &pkg->exports[i];
+
+ /* Assertion: an object's package is an export. */
+ format_assert(e->pub.package >= 0, continue);
+ if (e->pub.package == package
+ && strcmp(e->pub.name, name) == 0) {
+ return i;
+ }
+ }
+
+ return -1;
+}
+
+const struct upkg_export *upkg_get_export(struct upkg *pub, unsigned long idx)
+{
+ struct upkg_priv *pkg = (struct upkg_priv *)pub;
+
+ if (idx < pkg->pub.export_count)
+ return &pkg->exports[idx].pub;
+ return NULL;
+}
+
+const char *upkg_export_class(struct upkg *pub, unsigned long idx,
+ const char **package)
+{
+ struct upkg_priv *pkg = (struct upkg_priv *)pub;
+ struct upkg_export_priv *export;
+ struct upkg_import *iclass, *ipackage;
+ unsigned long pkg_idx;
+
+ if (idx >= pkg->pub.export_count)
+ return NULL;
+
+ export = &pkg->exports[idx];
+
+ /* Assumption: class references are always imports. */
+ format_assert(export->class <= 0, return NULL);
+
+ /* Get the class. */
+ if (export->class == 0) {
+ if (package) *package = "Core";
+ return "Class";
+ }
+
+ pkg_idx = -(export->class + 1);
+ if (pkg_idx >= pkg->pub.import_count)
+ return NULL;
+ iclass = &pkg->imports[pkg_idx];
+
+ /* Assumption: class references are always Core.Class. */
+ format_assert(!strcmp(iclass->class_package, "Core"), return NULL);
+ format_assert(!strcmp(iclass->class_name, "Class"), return NULL);
+
+ /* Assumption: package references are always imports. */
+ format_assert(iclass->package <= 0, return NULL);
+
+ /* Get the package. */
+ pkg_idx = -(iclass->package + 1);
+ if (pkg_idx >= pkg->pub.import_count)
+ return NULL;
+ ipackage = &pkg->imports[pkg_idx];
+
+ /* Assumption: package references are always Core.Package. */
+ format_assert(!strcmp(ipackage->class_package, "Core"), return NULL);
+ format_assert(!strcmp(ipackage->class_name, "Package"), return NULL);
+
+ if (package) *package = ipackage->object_name;
+ return iclass->object_name;