[l2h] latex2html fixes (non-member submission)
Karsten Tinnefeld
Karsten Tinnefeld <tinnefeld@ls2.cs.uni-dortmund.de>
Tue, 16 Jan 2001 13:15:25 +0100
This is a multipart MIME message.
--==_Exmh_12416471660
Content-type: text/plain; charset=iso-8859-1
Content-transfer-encoding: 8bit
MIME-Version: 1.0
Dear latex2html friends and maintainers,
during my work with latex2html I did some fixes and additions to the
99-2b6 beta distribution which all seem to apply to 99-2b8 as well.
Karsten Tinnefeld tinnefeld@ls2.cs.uni-dortmund.de
Fachbereich Informatik, Lehrstuhl 2 T +49 231 755-4737
Universität Dortmund, D-44221 Dortmund, Deutschland F +49 231 755-2047Please feel free to incorporate all additions you think useful and
appropriate into the archive. As I am not subscribed to the list,
please contact me personally in case of questions. If you intend to
mention me in some way, please use the address <karsten@tinnefeld.com>.
The mailing list archive, as mentioned in
http://saftsack.fs.uni-bayreuth.de/~latex2ht/node4.html, seems to be
non-existing. Hope I'm not posting into void.
Patch to versions/html4_0.pl:
4a5,7
> #
> # Type "raggedleftt" corrected Karsten Tinnefeld <karsten@tinnefeld.com>
> # 2000-04-17
52c55
< sub do_cmd_raggedleftt {
---
> sub do_cmd_raggedleft {
Patch to styles/babel.perl:
10a11,13
> # even more Languages Karsten Tinnefeld <karsten@tinnefeld.com>
> # 2000-04-17
> #
156a160
> , 'german' , 'de'
Additional styles to support part or the koma-script package (CTAN:
macros/latex/contrib/supported/koma-script), for convenience
mime-attached.
Thanks for maintaining latex2html,
Karsten Tinnefeld
--==_Exmh_12416471660
Content-Type: text/plain ; name="scrartcl.perl"; charset=us-ascii
Content-Description: styles/scrartcl.perl
Content-Disposition: attachment; filename="scrartcl.perl"
# scrartcl.perl -*- perl -*-
# by Karsten Tinnefeld <karsten@tinnefeld.com> 11-22-1999
#
package main;
sub do_require_packageoption {
my $option = shift;
my $do_option;
# first look for a file named ${option}.perl
do_require_package $option unless $styles_loaded{$option};
# special treatment for some variate options
my ($package, $opt) = split "_", $option;
if ($package =~ m/scrartcl/) {
if ($opt =~ m/^BCOR(.*)/) {
eval "do_$package_BCOR_ $1";
$styles_loaded{$option} = 1;
return;
} elsif ($opt =~ m/^DIV(.*)/) {
eval "do_$package_DIV_ $1";
$styles_loaded{$option} = 1;
return;
} elsif ($opt =~ m/(.*)paper$/) {
eval "do_$package_paper_ $1";
$styles_loaded{$option} = 1;
return;
}
}
# next look for a subroutine named do_$option
$do_option = "do_$option";
if ( ! $styles_loaded{$option} and defined(&$do_option)) {
&$do_option();
$styles_loaded{$option} = 1;
}
}
sub do_scrartcl_BCOR_ {}
sub do_scrartcl_DIV_ {}
sub do_scrartcl_paper_ {}
sub do_scrartcl_headsepline {}
sub do_scrartcl_headnosepline {}
sub do_scrartcl_footsepline {}
sub do_scrartcl_footnosepline {}
sub do_scrartcl_10pt {
$LATEX_FONT_SIZE = '10pt' unless $LATEX_FONT_SIZE;
}
sub do_scrartcl_11pt {
$LATEX_FONT_SIZE = '11pt' unless $LATEX_FONT_SIZE;
}
sub do_scrartcl_12pt {
$LATEX_FONT_SIZE = '12pt' unless $LATEX_FONT_SIZE;
}
sub do_scrartcl_oneside {}
sub do_scrartcl_twoside {}
sub do_scrartcl_draft {}
sub do_scrartcl_final {}
sub do_scrartcl_titlepage{}
sub do_scrartcl_notitlepage{}
sub do_scrartcl_onecolumn{}
sub do_scrartcl_twocolumn{}
sub do_scrartcl_leqno{ $EQN_TAGS = 'L'; }
sub do_scrartcl_fleqn{ $FLUSH_EQN = 1; }
sub do_scrartcl_openbib{}
sub do_scrartcl_abscracton {}
sub do_scrartcl_abscractoff {}
sub do_scrartcl_pointednumbers {}
sub do_scrartcl_pointednumber {}
sub do_scrartcl_pointlessnumbers {}
sub do_scrartcl_pointlessnumber {}
sub do_scrartcl_bigheadings {}
sub do_scrartcl_bigheading {}
sub do_scrartcl_normalheadings {}
sub do_scrartcl_normalheading {}
sub do_scrartcl_smallheadings {}
sub do_scrartcl_smallheading {}
sub do_scrartcl_liststotoc {}
sub do_scrartcl_bibtotoc {}
sub do_scrartcl_bibtotocnumbered {}
sub do_scrartcl_idxtotoc {}
sub do_cmd_thesection {
join('', &do_cmd_arabic("${O}0${C}section${O}0$C"), @_[0]) }
sub do_cmd_thesubsection {
join('',&translate_commands("\\thesection")
,".", &do_cmd_arabic("${O}0${C}subsection${O}0$C"), @_[0]) }
sub do_cmd_thesubsubsection {
join('',&translate_commands("\\thesubsection")
,"." , &do_cmd_arabic("${O}0${C}subsubsection${O}0$C"), @_[0]) }
sub do_cmd_theparagraph {
join('',&translate_commands("\\thesubsubsection")
,"." , &do_cmd_arabic("${O}0${C}paragraph${O}0$C"), @_[0]) }
sub do_cmd_thesubparagraph {
join('',&translate_commands("\\theparagraph")
,"." , &do_cmd_arabic("${O}0${C}subparagraph${O}0$C"), @_[0]) }
sub do_cmd_theequation {
join('', &do_cmd_arabic("${O}0${C}equation${O}0$C"), @_[0]) }
sub do_cmd_thefootnote {
join('', &do_cmd_arabic("${O}0${C}footnote${O}0$C"), @_[0]) }
sub do_cmd_thefigure {
join('', &do_cmd_arabic("${O}0${C}figure${O}0$C"), @_[0]) }
sub do_cmd_thetable {
join('', &do_cmd_arabic("${O}0${C}table${O}0$C"), @_[0]) }
1
--==_Exmh_12416471660
Content-Type: text/plain ; name="scrdate.perl"; charset=us-ascii
Content-Description: styles/scrdate.perl
Content-Disposition: attachment; filename="scrdate.perl"
# scrdate.perl -*- perl -*-
# by Karsten Tinnefeld <karsten@tinnefeld.com> 2000-04-17
#
package main;
sub do_cmd_todaysname {
use POSIX;
POSIX::setlocale(POSIX::LC_ALL, $lcode);
my $day = POSIX::strftime("%A", localtime);
POSIX::setlocale(POSIX::LC_ALL, 'C');
return $day . $_[0];
}
1
--==_Exmh_12416471660--