use awk with no gnu extensions in doc index generation

This commit is contained in:
Trevor Spiteri 2021-03-24 10:05:44 +01:00
parent 5fce801579
commit 8756c0929a
1 changed files with 16 additions and 5 deletions

View File

@ -6,12 +6,22 @@ cd public
cp dev/*/index.html index.html cp dev/*/index.html index.html
function filter { function filter {
gawk "$1" < index.html > index.html.tmp awk "$1" < index.html > index.html.tmp
mv index.html.tmp index.html mv index.html.tmp index.html
} }
filter '{if ($0 ~ /button>$/) {printf "%s", $0; next}; print}' filter '{
filter '{print gensub(/('\''|")\.\.\//, "\\1dev/", "g")}' if ($0 ~ /button>$/) {
printf "%s", $0
getline
}
print
}'
filter '{
gsub(/'\''\.\.\//, "'\''dev/")
gsub(/"\.\.\//, "\"dev/")
print
}'
filter '{ filter '{
gsub(/<\/nav>/, "\013") gsub(/<\/nav>/, "\013")
sub(/<div class="block[^\013]*\013/, "\013") sub(/<div class="block[^\013]*\013/, "\013")
@ -30,10 +40,11 @@ filter '{
print print
}' }'
filter '{ filter '{
if ($0 ~ /<\/h1>/) { if ($0 ~ /<\/h1>/) {
print gensub(/(.*<\/h1>).*/, "\\1", 1) h = $0
sub(/<\/h1>.*/, "</h1>", h)
print h
sub(/.*<\/h1>/, "") sub(/.*<\/h1>/, "")
while ($0 !~ /<\/section>/) { getline } while ($0 !~ /<\/section>/) { getline }
while (getline line<"../etc/index-contents.html") { print line } while (getline line<"../etc/index-contents.html") { print line }