summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/latex-web-companion/xmlstyle/inv1html.pl
blob: 0f1e0d4e380389f156e2d1a53a16716bcc376f16 (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: inv1html.pl (for HTML/CSS formatting)
# Edited by: mg (24 Aug 98)
########################################################################

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

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

#
# Element Handlers.
#

sgml('<invitation>', "<BODY>\n<H1>INVITATION</H1>\n");
sgml('</invitation>', "</BODY>\n");

sgml('<front>', "<P><TABLE>\n<TBODY>\n");
sgml('</front>', "</TBODY>\n</TABLE>\n");

sgml('<to>', "<TR><TD class=\"front\">To: </TD>\n<TD>");
sgml('</to>', "</TD></TR>\n");
 
sgml('<date>', "<TR><TD class=\"front\">When: </TD>\n<TD>");
sgml('</date>', "</TD></TR>\n");

sgml('<where>', "<TR><TD class=\"front\">Venue: </TD>\n<TD>");
sgml('</where>', "</TD></TR>\n");

sgml('<why>', "<TR><TD class=\"front\">Occasion: </TD>\n<TD>");
sgml('</why>', "</TD></TR>\n");

sgml('<body>', "");
sgml('</body>', "");

sgml('<par>', "<P>");
sgml('</par>', "</P>\n");

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

sgml('<back>', "");
sgml('</back>', "");

sgml('<signature>', "<P CLASS=\"signature\">");
sgml('</signature>', "</P>\n");

sgml('start_element',sub { die "Unknown element: " . $_[0]->name; });
sgml('cdata',sub { output $_[0]; });

1;