X-Git-Url: https://oss.titaniummirror.com/gitweb/?a=blobdiff_plain;f=src%2FAST_utils.c;h=d26212ff65a95ca5ea64b9c69d64fadb01a74946;hb=refs%2Ftags%2Fupstream%2F1.3.2;hp=320c3fb3216c3f438de2d98e30975ac368f112a5;hpb=57d4530c4d6814fa25338a00cc65b95938c723b6;p=nesc.git

diff --git a/src/AST_utils.c b/src/AST_utils.c
index 320c3fb..d26212f 100644
--- a/src/AST_utils.c
+++ b/src/AST_utils.c
@@ -371,3 +371,15 @@ bool is_attr_name(const char *arg, const char *name)
   l = strlen(name);
   return !strncmp(arg + 2, name, l) && !strcmp(arg + 2 + l, "__");
 }
+
+type_element interesting_element(type_element elems)
+{
+  type_element elem;
+
+  scan_type_element (elem, elems)
+    if (is_tag_ref(elem))
+      return elem;
+
+  return NULL;
+}
+