リビジョン | f43bf0c7fb5b9bb69e8a0df925e9281ce8e56884 (tree) |
---|---|
日時 | 2019-04-01 11:51:10 |
作者 | Hironori Kitagawa <h_kitagawa2001@yaho...> |
コミッター | Hironori Kitagawa |
ltjsclasses
@@ -796,7 +796,7 @@ | ||
796 | 796 | \else\ifnum\numexpr\year*10000+\month*100+\day<20190501 |
797 | 797 | 平成\pltx@today@year@{1988}% |
798 | 798 | \else |
799 | -〓〓\pltx@today@year@{2018}% | |
799 | +令和\pltx@today@year@{2018}% | |
800 | 800 | \fi\fi} |
801 | 801 | \def\today{{% |
802 | 802 | \if西暦 |
@@ -899,7 +899,7 @@ | ||
899 | 899 | \else\ifnum\numexpr\year*10000+\month*100+\day<20190501 |
900 | 900 | 平成\pltx@today@year@{1988}% |
901 | 901 | \else |
902 | -〓〓\pltx@today@year@{2018}% | |
902 | +令和\pltx@today@year@{2018}% | |
903 | 903 | \fi\fi} |
904 | 904 | \def\today{{% |
905 | 905 | \if西暦 |
@@ -4491,7 +4491,7 @@ | ||
4491 | 4491 | \else\ifnum\numexpr\year*10000+\month*100+\day<20190501 |
4492 | 4492 | 平成\pltx@today@year@{1988}% |
4493 | 4493 | \else |
4494 | - 〓〓\pltx@today@year@{2018}% | |
4494 | + 令和\pltx@today@year@{2018}% | |
4495 | 4495 | \fi\fi} |
4496 | 4496 | \def\today{{% |
4497 | 4497 | \if西暦 |
@@ -895,7 +895,7 @@ | ||
895 | 895 | \else\ifnum\numexpr\year*10000+\month*100+\day<20190501 |
896 | 896 | 平成\pltx@today@year@{1988}% |
897 | 897 | \else |
898 | -〓〓\pltx@today@year@{2018}% | |
898 | +令和\pltx@today@year@{2018}% | |
899 | 899 | \fi\fi} |
900 | 900 | \def\today{{% |
901 | 901 | \if西暦 |
@@ -1621,27 +1621,43 @@ class has defined the old font commands like\MessageBreak | ||
1621 | 1621 | \newcommand{\tablename}{\if@english Table~\else 表\fi} |
1622 | 1622 | \newcommand{\appendixname}{\if@english \else 付録\fi} |
1623 | 1623 | \newcommand{\abstractname}{\if@english Abstract\else 概要\fi} |
1624 | +%% |ltjarticle| などと違って,標準を西暦にし,余分な空白が入らないように改良しました。 | |
1624 | 1625 | \newif\if西暦 \西暦true |
1625 | 1626 | \def\西暦{\西暦true} |
1626 | 1627 | \def\和暦{\西暦false} |
1627 | -\newcount\heisei \heisei\year \advance\heisei-1988\relax | |
1628 | +\def\pltx@today@year@#1{% | |
1629 | + \ifnum\numexpr\year-#1=1 元\else | |
1630 | +\ifnum\ltjgetparameter{direction}=3 \kansuji\numexpr\year-#1\relax | |
1631 | +\else \number\numexpr\year-#1\relax\nobreak\fi | |
1632 | + \fi 年 | |
1633 | +} | |
1634 | +\def\pltx@today@year{% | |
1635 | + \ifnum\numexpr\year*10000+\month*100+\day<19890108 | |
1636 | +昭和\pltx@today@year@{1925}% | |
1637 | + \else\ifnum\numexpr\year*10000+\month*100+\day<20190501 | |
1638 | +平成\pltx@today@year@{1988}% | |
1639 | + \else | |
1640 | +令和\pltx@today@year@{2018}% | |
1641 | + \fi\fi} | |
1628 | 1642 | \def\today{% |
1629 | 1643 | \if@english |
1630 | 1644 | \ifcase\month\or |
1631 | 1645 | January\or February\or March\or April\or May\or June\or |
1632 | 1646 | July\or August\or September\or October\or November\or December\fi |
1633 | 1647 | \space\number\day, \number\year |
1648 | + \else\if西暦 | |
1649 | + \ifnum\ltjgetparameter{direction}=3 \kansuji\year | |
1650 | +\else\number\year\nobreak\fi 年 | |
1634 | 1651 | \else |
1635 | - \if西暦 | |
1636 | - \number\year 年 | |
1637 | - \number\month 月 | |
1638 | - \number\day 日 | |
1639 | - \else | |
1640 | - 平成\number\heisei 年 | |
1641 | - \number\month 月 | |
1642 | - \number\day 日 | |
1643 | - \fi | |
1644 | - \fi} | |
1652 | +\pltx@today@year | |
1653 | + \fi | |
1654 | + \ifnum\ltjgetparameter{direction}=3 | |
1655 | +\kansuji\month 月 | |
1656 | + \kansuji\day 日 | |
1657 | + \else | |
1658 | + \number\month\nobreak 月 | |
1659 | + \number\day\nobreak 日 | |
1660 | + \fi\fi} | |
1645 | 1661 | \hyphenation{ado-be post-script ghost-script phe-nom-e-no-log-i-cal man-u-script} |
1646 | 1662 | \if@slide \pagestyle{empty} \else \pagestyle{plain} \fi |
1647 | 1663 | \pagenumbering{arabic} |
@@ -1715,27 +1715,43 @@ class has defined the old font commands like\MessageBreak | ||
1715 | 1715 | \newcommand{\figurename}{\if@english Fig.~\else 図\fi} |
1716 | 1716 | \newcommand{\tablename}{\if@english Table~\else 表\fi} |
1717 | 1717 | \newcommand{\appendixname}{\if@english \else 付録\fi} |
1718 | +%% |ltjarticle| などと違って,標準を西暦にし,余分な空白が入らないように改良しました。 | |
1718 | 1719 | \newif\if西暦 \西暦true |
1719 | 1720 | \def\西暦{\西暦true} |
1720 | 1721 | \def\和暦{\西暦false} |
1721 | -\newcount\heisei \heisei\year \advance\heisei-1988\relax | |
1722 | +\def\pltx@today@year@#1{% | |
1723 | + \ifnum\numexpr\year-#1=1 元\else | |
1724 | +\ifnum\ltjgetparameter{direction}=3 \kansuji\numexpr\year-#1\relax | |
1725 | +\else \number\numexpr\year-#1\relax\nobreak\fi | |
1726 | + \fi 年 | |
1727 | +} | |
1728 | +\def\pltx@today@year{% | |
1729 | + \ifnum\numexpr\year*10000+\month*100+\day<19890108 | |
1730 | +昭和\pltx@today@year@{1925}% | |
1731 | + \else\ifnum\numexpr\year*10000+\month*100+\day<20190501 | |
1732 | +平成\pltx@today@year@{1988}% | |
1733 | + \else | |
1734 | +令和\pltx@today@year@{2018}% | |
1735 | + \fi\fi} | |
1722 | 1736 | \def\today{% |
1723 | 1737 | \if@english |
1724 | 1738 | \ifcase\month\or |
1725 | 1739 | January\or February\or March\or April\or May\or June\or |
1726 | 1740 | July\or August\or September\or October\or November\or December\fi |
1727 | 1741 | \space\number\day, \number\year |
1742 | + \else\if西暦 | |
1743 | + \ifnum\ltjgetparameter{direction}=3 \kansuji\year | |
1744 | +\else\number\year\nobreak\fi 年 | |
1728 | 1745 | \else |
1729 | - \if西暦 | |
1730 | - \number\year 年 | |
1731 | - \number\month 月 | |
1732 | - \number\day 日 | |
1733 | - \else | |
1734 | - 平成\number\heisei 年 | |
1735 | - \number\month 月 | |
1736 | - \number\day 日 | |
1737 | - \fi | |
1738 | - \fi} | |
1746 | +\pltx@today@year | |
1747 | + \fi | |
1748 | + \ifnum\ltjgetparameter{direction}=3 | |
1749 | +\kansuji\month 月 | |
1750 | + \kansuji\day 日 | |
1751 | + \else | |
1752 | + \number\month\nobreak 月 | |
1753 | + \number\day\nobreak 日 | |
1754 | + \fi\fi} | |
1739 | 1755 | \hyphenation{ado-be post-script ghost-script phe-nom-e-no-log-i-cal man-u-script} |
1740 | 1756 | \if@report \pagestyle{plain} \else \pagestyle{headings} \fi |
1741 | 1757 | \pagenumbering{arabic} |
@@ -5600,32 +5600,49 @@ | ||
5600 | 5600 | % \paragraph{今日の日付} |
5601 | 5601 | % |
5602 | 5602 | % \LaTeX で処理した日付を出力します。 |
5603 | -% |ltjarticle| などと違って,標準を西暦にし,余分な空白が入らないように改良しました。 | |
5603 | +%% |ltjarticle| などと違って,標準を西暦にし,余分な空白が入らないように改良しました。 | |
5604 | 5604 | % 和暦にするには |\和暦| と書いてください。 |
5605 | 5605 | % |
5606 | +% [2019-04-01 LTJ] |ltjclasses|と同様の処理. | |
5607 | +% | |
5606 | 5608 | % \begin{macro}{\today} |
5607 | 5609 | % \begin{macrocode} |
5608 | 5610 | \newif\if西暦 \西暦true |
5609 | 5611 | \def\西暦{\西暦true} |
5610 | 5612 | \def\和暦{\西暦false} |
5611 | -\newcount\heisei \heisei\year \advance\heisei-1988\relax | |
5613 | +\def\pltx@today@year@#1{% | |
5614 | + \ifnum\numexpr\year-#1=1 元\else | |
5615 | + \ifnum\ltjgetparameter{direction}=3 \kansuji\numexpr\year-#1\relax | |
5616 | + \else \number\numexpr\year-#1\relax\nobreak\fi | |
5617 | + \fi 年 | |
5618 | +} | |
5619 | +\def\pltx@today@year{% | |
5620 | + \ifnum\numexpr\year*10000+\month*100+\day<19890108 | |
5621 | + 昭和\pltx@today@year@{1925}% | |
5622 | + \else\ifnum\numexpr\year*10000+\month*100+\day<20190501 | |
5623 | + 平成\pltx@today@year@{1988}% | |
5624 | + \else | |
5625 | + 令和\pltx@today@year@{2018}% | |
5626 | + \fi\fi} | |
5612 | 5627 | \def\today{% |
5613 | 5628 | \if@english |
5614 | 5629 | \ifcase\month\or |
5615 | 5630 | January\or February\or March\or April\or May\or June\or |
5616 | 5631 | July\or August\or September\or October\or November\or December\fi |
5617 | 5632 | \space\number\day, \number\year |
5633 | + \else\if西暦 | |
5634 | + \ifnum\ltjgetparameter{direction}=3 \kansuji\year | |
5635 | + \else\number\year\nobreak\fi 年 | |
5618 | 5636 | \else |
5619 | - \if西暦 | |
5620 | - \number\year 年 | |
5621 | - \number\month 月 | |
5622 | - \number\day 日 | |
5623 | - \else | |
5624 | - 平成\number\heisei 年 | |
5625 | - \number\month 月 | |
5626 | - \number\day 日 | |
5627 | - \fi | |
5628 | - \fi} | |
5637 | + \pltx@today@year | |
5638 | + \fi | |
5639 | + \ifnum\ltjgetparameter{direction}=3 | |
5640 | + \kansuji\month 月 | |
5641 | + \kansuji\day 日 | |
5642 | + \else | |
5643 | + \number\month\nobreak 月 | |
5644 | + \number\day\nobreak 日 | |
5645 | + \fi\fi} | |
5629 | 5646 | % \end{macrocode} |
5630 | 5647 | % \end{macro} |
5631 | 5648 | % |
@@ -1586,27 +1586,43 @@ class has defined the old font commands like\MessageBreak | ||
1586 | 1586 | \newcommand{\tablename}{\if@english Table~\else 表\fi} |
1587 | 1587 | \newcommand{\appendixname}{\if@english \else 付録\fi} |
1588 | 1588 | \newcommand{\abstractname}{\if@english Abstract\else 概要\fi} |
1589 | +%% |ltjarticle| などと違って,標準を西暦にし,余分な空白が入らないように改良しました。 | |
1589 | 1590 | \newif\if西暦 \西暦true |
1590 | 1591 | \def\西暦{\西暦true} |
1591 | 1592 | \def\和暦{\西暦false} |
1592 | -\newcount\heisei \heisei\year \advance\heisei-1988\relax | |
1593 | +\def\pltx@today@year@#1{% | |
1594 | + \ifnum\numexpr\year-#1=1 元\else | |
1595 | +\ifnum\ltjgetparameter{direction}=3 \kansuji\numexpr\year-#1\relax | |
1596 | +\else \number\numexpr\year-#1\relax\nobreak\fi | |
1597 | + \fi 年 | |
1598 | +} | |
1599 | +\def\pltx@today@year{% | |
1600 | + \ifnum\numexpr\year*10000+\month*100+\day<19890108 | |
1601 | +昭和\pltx@today@year@{1925}% | |
1602 | + \else\ifnum\numexpr\year*10000+\month*100+\day<20190501 | |
1603 | +平成\pltx@today@year@{1988}% | |
1604 | + \else | |
1605 | +令和\pltx@today@year@{2018}% | |
1606 | + \fi\fi} | |
1593 | 1607 | \def\today{% |
1594 | 1608 | \if@english |
1595 | 1609 | \ifcase\month\or |
1596 | 1610 | January\or February\or March\or April\or May\or June\or |
1597 | 1611 | July\or August\or September\or October\or November\or December\fi |
1598 | 1612 | \space\number\day, \number\year |
1613 | + \else\if西暦 | |
1614 | + \ifnum\ltjgetparameter{direction}=3 \kansuji\year | |
1615 | +\else\number\year\nobreak\fi 年 | |
1599 | 1616 | \else |
1600 | - \if西暦 | |
1601 | - \number\year 年 | |
1602 | - \number\month 月 | |
1603 | - \number\day 日 | |
1604 | - \else | |
1605 | - 平成\number\heisei 年 | |
1606 | - \number\month 月 | |
1607 | - \number\day 日 | |
1608 | - \fi | |
1609 | - \fi} | |
1617 | +\pltx@today@year | |
1618 | + \fi | |
1619 | + \ifnum\ltjgetparameter{direction}=3 | |
1620 | +\kansuji\month 月 | |
1621 | + \kansuji\day 日 | |
1622 | + \else | |
1623 | + \number\month\nobreak 月 | |
1624 | + \number\day\nobreak 日 | |
1625 | + \fi\fi} | |
1610 | 1626 | \hyphenation{ado-be post-script ghost-script phe-nom-e-no-log-i-cal man-u-script} |
1611 | 1627 | \pagestyle{plain} |
1612 | 1628 | \pagenumbering{arabic} |
@@ -1480,27 +1480,43 @@ class has defined the old font commands like\MessageBreak | ||
1480 | 1480 | \newcommand{\tablename}{Table~} |
1481 | 1481 | \newcommand{\appendixname}{\if@english \else 付録\fi} |
1482 | 1482 | \newcommand{\abstractname}{\if@english Abstract\else 概要\fi} |
1483 | +%% |ltjarticle| などと違って,標準を西暦にし,余分な空白が入らないように改良しました。 | |
1483 | 1484 | \newif\if西暦 \西暦true |
1484 | 1485 | \def\西暦{\西暦true} |
1485 | 1486 | \def\和暦{\西暦false} |
1486 | -\newcount\heisei \heisei\year \advance\heisei-1988\relax | |
1487 | +\def\pltx@today@year@#1{% | |
1488 | + \ifnum\numexpr\year-#1=1 元\else | |
1489 | +\ifnum\ltjgetparameter{direction}=3 \kansuji\numexpr\year-#1\relax | |
1490 | +\else \number\numexpr\year-#1\relax\nobreak\fi | |
1491 | + \fi 年 | |
1492 | +} | |
1493 | +\def\pltx@today@year{% | |
1494 | + \ifnum\numexpr\year*10000+\month*100+\day<19890108 | |
1495 | +昭和\pltx@today@year@{1925}% | |
1496 | + \else\ifnum\numexpr\year*10000+\month*100+\day<20190501 | |
1497 | +平成\pltx@today@year@{1988}% | |
1498 | + \else | |
1499 | +令和\pltx@today@year@{2018}% | |
1500 | + \fi\fi} | |
1487 | 1501 | \def\today{% |
1488 | 1502 | \if@english |
1489 | 1503 | \ifcase\month\or |
1490 | 1504 | January\or February\or March\or April\or May\or June\or |
1491 | 1505 | July\or August\or September\or October\or November\or December\fi |
1492 | 1506 | \space\number\day, \number\year |
1507 | + \else\if西暦 | |
1508 | + \ifnum\ltjgetparameter{direction}=3 \kansuji\year | |
1509 | +\else\number\year\nobreak\fi 年 | |
1493 | 1510 | \else |
1494 | - \if西暦 | |
1495 | - \number\year 年 | |
1496 | - \number\month 月 | |
1497 | - \number\day 日 | |
1498 | - \else | |
1499 | - 平成\number\heisei 年 | |
1500 | - \number\month 月 | |
1501 | - \number\day 日 | |
1502 | - \fi | |
1503 | - \fi} | |
1511 | +\pltx@today@year | |
1512 | + \fi | |
1513 | + \ifnum\ltjgetparameter{direction}=3 | |
1514 | +\kansuji\month 月 | |
1515 | + \kansuji\day 日 | |
1516 | + \else | |
1517 | + \number\month\nobreak 月 | |
1518 | + \number\day\nobreak 日 | |
1519 | + \fi\fi} | |
1504 | 1520 | \hyphenation{ado-be post-script ghost-script phe-nom-e-no-log-i-cal man-u-script} |
1505 | 1521 | \pagestyle{headings} |
1506 | 1522 | \pagenumbering{arabic} |
@@ -1709,27 +1709,43 @@ class has defined the old font commands like\MessageBreak | ||
1709 | 1709 | \newcommand{\tablename}{\if@english Table~\else 表\fi} |
1710 | 1710 | \newcommand{\appendixname}{\if@english \else 付録\fi} |
1711 | 1711 | \newcommand{\abstractname}{\if@english Abstract\else 概要\fi} |
1712 | +%% |ltjarticle| などと違って,標準を西暦にし,余分な空白が入らないように改良しました。 | |
1712 | 1713 | \newif\if西暦 \西暦true |
1713 | 1714 | \def\西暦{\西暦true} |
1714 | 1715 | \def\和暦{\西暦false} |
1715 | -\newcount\heisei \heisei\year \advance\heisei-1988\relax | |
1716 | +\def\pltx@today@year@#1{% | |
1717 | + \ifnum\numexpr\year-#1=1 元\else | |
1718 | +\ifnum\ltjgetparameter{direction}=3 \kansuji\numexpr\year-#1\relax | |
1719 | +\else \number\numexpr\year-#1\relax\nobreak\fi | |
1720 | + \fi 年 | |
1721 | +} | |
1722 | +\def\pltx@today@year{% | |
1723 | + \ifnum\numexpr\year*10000+\month*100+\day<19890108 | |
1724 | +昭和\pltx@today@year@{1925}% | |
1725 | + \else\ifnum\numexpr\year*10000+\month*100+\day<20190501 | |
1726 | +平成\pltx@today@year@{1988}% | |
1727 | + \else | |
1728 | +令和\pltx@today@year@{2018}% | |
1729 | + \fi\fi} | |
1716 | 1730 | \def\today{% |
1717 | 1731 | \if@english |
1718 | 1732 | \ifcase\month\or |
1719 | 1733 | January\or February\or March\or April\or May\or June\or |
1720 | 1734 | July\or August\or September\or October\or November\or December\fi |
1721 | 1735 | \space\number\day, \number\year |
1736 | + \else\if西暦 | |
1737 | + \ifnum\ltjgetparameter{direction}=3 \kansuji\year | |
1738 | +\else\number\year\nobreak\fi 年 | |
1722 | 1739 | \else |
1723 | - \if西暦 | |
1724 | - \number\year 年 | |
1725 | - \number\month 月 | |
1726 | - \number\day 日 | |
1727 | - \else | |
1728 | - 平成\number\heisei 年 | |
1729 | - \number\month 月 | |
1730 | - \number\day 日 | |
1731 | - \fi | |
1732 | - \fi} | |
1740 | +\pltx@today@year | |
1741 | + \fi | |
1742 | + \ifnum\ltjgetparameter{direction}=3 | |
1743 | +\kansuji\month 月 | |
1744 | + \kansuji\day 日 | |
1745 | + \else | |
1746 | + \number\month\nobreak 月 | |
1747 | + \number\day\nobreak 日 | |
1748 | + \fi\fi} | |
1733 | 1749 | \hyphenation{ado-be post-script ghost-script phe-nom-e-no-log-i-cal man-u-script} |
1734 | 1750 | \pagestyle{plain} |
1735 | 1751 | \pagenumbering{arabic} |
@@ -811,7 +811,7 @@ | ||
811 | 811 | \else\ifnum\numexpr\year*10000+\month*100+\day<20190501 |
812 | 812 | 平成\pltx@today@year@{1988}% |
813 | 813 | \else |
814 | -〓〓\pltx@today@year@{2018}% | |
814 | +令和\pltx@today@year@{2018}% | |
815 | 815 | \fi\fi} |
816 | 816 | \def\today{{% |
817 | 817 | \if西暦 |
@@ -914,7 +914,7 @@ | ||
914 | 914 | \else\ifnum\numexpr\year*10000+\month*100+\day<20190501 |
915 | 915 | 平成\pltx@today@year@{1988}% |
916 | 916 | \else |
917 | -〓〓\pltx@today@year@{2018}% | |
917 | +令和\pltx@today@year@{2018}% | |
918 | 918 | \fi\fi} |
919 | 919 | \def\today{{% |
920 | 920 | \if西暦 |
@@ -910,7 +910,7 @@ | ||
910 | 910 | \else\ifnum\numexpr\year*10000+\month*100+\day<20190501 |
911 | 911 | 平成\pltx@today@year@{1988}% |
912 | 912 | \else |
913 | -〓〓\pltx@today@year@{2018}% | |
913 | +令和\pltx@today@year@{2018}% | |
914 | 914 | \fi\fi} |
915 | 915 | \def\today{{% |
916 | 916 | \if西暦 |