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;<