[l2h] latex2html fixes (non-member submission)

[Karsten Tinnefeld]

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--