rcsinfo

git-svn-id: svn://tug.org/texlive/trunk@1268 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 368 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/rcsinfo/rcsinfo.cfg b/Master/texmf-dist/tex/latex/rcsinfo/rcsinfo.cfg
new file mode 100644
index 00000000000..1d42e9e5de0
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/rcsinfo/rcsinfo.cfg
@@ -0,0 +1,66 @@
+%%
+%% This is file `rcsinfo.cfg',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% rcsinfo.dtx  (with options: `header,config')
+%% 
+%% IMPORTANT NOTICE:
+%% 
+%% For the copyright see the source file.
+%% 
+%% Any modified versions of this file must be renamed
+%% with new filenames distinct from rcsinfo.cfg.
+%% 
+%% 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         \~}
+
+\ExecuteOptions{fancyhdr}
+\endinput
+%%
+%% End of file `rcsinfo.cfg'.
diff --git a/Master/texmf-dist/tex/latex/rcsinfo/rcsinfo.sty b/Master/texmf-dist/tex/latex/rcsinfo/rcsinfo.sty
new file mode 100644
index 00000000000..0baf60b0ae3
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/rcsinfo/rcsinfo.sty
@@ -0,0 +1,302 @@
+%%
+%% 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'.