日付を「昭和」にするパッケージ

pxshowa.sty

% pxshowa.sty
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{pxshowa}
\def\昭和{\Showa}
\def\Showa{%
  \pxsw@check@wareki
  \ifx\pxsw@wareki\relax \pxsw@error@nonavail
  \else \pxsw@showa@a
  \fi}
\def\pxsw@showa@a{%
  \begingroup
    \pxsw@wareki
    \protected@xdef\pxsw@gtempb{\today}%
    \@tempcnta\year \advance\@tempcnta-1988
    \@tempcntb\year \advance\@tempcntb-1925
    \xdef\pxsw@gtempa{{\the\@tempcnta}{\the\@tempcntb}}%
  \endgroup
  \pxsw@unbrace\pxsw@today\pxsw@gtempb
  \expandafter\pxsw@showa@b\pxsw@gtempa}
\def\pxsw@unbrace#1#2{%
  \expandafter\pxsw@unbrace@a#2\pxsw@nil#1}
\def\pxsw@unbrace@a#1\pxsw@nil#2{\def#2{#1}}
\def\pxsw@showa@b#1#2{%
  \def\pxsw@showa@c ##1平成##2#1##3\pxsw@nil{%
    \pxsw@showa@d{##1}{##2}{##3}{#2}}%
  \expandafter\pxsw@showa@c \pxsw@today\pxsw@mark 平成#1\pxsw@nil}
\def\pxsw@showa@d#1#2#3#4{%
  \ifx\pxsw@empty#1\pxsw@empty
    \pxsw@showa@e 昭和#2#4#3\pxsw@nil
  \else \pxsw@nonavail
  \fi}
\def\pxsw@showa@e#1\pxsw@mark#2\pxsw@nil{%
  \def\today{{#1}}}
\def\pxsw@check@wareki{%
  \begingroup
  \global\let\pxsw@wareki\relax
  \pxsw@check@wareki@a{Wareki}%
  \pxsw@check@wareki@a{和暦}%
  \pxsw@check@wareki@a{西暦false}%
  \endgroup}
\def\pxsw@check@wareki@a#1{%
  \expandafter\ifx\csname#1\endcsname\relax\else
    \global\expandafter\let\expandafter\pxsw@wareki
     \csname#1\endcsname
  \fi}
\def\Heisei{%
  \let\today\pxsw@org@today}
\def\平成{\Heisei}
\def\pxsw@empty{\pxsw@empty@}
\let\pxsw@org@today\today
\def\pxsw@error@nonavail{%
    \PackageError{pxshowa}%
     {Not available in this document class}\@ehc}
%% EOF

test-pxshowa.tex

\documentclass{jsarticle}
\usepackage{pxshowa}
\昭和
\begin{document}
\title{Knuthの原版の{\TeX}を使う件について}
\author{匿 名}
\maketitle
\begin{abstract}Web2Cじゃないやつ。\end{abstract}

本文を書く気が全くないという不可避な事情のため
後は省略することを了承されたい。

\end{document}