<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">% ^^A -*- japanese-latex -*-
%
% \ifx\epTeXinputencoding\undefined\else
%   \epTeXinputencoding utf8 % ^^A added (2017-10-04)
% \fi
%
% \iffalse
%
%&lt;*driver&gt;
\ifx\epTeXinputencoding\undefined\else
  \epTeXinputencoding utf8
\fi
%&lt;/driver&gt;
%
%  okuverb.dtx
%  verb/verbatim 髢｢菫ゅ�繧ｯ繝ｭ
%  螂･譚第匐蠖ｦ &lt;okumura@okumuralab.org&gt;
%  http://oku.edu.mie-u.ac.jp/~okumura/
%
%&lt;okuverb&gt;\NeedsTeXFormat{pLaTeX2e}
%&lt;okuverb&gt;\ProvidesFile{okuverb.sty}[2003/09/03 okumura]
%&lt;*driver&gt;
\RequirePackage{plautopatch}
\documentclass[dvipdfmx]{jsarticle}
\usepackage{doc}
\xspcode"5C=1 %% \
\xspcode"22=1 %% "
\usepackage{okumacro}
\usepackage{okuverb}
\addtolength{\textwidth}{-1in}
\addtolength{\evensidemargin}{1in}
\addtolength{\oddsidemargin}{1in}
\addtolength{\marginparwidth}{1in}
\setlength\marginparsep{5pt}
\setlength\marginparpush{0pt}
% \OnlyDescription
\CodelineNumbered
\DisableCrossrefs
\setcounter{StandardModuleDepth}{1}
\GetFileInfo{okuverb.sty}
\begin{document}
  \DocInput{okuverb.dtx}
\end{document}
%&lt;/driver&gt;
%
% \fi
%
% \title{\pLaTeXe 逕ｨ \texttt{verb...} 髢｢菫ゅ�繧ｯ繝ｭ}
% \author{螂･譚第匐蠖ｦ}
% \date{\filedate}
% \maketitle
%
% \StopEventually{}
%
% \MakeShortVerb{\|}
%
% |okuverb| 縺ｯ\LaTeX 縺ｮ |\verb| 蜻ｽ莉､縺ｨ |verbatim| 迺ｰ蠅�ｒ諡｡蠑ｵ縺励◆繧ゅ�縺ｧ縺吶�
% 莉翫〒縺ｯ |okuverb| 繧貞､ｧ蟷�↓譖ｸ縺咲峩縺励◆ |jsverb| 繧ゅ≠繧翫∪縺吶�
%
% [2002-12-19] 縺�ｍ縺�ｍ縺ｪ繧ゅ�縺ｫ蜿朱鹸縺励※縺�◆縺�縺城圀縺ｫ繝ｩ繧､繧ｻ繝ｳ繧ｹ繧呈�遒ｺ縺ｫ縺吶ｋ
% 蠢�ｦ√′逕溘§縺ｦ縺阪∪縺励◆縲ゅい繧ｹ繧ｭ繝ｼ縺ｮ繧ゅ�縺梧怙霑代�modified BSD繝ｩ繧､繧ｻ繝ｳ繧ｹ縺ｫ縺ｪ縺｣
% 縺ｦ縺�∪縺吶�縺ｧ�檎ｧ√�繧ゅ�繧ゅ◎繧後↓貅悶§縺ｦmodified BSD縺ｨ縺吶ｋ縺薙→縺ｫ縺励∪縺吶�
%
% 縺ｾ縺壹が繝励す繝ｧ繝ｳ縺ｮ螳｣險縺ｧ縺吶�
% \begin{macro}{\if@yen}
% |\verb|�芸verbatim| 遲峨〒 |\| 繧貞�蜊ｰ縺ｫ縺吶ｋ縺九←縺�°縺ｮ繧ｹ繧､繝�メ縺ｧ縺吶�
% 縺薙ｌ縺ｯ繝�ヵ繧ｩ繝ｼ繝ｫ繝医〒蛛ｽ縺ｧ縺吶′�芸yen| 繧ｪ繝励す繝ｧ繝ｳ縺ｧ逵溘↓縺ｪ繧翫∪縺吶�
%    \begin{macrocode}
%&lt;*okuverb&gt;
\newif\if@yen \@yenfalse
\DeclareOption{yen}{\@yentrue}
\ProcessOptions\relax
%    \end{macrocode}
% \end{macro}
%
% |\verb|, |verbatim| 縺ｮ螟画峩縺ｧ縺吶�
% |ltmiscen.dtx| 繧偵＃蜿ら�縺上□縺輔＞縲�
%
% \begin{macro}{\yen}
% \begin{macro}{\ttyen}
%
% 蜀�ｨ伜捷縺ｮ螳夂ｾｩ縺ｧ縺吶�
%
%    \begin{macrocode}
\DeclareRobustCommand{\yen}{{\ooalign{Y\crcr\hss=\hss}}}
\def\y@n{Y\llap=}
\def\ttyen{{\ttfamily\y@n}}
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\ttbslash}
%
% 繧ｿ繧､繝励Λ繧､繧ｿ繝輔か繝ｳ繝医�繝舌ャ繧ｯ繧ｹ繝ｩ繝�す繝･縺ｧ縺吶�
%
%    \begin{macrocode}
\def\ttbslash{{\ttfamily\char`\\}}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\BS}
%
% 繧ｿ繧､繝励Λ繧､繧ｿ繝輔か繝ｳ繝医�蜀�ｨ伜捷縺九ヰ繝�け繧ｹ繝ｩ繝�す繝･縺ｮ縺ｩ縺｡繧峨°縺ｫ縺ｪ繧翫∪縺吶�
%
%    \begin{macrocode}
\if@yen
  \let\BS=\ttyen
\else
  \let\BS=\ttbslash
\fi
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\verbh@@k}
%
% |\verb|�芸verbatim| 遲峨〒菴ｿ縺�ヵ繝�け縺ｧ縺吶�
%
%    \begin{macrocode}
\if@yen
  \begingroup
    \catcode`\|=0  \catcode`\\=13
    |gdef|verbh@@k{|catcode`|\=13 |let\=|y@n}
  |endgroup
\else
  \let\verbh@@k=\relax
\fi
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\verbatim@font}
%
% 縺薙ｌ縺ｯ |latex.ltx| 縺ｫ |\normalfont\ttfamily|
% 縺ｨ螳夂ｾｩ縺輔ｌ縺ｦ縺�∪縺吶′�芸\bfseries\verb...| 縺ｨ縺�▲縺滉ｽｿ縺�婿繧ゅ＠縺溘＞縺ｮ縺ｧ��
% |\normalfont| 縺ｯ蜑企勁縺励※縺励∪縺�∪縺励◆縲�
%
%    \begin{macrocode}
\def\verbatim@font{\ttfamily}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\verb}
%
% 蜈��謨ｰ蠑上Δ繝ｼ繝峨□縺代〒 |\hbox| 縺ｫ蜈･繧後ｋ繧医≧縺ｫ縺ｪ縺｣縺ｦ縺�∪縺励◆縺鯉ｼ�
% |\noautoxspacing| 縺ｮ蜉ｹ譫懊ｒ蠕励ｋ縺溘ａ�芸\hbox| 縺ｫ蜈･繧後ｋ繧医≧縺ｫ縺励∪縺励◆縲�
%
%    \begin{macrocode}
\def\verb{%
  \leavevmode\hbox % changed
  \bgroup
    \verb@eol@error \let\do\@makeother \dospecials
    \verbatim@font\@noligs
    \noautoxspacing % added
    \verbh@@k % added
    \@ifstar\@sverb\@verb}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@xverbatim}
