diff options
Diffstat (limited to 'aux/emcollect')
-rwxr-xr-x | aux/emcollect | 18 |
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 } |