renamed ase to qse

2008-12-21 20:30:00 +00:00
parent 277023a9c7
commit 4c01ea1604
644 changed files with 0 additions and 0 deletions
--- a/qse/lib/awk/genoptcode.awk
+++ b/qse/lib/awk/genoptcode.awk
@ -0,0 +1,33 @@
+#
+# genoptcode.awk
+#
+# aseawk -f generror.awk awk.h
+#
+
+BEGIN { 
+	collect=0; 
+	tab3="\t\t";
+	tab4="\t\t\t";
+}
+
+/^[[:space:]]*enum[[:space:]]+ase_awk_option_t[[:space:]]*$/ { 
+	collect=1; 
+	print tab3 "// generated by genoptcode.awk";
+	print tab3 "enum Option";
+	print tab3 "{";
+}
+
+collect && /^[[:space:]]*};[[:space:]]*$/ { 
+	print tab3 "};";
+	print tab3 "// end of enum Option";
+	print "";
+	collect=0; 
+}
+
+collect && /^[[:space:]]*ASE_AWK_[[:alnum:]]+/ { 
+	split ($1, flds, ",");
+	name=flds[1];
+
+	print tab4 "OPT_" substr (name,9,length(name)-8) " = " name ",";
+}
+