#!/bin/nawk
# cleans up any leading crap before
line in stream from tk2html
/^/ { go = 1 }
/^*/ {
getline ln
numf = split (ln, spln)
if ( ln !~ "Name: *" )
{
ind = 0
inc = 4
print "" )
{
for (i = 1; i <= numf; i++)
{
tablns[ind] = spln[i]
ind++
}
getline ln
numf = split (ln, spln)
}
for (i = 0; i < inc; i++)
{
print ""
for (j = i; j < ind; j += inc)
print tablns[j] " "
print " | "
}
print "
"
}
else
{
print ""
while ( ln !~ "^" )
{
print ln
getline ln
}
print "
"
}
next
}
go == 1 { print $0 }