added findnthparam;

struct.c

@@ -162,3 +162,20 @@ void print_printlist(p) printlist p;
 		print_printitem(p->item);
 	}
 }
+
+
+param findnthparam( n, p, sname, dname ) int n; paramlist p; char *sname, *dname;
+{
+	int m = n;
+
+	for( ; p != NULL && --m; p = p->next );
+
+	ASSERT( p != NULL,
+		("datadec: bad print number %d in shape %s of type %s\n",
+		m, sname, dname));
+
+	return p;
+}
+
+
+