%%
%% This is file `rcsinfo.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% rcsinfo.dtx (with options: `header,package')
%%
%% IMPORTANT NOTICE:
%%
%% For the copyright see the source file.
%%
%% Any modified versions of this file must be renamed
%% with new filenames distinct from rcsinfo.sty.
%%
%% For distribution of the original source see the terms
%% for copying and modification in the file rcsinfo.dtx.
%%
%% 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.)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%% `rcsinfo' package to use with LaTeX2e.
%%
%% This package is used to extract the revision and file information provided
%% by the RCS revision control system.
%% A PERL-package supporting rcsinfo and LaTeX2HTML is provieded too.
%%
%% Copyright (C) 1995 Dr. Juergen Vollmer
%% Viktoriastrasse 15, D-76133 Karlsruhe, Germany
%% Juergen.Vollmer@informatik-vollmer.de
%% License:
%% This program can be redistributed and/or modified under the terms
%% of the LaTeX Project Public License Distributed from CTAN
%% archives in directory macros/latex/base/lppl.txt; either
%% version 1 of the License, or any later version.
%%
%% If you find this software useful, please send me a postcard.
%%
%% $Id: rcsinfo.dtx,v 1.7 2005/02/25 08:37:03 vollmer draft vollmer $
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% \CheckSum{397}
%% \CharacterTable
%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%% Digits \0\1\2\3\4\5\6\7\8\9
%% Exclamation \! Double quote \" Hash (number) \#
%% Dollar \$ Percent \% Ampersand \&
%% Acute accent \' Left paren \( Right paren \)
%% Asterisk \* Plus \+ Comma \,
%% Minus \- Point \. Solidus \/
%% Colon \: Semicolon \; Less than \<
%% Equals \= Greater than \> Question mark \?
%% Commercial at \@ Left bracket \[ Backslash \\
%% Right bracket \] Circumflex \^ Underscore \_
%% Grave accent \` Left brace \{ Vertical bar \|
%% Right brace \} Tilde \~}
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{rcsinfo}[2005/02/20 v1.10]
\newcount\@rcsInfoDay
\newcount\@rcsInfoMonth
\newcount\@rcsInfoYear
\newcount\@rcsInfoYearTmp
\newcount\@rcsInfoMonthTmp
\newcount\@rcsInfoDayTmp
\newif\if@rcsInfoToday@
\DeclareOption{today}{
\@rcsInfoToday@true
}
\DeclareOption{notoday}{
\@rcsInfoToday@false
}
\newif\if@rcsInfoUseFancy@
\newif\if@rcsInfoUseFancyhdr@
\newif\if@rcsInfoUseScrpage@
\DeclareOption{fancy}{
\@rcsInfoUseFancy@true
\@rcsInfoUseFancyhdr@false
\@rcsInfoUseScrpage@false
}
\DeclareOption{fancyhdr}{
\@rcsInfoUseFancy@false
\@rcsInfoUseFancyhdr@true
\@rcsInfoUseScrpage@false
}
\DeclareOption{scrpage2}{
\@rcsInfoUseFancy@false
\@rcsInfoUseFancyhdr@false
\@rcsInfoUseScrpage@true
}
\DeclareOption{nofancy}{
\@rcsInfoUseFancy@false
\@rcsInfoUseFancyhdr@false
\@rcsInfoUseScrpage@false
}
\newif\if@rcsInfoLong@
\DeclareOption{long}{
\@rcsInfoLong@true
}
\DeclareOption{short}{
\@rcsInfoLong@false
}
\newif\if@rcsInfoDateHyphen@
\DeclareOption{datehyphen}{
\@rcsInfoDateHyphen@true
}
\ExecuteOptions{today,long}
\IfFileExists{rcsinfo.cfg}{\input{rcsinfo.cfg}}{}
\ProcessOptions
\if@rcsInfoUseFancy@
\RequirePackage{fancyheadings}
\fi
\if@rcsInfoUseFancyhdr@
\RequirePackage{fancyhdr}
\fi
\if@rcsInfoUseScrpage@
\RequirePackage{scrpage2}
\fi
\def\today{\ifcase\month\or
January\or February\or March\or April\or May\or June\or
July\or August\or September\or October\or November\or December\fi
\space\number\day, \number\year}
\newif\if@rcsInfoColonIsActive@
\def\rcsInfo {
\catcode`\_=13
\ifnum\catcode`\:=13
\@rcsInfoColonIsActive@true
\catcode`:=12
\else
\@rcsInfoColonIsActive@false
\fi
\@rcsInfoReadArgs
}
\def\@rcsInfoReadArgs #1Id#2 {
\@rcsInfoDefaults
\if $#2 \let \@rcsInfoNext = \@rcsInfoEat
\else \let \@rcsInfoNext = \@rcsInfoEatColon
\fi
\if@rcsInfoColonIsActive@
\catcode`:=13
\fi
\@rcsInfoNext $Id#2
}
\def\@rcsInfoEat #1 {\catcode`\_=8}
\def\@rcsInfoEatColon $Id:#1 {
\if $#1 \let \@rcsInfoNext = \@rcsInfoEat
\else \let \@rcsInfoNext = \@rcsInfoCrackAndEat
\fi
\@rcsInfoNext #1
}
\def\@rcsInfoCrackAndEat #1,v #2 #3 #4 #5 #6 #7 {
\@rcsInfoCrackString #1,v #2 #3 #4 #5 #6 #7
\@rcsInfoNext
}
\def\@rcsInfoCrackString #1,v #2 #3 #4 #5 #6 #7 {
\def\rcsInfoFile{#1}
\def\rcsInfoRevision{#2}
\def\rcsInfoTime{#4}
\def\rcsInfoOwner{#5}
\def\rcsInfoStatus{#6}
\write\@mainaux{\string\def\string\rcsInfoFILE{#1}}
\write\@mainaux{\string\def\string\rcsInfoREVISION{#2}}
\write\@mainaux{\string\def\string\rcsInfoTIME{#4}}
\write\@mainaux{\string\def\string\rcsInfoOWNER{#5}}
\write\@mainaux{\string\def\string\rcsInfoSTATUS{#6}}
\if $#7
\def\rcsInfoLocker{--not-locked--}
\write\@mainaux{\string\def\string\rcsInfoLocker{--not-locked--}}
\let \@rcsInfoNext = \relax
\else
\def\rcsInfoLocker{#7}
\write\@mainaux{\string\def\string\rcsInfoLocker{#7}}
\let \@rcsInfoNext = \@rcsInfoEat
\fi
\catcode`\_=8
\@rcsInfoSplitDate x#3x
\def\rcsInfoLongDate{\@rcsInfoToday}
\if@rcsInfoToday@
\year = \@rcsInfoYear
\month = \@rcsInfoMonth
\day = \@rcsInfoDay
\fi
}
\if@rcsInfoDateHyphen@
\def\@rcsInfoSplitDate x#1-#2-#3x{
\@rcsInfoDay = #3
\@rcsInfoMonth= #2
\@rcsInfoYear = #1
\write\@mainaux{\string\def\string\rcsInfoDAY{#3}}
\write\@mainaux{\string\def\string\rcsInfoMONTH{#2}}
\write\@mainaux{\string\def\string\rcsInfoYEAR{#1}}
}
\else
\def\@rcsInfoSplitDate x#1/#2/#3x{
\@rcsInfoDay = #3
\@rcsInfoMonth= #2
\@rcsInfoYear = #1
\write\@mainaux{\string\def\string\rcsInfoDAY{#3}}
\write\@mainaux{\string\def\string\rcsInfoMONTH{#2}}
\write\@mainaux{\string\def\string\rcsInfoYEAR{#1}}
}
\fi
\def\@rcsInfoToday {%
\@rcsInfoYearTmp = \year
\@rcsInfoMonthTmp = \month
\@rcsInfoDayTmp = \day
\year = \@rcsInfoYear
\month = \@rcsInfoMonth
\day = \@rcsInfoDay
\today%
\year = \@rcsInfoYearTmp
\month = \@rcsInfoMonthTmp
\day = \@rcsInfoDayTmp
}
\def\@rcsInfoDefaults {
\@rcsInfoYear = \year
\@rcsInfoMonth = \month
\@rcsInfoDay = \day
\def\rcsInfoFile{--sourcefile--}
\def\rcsInfoDate{\the\@rcsInfoYear/\two@digits\@rcsInfoMonth/%
\two@digits\@rcsInfoDay}
\def\rcsInfoTime{--time--}
\def\rcsInfoRevision{--revision--}
\def\rcsInfoOwner{--owner--}
\def\rcsInfoStatus{--status--}
\def\rcsInfoLocker{--locker--}
\def\rcsInfoYear{\the\@rcsInfoYear}
\def\rcsInfoMonth{\the\@rcsInfoMonth}
\def\rcsInfoDay{\the\@rcsInfoDay}
\def\rcsInfoLongDate{\@rcsInfoToday}
}
\def\@rcsInfoFancyFoot {
\if@rcsInfoLong@
\def\@rcsInfoFancyInfo{{\footnotesize%
\emph{Rev: \rcsInfoRevision,
\rcsInfoStatus,
\rcsInfoLongDate}}}
\else
\def\@rcsInfoFancyInfo{{\footnotesize%
\emph{Rev: \rcsInfoRevision,
\rcsInfoStatus,
\rcsInfoDate}}}
\fi
\def\@rcsInfoFancyFile{{\footnotesize\emph{\rcsInfoFile}}}
\if@rcsInfoUseFancy@
\rfoot[\fancyplain{\@rcsInfoFancyFile}{\@rcsInfoFancyFile}]%
{\fancyplain{\@rcsInfoFancyInfo}{\@rcsInfoFancyInfo}}
\lfoot[\fancyplain{\@rcsInfoFancyInfo}{\@rcsInfoFancyInfo}]%
{\fancyplain{\@rcsInfoFancyFile}{\@rcsInfoFancyFile}}
\setlength{\footrulewidth}{0.4pt}
\setlength{\plainfootrulewidth}{0.4pt}
\fi
\if@rcsInfoUseFancyhdr@
\fancyfoot[LE,RO]{\@rcsInfoFancyInfo}
\fancyfoot[LO,RE]{\@rcsInfoFancyFile}
\fancyfoot[CO,CE]{\thepage}
\renewcommand{\footrulewidth}{0.4pt}
\fancypagestyle{plain}{%
\fancyfoot[LE,RO]{\@rcsInfoFancyInfo}
\fancyfoot[LO,RE]{\@rcsInfoFancyFile}
\fancyfoot[CO,CE]{\thepage}
\renewcommand{\footrulewidth}{0.4pt}
}
\fi
\if@rcsInfoUseScrpage@
\clearscrheadfoot
\ohead{\headmark}
\cfoot[\emph{\@rcsInfoFancyInfo}]{\emph{\@rcsInfoFancyInfo}}
\ifoot[\@rcsInfoFancyFile]{\@rcsInfoFancyFile}
\ofoot[\pagemark]{\pagemark}
\pagestyle{scrheadings}
\fi
}
\@rcsInfoDefaults
\AtBeginDocument{
\if@rcsInfoUseFancy@
\@rcsInfoFancyFoot
\fi
\if@rcsInfoUseFancyhdr@
\@rcsInfoFancyFoot
\fi
\if@rcsInfoUseScrpage@
\@rcsInfoFancyFoot
\fi
}
\endinput
%%
%% End of file `rcsinfo.sty'.