diff options
author | Karl Berry <karl@freefriends.org> | 2017-10-05 00:41:58 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2017-10-05 00:41:58 +0000 |
commit | e318605d00d63a8a5f31bf3e47017593958ab837 (patch) | |
tree | 9c11a20af099533930af6062b6e8933bc2a40e67 /Master/texmf-dist/tex/platex/jsclasses/okumacro.sty | |
parent | 3096a3dc265f5bfed166d88753c04db754c8bfd0 (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.sty | 53 |
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}} |