Subversion Repositories or1k

#!/bin/nawk
 
 
$0 ~ /'[\/\\]" */ || $1 == "'"    { next }    # eat [nt]roff comments
 
# defining macros - eat them 
/^\.de.*/ {
        getline
        while ( $0 !~ "^\.\.$" )
        {
            getline
        }
        getline
    }
 
$1 == ".VS" || $1 == ".VE" || $1 == ".AS"  { next }
 
 
# handle first .SH as special case - .SH NAME
/^.SH *NAME */ {
        getline
        while ( $0 ~ /\.[a-zA-Z].*/ )   # eat dot-cmd following title 
        {
            getline
        }
        print "<TITLE>" $0 "</TITLE>"
        print "<H1>" $0 "</H1>\n"
        next
 
#-e 's/^.SH *NAME */{N;s#.*\n\(.*\)#<H1>\1</H1>#;}' \
    }
 
 
# Convert .IP Paragraphs upto next .cmd to hanging indents
#       using <UL></UL> pairs without intervening <LI>
 
/^\.IP */ {
        if ( inIP > 0 )
        {
            print "</UL>"
        }
        inIP = 1 
        print "<UL>"
        match($0, /".*"/ )
        if ( RSTART > 0 )
        {
            arg = substr( $0, RSTART+1, RLENGTH-2)
 
            print arg " <BR>"
        }
        else if ( length( $2 ) > 0 )
        {
            print $2 " <BR>"
        }
        next
    }
 
$0 ~ /^\.[a-zA-Z]*/ && inIP > 0 {
        inIP = 0
        print "</UL>"
    }
 
# Convert 
# .TP
# Line1
# line 2 - n
# .Any              
#
# to
# <DL>
# <DT> Line1
# <DD> lines 2 - n 
# <DT>
 
/^\.TP */ {
        if ( inTP > 0 )
        {
            print "</DL>"
        }
        inTP = 1 
        print "<DL>"
        next
    }
 
inTP == 1 && $1 !~ /\.[a-zA-Z]*/ {
        print "<DT> " $0
        inTP = 2
        next
    }
 
inTP == 2 && $1 !~ /\.[a-zA-Z]*/{
        print "</I></B>"    # Belt and suspenders
        print "<DD> " $0
        inTP = 3
        next
    }
 
$0 ~ /^\.[a-zA-Z]*/ && inTP > 0 {
        inTP = 0
        print "</DL>"
    }
 
 
 
$1 == ".AP" {
        $1=""
        print "<DL >"
        print "<DT> " $2 "\t\t" $3 "\t\t("$4")"
        inTP = 2
        next
    }
 
# make a blank line 
$1 == ".sp" {
        print "<BR>"
        next #        print "<BR>"
    }
 
 
$1 == ".ta"  { next }
 
 
# try and make links ( tk ) 
#       "See the .*  manual entry"
 
/"options"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"options\"", "<A HREF=\"http://www.sco.com/Technology/tcl/man/tk_man/options.n.html\"> \"options\" </A>")
    }
 
/"entry"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"entry\"", "<A HREF=\"http://www.sco.com/Technology/tcl/man/tk_man/entry.n.html\"> \"entry\" </A>")
    }
 
/"button"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"button\"", "<A HREF=\"http://www.sco.com/Technology/tcl/man/tk_man/button.n.html\"> \"button\" </A>")
    }
 
/"scrollbar"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"scrollbar\"", "<A HREF=\"http://www.sco.com/Technology/tcl/man/tk_man/scrollbar.n.html\"> \"scrollbar\" </A>")
    }
 
/"listbox"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"listbox\"", "<A HREF=\"http://www.sco.com/Technology/tcl/man/tk_man/listbox.n.html\"> \"listbox\" </A>")
    }
 
/"canvas"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"canvas\"", "<A HREF=\"http://www.sco.com/Technology/tcl/man/tk_man/canvas.n.html\"> \"canvas\" </A>")
    }
 
/"text"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"text\"", "<A HREF=\"http://www.sco.com/Technology/tcl/man/tk_man/text.n.html\"> \"text\" </A>")
    }
 
/"license.terms"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"license\".terms", "<A HREF=\"legal.html\"> license.\"terms\" </A>")
    }
 
/"buttonbox"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"buttonbox\"", "<A HREF=\"buttonbox.n.html\"> \"buttonbox\" </A>")
    }
 
