#!/usr/local/bin/perl
# This program is to convert a slide format into htxp format

$face=" FACE=ARIAL ";
$src=".s2htmlrc";
$envfile="env.o";
$homedir=$ENV{'homedir'};

#-------------------------------------------------------------------
# Get .s2htmlrc from . upward to $HOME and append to .env
#-------------------------------------------------------------------

@SRC=`rfind $src`;
open(ENVFILE, ">> $envfile");
foreach $i ( @SRC ) {
open (TMP, "< $i");
while (<TMP>) { print ENVFILE; }
close TMP;
}
close (ENVFILE);

#-----------------------------------------------
# Initialization
#-----------------------------------------------
$bgcolor[1]="darkblue";
$bgcolor[2]="#ff99cc";
$bgcolor[3]="#99ffcc";
#$bgcolor[4]="#00cc99";
#$bgcolor[4]="#ff99ff";
$bgcolor[4]="#ffcc99";

$txcolor[1]="yellow";
$txcolor[2]="black";
$txcolor[3]="black";
$txcolor[4]="black";
$txcolor[5]="blue";

$txsize[1]=6;
$txsize[2]=5;
$txsize[3]=5;
$txsize[4]=4;
$txsize[5]=4;

#-----------------------------------------------
# Process things in env.o
# take care environmental instructions:
# .copyright xxxxxxxxxxxxx
#-----------------------------------------------

$copyright="";
`echo process env file > /dev/tty`;
#`cat env.o > /dev/tty`;
#open (TTY, "> /dev/tty");
open (ENVFILE, "< $envfile");
while (<ENVFILE> ) {
#print TTY "$_";

if ( $_ =~ /^\.lienIPR/ ) { $lienIPR=1; next; }
if ( $_ =~ /^\.copyright\s+(\S+.+$)/ ) { $copyright="$1"; next; }
if ( $_ =~ /^\.bgcolor1\s+(\S+.+$)/ ) { $bgcolor[1]="$1"; next; }
if ( $_ =~ /^\.bgcolor2\s+(\S+.+$)/ ) { $bgcolor[2]="$1"; next; }
if ( $_ =~ /^\.bgcolor3\s+(\S+.+$)/ ) { $bgcolor[3]="$1"; next; }
if ( $_ =~ /^\.bgcolor4\s+(\S+.+$)/ ) { $bgcolor[4]="$1"; next; }
if ( $_ =~ /^\.txcolor1\s+(\S+.+$)/ ) { $txcolor[1]="$1"; next; }
if ( $_ =~ /^\.txcolor2\s+(\S+.+$)/ ) { $txcolor[2]="$1"; next; }
if ( $_ =~ /^\.txcolor3\s+(\S+.+$)/ ) { $txcolor[3]="$1"; next; }
if ( $_ =~ /^\.txcolor4\s+(\S+.+$)/ ) { $txcolor[4]="$1"; next; }
if ( $_ =~ /^\.txcolor5\s+(\S+.+$)/ ) { $txcolor[5]="$1"; next; }
if ( $_ =~ /^\.txsize1\s+(\S+.+$)/ ) { $txsize[1]="$1"; next; }
if ( $_ =~ /^\.txsize2\s+(\S+.+$)/ ) { $txsize[2]="$1"; next; }
if ( $_ =~ /^\.txsize3\s+(\S+.+$)/ ) { $txsize[3]="$1"; next; }
if ( $_ =~ /^\.txsize4\s+(\S+.+$)/ ) { $txsize[4]="$1"; next; }
if ( $_ =~ /^\.txsize5\s+(\S+.+$)/ ) { $txsize[5]="$1"; next; }
}
close (ENVFILE);
#print TTY "BGCOLOR1=$bgcolor[1] \n";

#==========================================================
# Start to process input files
#==========================================================
$next=1;
$prev=0;
$current=0;

