Added grind support

util/ceg/defaults/message/C_cst.c

@@ -1,7 +1,26 @@
 #define CODE_EXPANDER
 #include <em.h>
+#include <stb.h>
+#include <em_mes.h>
+
+extern int __db_mes, __db_cst, __db_len, __db_type, __db_add;
+extern char *__db_str;
 
 C_cst( l)
 arith l;
 {
+	if (__db_mes) {
+		if (! __db_cst) __db_type = l;
+		else if (__db_cst == 1) {
+			if (__db_mes == ms_std) {
+				if (__db_type == N_SLINE) {
+					C_db_sline();
+				}
+				B_symd(__db_str, __db_len, __db_type, (int) l);
+			}
+			else __db_add = l;
+		}
+		else B_symbcst(__db_str, __db_len, __db_type, __db_add, l);
+		__db_cst++;
+	}
 }

util/ceg/defaults/message/C_dlb.c

@@ -1,8 +1,15 @@
 #define CODE_EXPANDER
 #include <em.h>
+#include "back.h"
+
+extern int __db_mes, __db_len, __db_type, __db_add;
+extern char *__db_str;
 
 C_dlb( l, val)
 label l;
-char *val;
+arith val;
 {
+	if (__db_mes) {
+		B_symbstr(__db_str, __db_len, __db_type, __db_add, extnd_dlb(l), val);
+	}
 }

util/ceg/defaults/message/C_dnam.c

@@ -1,8 +1,15 @@
 #define CODE_EXPANDER
 #include <em.h>
+#include "back.h"
+
+extern int __db_mes, __db_len, __db_type, __db_add;
+extern char *__db_str;
 
 C_dnam( str, val)
 char *str;
 arith val;
 {
+	if (__db_mes) {
+		B_symbstr(__db_str, __db_len, __db_type, __db_add, extnd_dnam(str), val);
+	}
 }

util/ceg/defaults/message/C_ilb.c

@@ -1,7 +1,16 @@
 #define CODE_EXPANDER
 #include <em.h>
+#include "back.h"
+
+extern int __db_mes, __db_len, __db_type, __db_add;
+extern char *__db_str;
+
+extern int B_procno;
 
 C_ilb( l)
 label l;
 {
+	if (__db_mes) {
+		B_symbstr(__db_str, __db_len, __db_type, __db_add, extnd_ilb(l, B_procno), (arith) 0);
+	}
 }

util/ceg/defaults/message/C_mes_begin.c

@@ -1,7 +1,16 @@
 #define CODE_EXPANDER
 #include <em.h>
+#include <em_mes.h>
+
+int __db_mes;
+char *__db_str = 0;
+int __db_len = 0;
+int __db_cst = 0;
+int __db_type;
+int __db_add;
 
 C_mes_begin( ms)
 int ms;
 {
+	__db_mes = (ms == ms_stb || ms == ms_std) ? ms : 0;
 }

util/ceg/defaults/message/C_mes_end.c

@@ -1,6 +1,15 @@
 #define CODE_EXPANDER
 #include <em.h>
 
+extern int __db_mes;
+extern int __db_cst;
+extern char *__db_str;
+
 C_mes_end()
 {
+	if (__db_mes) {
+		__db_mes = 0;
+		__db_cst = 0;
+		__db_str = 0;
+	}
 }

util/ceg/defaults/message/C_pnam.c

@@ -1,7 +1,14 @@
 #define CODE_EXPANDER
 #include <em.h>
+#include "back.h"
+
+extern int __db_mes, __db_len, __db_type, __db_add;
+extern char *__db_str;
 
 C_pnam( str)
 char *str;
 {
+	if (__db_mes) {
+		B_symbstr(__db_str, __db_len, __db_type, __db_add, extnd_name(str), (arith) 0);
+	}
 }

util/ceg/defaults/message/C_scon.c

@@ -1,8 +1,16 @@
 #define CODE_EXPANDER
 #include <em.h>
 
+extern int __db_mes;
+extern char *__db_str;
+extern int __db_len;
+
 C_scon( str, siz)
 char *str;
 arith siz;
 {
+	if (__db_mes) {
+		__db_str = str;
+		__db_len = siz;
+	}
 }