aboutsummaryrefslogtreecommitdiff
path: root/aux/emcollect
diff options
context:
space:
mode:
Diffstat (limited to 'aux/emcollect')
-rwxr-xr-xaux/emcollect18
1 files changed, 18 insertions, 0 deletions
diff --git a/aux/emcollect b/aux/emcollect
new file mode 100755
index 0000000..55434ac
--- /dev/null
+++ b/aux/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 }