% \begin{macro}{\@sxverbatim}
%
% |\| 縺ｮ |\catcode| 繧�12縺九ｉ13縺ｫ螟峨∴縺ｾ縺励◆縲�
%
%    \begin{macrocode}
\if@yen
\begingroup \catcode `|=0 \catcode `[= 1
\catcode`]=2 \catcode `\{=12 \catcode `\}=12
\catcode`\\=13 |gdef|@xverbatim#1\end{verbatim}[#1|end[verbatim]]
|gdef|@sxverbatim#1\end{verbatim*}[#1|end[verbatim*]]
|endgroup
\fi
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\verbatimleftmargin}
%
% |verbatim| 迺ｰ蠅��菴吝�縺ｪ蟾ｦ繝槭�繧ｸ繝ｳ縺ｧ縺吶�
%
%    \begin{macrocode}
\newdimen\verbatimleftmargin
\verbatimleftmargin=2zw
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\verbatimsize}
%
% |verbatim| 迺ｰ蠅��繝輔か繝ｳ繝医し繧､繧ｺ縺ｧ縺吶�
%
%    \begin{macrocode}
% \def\verbatimsize{\small\narrowbaselines}
\def\verbatimsize{\fontsize{9}{11pt}\selectfont}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\@verbatim}
%
% |verbatim| 迺ｰ蠅�〒菴ｿ縺�ヵ繧ｩ繝ｳ繝医�陦碁√ｊ縺ｨ繧ｵ繧､繧ｺ��|\f@size|�峨′
% 譛ｬ譁�→驕輔≧縺ｨ�悟燕蠕後�髢馴囈縺碁＆縺｣縺ｦ縺励∪縺�∪縺吶ゅ◎繧後ｒ陬懈ｭ｣縺励∪縺吶�
%
%    \begin{macrocode}
\def\@verbatim{%
  \trivlist \item\relax
  \if@minipage
%   霑ｽ蜉�縺ｯ縺倥ａ
    \verbatimsize
%   霑ｽ蜉�縺翫ｏ繧�
  \else
%   霑ｽ蜉�縺ｯ縺倥ａ
    \vskip\baselineskip
    \vskip-\f@size pt
    \verbatimsize
    \vskip-\baselineskip
    \vskip\f@size pt
%   霑ｽ蜉�縺翫ｏ繧�
    \vskip\parskip
  \fi
  \leftskip\@totalleftmargin
% 霑ｽ蜉�縺ｯ縺倥ａ
  \if@minipage \else
    \advance \leftskip \verbatimleftmargin
  \fi
% 霑ｽ蜉�縺翫ｏ繧�
  \rightskip\z@skip
  \parindent\z@
  \parfillskip\@flushglue
  \parskip\z@skip
  \@@par
  \@tempswafalse
  \def\par{%
    \if@tempswa
      \leavevmode \null \@@par\penalty\interlinepenalty
    \else
      \@tempswatrue
      \ifhmode\@@par\penalty\interlinepenalty\fi
    \fi}%
  \let\do\@makeother \dospecials
  \obeylines \verbatim@font
% 霑ｽ蜉�縺ｯ縺倥ａ
  \noautoxspacing \verbh@@k
% 霑ｽ蜉�縺翫ｏ繧�
  \@noligs
  \hyphenchar\font\m@ne
  \everypar \expandafter{\the\everypar \unpenalty}%
}
%    \end{macrocode}
% \end{macro}
%
% 莉･荳翫〒邨ゅｏ繧翫〒縺吶�
%
%    \begin{macrocode}
%&lt;/okuverb&gt;
\endinput
%    \end{macrocode}
%
% \Finale
</pre></body></html>