From d165d39c08ebc8be6ef3662022196758ef580f80 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Sat, 30 Jan 2021 13:22:38 +0000
Subject: Move aux files to root directory

---
 emcollect | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 emcollect

(limited to 'emcollect')

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 }
-- 
cgit v1.2.3