[l2h] latex2html fixes (re-post after subscription)

[Karsten Tinnefeld]

This is a multipart MIME message.

--==_Exmh_12682306420
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.

Please feel free to incorporate all additions you think useful and 
appropriate into the archive.  If you intend to mention me in some way,
please use the address <karsten@tinnefeld.com>.

After discussion with the TUG webmasters about the absence of 
"majordomo@tug.org", I'd herewith notify whomever it may concern that 
the documentation at 
http://saftsack.fs.uni-bayreuth.de/~latex2ht/node4.html regarding the 
mailing list archive needs to be updated.

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_12682306420
Content-Type: text/plain ; name="scrdate.perl"; charset=iso-8859-1
Content-Description: styles/scrdate.perl
Content-Disposition: attachment; filename="scrdate.perl"
Mime-Version: 1.0
Content-Transfer-Encoding: 8bit

# 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_12682306420
Content-Type: text/plain ; name="scrartcl.perl"; charset=iso-8859-1
Content-Description: styles/scrartcl.perl
Content-Disposition: attachment; filename="scrartcl.perl"
Mime-Version: 1.0
Content-Transfer-Encoding: 8bit

# 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_12682306420
Content-Type: text/plain; charset=iso-8859-1
Mime-Version: 1.0
Content-Transfer-Encoding: 8bit

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-2047
--==_Exmh_12682306420--