# table-of-contents extractor # Copyright (C) 1999 Sandy Harris. # # This program is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by the # Free Software Foundation; either version 2 of the License, or (at your # option) any later version. See . # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY # or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License # for more details. # # RCSID $Id: contents.awk,v 1.1 2004/03/15 20:35:24 as Exp $ BEGIN { # initialise indent counter indent = 0 # define variables for section breaks b0 = "===================================================" b1 = "---------------------------------------------------" b2 = "\t------------------------------------------" # TURN OFF HTML formatting print "" print "" print "
"
	# print a header
	blurb() 
	print "Section headings printed, indentation shows structure"
}
# start of new file
FNR == 1 {
	print b0
	print "HTML file: " "" FILENAME ""
	print b1
}
# print header lines
# actual printing is done by tagged() function
# which adds tag if last line was 
$0 ~/
/	{
	text = $0
	tabs = ""
	gsub(/.*
/, "", text)
	gsub(/<\/h1>/, "", text)
	tagged( text )
}
$0 ~/
/	{
	text = $0
	tabs = "\t"
	gsub(/.*
/, "", text)
	gsub(/<\/h2>/, "", text)
	tagged(text)
}
$0 ~/
/	{
	text = $0
	tabs = "\t\t"
	gsub(/.*
/, "", text)
	gsub(/<\/h3>/, "", text)
	tagged(text)
}
$0 ~/
/	{
	text = $0
	tabs = "\t\t\t"
	gsub(/.*
/, "", text)
	gsub(/<\/h4>/, "", text)
	tagged( text )
}
# if current line is not header
# and we have stored tag from  line
# make link to that tag
$0 !~ /" name "" " ]"
	name = ""
}
# for  lines
# save name in a variable
# not printed until we see next line
$0 ~ //	{
	name = $0
	# strip anything before or after name tag
	gsub(/.*.*/, "", name)
	# strip quotes off name
	gsub(/^"/, "", name)
	gsub(/"$/, "", name)
}
END	{
	print b0
	blurb()
	print "Docs & script by Sandy Harris"
	print "
" print "" print "" } function tagged(text) { # print header with tag if available if( length(name) ) # > 0 if previous line was a name print tabs "" text "" else print tabs text name = "" } function blurb() { print "Linux FreeSWAN HTML documents" print "Automatically generated Table of Contents" print "Bug reports to the mailing list: linux-ipsec@clinet.fi" print "

" }