%%
%% This is file `rcsinfo-aux.tex',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% rcsinfo.doc  (with options: `header,files')
%% 
%% IMPORTANT NOTICE:
%% 
%% For the copyright see the source file.
%% 
%% Any modified versions of this file must be renamed
%% with new filenames distinct from rcsinfo-aux.tex.
%% 
%% For distribution of the original source see the terms
%% for copying and modification in the file rcsinfo.doc.
%% 
%% This generated file may be distributed as long as the
%% original source files, as listed above, are part of the
%% same distribution. (The sources need not necessarily be
%% in the same archive or directory.)
%% Package rcsinfo to use with LaTeX2e
%% Copyright (C) 1995-1999 Dr. Juergen Vollmer, all rights reserved.
%% Dr. Juergen Vollmer, Viktoriastrasse 15, D-76133 Karlsruhe, Germany
%% email: Juergen.Vollmer@acm.org
%% $Id: rcsinfo.doc,v 1.6 1999/02/05 18:01:05 vollmer Entwurf vollmer $
%%
%% This system is distributed in the hope that it will be useful,
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.



%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


\begin{filecontents}{rcsinfo.ins}
\def\batchfile{rcsinfo.ins}
\input docstrip.tex

\Msg{}
\Msg{***********************************************************}
\Msg{** Hello to the installation of the `rcsinfo' package.}
\Msg{** Version 1.6, February 5, 1999}
\Msg{***********************************************************}
\Msg{}

\generateFile{rcsinfo.dtx}{f}{\from{rcsinfo.doc}{header,driver}}
\generateFile{rcsinfo.sty}{f}{\from{rcsinfo.doc}{header,package}}
\generateFile{rcsinfo2html.tex}{f}{\from{rcsinfo.doc}{header,html}}
\generateFile{rcsinfo-aux.tex}{f}{\from{rcsinfo.doc}{header,files}}
\generateFile{rcsinfo.cfg}{f}{\from{rcsinfo.doc}{header,config}}

\Msg{}
\Msg{***********************************************************}
\Msg{** Edit the file rcsinfo.cfg and set the default fancy headings package}
\Msg{** To finish the installation move the file `rcsinfo.sty' and}
\Msg{** rcsinfo.cfg to a place where LaTeX will find it.}
\Msg{** To Get the documentation: `latex rcsinfo.dtx'}
\Msg{** and `latex rcsinfo2html.dtx'}
\Msg{** If you are using LaTeX2HTML, move the PERL-package}
\Msg{** `rcsinfo.perl' to a place where LaTeX2HTML will find it.}
\Msg{** `rcsinfo.perl' is created by running `latex rcsinfo.dtx'.}
\Msg{** Happy TeXing}
\Msg{***********************************************************}
\Msg{}
\end{filecontents}
\begin{filecontents*}{rcsinfo.perl}
###############################################################################
# RCSINFO.PERL by Dr. Juergen Vollmer <Juergen.Vollmer@acm.org>
#
# Extension to LaTeX2HTML to translate LaTeX commands of the
#               rcsinfo
# package to equivalent HTML commands.
#
# $Id: rcsinfo.doc,v 1.6 1999/02/05 18:01:05 vollmer Entwurf vollmer $
#
# This file is generated from file "rcsinfo.doc"
###############################################################################

package rcsinfo;

($Dummy1,$PackageVersionDate,$PackageVersionTime,$Dummy2) =
        split (/ /,'$Date: 1999/02/05 18:01:05 $');

print "rcsinfo style interface for LaTeX2HTML, $PackageVersionDate";

# set defaults options
$OptionFancy = 1;
$OptionToday = 1;
$OptionLong  = 1;

# set default values
$Date     = `date '+%Y/%m/%d'`;
$Time     = `date '+%H:%M:%S'`;
$File     = "--sourcefile--";
$Revision = "--revision--";
$Owner    = "--owner--";
$Status   = "--status--";
$Locker   = "--locker--";
$Year     = `date '+%Y'`;
$Month    = `date '+%m'`;
$Day      = `date '+%d'`;
$LongDate = $Date;

sub SetAddress
{
    $main::address_data[1] = "Revision: $rcsinfo::Revision, $rcsinfo::LongDate";
    # Supply your own string if you don't like the default <Name> <Date>
    $main::ADDRESS = "<I>$main::address_data[0] <BR>\n$main::address_data[1]</I>";
}
if ($SetAddressProc == "") {
  $SetAddressProc = \&rcsinfo::SetAddress;
}
sub make_cmds
{
  my $cmd;
  foreach $cmd (File,Revision,Date,Time,Owner,Status,Locker,Year,Month,Day,LongDate) {
        eval "sub main::do_cmd_rcsInfo$cmd { " . '$_ = $rcsinfo::' . "$cmd; }";
  }
}

@GermanMonthName  = ('','Januar','Februar','M&auml;rz','April','Mai','Juni','Juli',
                    'August','September','Oktober','November','Dezember');
@EnglishMonthName = ('','January','February','March','April','May','June','July',
                    'August','September','October','November','December');
@FrenchMonthName  = ('','Janvier','F&eacute;vrier','Mars','Avril','Mai','Juin',
                     'Juillet','Ao&ucirc;t','Septembre','Octobre','Novembre',
                     'D&eacute;cembre');

###############################################################################

package main;

# handling package options
sub do_rcsinfo_fancyhdr { $rcsinfo::OptionFancy = 1; }
sub do_rcsinfo_fancy    { $rcsinfo::OptionFancy = 1; }
sub do_rcsinfo_nofancy  { $rcsinfo::OptionFancy = 0; }
sub do_rcsinfo_today    { $rcsinfo::OptionToday = 1; }
sub do_rcsinfo_notoday  { $rcsinfo::OptionToday = 0; }
sub do_rcsinfo_short    { $rcsinfo::OptionLong  = 0; }
sub do_rcsinfo_long     { $rcsinfo::OptionLong  = 1; }

# handling of LaTeX commands
sub do_cmd_rcsInfo
{
    local($_)    = @_;
    # that's the format of the RCS Id-String:

    # format of $_:
    #                  vvvvvv that's text following the RCS-Id-string
    # <#nr#>.....<#nr>......
    #       ^ ^ ^  that's the RCS-Id-string
    my ($Nr,$IdString,$Rest) = /(<#\d+#>)(.*)\1(.*)/s ;

    # The Id-String  may contain various tags, remove them
    $IdString =~ s/<[^>]*>//g;

    # split the Id-string
    my ($id,$file,$revision,$date,$time,$owner,$status,$locker) = split(/\s/,$IdString);

    # remove trailing ,v
    $file =~ s/,v$//;

    # split date
    ($rcsinfo::Year,$rcsinfo::Month,$rcsinfo::Day) = split (/\//,$date);

    $rcsinfo::Revision = $revision;
    $rcsinfo::File     = $file;
    $rcsinfo::Date     = $date;
    $rcsinfo::Time     = $time;
    $rcsinfo::Owner    = $owner;
    $rcsinfo::Status   = $status;
    $rcsinfo::Locker   = $locker;

    if (default_language eq 'german' || default_language eq 'austrian') {
        $rcsinfo::LongDate = $rcsinfo::Day . '.&nbsp;' .
                 $rcsinfo::GermanMonthName[$rcsinfo::Month] . '&nbsp;' .
                 $rcsinfo::Year;
    } elsif (default_language eq 'french') {
        $rcsinfo::LongDate = $rcsinfo::Day . '.&nbsp;' .
                 $rcsinfo::FrenchMonthName[$rcsinfo::Month] . '&nbsp;' .
                 $rcsinfo::Year;
    } else { # english is the default
        $rcsinfo::LongDate = $rcsinfo::EnglishMonthName[$rcsinfo::Month] . '&nbsp;' .
                 $rcsinfo::Day . '&nbsp;,' .
                 $rcsinfo::Year;
    }

    if ($rcsinfo::OptionFancy == 1) {
       &$rcsinfo::SetAddressProc;
    }
    $_ = $Rest ;
}

&rcsinfo::make_cmds;

# Replace do_cmd_today (\today) using the RCS date.
sub do_cmd_today {
    local($today);
    if ($rcsinfo::OptionToday == 1) {
        $today = $rcsinfo::LongDate;
    } else {
        if (default_language eq 'german' || default_language eq 'austrian') {
            $today = (`date "+%m:%d, 20%y"`);
            $today =~ s/(\d{1,2}):0?(\d{1,2}),/$2. $rcsinfo::GermanMonthName[$1]/o;
            $today =~ s/20([7|8|9]\d{1})/19$1/o;
        } elsif (default_language eq 'french') {
            $today = (`date "+%m:%d, 20%y"`);
            $today =~ s/(\d{1,2}):0?(\d{1,2}),/$2 $rcsinfo::FrenchMonthName[$1]/o;
            $today =~ s/20([7|8|9]\d{1})/19$1/o;
        } else { # english is the default
            $today = (`date "+%m:%d, 20%y"`);
            $today =~ s/(\d{1,2}):0?/$rcsinfo::EnglishMonthName[$1] /o;
            $today =~ s/20([7|8|9]\d{1})/19$1/o;
        }
    }
    join('',$today,$_[0]);
}

1;

###############################################################################
\end{filecontents*}
\endinput
%%
%% End of file `rcsinfo-aux.tex'.
