- pkg_idx = -(export->class + 1);
- if (pkg_idx >= pkg->import_count)
- return NULL;
- iclass = &pkg->priv->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->import_count)
- return NULL;
- ipackage = &pkg->priv->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;