Initial revision

lang/pc/comp/misc.c

@@ -0,0 +1,60 @@
+/* M I S C E L L A N E O U S    R O U T I N E S */
+
+#include	<alloc.h>
+#include	<em.h>
+
+#include	"LLlex.h"
+#include	"f_info.h"
+#include	"idf.h"
+#include	"main.h"
+#include	"misc.h"
+#include	"node.h"
+
+struct idf *
+gen_anon_idf()
+{
+	/*	A new idf is created out of nowhere, to serve as an
+		anonymous name.
+	*/
+	static int name_cnt;
+	char buff[100];
+	char *sprint();
+
+	sprint(buff, "#%d in %s, line %u", ++name_cnt, FileName, LineNumber);
+	return str2idf(buff, 1);
+}
+
+not_declared(what, id, where)
+	char *what, *where;
+	register struct node *id;
+{
+	/*	The identifier "id" is not declared. If it is not generated,
+		give an error message
+	*/
+	if( !is_anon_idf(id->nd_IDF) )	{
+		node_error(id, "%s \"%s\" not declared%s",
+			   		what, id->nd_IDF->id_text, where);
+	}
+}
+
+char *
+gen_proc_name(id, inp)
+	register struct idf *id;
+{
+	/* generate pseudo and internal name for procedure or function */
+
+	static int name_cnt;
+	static char buf[256];
+	char *sprint(), *Salloc();
+
+	if( inp )	{
+		sprint(buf, "_%d%s", ++name_cnt, id->id_text);
+		C_inp(buf);
+		return Salloc(buf, (unsigned) (strlen(buf) + 1));
+	}
+	else	{
+		C_exp(id->id_text);
+		return id->id_text;
+	}
+
+}