From 4762127ac5ea21c9c8c4e3fc85f1c635aaca89a7 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Sat, 6 Apr 2019 23:20:14 +0000
Subject: platex (6apr19)

git-svn-id: svn://tug.org/texlive/trunk@50831 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/tex/platex/base/jarticle.cls | 49 +++++++++++++++-----------
 1 file changed, 29 insertions(+), 20 deletions(-)

(limited to 'Master/texmf-dist/tex/platex/base/jarticle.cls')

diff --git a/Master/texmf-dist/tex/platex/base/jarticle.cls b/Master/texmf-dist/tex/platex/base/jarticle.cls
index a4d2d987b65..b9f6f1d593a 100644
--- a/Master/texmf-dist/tex/platex/base/jarticle.cls
+++ b/Master/texmf-dist/tex/platex/base/jarticle.cls
@@ -7,7 +7,7 @@
 %% jclasses.dtx  (with options: `article,yoko')
 %% 
 %% Copyright (c) 2010 ASCII MEDIA WORKS
-%% Copyright (c) 2016-2018 Japanese TeX Development Community
+%% Copyright (c) 2016-2019 Japanese TeX Development Community
 %% 
 %% This file is part of the pLaTeX2e system (community edition).
 %% -------------------------------------------------------------
@@ -15,7 +15,7 @@
 %% File: jclasses.dtx
 \NeedsTeXFormat{pLaTeX2e}
 \ProvidesClass{jarticle}
-  [2018/10/25 v1.8a
+  [2019/04/02 v1.8b
  Standard pLaTeX class]
 \newcounter{@paper}
 \newif\if@landscape \@landscapefalse
@@ -770,27 +770,36 @@
 \def\$B@>Nq(B{\$B@>Nq(Btrue}
 \def\$BOBNq(B{\$B@>Nq(Bfalse}
 \newcount\heisei \heisei\year \advance\heisei-1988\relax
-\def\today{{%
-  \iftdir
-    \if$B@>Nq(B
-      \kansuji\number\year $BG/(B
-      \kansuji\number\month $B7n(B
-      \kansuji\number\day $BF|(B
+\def\pltx@today@year@#1{%
+  \ifnum\numexpr\year-#1=1 $B85(B\else
+    \ifnum1=\iftdir\ifmdir0\else1\fi\else0\fi
+      \kansuji\number\numexpr\year-#1\relax
     \else
-      $BJ?@.(B\ifnum\heisei=1 $B85G/(B\else\kansuji\number\heisei $BG/(B\fi
-      \kansuji\number\month $B7n(B
-      \kansuji\number\day $BF|(B
+      \number\numexpr\year-#1\relax\nobreak
     \fi
+  \fi $BG/(B
+}
+\def\pltx@today@year{%
+  \ifnum\numexpr\year*10000+\month*100+\day<19890108
+    $B><OB(B\pltx@today@year@{1925}%
+  \else\ifnum\numexpr\year*10000+\month*100+\day<20190501
+    $BJ?@.(B\pltx@today@year@{1988}%
   \else
-    \if$B@>Nq(B
-      \number\year~$BG/(B
-      \number\month~$B7n(B
-      \number\day~$BF|(B
-    \else
-      $BJ?@.(B\ifnum\heisei=1 $B85G/(B\else\number\heisei~$BG/(B\fi
-      \number\month~$B7n(B
-      \number\day~$BF|(B
-    \fi
+    $BNaOB(B\pltx@today@year@{2018}%
+  \fi\fi}
+\def\today{{%
+  \if$B@>Nq(B
+    \ifnum1=\iftdir\ifmdir0\else1\fi\else0\fi\kansuji\number\year
+    \else\number\year\nobreak\fi $BG/(B
+  \else
+    \pltx@today@year
+  \fi
+  \ifnum1=\iftdir\ifmdir0\else1\fi\else0\fi
+    \kansuji\number\month $B7n(B
+    \kansuji\number\day $BF|(B
+  \else
+    \number\month\nobreak $B7n(B
+    \number\day\nobreak $BF|(B
   \fi}}
 \newcommand{\prepartname}{$BBh(B}
 \newcommand{\postpartname}{$BIt(B}
-- 
cgit v1.2.3

