summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/latex-web-companion/xmlstyle/inv2html.pl
blob: 42637a1276c52d5aeab8476bdd7b19969cdfb58d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
########################################################################
# 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 "<HTML>\n<HEAD>\n";
    output "<TITLE> Invitation (sgmlpl/CSS formatting) </TITLE>\n";
    output "<LINK href=\"invit.css\" rel=\"style-sheet\" type=\"text/css\">\n";
    output "<!-- 24 August 1998 mg -->\n";
    output "</HEAD>\n";
});
sgml('end', "</HTML>");

#
# Element Handlers.
#

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

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

# Elements: par and emph
sgml('<par>', "<P>");
sgml('</par>', "</P>\n");

sgml('<emph>', "<EM>");
sgml('</emph>', "</EM>");

sgml('cdata',sub { output $_[0]; });
1;