Index: mttroot/mtt/bin/trans/awk/lbl2cr.awk
==================================================================
--- mttroot/mtt/bin/trans/awk/lbl2cr.awk
+++ mttroot/mtt/bin/trans/awk/lbl2cr.awk
@@ -10,10 +10,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+# Revision 1.5  1997/03/20  12:05:31  peterg
+# Now just writes out the cr name.
+#
 # Revision 1.4  1996/11/09  20:38:45  peterg
 # Put in new lib pat
 #
 ## Revision 1.3  1996/11/04 14:51:14  peterg
 ## Added none to no cr list
@@ -44,19 +47,21 @@
 BEGIN {
 comment = "%";
 arg_delimiter = ",";
 not_a_cr = "effort flow state internal external zero none";
 numeric = "[0-9]";
+symbolic = "\044"; # Ascii $
 symbol_count = 0;
 symbols = "";
 }
 {
   if ( (match($1,comment)==0) && (NF>=3) ) {
     cr = $2;
     first_char = substr(cr,1,1);
     if ( (matches(not_a_cr,cr )==0) \
 	 && (match(not_a_cr,$3)==0) \
+	 && (match($3,"\\$")==0) \
 	 && (match(first_char,numeric)==0) \
 	 && (length(cr )>0) \
 	 && (matches(symbols,cr ) ==0) ) {
       symbol_count++;
       symbols = sprintf("%s %s", symbols, cr );