Initial revision

1987-11-20 11:12:07 +00:00
parent 9947059dcc
commit 75e0c5f7ed
36 changed files with 2660 additions and 0 deletions
--- a/util/ceg/EM_parser/common/eval.c
+++ b/util/ceg/EM_parser/common/eval.c
@@ -0,0 +1,20 @@
+#include <ctype.h>
+#include "decl.h"
+
+
+eval( str)
+char *str;
+{
+	register char c;
+	int i;
+
+	for ( c = *str++; c != '\0'; c= *str++)
+		if ( c == '$' && isdigit( *str)) {
+
+			i = *str++ - '0' - 1;
+			
+			out( "%s", C_instr_info->arg_conv[i]);
+		}
+		else
+			out( "%c", c);
+}