X-Git-Url: https://gerrit.o-ran-sc.org/r/gitweb?a=blobdiff_plain;f=libasn1fix%2Fasn1fix_class.c;fp=libasn1fix%2Fasn1fix_class.c;h=91847a6fb1c23dd07704f5daef5ee1ce8c092c29;hb=70ee6fc793ec8e828067a3569849b6c216054497;hp=0000000000000000000000000000000000000000;hpb=59f84608ec15c016958a6e0e0ddd813f376c0925;p=com%2Fasn1c.git

diff --git a/libasn1fix/asn1fix_class.c b/libasn1fix/asn1fix_class.c
new file mode 100644
index 0000000..91847a6
--- /dev/null
+++ b/libasn1fix/asn1fix_class.c
@@ -0,0 +1,91 @@
+#include "asn1fix_internal.h"
+
+asn1p_expr_t *
+asn1f_class_access(arg_t *arg, asn1p_expr_t *rhs_pspecs, const asn1p_ref_t *ref) {
+	asn1p_expr_t *ioclass;
+	asn1p_expr_t *classfield;
+	asn1p_expr_t *expr;
+	asn1p_ref_t tmpref;
+
+	assert(ref->comp_count > 1);
+
+    DEBUG("ClassAccess lookup (%s%s) for line %d",
+          asn1f_printable_reference(ref), rhs_pspecs ? ", parameterized" : "",
+          ref->_lineno);
+
+    /*
+	 * Fetch the first part of the reference (OBJECT or ObjectSet).
+	 * OBJECT.&<something>...
+	 * ObjectSet.&<something>...
+	 */
+	assert(isupper(ref->components[0].name[0]));
+
+	tmpref = *ref;
+	tmpref.comp_count = 1;
+	ioclass = asn1f_lookup_symbol(arg, rhs_pspecs, &tmpref);
+	if(ioclass == NULL) {
+        DEBUG("ClassAccess lookup (%s) failed",
+              asn1f_printable_reference(&tmpref));
+        errno = ESRCH;
+		return NULL;
+	}
+	if(ioclass->expr_type == A1TC_REFERENCE) {
+        ioclass = WITH_MODULE(
+            ioclass->module,
+            asn1f_lookup_symbol(arg, ioclass->rhs_pspecs, ioclass->reference));
+        if(ioclass == NULL) {
+			errno = ESRCH;
+			return NULL;
+		}
+	}
+	if(ioclass->expr_type != A1TC_CLASSDEF) {
+		if(!(ioclass->_mark & TM_BROKEN)) {
+			ioclass->_mark |= TM_BROKEN;
+			FATAL("Class field %s lookup at line %d in something that is not a class: %s at line %d",
+				asn1f_printable_reference(ref), ref->_lineno,
+				ioclass->Identifier,
+				ioclass->_lineno);
+		}
+		errno = EINVAL;
+		return NULL;
+	}
+
+	classfield = asn1f_lookup_child(ioclass, ref->components[1].name);
+	if(classfield == NULL) {
+		DEBUG("CLASS %s does not contain field %s",
+			ioclass->Identifier, ref->components[1].name);
+		errno = ESRCH;
+		return NULL;
+	}
+
+	assert(classfield->meta_type == AMT_OBJECTFIELD);
+
+	DEBUG("CLASS %s -> %s (%d)", ioclass->Identifier,
+		classfield->Identifier, classfield->expr_type);
+
+	switch(classfield->expr_type) {
+	case A1TC_CLASSFIELD_TFS:
+		if(TQ_FIRST(&classfield->members)) {
+			/* Already have something */
+		} else {
+			expr = asn1p_expr_new(classfield->_lineno, arg->mod);
+			expr->expr_type = ASN_TYPE_ANY;
+			expr->meta_type = AMT_TYPE;
+			asn1p_expr_add(classfield, expr);
+		}
+		/* Fall through */
+	case A1TC_CLASSFIELD_FTVFS:
+		expr = TQ_FIRST(&classfield->members);
+		assert(expr);
+		return expr;
+		break;
+	default:
+		FATAL("%s.%s: field type not yet supported. "
+			"Consider donation to the asn1c author.",
+			ioclass->Identifier, classfield->Identifier);
+		return NULL;
+	}
+
+	return NULL;
+}
+