print '<HTML>';
print '<body background="', "$homedir/GIF/bg43.jpg", '" bgcolor="#ffffcc" TEXT="black" LINK="blue" VLINK="blue">',"\n";
print ("<font face=arial>\n");
print ("<A NAME=m0></A>\n");
while (<>) {

#$bgcolor[1]="darkblue";
#$bgcolor[2]="#ff6699";
#$bgcolor[3]="#33ffcc";
#$bgcolor[4]="#ffcccc";

#$txcolor[1]="yellow";
#$txcolor[2]="black";
#$txcolor[3]="black";
#$txcolor[4]="black";
#$txcolor[5]="blue";

#$txsize[1]=6;
#$txsize[2]=5;
#$txsize[3]=5;
#$txsize[4]=4;
#$txsize[5]=4;

if ( $_ =~ /^[12345]a/ ) {
@F = split (' ');
if ( $F[1] ne '' && $F[1] != -1 ) {
for ( $i =1; $i < 5; $i++) {
$bgcolor[$i] = $F[1] if ( $F[0] eq ($i . "a") ) ;
$_ = $F[0];
}
$txcolor[5] = $F[1] if ( $F[0] eq "5a" ) ;
}
if ( $F[2] ne '' && $F[2] != -1 ) {
for ( $i =1; $i < 5; $i++) {
$txcolor[$i] = $F[2] if ( $F[0] eq ($i . "a") ) ;
$_ = $F[0];
}
$txsize[5] = $F[2] if ( $F[0] eq "5a" ) ;
}
if ( $F[3] ne '' ) {
for ( $i =1; $i < 5; $i++) {
$txsize[$i] = $F[3] if ( $F[0] eq ($i . "a") ) ;
$_ = $F[0];
}
}
}

#-----------------------------------------------
# 0
#-----------------------------------------------
$_ =~ s|^0\s+(\S.*)$|\
<!-%A->
<a name=head></a>\
<center>\
<TABLE border=5 bgcolor=#006699>\
<TH><font $face color=#66ffcc size=6>
<!-%B->
<!-%center->
<!-%TABLE border=1->
<!-%TR->
<!-%TH->
<!-%font size=6->
$1
<!-%/font->
<!-%/TH->
<!-%/TR->
<!-%/TABLE border=1->
<!-%/center->
<!-%C->
</Table></center>
<!-%D->|; # 0 #

$_ =~ s|^0b\s+(\S.*)$|\
<a name=head>\
</a><center>\
<TABLE border=5 bgcolor=black>\
<TH><font $face color=yellow size=7>$1\
</Table></center>|; # 0 #

$_ =~ s|^0r\s+(\S.*)$|\
<a name=head>\
</a><center>\
<TABLE border=5 bgcolor=darkred>\
<TH><font $face color=yellow size=7>$1\
</Table></center>|; # 0 #

$_ =~ s|^00\s+(\S.*)$|\
<a name=head></a><center>\
<TABLE border=5 bgcolor=#006699>\
<TH><font $face color=#66ffcc size=7>$1</Table></center>|; # 0 #

$_ =~ s|^0t\s+(\S.*)$||; # 0 #

#-----------------------------------------------
# 1 1a
#-----------------------------------------------
if ( $_ =~ /^1\s+/ || $_ =~ /^1a/ ) {
print ("<A NAME=m$next></A> <P>\n");
$prev=$current;
$current=$next;
$next=$next + 1;
}

#-----------------------------------------------
# 1
#-----------------------------------------------
$_ =~ s|^1\s+(\S.*)$|\
<!-%A->
<TABLE>
<TR><TD><TABLE border=1 bgcolor=$bgcolor[1]>
<TR><TD bgcolor=darkred><a href=\#m$current>
<font color=orange size=6 face=symbol> Y </font></A> </TD>
<TH align=left><font $face color=$txcolor[1] size=$txsize[1]>
<!-%B->
<!-%H3->
$1
<!-%/H3->
<!-%C->
</TABLE>
</td>
<td bgcolor=#ffffcc><a href=\#m$next>\
<font $face color=#ffffcc size=4>+\
<font $face color=orange size=2>+</A> \
<td bgcolor=#ffffcc>\
<a href=\#m$prev>\
<font $face color=#ffffcc size=4>- \
<font $face color=orange size=2>-</A> \
<td bgcolor=#ffffcc><a href=#head>\
<font $face color=#ffffcc size=4>^\
<font $face color=orange size=2>^</A>\
</Table>
<!-%D->|; # 1 #

#-----------------------------------------------
# 11
#-----------------------------------------------

$_ =~ s|^11\s+(\S.*)$|\
<!-%A->
<TABLE border=1 bgcolor=$bgcolor[1]> \
<TR>
<TH align=left>\
<font $face color=$txcolor[1] size=$txsize[1]>\
<!-%B->
<!-%H3->
$1
<!-%/H3->
<!-%C->
</Table>
<!-%D->|; # 11 #

#-----------------------------------------------
# 1a
#-----------------------------------------------

$_ =~ s|^1a\s*$|<!-%A->\n<TABLE><TR><TD><TABLE border=1 bgcolor=$bgcolor[1]>\
<TR> <TD bgcolor=darkred><a href=\#m$current>\
<font color=orange face=symbol size=6> Y </font></A> \
<TH><font $face color=$txcolor[1] size=$txsize[1]>\n<!-%B->
<!-%H3->
\n|; # 1 #
#-----------------------------------------------
# 1b
#-----------------------------------------------

#$_ =~ s|^1b\s*$|</TABLE>|;
if ( $_ =~ m|^1b\s*$| ) {
print ("
<!-%/H3->
<!-%C->
</TABLE> </td>\n");
print (" <td bgcolor=#ffffcc><a href=\#m$next>\
<font $face color=#ffffcc size=4>+\
<font $face color=orange size=2>+</A>\
<td bgcolor=#ffffcc>\
<a href=\#m$prev>\
<font $face color=#ffffcc size=4>- \
<font $face color=orange size=2>-</A> \
<td><a href=#head>\
<font $face color=#ffffcc size=4> ^ \
<font $face color=orange size=2> ^</A> \
</Table>
<!-%D->\n") ;
$_ = "";
}
#-----------------------------------------------
# [2345] b
#-----------------------------------------------
$_ =~ s|^2b\s*$|\n<!-%/H4->\n<!-%C->\n</TABLE>\n<!-%D->\n|;

$_ =~ s|^3b\s*$|\n<!-%/H5->\n<!-%C->\n</TABLE>\n<!-%D->\n</ul>\n|;
$_ =~ s|^4b\s*$|\n<!-%/H6->\n<!-%C->\n</TABLE>\n<!-%D->\n</ul></ul>\n|;
$_ =~ s|^5b\s*$|</ul></ul></ul>|;

#$_ =~ s|^1b\s+(\S.*)$|<li><font $face color=black><H1><b>* $1</b>|; # 1b #

#-----------------------------------------------
# 2
#-----------------------------------------------
$_ =~ s|^2\s+(\S.*)$|\n<li>
<!-%A->
<TABLE border=2 bgcolor=$bgcolor[2]>
<TR><TH ALIGN=left><font $face color=$txcolor[2] size=5>
<!-%B->
<!-%H4->
$1
<!-%/H4->
<!-%C->
</TABLE>
<!-%D->\n|; # 2 #
#-----------------------------------------------
# 2a
#-----------------------------------------------
$_ =~ s|^2a\s*|\n<li>
<!-%A->
<TABLE border=2 bgcolor=$bgcolor[2]>
<TR><TH Align=left><font $face color=$txcolor[2] size=$txsize[2]>
<!-%B->\n<!-%H4->\n|; # 2 #

#-----------------------------------------------
# 3
#-----------------------------------------------

$_ =~ s|^3\s+(\S.*)$|\n<ul><li>
<!-%A->
<TABLE border=1 bgcolor=$bgcolor[3]>
<TR><TH align=left><font $face color=$txcolor[3] size=$txsize[3]>
<!-%B->
<!-%H5->
$1
<!-%/H5->
<!-%C->
</TABLE>
<!-%D->\n</ul>|; # 3 #
#-----------------------------------------------
# 3a
#-----------------------------------------------
$_ =~ s|^3a\s*$|\n<ul><li>
<!-%A->
<TABLE border=1 bgcolor=$bgcolor[3]>
<TR><TH Align=left><font $face color=$txcolor[3] size=$txsize[3]>
<!-%B->\n<!-%H5->\n\n|; # 3 #

#-----------------------------------------------
# 4
#-----------------------------------------------
$_ =~ s|^4\s+(\S.*)$|\n<ul><ul><li>
<!-%A->
<TABLE border=1 bgcolor=$bgcolor[4]>
<TR><TH align=left><font $face color=$txcolor[4] size=$txsize[4]>
<!-%B->
<!-%H6->
$1
<!-%/H6->
<!-%C->
</TABLE>
<!-%D->\n</ul></ul>|; # 3 #
#-----------------------------------------------
# 4a
#-----------------------------------------------
$_ =~ s|^4a\s*$|\n<ul><ul><li>
<!-%C->
<TABLE border=1 bgcolor=$bgcolor[4]>
<TR><th aligh=left><font $face color=$txcolor[4] size=$txsize[4]>
<!-%D->\n<!-%H6->\n
\n|; # 3 #

#-----------------------------------------------
# 5 5a
#-----------------------------------------------
$_ =~ s|^5\s+(\S.*)$|\n<ul><ul><ul><li>
<font $face color=$txcolor[5]>
<!-%font color=black->
<font $face size=$txsize[5]><b>
$1</b></ul></ul></ul>|; # 5 #

$_ =~ s|^5a\s*$|<ul><ul><ul><li>
<font $face color=$txcolor[5] size=$txsize[5]><b>|; # 5a #

#-----------------------------------------------
# 6 6b
#-----------------------------------------------
$_ =~ s|^6\s+(\S.*)$|\n<ul><ul><ul><ul><ul><li><font $face color=black><H6><TT>$1</TT></ul></ul></ul></ul></ul>|; # 5w #

$_ =~ s|^6b\s+(\S.*)$|<li><font $face color=red><H2><b>$1</b>|; # 6b #
#-----------------------------------------------
# 7 7b
#-----------------------------------------------

$_ =~ s|^7\s+(\S.*)$|<li><font $face color=green><H3><b>$1</b>|; # 7 #
$_ =~ s|^7b\s+(\S.*)$|<li><font $face color=green><H3><b>$1</b>|; # 7b #

#-----------------------------------------------
# 8 8b
#-----------------------------------------------
$_ =~ s|^8\s+(\S.*)$|<li><font $face color=brown><H4><b>$1</b>|; # 8 #
$_ =~ s|^8b\s+(\S.*)$|<li><font $face color=brown><H4><b>$1</b>|; # 8b #

#-----------------------------------------------
# 9
#-----------------------------------------------
$_ =~ s|^9\s+(\S.*)$|<li><font $face color=blue><H5><b>$1</b>|; # 9 #

print $_ ; next;
}
print "\n";
if ( $lienIPR eq 1 ) {
print "<center><IMG src=\"$homedir/GIF/lienIPR.gif\"></center>";
}
if ( $copyright ne "") {
print "<H6>Web Page Copyright: $copyright\n ";
}
print "</HTML>\n";
if ( eof ) { exit; }