From 8248a419944a794f82bceadb815a89b7aaaf04c4 Mon Sep 17 00:00:00 2001
From: bruce <none@none>
Date: Fri, 6 Feb 1987 14:15:49 +0000
Subject: [PATCH] Initial revision

---
 modules/src/em_opt/makefuns.awk | 59 +++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100644 modules/src/em_opt/makefuns.awk

diff --git a/modules/src/em_opt/makefuns.awk b/modules/src/em_opt/makefuns.awk
new file mode 100644
index 000000000..e140fdaf4
--- /dev/null
+++ b/modules/src/em_opt/makefuns.awk
@@ -0,0 +1,59 @@
+BEGIN		{
+		FS = "|";
+		seenproc = 0;
+		CC="${CMD}"
+		}
+/^%/		{}
+/^$/		{}
+/^[a-z]/ && $3 !~ /.*NOTIMPLEMENTED.*/ {
+		if(seenproc) {
+			print "}"
+			print "--EOF--"
+			printf "if %s C_%s.c\n",CC,nam
+			printf "then :\nelse exit 1\nfi\n"
+			printf "rm -f C_%s.c\n",nam
+		}
+		seenproc = 1
+		$1 = substr($1,1,index($1,"\t")-1);
+		nam = $1
+		printf "cat > C_%s.c << '--EOF--'\n",$1
+		print "#include \"nopt.h\""
+		printf "C_%s(",$1
+		nparms = split($2,parms,":");
+		for(p=1;p<nparms;p++) {
+			if(p!=1) {
+				printf ","
+			}
+			split(parms[p+1],a," ")
+			printf a[1]
+		}
+		printf ")\n"
+		if(nparms) {
+			printf "\t%s",parms[1]
+		}
+		for(p=1;p<nparms;p++) {
+			split(parms[p+1],a," ")
+			printf " %s;\n",a[1]
+			if(a[2]) {
+				printf "\t%s%s%s",a[2],a[3],a[4]
+			}
+		}
+		if($3) {
+			printf "{\n\t%s\n",$3
+		}
+		else {
+			printf "{\n"
+		}
+		}
+/^	/	{
+		print
+		}
+END		{
+		if(seenproc) {
+			print "}"
+			print "--EOF--"
+			printf "if %s C_%s.c\n",CC,nam
+			printf "then :\nelse exit 1\nfi\n"
+			printf "rm -f C_%s.c\n",nam
+		}
+		}
-- 
2.34.1