/"combobox"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"combobox\"", "<A HREF=\"combobox.n.html\"> \"combobox\" </A>")
    }
 
/"dialog"/  {
    if ( $0 ~ /^See the .*/ )
      sub("\"dialog\"", "<A HREF=\"dialog.n.html\"> \"dialog\" </A>")
    }
 
/"dialogshell"/  {
    if ( $0 ~ /^See the .*/ )
      sub("\"dialogshell\"", "<A HREF=\"dialogshell.n.html\"> \"dialogshell\" </A>")
    }
 
/"entryfield"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"entryfield\"", "<A HREF=\"entryfield.n.html\"> \"entryfield\" </A>")
    }
 
/"fileselectionbox"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"fileselectionbox\"", "<A HREF=\"fileselectionbox.n.html\"> \"fileselectionbox\" </A>")
    }
 
/"fileselectiondialog"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"fileselectiondialog\"", "<A HREF=\"fileselectiondialog.n.html\"> \"fileselectiondialog\" </A>")
    }
 
/"labeledwidget"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"labeledwidget\"", "<A HREF=\"labeledwidget.n.html\"> \"labeledwidget\" </A>")
    }
 
/"messagedialog"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"messagedialog\"", "<A HREF=\"messagedialog.n.html\"> \"messagedialog\" </A>")
    }
 
/"optionmenu"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"optionmenu\"", "<A HREF=\"optionmenu.n.html\"> \"optionmenu\" </A>")
    }
 
/"panedwindow"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"panedwindow\"", "<A HREF=\"panedwindow.n.html\"> \"panedwindow\" </A>")
    }
 
/"promptdialog"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"promptdialog\"", "<A HREF=\"promptdialog.n.html\"> \"promptdialog\" </A>")
    }
 
/"pushbutton"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"pushbutton\"", "<A HREF=\"pushbutton.n.html\"> \"pushbutton\" </A>")
    }
 
/"scrolledcanvas"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"scrolledcanvas\"", "<A HREF=\"scrolledcanvas.n.html\"> \"scrolledcanvas\" </A>")
    }
 
/"scrolledframe"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"scrolledframe\"", "<A HREF=\"scrolledframe.n.html\"> \"scrolledframe\" </A>")
    }
 
/"scrolledlistbox"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"scrolledlistbox\"", "<A HREF=\"scrolledlistbox.n.html\"> \"scrolledlistbox\" </A>")
    }
 
/"scrolledtext"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"scrolledtext\"", "<A HREF=\"scrolledtext.n.html\"> \"scrolledtext\" </A>")
    }
 
/"selectionbox"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"selectionbox\"", "<A HREF=\"selectionbox.n.html\"> \"selectionbox\" </A>")
    }
 
/"selectiondialog"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"selectiondialog\"", "<A HREF=\"selectiondialog.n.html\"> \"selectiondialog\" </A>")
    }
 
/"spindate"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"spindate\"", "<A HREF=\"spindate.n.html\"> \"spindate\" </A>")
    }
 
/"spinint"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"spinint\"", "<A HREF=\"spinint.n.html\"> \"spinint\" </A>")
    }
 
/"spinner"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"spinner\"", "<A HREF=\"spinner.n.html\"> \"spinner\" </A>")
    }
 
/"spintime"/  {
    if ( $0 ~ /^See the .*/ )
        sub("\"spintime\"", "<A HREF=\"spintime.n.html\"> \"spintime\" </A>")
    }
 
/^Name: */ {
        print $1 "                   " $2
        next
    }
 
/^Class: */ {
        print $1 "                  " $2
        next
    }
 
/^Bret A. Schuhmacher*/ {
        print "<A HREF=\"mailto:bas@wn.com\">" $0 "</A>"
        next
    }
 
/^John S. Sigler*/ {
        print "<A HREF=\"mailto:jsigler@spd.dsccc.com\">" $0 "</A>"
        next
    }
 
/^Mark L. Ulferts*/ {
        print "<A HREF=\"mailto:mulferts@spd.dsccc.com\">" $0 "</A>"
        next
    }
 
/^Alfredo Jahn*/ {
        print "<A HREF=\"mailto:ajahn@spd.dsccc.com\">" $0 "</A>"
        next
    }
 
/^Sue Yockey*/ {
        print "<A HREF=\"mailto:syockey@spd.dsccc.com\">" $0 "</A>"
        next
    }
 
# just pass everything else on
 
    { print $0 }