From 67a5d6cb71ccde36ffa31335d307fd82cda92861 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Fri, 29 Jan 2021 20:01:12 +0000
Subject: Add hyperlink references

This requires two passes, the first done by aux/emcollect,
the second by aux/emparse (the main awk script).
---
 aux/emcollect | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 aux/emcollect

(limited to 'aux/emcollect')

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