Transform Specification for "slides" to "HTML"

<slides>
    ^^</slides>
<slides/title>
    </slides/title>
<slide>
    {
      $htmlname=@<name>.".html";
      if (@?<next>) {$nextfile=@<next>.".html";}
      else {$nextfile="NONEXT";}
      print "[$htmlname";
      $start=length($main::CONTENT);
      ""}.
    '<TITLE>'.$htmlname.'</TITLE>'."\n".
    '<BODY BGCOLOR="white">'.
    ^^.
    '</BODY>'.
    { print "] ";
      open SLIDE,">$htmlname" ;
      $content = substr($main::CONTENT,$start);
      print SLIDE $content;
      if ($nextfile ne "NONEXT") {
        print SLIDE "<A HREF=\"$nextfile\">next</A>\n";
      }
      close SLIDE;
      ""
    }
    </slide>
<slide/title>
    '<H1><FONT COLOR="green">'.
    ^^.
    '</FONT></H1>'
    </slide/title>

###############################################################################
# include some target (HTML) files. Text in this file is NOT processed by the
# parser.
<includeHTML>
    { $includename = @<file>;
      $translate =0;
      if (defined(@<translate>)) {
        $translate= @<translate> eq "yes";
      }
      main::nested_target($includename,$translate);
      ""
    }.
    ^^
    </includeHTML>

<uri>
    '<A HREF="'.@<href>.'">'.
    ^^.
    '</A>'
    </uri>
<code>
    '<PRE>'.
    ^^.
    '</PRE>'
    </code>

include basic.html

<itemize/item>
    <P><LI>.
    ^^.
    </LI></P>
    </itemize/item>


<t;<
next