1# article.perl by Ross Moore <ross@mpce.mq.edu.au>  09-14-97
2#
3# Extension to LaTeX2HTML V97.1 to support the "article" document class
4# and standard LaTeX2e class options.
5#
6# Change Log:
7# ===========
8#
9# $Log: article.perl,v $
10# Revision 1.6  1998/06/18 12:09:35  RRM
11#  --  do not override user's $LATEX_FONT_SIZE settings
12#
13# Revision 1.5  1998/02/20 22:08:30  latex2html
14# added log
15#
16# ----------------------------
17# revision 1.4
18# date: 1998/02/13 12:58:51;  author: latex2html;  state: Exp;  lines: +2 -2
19#  --  corrected the use of `.' in section-numbers
20# ----------------------------
21# revision 1.3
22# date: 1998/02/03 02:06:23;  author: RRM;  state: Exp;  lines: +21 -9
23#  --  improved the counter-numbering macros: \the<counter>
24# ----------------------------
25# revision 1.2
26# date: 1998/01/09 02:15:55;  author: RRM;  state: Exp;  lines: +4 -3
27#  --  sets  $LATEX_FONT_SIZE  from class options [10pt,11pt,12pt]
28# ----------------------------
29# revision 1.1
30# date: 1997/09/19 11:00:53;  author: RRM;  state: Exp;
31#      Document-class emulation file
32# 	-- adjusts the \the<counter> macros for sectioning commands
33# 	-- suppresses warnings for standard class-options
34
35
36package main;
37
38
39# Suppress option-warning messages:
40
41sub do_article_a4paper{}
42sub do_article_a5paper{}
43sub do_article_b5paper{}
44sub do_article_legalpaper{}
45sub do_article_letterpaper{}
46sub do_article_executivepaper{}
47sub do_article_landscape{}
48sub do_article_final{}
49sub do_article_draft{}
50sub do_article_oneside{}
51sub do_article_twoside{}
52sub do_article_openright{}
53sub do_article_openany{}
54sub do_article_onecolumn{}
55sub do_article_twocolumn{}
56sub do_article_notitlepage{}
57sub do_article_titlepage{}
58sub do_article_openbib{}
59
60sub do_article_10pt{ $LATEX_FONT_SIZE = '10pt' unless $LATEX_FONT_SIZE; }
61sub do_article_11pt{ $LATEX_FONT_SIZE = '11pt' unless $LATEX_FONT_SIZE; }
62sub do_article_12pt{ $LATEX_FONT_SIZE = '12pt' unless $LATEX_FONT_SIZE; }
63
64sub do_article_leqno{ $EQN_TAGS = 'L'; }
65sub do_article_reqno{ $EQN_TAGS = 'R'; }
66sub do_article_fleqn{ $FLUSH_EQN = 1; }
67
68sub do_cmd_thesection {
69    join('', &do_cmd_arabic("${O}0${C}section${O}0$C"), @_[0]) }
70sub do_cmd_thesubsection {
71    join('',&translate_commands("\\thesection")
72	,".", &do_cmd_arabic("${O}0${C}subsection${O}0$C"), @_[0]) }
73sub do_cmd_thesubsubsection {
74    join('',&translate_commands("\\thesubsection")
75	,"." , &do_cmd_arabic("${O}0${C}subsubsection${O}0$C"), @_[0]) }
76sub do_cmd_theparagraph {
77    join('',&translate_commands("\\thesubsubsection")
78	,"." , &do_cmd_arabic("${O}0${C}paragraph${O}0$C"), @_[0]) }
79sub do_cmd_thesubparagraph {
80    join('',&translate_commands("\\theparagraph")
81	,"." , &do_cmd_arabic("${O}0${C}subparagraph${O}0$C"), @_[0]) }
82
83
84sub do_cmd_theequation {
85    join('', &do_cmd_arabic("${O}0${C}equation${O}0$C"), @_[0]) }
86
87sub do_cmd_thefootnote {
88    join('', &do_cmd_arabic("${O}0${C}footnote${O}0$C"), @_[0]) }
89
90sub do_cmd_thefigure {
91    join('', &do_cmd_arabic("${O}0${C}figure${O}0$C"), @_[0]) }
92
93sub do_cmd_thetable {
94    join('',  &do_cmd_arabic("${O}0${C}table${O}0$C"), @_[0]) }
95
96
971;	# Must be last line
98