% --------------------------------------%--------------------------------------
% ---------------------------- Identification part ----------------------------
% --------------------------------------%--------------------------------------

\RequirePackage{rcs}
\RCS$Date: 2002/09/02 12:51:45 $
\RCS$RCSfile: aarcs.sty,v $
\RCS$Revision: 1.2 $
\RCS$State: Exp $
\RCS$Author: aa $
\input{aausercs}

% We have to save the RCS information
\newcommand{\savercsinfo}[1]{%
  \@savercsinfo#1,:}
\def\@savercsinfo#1,{%
  \ifthenelse{\equal{Date}{#1}}{%
    \edef\AADate{\expandafter\@fetchrcsdate \RCSRawDate X}%
    %\edef\AADate{\RCSDate}%
    \edef\AARawDate{\RCSRawDate}%
    }{%
    \expandafter\edef\csname AA#1\endcsname{\csname RCS#1\endcsname}}%
  \@moresavercsinfo}
\def\@moresavercsinfo{\@ifnextchar:{\@donesavercsinfo}{\@savercsinfo}}
\def\@donesavercsinfo:{}
% This is a hack:
\def\@fetchrcsdate#1/#2/#3 #4X{%
  \ifcase#2\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\aa@eatzero#3, #1}
\def\aa@eatzero#1#2,{\if0#1#2,\else#1#2,\fi}
