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
62
63
64
65
|
# justify.perl by Ross Moore <ross@mpce.mq.edu.au> 29-MAY-96
# Mathematics Department, Macquarie University, Sydney.
#
# Extension to LaTeX2HTML to translate LaTeX commands
# for justified paragraphs and environments.
# The HTML markup is not part of HTML 2.0 but is part
# of the recommendations for HTML 3.2.
# Currently it is recognised by popular browsers;
# e.g. Netscape Navigator.
#
# These are also implemented in the file: versions/html3.0.pl
# which is automatically loaded for sufficiently large
# values of $HTML_VERSION .
if ($HTML_VERSION >= 3.0) { return(1); }
package main;
print "\n*********************\n";
print "The justify.perl package allows HTML markup to be produced \n"
. "which is not conforming to the HTML 2.0 standard.\n";
print "Not all Web-browsers can be expected to correctly display this markup.";
print "\n*********************\n\n";
# implements the LaTeX environments
# {center}, {flushleft}, {flushright}
sub do_env_center {
join('',"<P ALIGN=\"CENTER\">","@_","</P>");}
sub do_env_flushleft {
join('',"<P ALIGN=\"LEFT\">","@_","</P>");}
sub do_env_flushright {
join('',"<P ALIGN=\"RIGHT\">","@_","</P>");}
# implements the TeX commands
# \centerline, \leftline, \rightline
sub do_cmd_centerline {
local($_) = @_;
s/$next_pair_pr_rx//o;
join('',"<P ALIGN=\"CENTER\">$2</P>",$_);
}
sub do_cmd_leftline {
local($_) = @_;
s/$next_pair_pr_rx//o;
join('',"<P ALIGN=\"LEFT\">$2</P>",$_);
}
sub do_cmd_rightline {
local($_) = @_;
s/$next_pair_pr_rx//o;
join('',"<P ALIGN=\"RIGHT\">$2</P>",$_);
}
1; # This must be the last line
|
