<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">########################################################################
# SGMLSPL script produced automatically by the script sgmlspl.pl
#
# Document Type: inv2html.pl (for HTML/CSS formatting)
# Edited by: mg (25 Aug 1998)
########################################################################

use SGMLS;                      # Use the SGMLS package.
use SGMLS::Output;              # Use stack-based output.

#
# Document Handlers.
#
sgml('start', sub {
    output "&lt;HTML&gt;\n&lt;HEAD&gt;\n";
    output "&lt;TITLE&gt; Invitation (sgmlpl/CSS formatting) &lt;/TITLE&gt;\n";
    output "&lt;LINK href=\"invit.css\" rel=\"style-sheet\" type=\"text/css\"&gt;\n";
    output "&lt;!-- 24 August 1998 mg --&gt;\n";
    output "&lt;/HEAD&gt;\n";
});
sgml('end', "&lt;/HTML&gt;");

#
# Element Handlers.
#

# Element: invitation
sgml('&lt;invitation&gt;', sub { 
   my ($element,$event) = @_;
   # First save the information for further use 
   #  Local variables
   my $date  = $element-&gt;attribute('date')-&gt;value;
   my $to    = $element-&gt;attribute('to')-&gt;value;
   my $where = $element-&gt;attribute('where')-&gt;value;
   my $why   = $element-&gt;attribute('why')-&gt;value;
   #  Global variable (saved for end of document)
   $main::GLsig   = $element-&gt;attribute('signature')-&gt;value;
   # Output the HTML commands needed for the front matter
   output "&lt;BODY&gt;\n&lt;H1&gt;INVITATION&lt;/H1&gt;\n";
   output "&lt;P&gt;&lt;TABLE&gt;\n&lt;TBODY&gt;\n";
   output "&lt;TR&gt;&lt;TD class=\"front\"&gt;To: &lt;/TD&gt;\n&lt;TD&gt;$to&lt;/TD&gt;&lt;/TR&gt;\n";
   output "&lt;TR&gt;&lt;TD class=\"front\"&gt;When: &lt;/TD&gt;\n&lt;TD&gt;$date&lt;/TD&gt;&lt;/TR&gt;\n";
   output "&lt;TR&gt;&lt;TD class=\"front\"&gt;Venue: &lt;/TD&gt;\n&lt;TD&gt;$where&lt;/TD&gt;&lt;/TR&gt;\n";
   output "&lt;TR&gt;&lt;TD class=\"front\"&gt;Occasion: &lt;/TD&gt;\n&lt;TD&gt;$why&lt;/TD&gt;&lt;/TR&gt;\n";
   output "&lt;/TBODY&gt;\n&lt;/TABLE&gt;\n";
});

sgml('&lt;/invitation&gt;', sub{ # signature and end of document
     output "&lt;P CLASS=\"signature\"&gt;$main::GLsig&lt;/P&gt;\n";
     output "&lt;/BODY&gt;\n";
});

# Elements: par and emph
sgml('&lt;par&gt;', "&lt;P&gt;");
sgml('&lt;/par&gt;', "&lt;/P&gt;\n");

sgml('&lt;emph&gt;', "&lt;EM&gt;");
sgml('&lt;/emph&gt;', "&lt;/EM&gt;");

sgml('cdata',sub { output $_[0]; });
1;
</pre></body></html>