summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/platex/jsclasses/okumacro.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/platex/jsclasses/okumacro.sty')
-rw-r--r--Master/texmf-dist/tex/platex/jsclasses/okumacro.sty409
1 files changed, 409 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/platex/jsclasses/okumacro.sty b/Master/texmf-dist/tex/platex/jsclasses/okumacro.sty
new file mode 100644
index 00000000000..d6162a94d6c
--- /dev/null
+++ b/Master/texmf-dist/tex/platex/jsclasses/okumacro.sty
@@ -0,0 +1,409 @@
+%%
+%% This is file `okumacro.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% okumacro.dtx (with options: `okumacro')
+%%
+%% IMPORTANT NOTICE:
+%%
+%% For the copyright see the source file.
+%%
+%% Any modified versions of this file must be renamed
+%% with new filenames distinct from okumacro.sty.
+%%
+%% For distribution of the original source see the terms
+%% for copying and modification in the file okumacro.dtx.
+%%
+%% This generated file may be distributed as long as the
+%% original source files, as listed above, are part of the
+%% same distribution. (The sources need not necessarily be
+%% in the same archive or directory.)
+\NeedsTeXFormat{pLaTeX2e}
+\ProvidesPackage{okumacro}[2010/03/14 okumura]
+\providecommand{\rubyfamily}{}
+\def\kanjistrut{\vrule \@height0.88zw \@depth0.12zw \@width\z@}
+\newcommand{\ruby}[3][0zw]{%
+ \leavevmode
+ \dimen1=#1\relax
+ \dimen3=\f@size\p@
+ \setbox1=\hbox{#2}%
+ \setbox3=\hbox{\rubyfamily\fontsize{0.5\dimen3}{0pt}\selectfont #3}%
+ \ifdim\dimen1=\z@
+ \ifdim\wd1>\wd3 \dimen1=\wd1 \else \dimen1=\wd3 \fi
+ \else
+ \ifdim\dimen1<\wd1
+ \dimen1=\wd1
+ \fi
+ \fi
+ \hbox{%
+ \kanjiskip=0pt plus 2fil
+ \xkanjiskip=0pt plus 2fil
+ \vbox{%
+ \hbox to \dimen1{\rubyfamily
+ \fontsize{0.5\dimen3}{0pt}\selectfont \kanjistrut
+ \ifdim\dimen1<\wd3
+ \hss\unhbox3\hss
+ \else
+ \hfil\unhbox3\hfil
+ \fi
+ }%
+ \nointerlineskip
+ \hbox to \dimen1{\kanjistrut\hfil\unhbox1\hfil}}}\hskip\kanjiskip\relax}
+\def\kenten#1{%
+ \ifvmode\leavevmode\else\hskip\kanjiskip\fi
+ \setbox1=\hbox to \z@{・\hss}%
+ \ht1=.63zw
+ \@kenten#1\end}
+\def\@kenten#1{%
+ \ifx#1\end \let\next=\relax \else
+ \raise.63zw\copy1\nobreak #1\hskip\kanjiskip\relax
+ \let\next=\@kenten
+ \fi\next}
+\newcommand{\kintou}[2]{%
+ \leavevmode
+ \hbox to #1{%
+ \kanjiskip=0pt plus 1fil minus 1fil
+ \xkanjiskip=\kanjiskip
+ #2}}
+\newcommand{\曜}{{\@tempcnta=\year \@tempcntb=\month
+ \ifnum \@tempcntb<3
+ \advance \@tempcnta by -1
+ \advance \@tempcntb by 12
+ \fi
+ \multiply \@tempcntb by 13
+ \advance \@tempcntb by 8
+ \divide \@tempcntb by 5
+ \advance \@tempcntb by \@tempcnta
+ \divide \@tempcnta by 4
+ \advance \@tempcntb by \@tempcnta
+ \divide \@tempcnta by 25
+ \advance \@tempcntb by -\@tempcnta
+ \divide \@tempcnta by 4
+ \advance \@tempcntb by \@tempcnta
+ \advance \@tempcntb by \day
+ \@tempcnta=\@tempcntb
+ \divide \@tempcntb by 7
+ \multiply \@tempcntb by 7
+ \advance \@tempcnta by -\@tempcntb
+ \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
+ \catcode`\.=\active
+ \catcode`\/=\active
+ \gdef\mytth@@k{%
+ \catcode`\-=\active \def-{\char`\-\myallowbreak}%
+ \catcode`\.=\active \def.{\char`\.\myallowbreak}%
+ \catcode`\/=\active \def/{\char`\/\myallowbreak}%
+ }
+\endgroup
+\def\mytt{\ttfamily
+ \catcode`\#=12
+ \catcode`\&=12
+ \catcode`\^=12
+ \catcode`\~=12
+ \catcode`\_=12
+ \chardef\{=`\{
+ \chardef\}=`\}
+ \chardef\_=`\_
+ \def\\{\char"5C\penalty\exhyphenpenalty{}}% バックスラッシュ
+ \spaceskip=.32em plus.16em minus.09em
+ \frenchspacing
+ \noautoxspacing
+ \mytth@@k}
+\DeclareRobustCommand{\yen}{{\ooalign{Y\crcr\hss=\hss}}}
+\providecommand{\BS}{\texttt{\char"5C}}
+{\catcode`\|=\z@ \catcode`\\=12|gdef|bslash{\}}
+\newcommand{\asciibar}{%
+ \makebox[0.525em]{\rule[-0.2ex]{0.15ex}{0.7ex}\kern-0.15ex
+ \rule[0.8ex]{0.15ex}{0.7ex}}}
+\def\−−{—\kern-.5zw—\kern-.5zw—}
+\def\——{—\kern-.5zw—\kern-.5zw—}
+\newcommand{\removept}[2]{%
+ \edef#2{\expandafter\@removePT\the#1}}
+{\catcode`p=12 \catcode`t=12 \gdef\@removePT#1pt{#1}}
+\newcommand{\keytop}[1]{{\leavevmode\kern1pt
+ \setbox1=\hbox{\normalfont\sffamily [}%
+ \dimen1=\ht1
+ \removept{\dimen1}{\tempC}%
+ \setbox0=\hbox{\normalfont\sffamily #1}%
+ \dp0=0pt
+ \dimen0=\wd0
+ \ifdim\dimen0<\ht1 \dimen0=\ht1 \fi
+ \advance \dimen0 by 5pt
+ \removept{\dimen0}{\tempA}%
+ \divide \dimen0 by 2
+ \removept{\dimen0}{\tempB}%
+ \unitlength=1pt
+ \advance \dimen1 by 2pt
+ \hbox{\vrule height\dimen1 depth2pt width0pt}%
+ \begin{picture}(\tempA,\tempC)
+ \put(0,0){\line(0,1){\tempC}}
+ \put(\tempA,0){\line(0,1){\tempC}}
+ \put(\tempB,0){\oval(\tempA,4)[b]}
+ \put(\tempB,\tempC){\oval(\tempA,4)[t]}
+ \put(\tempB,0){\makebox(0,0)[b]{\box0}}
+ \end{picture}\kern1pt}}
+\def\RETMARK{{\unitlength=1pt
+ \setbox0=\hbox{\normalfont\ttfamily [}%
+ \dimen0=\ht0
+ \removept{\dimen0}{\tempA}%
+ \advance \dimen0 by -1pt
+ \removept{\dimen0}{\tempB}%
+ \begin{picture}(\tempA,\tempA)
+ \put(\tempA,1){\line(0,1){\tempB}}
+ \put(\tempA,1){\vector(-1,0){\tempA}}
+ \end{picture}}}
+\newcommand{\return}{\keytop{\RETMARK}}
+\newcommand{\upkey}{\raisebox{-2pt}{%
+ \setlength{\unitlength}{1pt}%
+ \thinlines
+ \begin{picture}(14,9)
+ \put(7,2){\vector(0,1){8}}
+ \put(1,2){\line(0,1){7}}
+ \put(13,2){\line(0,1){7}}
+ \put(7,9){\oval(12,4)[t]}
+ \put(7,2){\oval(12,4)[b]}
+ \end{picture}%
+}}
+\newcommand{\downkey}{\raisebox{-2pt}{%
+ \setlength{\unitlength}{1pt}%
+ \thinlines
+ \begin{picture}(14,9)
+ \put(7,10){\vector(0,-1){8}}
+ \put(1,2){\line(0,1){7}}
+ \put(13,2){\line(0,1){7}}
+ \put(7,9){\oval(12,4)[t]}
+ \put(7,2){\oval(12,4)[b]}
+ \end{picture}%
+}}
+\newcommand{\rightkey}{\raisebox{-2pt}{%
+ \setlength{\unitlength}{1pt}%
+ \thinlines
+ \begin{picture}(14,9)
+ \put(3,6){\vector(1,0){8}}
+ \put(1,2){\line(0,1){7}}
+ \put(13,2){\line(0,1){7}}
+ \put(7,9){\oval(12,4)[t]}
+ \put(7,2){\oval(12,4)[b]}
+ \end{picture}%
+}}
+\newcommand{\leftkey}{\raisebox{-2pt}{%
+ \setlength{\unitlength}{1pt}%
+ \thinlines
+ \begin{picture}(14,9)
+ \put(11,6){\vector(-1,0){8}}
+ \put(1,2){\line(0,1){7}}
+ \put(13,2){\line(0,1){7}}
+ \put(7,9){\oval(12,4)[t]}
+ \put(7,2){\oval(12,4)[b]}
+ \end{picture}%
+}}
+\newcommand{\MARU}[1]{{%
+ \ooalign{\hfil
+ \@ifundefined{scalebox}{%
+ #1\/\hfil\crcr\raise.167ex}{\raise.1zw\hbox{\scalebox{0.8}{#1\/}}\hfil\crcr\raise.1zw}%
+ \hbox{\fontencoding{OMS}\fontfamily{cmsy}\fontseries{m}\fontshape{n}\selectfont
+ \char"0D}}}}
+\newcommand{\PiC}{P\kern-.12em\lower.5ex\hbox{I}\kern-.075emC}
+\newcommand{\PiCTeX}{\PiC\kern-.11em\TeX}
+\newcommand{\JTeX}{\leavevmode\lower.5ex\hbox{J}\kern-.17em\TeX}
+\newcommand{\JLaTeX}{\leavevmode\lower.5ex\hbox{\rm J}\kern-.17em\LaTeX}
+\DeclareRobustCommand{\JBibTeX}{$\mbox{%
+ \lower.5ex\hbox{J}\ifx\f@family\cmr\kern-.15em\else\kern-.05em\fi
+ \BibTeX}$}
+\newcommand{\pTeXsT}{p\kern-.21em\TeX\kern-.10em s\kern-.21em T}
+\newcommand{\iTeX}{\accent'27\i\TeX}
+\newcommand{\MlTeX}{M\kern-.1667em\lower.5ex\hbox{L}\kern-.25em\TeX}
+\newenvironment{dangerous}{%
+ \vspace{3pt}%
+ \begin{list}{\ding{"2E}}{%
+ \setlength{\leftmargin}{3zw}%
+ \setlength{\itemindent}{0pt}%
+ \setlength{\labelwidth}{2zw}%
+ \setlength{\labelsep}{6pt}%
+ \setlength{\rightmargin}{0pt}%
+ \setlength{\itemsep}{0.5\baselineskip}%
+ \setlength{\parsep}{0pt}%
+ \setlength{\topsep}{0.5\baselineskip}%
+ \setlength{\partopsep}{0pt}%
+ \setlength{\listparindent}{0zw}%
+ }\small}{\end{list}}
+\newcommand{\namelistlabel}[1]{\hspace{1zw}#1\hfil}
+\newenvironment{namelist}[1]{%
+ \begin{list}{}{%
+ \let\makelabel=\namelistlabel
+ \settowidth{\labelwidth}{#1}%
+ \addtolength{\labelwidth}{2zw}%
+ \setlength{\leftmargin}{\labelwidth}%
+ \setlength{\labelsep}{0pt}%
+ }}{\end{list}}
+\newenvironment{mybibliography}[1]{%
+ \list{\@biblabel{\@arabic\c@enumiv}}%
+ {\settowidth\labelwidth{\@biblabel{#1}}%
+ \leftmargin\labelwidth
+ \advance\leftmargin\labelsep
+ \@openbib@code
+ \@nmbrlisttrue\def\@listctr{enumiv}%
+ \let\p@enumiv\@empty
+ \renewcommand\theenumiv{\@arabic\c@enumiv}}%
+ \sloppy
+ \clubpenalty4000
+ \@clubpenalty\clubpenalty
+ \widowpenalty4000%
+ \sfcode`\.\@m}
+ {\def\@noitemerr
+ {\@latex@warning{Empty `mybibliography' environment}}%
+ \endlist}
+\newenvironment{FRAME}{\begin{trivlist}\item[]
+ \hrule width\linewidth
+ \hbox to \linewidth\bgroup
+ \advance\linewidth by -30pt
+ \hsize=\linewidth
+ \vrule\hfill
+ \vbox\bgroup
+ \vskip15pt
+ \def\thempfootnote{\arabic{mpfootnote}}% 脚注を算用数字に
+ \begin{minipage}{\linewidth}}{%
+ \end{minipage}\vskip15pt
+ \egroup\hfill\vrule
+ \egroup\hrule width\linewidth
+ \end{trivlist}}
+\newcommand{\SHUTTEN}[1]{%
+ \par\nobreak\removelastskip\rightline{\small#1}\medbreak}
+\newdimen\@scw
+\newbox\scb@x
+\newenvironment{screen}[1][1]%
+ {\def\screensc@le{#1}\@scw=\linewidth \advance \@scw by -20pt
+ \setbox\scb@x=\hbox\bgroup\begin{minipage}[b]{\@scw}}%
+ % または \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}%
+ \dimen0=\ht\scb@x \advance \dimen0 by 10pt
+ \removept{\dimen0}{\htxPT}%
+ \begin{flushleft}
+ \vspace{6.5pt}%
+ \begin{picture}(\hsPT,\htxPT)
+ \put(\hhsPT,\htxPT){\oval(\hsPT,10)[t]}
+ \put(0,0){\line(0,1){\htxPT}}
+ \put(\hsPT,0){\line(0,1){\htxPT}}
+ \put(\hhsPT,0){\oval(\hsPT,10)[b]}
+ \put(10,5){\ifdim\screensc@le pt=1pt \box\scb@x
+ \else\scalebox{\screensc@le}[1]{\box\scb@x}\fi}
+ \end{picture}%
+ \end{flushleft}}
+\newdimen\EXAMPLEWIDTH
+\newenvironment{EXAMPLE}{\begin{flushleft}\EXAMPLEWIDTH=\linewidth
+ }{\end{flushleft}}
+\newenvironment{IN}{%
+ \makebox[35pt][l]{\small\fbox{入力}}%
+ \advance \linewidth by -35pt
+ \begin{minipage}[t]{\linewidth}}{%
+ \end{minipage}\\[6pt]}
+\newenvironment{OUT}{%
+ \makebox[35pt][l]{\small\fbox{出力}}%
+ \advance \linewidth by -35pt
+ \begin{minipage}[t]{\linewidth}}{%
+ \end{minipage}}
+\newcommand{\INEX}{\medbreak\noindent
+ \framebox[\columnwidth][l]{\small\hskip2zw 入力}\nobreak
+ \begin{quote}\small}
+\newcommand{\OUTEX}{\end{quote}
+ \framebox[\columnwidth][l]{\small\hskip2zw 出力}\nobreak
+ \begin{quotation}\small}
+\newcommand{\ENDEX}{\end{quotation}\bigbreak}
+\newcommand{\ENDEXC}[1]{\end{quotation}\nobreak
+ \begin{flushright}\footnotesize#1\end{flushright}\bigbreak}
+
+\def\whichpage#1{%
+ \expandafter\ifx\csname r@#1\endcsname\relax
+ \else
+ \@tempcnta\pageref{#1}\relax
+ \advance\@tempcnta-\c@page
+ \ifnum\@tempcnta=0
+ \else
+ \ifnum\@tempcnta=1 (次ページ)
+ \else
+ \ifnum\@tempcnta=-1 (前ページ)
+ \else (\pageref{#1}ページ)
+ \fi
+ \fi
+ \fi
+ \fi}
+\newdimen\shaderule \shaderule 5\p@
+\def\shadebox{\dimen0\linewidth \advance\dimen0-20\p@
+ \advance\dimen0-2\fboxrule \advance\dimen0-\shaderule
+ \setbox\@tempboxa=\hbox\bgroup\minipage{\dimen0}}
+\def\endshadebox{\endminipage\egroup\dimen0=10\p@ \advance\dimen0-\fboxrule
+ \setbox\@tempboxa=\hbox{\kern\dimen0\unhbox\@tempboxa\kern\dimen0}%
+ \setbox0=\vbox{\hrule\@height \fboxrule
+ \hbox{\vrule\@width \fboxrule \hskip-\fboxrule
+ \vbox{\vskip\fboxsep \box\@tempboxa\vskip\fboxsep}%
+ \hskip-\fboxrule\vrule \@width \fboxrule}\hrule \@height \fboxrule}%
+ \dimen0=\ht0 \advance\dimen0-\shaderule
+ \hbox{\hbox to \shaderule{\copy0\hss}\kern \z@
+ \vrule\@width\wd0\@height\z@\@depth\shaderule\hskip-\shaderule
+ \vrule\@width\shaderule\@height\dimen0}}
+\def\sankoumark{{\small ★}}
+\newenvironment{sankou}{\vspace{3pt}%
+ \begin{list}{}{%
+ \setlength{\leftmargin}{3zw}%
+ \setlength{\itemindent}{0pt}%
+ \setlength{\labelwidth}{2zw}%
+ \setlength{\labelsep}{6pt}%
+ \setlength{\rightmargin}{0pt}%
+ \setlength{\itemsep}{0pt}%
+ \setlength{\parsep}{0pt}%
+ \setlength{\topsep}{0.5\baselineskip}%
+ \setlength{\partopsep}{0pt}%
+ \setlength{\listparindent}{0zw}%
+ }\item[\sankoumark]\small}{\end{list}}
+\def\toimark{{\small\bf 【問】}}
+\newenvironment{toi}{\vspace{3pt}%
+ \begin{list}{}{%
+ \setlength{\leftmargin}{3zw}%
+ \setlength{\itemindent}{0pt}%
+ \setlength{\labelwidth}{2zw}%
+ \setlength{\labelsep}{6pt}%
+ \setlength{\rightmargin}{0pt}%
+ \setlength{\itemsep}{0pt}%
+ \setlength{\parsep}{3pt plus 1pt minus 1pt}%
+ \setlength{\topsep}{3pt plus 1pt minus 1pt}%
+ \setlength{\partopsep}{3pt plus 6pt minus 1pt}%
+ \setlength{\listparindent}{0zw}%
+ }\item[\toimark]\small}{\end{list}}
+\providecommand{\eps}{\varepsilon}
+\def\LEQQ{\mathrel{\mathpalette\gl@align<}}
+\def\GEQQ{\mathrel{\mathpalette\gl@align>}}
+\def\gl@align#1#2{\lower.6ex\vbox{\baselineskip\z@skip\lineskip\z@
+ \ialign{$\m@th#1\hfil##\hfil$\crcr#2\crcr=\crcr}}}
+\def\APPROX{\mathrel{\mathpalette\ap@align{\smash.}}}
+\def\ap@align#1#2{\lower.2ex\vbox{\baselineskip\z@skip\lineskip\z@
+ \def\finsm@sh{\ht\z@.2ex \dp\z@.2ex \box\z@}%
+ \ialign{$\m@th#1\hfil##\hfil$\crcr#2\crcr=\crcr#2\crcr}}}
+%%% Fractions like 1/2 by DEK (TUGboat, 6(1):36, TeXbook (Excercise 11.6))
+\def\FRAC#1#2{\leavevmode\kern.1em
+ \raise.5ex\hbox{\the\scriptfont0 #1}\kern-.1em
+ /\kern-.15em\lower.25ex\hbox{\the\scriptfont0 #2}}
+\newcommand{\hk}{\hspace{\kanjiskip}}
+\newcommand{\hx}{\hspace{\xkanjiskip}}
+\newcommand{\3}{\penalty300 }
+\newcommand{\5}{\penalty50 } % \penalty\exhyphenpenalty
+\newcommand{\ANGLE}[1]{%
+ $\langle$\kern0pt\nobreak{#1}\kern0pt\nobreak$\rangle$}
+\newcommand{\株}{\hspace{\kanjiskip}\<(株)\<\hspace{\kanjiskip}}
+\@ifundefined{widebaselines}{}{%
+ \let\endmathdisplaysave=\endmathdisplay
+ \def\endmathdisplay{\widebaselines\endmathdisplaysave}}
+ \let\start@alignsave=\start@align
+ \def\start@align{\vspace{4pt}\start@alignsave}
+\endinput
+%%
+%% End of file `okumacro.sty'.