summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/platex/jsclasses/okumacro.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2017-10-05 00:41:58 +0000
committerKarl Berry <karl@freefriends.org>2017-10-05 00:41:58 +0000
commite318605d00d63a8a5f31bf3e47017593958ab837 (patch)
tree9c11a20af099533930af6062b6e8933bc2a40e67 /Master/texmf-dist/tex/platex/jsclasses/okumacro.sty
parent3096a3dc265f5bfed166d88753c04db754c8bfd0 (diff)
jsclasses (4oct17)
git-svn-id: svn://tug.org/texlive/trunk@45473 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/platex/jsclasses/okumacro.sty')
-rw-r--r--Master/texmf-dist/tex/platex/jsclasses/okumacro.sty53
1 files changed, 28 insertions, 25 deletions
diff --git a/Master/texmf-dist/tex/platex/jsclasses/okumacro.sty b/Master/texmf-dist/tex/platex/jsclasses/okumacro.sty
index 245ac4981ef..9dc2e29cb68 100644
--- a/Master/texmf-dist/tex/platex/jsclasses/okumacro.sty
+++ b/Master/texmf-dist/tex/platex/jsclasses/okumacro.sty
@@ -20,8 +20,11 @@
%% original source files, as listed above, are part of the
%% same distribution. (The sources need not necessarily be
%% in the same archive or directory.)
+\ifx\epTeXinputencoding\undefined\else
+ \epTeXinputencoding utf8 % ^^A added (2017-10-04)
+\fi
\NeedsTeXFormat{pLaTeX2e}
-\ProvidesPackage{okumacro}[2017/08/31 okumura, texjporg]
+\ProvidesPackage{okumacro}[2017/10/04 okumura, texjporg]
\providecommand{\rubyfamily}{}
\def\kanjistrut{\iftdir
\vrule \@height0.5zw \@depth0.5zw \@width\z@
@@ -61,7 +64,7 @@
\def\kenten#1{%
\okumacro@zsp
\kern-1zw\relax
- \setbox1=\hbox to \z@{$B!&(B\hss}%
+ \setbox1=\hbox to\z@{\hbox to 1zw{\hss ・\hss}\hss}%
\ht1=.63zw
\@kenten#1\end\relax
\kern-1zw\relax\okumacro@zsp}
@@ -76,7 +79,7 @@
\kanjiskip=0pt plus 1fil minus 1fil
\xkanjiskip=\kanjiskip
#2}}
-\newcommand{\$BMK(B}{{\@tempcnta=\year \@tempcntb=\month
+\newcommand{\曜}{{\@tempcnta=\year \@tempcntb=\month
\ifnum \@tempcntb<3
\advance \@tempcnta by -1
\advance \@tempcntb by 12
@@ -96,11 +99,11 @@
\divide \@tempcntb by 7
\multiply \@tempcntb by 7
\advance \@tempcnta by -\@tempcntb
- \ifcase \@tempcnta $BF|(B\or $B7n(B\or $B2P(B\or $B?e(B\or $BLZ(B\or $B6b(B\or $BEZ(B\fi}}
-\def\$B0';"(B{\noindent $BGR7<(B\hspace{1zw}\ifcase\month\or
- $B874((B\or $B=U4((B\or $BAa=U(B\or $BM[=U(B\or $B?7NP(B\or $B8~=k(B\or
- $BLT=k(B\or $B;D=k(B\or $B=i=)(B\or $BCg=)(B\or $BHU=)(B\or $B=iE_(B\fi
- $B$N8u!$$^$9$^$9$4@61I$N$3$H$H$*4n$S?=$7>e$2$^$9!#(B}
+ \ifcase \@tempcnta 日\or 月\or 火\or 水\or 木\or 金\or 土\fi}}
+\def\挨拶{\noindent 拝啓\hspace{1zw}\ifcase\month\or
+ 厳寒\or 春寒\or 早春\or 陽春\or 新緑\or 向暑\or
+ 猛暑\or 残暑\or 初秋\or 仲秋\or 晩秋\or 初冬\fi
+ の候,ますますご清栄のこととお喜び申し上げます。}
\def\myallowbreak{\@ifnextchar\egroup{}{\penalty\exhyphenpenalty}{}}
\begingroup
\catcode`\-=\active
@@ -121,7 +124,7 @@
\chardef\{=`\{
\chardef\}=`\}
\chardef\_=`\_
- \def\\{\char"5C\penalty\exhyphenpenalty{}}% $B%P%C%/%9%i%C%7%e(B
+ \def\\{\char"5C\penalty\exhyphenpenalty{}}% バックスラッシュ
\spaceskip=.32em plus.16em minus.09em
\frenchspacing
\noautoxspacing
@@ -132,18 +135,18 @@
\newcommand{\asciibar}{%
\makebox[0.525em]{\rule[-0.2ex]{0.15ex}{0.7ex}\kern-0.15ex
\rule[0.8ex]{0.15ex}{0.7ex}}}
-\def\$B!]!](B{$B!=(B\kern-.5zw$B!=(B\kern-.5zw$B!=(B}
-\def\$B!=!=(B{$B!=(B\kern-.5zw$B!=(B\kern-.5zw$B!=(B}
+\def\−−{―\kern-.5zw―\kern-.5zw―}
+\def\――{―\kern-.5zw―\kern-.5zw―}
\ifx\ucs\@undefined\else
\begingroup
\kansujichar1="FF0D
\kansujichar2="2014
\expandafter\expandafter\expandafter\gdef
\expandafter\csname\expandafter\kansuji\expandafter1%
- \expandafter\endcsname\kansuji1{$B!=(B\kern-.5zw$B!=(B\kern-.5zw$B!=(B}
+ \expandafter\endcsname\kansuji1{―\kern-.5zw―\kern-.5zw―}
\expandafter\expandafter\expandafter\gdef
\expandafter\csname\expandafter\kansuji\expandafter2%
- \expandafter\endcsname\kansuji2{$B!=(B\kern-.5zw$B!=(B\kern-.5zw$B!=(B}
+ \expandafter\endcsname\kansuji2{―\kern-.5zw―\kern-.5zw―}
\endgroup
\fi
\newcommand{\removept}[2]{%
@@ -300,7 +303,7 @@
\vrule\hfill
\vbox\bgroup
\vskip15pt
- \def\thempfootnote{\arabic{mpfootnote}}% $B5SCm$r;;MQ?t;z$K(B
+ \def\thempfootnote{\arabic{mpfootnote}}% 脚注を算用数字に
\begin{minipage}{\linewidth}}{%
\end{minipage}\vskip15pt
\egroup\hfill\vrule
@@ -320,7 +323,7 @@
\divide\@scw by \@tempcnta
\multiply\@scw by \@tempcntb
\setbox\scb@x=\hbox\bgroup\begin{minipage}[b]{\@scw}}%
- % $B$^$?$O(B \setbox\scb@x=\vbox\bgroup\advance \linewidth by -20pt \relax
+ % または \setbox\scb@x=\vbox\bgroup\advance \linewidth by -20pt \relax
{\end{minipage}\egroup
\dimen0=\linewidth \removept{\dimen0}{\hsPT}%
\divide \dimen0 by 2 \removept{\dimen0}{\hhsPT}%
@@ -342,20 +345,20 @@
\newenvironment{EXAMPLE}{\begin{flushleft}\EXAMPLEWIDTH=\linewidth
}{\end{flushleft}}
\newenvironment{IN}{%
- \makebox[35pt][l]{\small\fbox{$BF~NO(B}}%
+ \makebox[35pt][l]{\small\fbox{入力}}%
\advance \linewidth by -35pt
\begin{minipage}[t]{\linewidth}}{%
\end{minipage}\\[6pt]}
\newenvironment{OUT}{%
- \makebox[35pt][l]{\small\fbox{$B=PNO(B}}%
+ \makebox[35pt][l]{\small\fbox{出力}}%
\advance \linewidth by -35pt
\begin{minipage}[t]{\linewidth}}{%
\end{minipage}}
\newcommand{\INEX}{\medbreak\noindent
- \framebox[\columnwidth][l]{\small\hskip2zw $BF~NO(B}\nobreak
+ \framebox[\columnwidth][l]{\small\hskip2zw 入力}\nobreak
\begin{quote}\small}
\newcommand{\OUTEX}{\end{quote}
- \framebox[\columnwidth][l]{\small\hskip2zw $B=PNO(B}\nobreak
+ \framebox[\columnwidth][l]{\small\hskip2zw 出力}\nobreak
\begin{quotation}\small}
\newcommand{\ENDEX}{\end{quotation}\bigbreak}
\newcommand{\ENDEXC}[1]{\end{quotation}\nobreak
@@ -368,10 +371,10 @@
\advance\@tempcnta-\c@page
\ifnum\@tempcnta=0
\else
- \ifnum\@tempcnta=1 $B!J<!%Z!<%8!K(B
+ \ifnum\@tempcnta=1 (次ページ)
\else
- \ifnum\@tempcnta=-1 $B!JA0%Z!<%8!K(B
- \else $B!J(B\pageref{#1}$B%Z!<%8!K(B
+ \ifnum\@tempcnta=-1 (前ページ)
+ \else (\pageref{#1}ページ)
\fi
\fi
\fi
@@ -393,7 +396,7 @@
\vrule\@width\wd0\@height\z@\@depth\shaderule\hskip-\shaderule
\vrule\@width\shaderule\@height\dimen0}}
\let\shadebox\okushadebox \let\endshadebox\endokushadebox
-\def\sankoumark{{\small $B!z(B}}
+\def\sankoumark{{\small ★}}
\newenvironment{sankou}{\vspace{3pt}%
\begin{list}{}{%
\setlength{\leftmargin}{3zw}%
@@ -407,7 +410,7 @@
\setlength{\partopsep}{0pt}%
\setlength{\listparindent}{0zw}%
}\item[\sankoumark]\small}{\end{list}}
-\def\toimark{{\small\bf $B!ZLd![(B}}
+\def\toimark{{\small\bf 【問】}}
\newenvironment{toi}{\vspace{3pt}%
\begin{list}{}{%
\setlength{\leftmargin}{3zw}%
@@ -440,7 +443,7 @@
\newcommand{\5}{\penalty50 } % \penalty\exhyphenpenalty
\newcommand{\ANGLE}[1]{%
$\langle$\kern0pt\nobreak{#1}\kern0pt\nobreak$\rangle$}
-\newcommand{\$B3t(B}{\hspace{\kanjiskip}\<$B!J3t!K(B\<\hspace{\kanjiskip}}
+\newcommand{\株}{\hspace{\kanjiskip}\<(株)\<\hspace{\kanjiskip}}
\@ifundefined{widebaselines}{}{%
\let\endmathdisplaysave=\endmathdisplay
\def\endmathdisplay{\widebaselines\endmathdisplaysave}}