- if (idx >= pkg->export_count)
- return NULL;
-
- export = &pkg->priv->exports[idx];
-
- /* ASSUMPTION: class references are always imports */
- if (export->class > 0) {
- fprintf(stderr, "Assumption Violated: class not import\n");
- return NULL;
- }
-
- /* ASSUMPTION: group references are always exports */
- if (export->package < 0) {
- fprintf(stderr, "Assumption Violated: group not export\n");
- return NULL;
- }
-
- /* Get the group name. */
- if (export->package > 0) {
- pkg_idx = export->package - 1;
-
- if (pkg_idx >= pkg->export_count) {
- return NULL;
- }
-
- /* Lots more to handle. Function arguments are stupid. */
-
- if (group) *group = pkg->priv->exports[pkg_idx].name;
- } else {
- if (group) *group = NULL;
- }
-
- /* Get the class. */
- if (export->class == 0) {
- if (package) *package = "Core";
- return "Class";
- }
-
- 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 */
- if (strcmp(iclass->class_name, "Class") || strcmp(iclass->class_package, "Core")) {
- fprintf(stderr, "Assumption Violated: class not Core.Class\n");
- return NULL;
- }
-
- /* ASSUMPTION: Package references are always imports */
- if (iclass->package >= 0) {
- fprintf(stderr, "Assumption Violated: package not import\n");
- 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 */
- if (strcmp(ipackage->class_name, "Package") || strcmp(ipackage->class_package, "Core")) {
- fprintf(stderr, "Assumption Violated: package not Core.Package\n");
- return NULL;
- }
-
- if (package) *package = ipackage->object_name;
- return iclass->object_name;