Move aux files to root directory

1 files changed, 18 insertions, 0 deletions

diff --git a/emcollect b/emcollect
new file mode 100755
index 0000000..55434ac
--- /dev/null
+++ b/emcollect
@@ -0,0 +1,18 @@
+#!/bin/awk -f
+
+# aux/emcollect -- collect hyperlink references in em source
+
+function collect(line) {
+	left = $0
+	right = $0
+	sub("^ \\[", "", left)
+	sub("\\].*$", "", left)
+	sub("^ \\[[0-9a-z]\\]+ ", "", right)
+	printf "%s=%s\n", left, right
+}
+
+BEGIN { expectblock = 1 }
+
+/^$/							{ expectblock = 1; getline }
+expectblock && /^ \[[0-9a-z]\]+ /	{ block = "nl"; expectblock = 0 }
+block = "nl" && /^ \[[0-9a-z]\]+ [^ 	]+$/	{ collect($0); next }