#!/usr/local/bin/gawk -f
BEGIN {
fotnot = "sann"
ejfaerdig = "sann"
notblockboerjan = "
") {
gsub(/\\t/, " ", $0)
noten[notnummer] = (noten[notnummer] (substr($0, noten[notnummer] == "" ? 2 : 1)))
getline
}
noten[notnummer] = substr(noten[notnummer], 1, length(noten[notnummer]) - (noten[notnummer] ~ "$" ? 11 : 4))
gsub("\r", " ", noten[notnummer])
gsub("\002", " ", noten[notnummer])
gsub(/<\\\/?[pP]( [^>]*)?>/, " ", noten[notnummer])
gsub(/ +$/, "", noten[notnummer])
gsub(/^ +/, "", noten[notnummer])
gsub(/^ /, "", noten[notnummer])
gsub(/
/, "", noten[notnummer])
} else {
if (fotnot) {
while (substr($0, 1, 21) != "<\\\/A>(<\\\/FONT>)?(<\\\/SPAN>)?(<\\\/SUP>)?/)
$0 = ((substr($0, 1, plats - 1)) " [not " notnummer ": " noten[notnummer] "]" (substr((($0) " "), plats + RSTART + RLENGTH - 1))
}
gsub(/ +/, " ", $0)
if (ejfaerdig && substr($0, 1, length(notblockboerjan)) == notblockboerjan) {
print "