diff options
Diffstat (limited to 'Master/texmf-dist/tex/platex/jsclasses/okumacro.sty')
-rw-r--r-- | Master/texmf-dist/tex/platex/jsclasses/okumacro.sty | 409 |
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'. |