From 163db36d8bd4966bc15c689cae99327e674d33bb Mon Sep 17 00:00:00 2001
From: Lev Walkin <vlm@lionet.info>
Date: Wed, 15 Sep 2004 11:46:47 +0000
Subject: [PATCH] recursive importing
---
libasn1fix/asn1fix_retrieve.c | 41 ++++++++++++++++++++++++-----------
1 file changed, 28 insertions(+), 13 deletions(-)
diff --git a/libasn1fix/asn1fix_retrieve.c b/libasn1fix/asn1fix_retrieve.c
index 97e77fed..4e0eee9a 100644
--- a/libasn1fix/asn1fix_retrieve.c
+++ b/libasn1fix/asn1fix_retrieve.c
@@ -23,15 +23,14 @@ asn1f_lookup_child(asn1p_expr_t *tc, const char *name) {
}
asn1p_module_t *
-asn1f_lookup_in_imports(arg_t *arg, const char *name) {
- asn1p_module_t *mod;
+asn1f_lookup_in_imports(arg_t *arg, asn1p_module_t *mod, const char *name) {
asn1p_xports_t *xp;
asn1p_expr_t *tc;
/*
* Search in which exactly module this name is defined.
*/
- TQ_FOR(xp, &(arg->mod->imports), xp_next) {
+ TQ_FOR(xp, &(mod->imports), xp_next) {
TQ_FOR(tc, &(xp->members), next) {
if(strcmp(name, tc->Identifier) == 0)
break;
@@ -137,7 +136,7 @@ asn1f_lookup_module(arg_t *arg, const char *module_name, asn1p_oid_t *oid) {
asn1p_expr_t *
asn1f_lookup_symbol(arg_t *arg, asn1p_module_t *mod, asn1p_ref_t *ref) {
asn1p_expr_t *ref_tc; /* Referenced tc */
- asn1p_module_t *src_mod;
+ asn1p_module_t *imports_from;
char *modulename;
char *identifier;
@@ -188,8 +187,8 @@ asn1f_lookup_symbol(arg_t *arg, asn1p_module_t *mod, asn1p_ref_t *ref) {
* fetch that module.
*/
if(modulename) {
- src_mod = asn1f_lookup_module(arg, modulename, 0);
- if(src_mod == NULL) {
+ imports_from = asn1f_lookup_module(arg, modulename, 0);
+ if(imports_from == NULL) {
FATAL("Module \"%s\" "
"mentioned at line %d is not found",
modulename, ref->_lineno);
@@ -200,13 +199,13 @@ asn1f_lookup_symbol(arg_t *arg, asn1p_module_t *mod, asn1p_ref_t *ref) {
* Check that the EXPORTS section of this module contains
* the symbol we care about, or it is EXPORTS ALL.
*/
- if(asn1f_compatible_with_exports(arg, src_mod, identifier)) {
+ if(asn1f_compatible_with_exports(arg,imports_from,identifier)) {
errno = EPERM;
return NULL;
}
} else {
- src_mod = asn1f_lookup_in_imports(arg, identifier);
- if(src_mod == NULL && errno != ESRCH) {
+ imports_from = asn1f_lookup_in_imports(arg, mod, identifier);
+ if(imports_from == NULL && errno != ESRCH) {
/*
* Return only of the name was not found.
* If module was not found or more serious error
@@ -216,12 +215,28 @@ asn1f_lookup_symbol(arg_t *arg, asn1p_module_t *mod, asn1p_ref_t *ref) {
}
}
- if(src_mod == 0) src_mod = mod;
+ /*
+ * The symbol is being imported from another module.
+ */
+ if(imports_from) {
+ asn1p_ref_t tmpref = *ref;
+ if(modulename) {
+ /*
+ * The modulename is specified inside this reference.
+ * To avoid recursion, reformat the reference
+ * as it were local to that module.
+ */
+ tmpref.components++; /* Hide the first element */
+ tmpref.comp_count--;
+ assert(tmpref.comp_count > 0);
+ }
+ return asn1f_lookup_symbol(arg, imports_from, &tmpref);
+ }
/*
- * Now we know where to search for a value.
+ * Now we know where to search for a value: in the current module.
*/
- TQ_FOR(ref_tc, &(src_mod->members), next) {
+ TQ_FOR(ref_tc, &(mod->members), next) {
if(ref_tc->Identifier)
if(strcmp(ref_tc->Identifier, identifier) == 0)
break;
@@ -229,7 +244,7 @@ asn1f_lookup_symbol(arg_t *arg, asn1p_module_t *mod, asn1p_ref_t *ref) {
if(ref_tc == NULL) {
DEBUG("Module \"%s\" does not contain \"%s\" "
"mentioned at line %d: %s",
- src_mod->Identifier,
+ mod->Identifier,
identifier,
ref->_lineno,
strerror(errno)
--
GitLab