1# amsart.perl by Ross Moore <ross@mpce.mq.edu.au>  10-01-97
2#
3# Extension to LaTeX2HTML V97.1 to support the "AMS article" document class
4# and standard LaTeX2e class options.
5#
6# Change Log:
7# ===========
8
9package main;
10
11&do_require_package('amstex');
12
13&do_require_package('amsfonts');
14
15# Suppress option-warning messages:
16
17sub do_amsart_10pt{}
18sub do_amsart_11pt{}
19sub do_amsart_12pt{}
20sub do_amsart_8pt{}
21sub do_amsart_9pt{}
22sub do_amsart_a4paper{}
23sub do_amsart_a5paper{}
24sub do_amsart_b5paper{}
25sub do_amsart_legalpaper{}
26sub do_amsart_letterpaper{}
27sub do_amsart_executivepaper{}
28sub do_amsart_landscape{}
29sub do_amsart_portrait{}
30sub do_amsart_final{}
31sub do_amsart_draft{}
32sub do_amsart_e_only{}
33sub do_amsart_oneside{}
34sub do_amsart_twoside{}
35sub do_amsart_openright{}
36sub do_amsart_openany{}
37sub do_amsart_onecolumn{}
38sub do_amsart_twocolumn{}
39sub do_amsart_notitlepage{}
40sub do_amsart_titlepage{}
41sub do_amsart_openbib{}
42
43sub do_amsart_nomath{}
44
45sub do_amsart_noamsfonts{
46    &do_amsfonts_noamsfonts() if (defined &do_amsfonts_noamsfonts);
47    $styles_loaded{'noamsfonts'} = 1; };
48
49sub do_amsart_psamsfonts{
50    &do_amsfonts_psamsfonts() if (defined &do_amsfonts_psamsfonts);
51    $styles_loaded{'psamsfonts'} = 1; };
52
53sub do_amsart_centertags{&do_amstex_centertags()}
54sub do_amsart_tbtags{&do_amstex_tbtags()}
55sub do_amsart_leqno{&do_amstex_leqno()}
56sub do_amsart_reqno{&do_amstex_reqno()}
57sub do_amsart_fleqno{&do_amstex_fleqno()}
58
59sub do_amsart_makeidx{ &do_require_package('makeidx') }
60
61
62sub do_cmd_thesection {
63    local($_) = @_;
64    join('', &do_cmd_arabic('<<0>>section<<0>>'), $_);
65}
66sub do_cmd_thesubsection {
67    local($_) = @_;
68    join('',&translate_commands("\\thesection")
69	,"." , &do_cmd_arabic('<<0>>subsection<<0>>'), $_);
70}
71sub do_cmd_thesubsubsection {
72    local($_) = @_;
73    join('',&translate_commands("\\thesubsection")
74	,"." , &do_cmd_arabic('<<0>>subsubsection<<0>>'), $_);
75}
76sub do_cmd_theparagraph {
77    local($_) = @_;
78    join('',&translate_commands("\\thesubsubsection")
79	,"." , &do_cmd_arabic('<<0>>paragraph<<0>>'), $_);
80}
81
82
83
84sub do_cmd_theequation {
85    local($_) = @_;
86    join('', &do_cmd_arabic('<<0>>equation<<0>>'), $_);
87}
88
89sub do_cmd_thefootnote {
90    local($_) = @_;
91    join('', &do_cmd_arabic('<<0>>footnote<<0>>'), $_);
92}
93
94sub do_cmd_textprime {
95    local($_) = @_;
96    local($this) = &process_in_latex("\$\\scriptsize{\\prime}\$");
97    "<SUP>".$this."</SUP>".$_;
98}
99
100sub do_cmd_partname { $part_name . @_[0] }
101sub do_cmd_indexname { $idx_title . @_[0] }
102sub do_cmd_appendixname { $app_title . @_[0] }
103sub do_cmd_abstractname { $abs_title . @_[0] }
104sub do_cmd_refname { $ref_title . @_[0] }
105sub do_cmd_bibname { $bib_title . @_[0] }
106sub do_cmd_figurename { $fig_name . @_[0] }
107sub do_cmd_tablename { $tab_name . @_[0] }
108sub do_cmd_proofname { $prf_name . @_[0] }
109sub do_cmd_contentsname { $toc_title . @_[0] }
110sub do_cmd_listfigurename { $lof_title . @_[0] }
111sub do_cmd_listtablename { $lot_title . @_[0] }
112
113$key_title = "Key words and phrases";
114$sbj_title = "1991 Mathematics Subject Classification";
115
116sub do_cmd_keywordsname { $key_title . @_[0] }
117sub do_cmd_subjclasssname { $sbj_title . @_[0] }
118
119%section_commands = (
120	'indexchap' , '2'
121	,'specialsection' , '3'
122	, %section_commands);
123
124%section_headings = (
125	'indexchap' , 'H1'
126	,'specialsection' , 'H1'
127	, %section_headings);
128
129
1301;	# Must be last line
131