Initial revision

diff --git a/munch.awk b/munch.awk
new file mode 100644 (file)
index 0000000..dd379de
--- /dev/null
+++ b/munch.awk
@@ -0,0 +1,11 @@
+BEGIN { special = 0 }
+
+/EXTERNS/ { ndirs = split(subdirs, dirs)
+           for (i = 1; i <= ndirs; ++i)
+               printf "extern void EXFUN(__init_%s, (NOARGS));\n", dirs[i]
+           special = 1 }
+/CALLS/ { ndirs = split(subdirs, dirs)
+         for (i = 1; i <= ndirs; ++i) printf "  __init_%s();\n", dirs[i]
+         special = 1 }
+
+{ if (special == 0) print $0; special = 0 }