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