% ^^A -*- japanese-latex -*-
% \CheckSum{221}
% \iffalse
%
%   jsverb.dtx
%   verb/verbatim $B4X78%^%/%m(B ($B<Q$F$b>F$$$F$b$+$^$$$^$;$s(B)
%   okumura@edu.mie-u.ac.jp
%   http://oku.edu.mie-u.ac.jp/~okumura/
%
%  $B!V<Q$F$b>F$$$F$b$+$^$$$^$;$s!W$G:$$k>l9g$O(Bmodified BSD$B$H$$$&$3$H$G$*4j$$$7$^$9!#(B
%
%<jsverb>\NeedsTeXFormat{pLaTeX2e}
%<jsverb>\ProvidesFile{jsverb.sty}[2007/01/28 okumura]
%<*driver>
\documentclass{jsarticle}
\usepackage{doc}
\usepackage{okumacro}
\usepackage{jsverb}
\addtolength{\textwidth}{-1in}
\addtolength{\evensidemargin}{1in}
\addtolength{\oddsidemargin}{1in}
\addtolength{\marginparwidth}{1in}
\setlength\marginparsep{5pt}
\setlength\marginparpush{0pt}
% \OnlyDescription
\DisableCrossrefs
\setcounter{StandardModuleDepth}{1}
\GetFileInfo{jsverb.sty}
\begin{document}
  \DocInput{jsverb.dtx}
\end{document}
%</driver>
%
% \fi
%
% \title{\pLaTeXe $BMQ(B \texttt{verb...} $B4X78%^%/%m(B}
% \author{$B1|B<@2I'(B}
% \date{\filedate}
% \maketitle
%
% \StopEventually{}
%
% \MakeShortVerb{\|}
%
% $B!N(B2008-01-05$BDI5-!O(B|http://www.cl.cam.ac.uk/~mgk25/ucs/quotes.html|
% $B$,;29M$K$J$j$^$9!#(B|upquote.sty| $B$H$$$&$b$N$b$"$j$^$7$?!#(B
%
% $B5l(B |okuverb| $B$O(B\LaTeX $B$N(B |\verb| $BL?Na$H(B |verbatim| $B4D6-$r3HD%$7$?$b$N$G!$(B
% |yen| $B%*%W%7%g%s$rIU$1$k$H(B \ttbslash\ $B$,(B \ttyen\ $B$K$J$k$[$+!$(B|verbatim| $B4D6-$N(B
% $BAH$_J}$r4JC1$K%+%9%?%^%$%:$G$-$k$h$&$K$7$?$b$N$G$9!#(B
%
% $B0lJ}!$(B\TeX $B$G$O(BASCII |0x60|$B$N(B |`| $B$H(B|0x27|$B$N(B |'| $B$rF~NO$9$k$H(B
% $B$=$l$>$l(B \texttt{`} $B$H(B \texttt{'} $B$K$J$j$^$9!#(B
% $B$3$l$i$OJ8;z$H$7$F$O$=$l$>$l(B
% U+2018 LEFT SINGLE QUOTATION MARK$B!$(B
% U+2019 RIGHT SINGLE QUOTATION MARK$B$G$9$N$G!$(B
% dvipdfmx$B$G(BPDF$B$KJQ49$7$FF|K\8l%F%-%9%H$K%3%T!<!u%Z!<%9%H$9$k$H!$(B
% $BA43QJ8;z$K$J$C$F$7$^$$$^$9!#(B
% |\verb| $B$d(B |verbatim| $B$O%W%m%0%i%`%j%9%H$K$h$/MQ$$$k$N$G!$(B
% $B0U?^$H$7$F$O$=$l$>$l(BU+0060 GRAVE ACCENT$B!$(BU+0027 APOSTROPHE$B$K(B
% $B$J$C$F$[$7$$$H;W$$$^$9!#(B
% $B$=$3$G!$(BZR$B$5$s$N$4=u8@(B
% \begin{itemize}
% \item |http://oku.edu.mie-u.ac.jp/~okumura/texfaq/qa/46673.html|
% \item |http://oku.edu.mie-u.ac.jp/~okumura/texfaq/qa/46688.html|
% \end{itemize}
% $B$K$7$?$,$C$F5l(B |okuverb| $B$rBgI}$K=q$-D>$7$?$b$N$,$3$N(B |jsverb| $B$G$9!#(B
% 
% $B$J$*!$(B\ttyen\ $B$r%3%T!<!u%Z!<%9%H$7$?>l9g$O!$(B
% OT1$B%(%s%3!<%G%#%s%0$G;H$($P(B Y= $B$H$$$&(B2$BJ8;z$K!$(B
% T1$B%(%s%3!<%G%#%s%0$G;H$($P(BU+00A5 YEN SIGN$B$K$J$j$^$9!#(B
% $B%P%C%/%9%i%C%7%e!J(BU+005C REVERSE SOLIDUS$B!K$K$7$?$$>l9g$O(B \ttbslash\
% $B$N$[$&$r$*;H$$$/$@$5$$!#(B
% 
% $B$J$*!$(B|doc.sty| $B$,Ds6!$9$k(B |macrocode| $B4D6-$O=q$-49$($F$$$^$;$s$N$G!$(B
% $B0J2<$N%j%9%H$G$O(B |` '| $B$,(B \texttt{` '} $B$K$J$C$F$$$^$9!#(B
% 
% $B0J2<$OFbIt$N2r@b$G$9!#(B
% 
% $B$^$:%*%W%7%g%s$N@k8@$G$9!#(B
%
% \begin{macro}{\if@yen}
%
% |\verb|$B!$(B|verbatim| $BEy$G(B |\| $B$r1_0u(B \ttyen\ $B$K$9$k$+$I$&$+$N%9%$%C%A$G$9!#(B
% $B$3$l$O%G%U%)!<%k%H$G56$G$9$,!$(B|yen| $B%*%W%7%g%s$G??$K$J$j$^$9!#(B
%
%    \begin{macrocode}
%<*jsverb>
\newif\if@yen \@yenfalse
\DeclareOption{yen}{\@yentrue}
\ProcessOptions\relax
%    \end{macrocode}
%
% \end{macro}
%
% T1$B$r;H$&$N$K(BTS1$B$,$J$$>l9g$NBP=h$G$9!#(B
% |textcomp.sty| $B$OI{:nMQ$,$"$k$N$G(B |ts1enc.def|
% $B$rFI$_9~$`$@$1$K$7$F$$$^$9!J$3$l$OJ#?t2sFI$_9~$s$G$b(B
% $BLdBj$J$5$=$&$G$9!K!#(B
%
%    \begin{macrocode}
\AtBeginDocument{%
  \expandafter\ifx\csname T@T1\endcsname\relax \else
    \expandafter\ifx\csname T@TS1\endcsname\relax
      \input{ts1enc.def}%
  \fi\fi
}
%    \end{macrocode}
%
% \begin{macro}{\y@n}
% \begin{macro}{\ttyen}
%
% $B4JC1$J1_5-9f$NDj5A$G$9!#8e$G(BT1$B%(%s%3!<%G%#%s%0$N>l9g$O:FDj5A$7$^$9!#(B
%
%    \begin{macrocode}
\def\y@n{Y\llap=}
\def\ttyen{{\ttfamily\y@n}}
%    \end{macrocode}
%
% \end{macro}
% \end{macro}
%
% \begin{macro}{\ttbslash}
%
% $B%?%$%W%i%$%?%U%)%s%H$N%P%C%/%9%i%C%7%e$G$9!#(B
%
%    \begin{macrocode}
\def\ttbslash{{\ttfamily\char`\\}}
%    \end{macrocode}
%
% \end{macro}
%
% \begin{macro}{\BS}
%
% $B%?%$%W%i%$%?%U%)%s%H$N1_5-9f$+%P%C%/%9%i%C%7%e$N$I$A$i$+$K$J$j$^$9!#(B
%
%    \begin{macrocode}
\if@yen
  \let\BS=\ttyen
\else
  \let\BS=\ttbslash
\fi
%    \end{macrocode}
%
% \end{macro}
%
% \begin{macro}{\verbh@@k}
%
% |\verb|$B!$(B|verbatim| $BEy$G;H$&%U%C%/$G$9!#(B
%
%    \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}{\verbh@@@k}
% \begin{macro}{\verbh@@@k@}
%
% $B$5$i$J$k%U%C%/$G$9!#(B
%
%    \begin{macrocode}
\begingroup
  \catcode`\'=13
  \catcode`\`=13
  \gdef\verbh@@@k{\catcode39=13 \let'=\@rq \catcode96=13 \let`=\@lq}
\endgroup
\def\@OTone{OT1}
\def\@Tone{T1}
\def\verbh@@@k@{%
  \ifx\f@encoding\@OTone
    \chardef\@lq=18
    \chardef\@rq=13
    \verbh@@@k
  \else
    \ifx\f@encoding\@Tone
      \chardef\@lq=0
      \def\@rq{{\fontencoding{TS1}\selectfont\textquotesingle}}%
      \def\y@n{{\fontencoding{TS1}\selectfont\textyen}}%
      \verbh@@@k
    \fi
  \fi
}
%    \end{macrocode}
%
% \end{macro}
% \end{macro}
%
% \begin{macro}{\verbatim@font}
%
% $B$3$l$O(B |latex.ltx| $B$K(B |\normalfont\ttfamily|
% $B$HDj5A$5$l$F$$$^$9$,!$(B|\bfseries| |\verb...| $B$H$$$C$?;H$$J}$b$7$?$$$N$G!$(B
% |\normalfont| $B$O:o=|$7$F$7$^$$$^$7$?!#(B
%
%    \begin{macrocode}
\def\verbatim@font{\ttfamily}
%    \end{macrocode}
%
% \end{macro}
%
% \begin{macro}{\verb}
%
% $B85$O?t<0%b!<%I;~$@$1(B |\hbox| $B$KF~$k$h$&$K$J$C$F$$$^$7$?$,!$(B
% |\noautoxspacing| $B$N8z2L$rF@$k$?$a!$>o$K(B |\hbox| $B$KF~$k$h$&$K$7$^$7$?!#(B
%
%    \begin{macrocode}
\def\verb{%
  \leavevmode\hbox
  \bgroup
    \verb@eol@error \let\do\@makeother \dospecials
    \verbatim@font\@noligs
    \noautoxspacing
    \verbh@@k \verbh@@@k@
    \@ifstar\@sverb\@verb}
%    \end{macrocode}
%
% \end{macro}
%
% \begin{macro}{\@xverbatim}
% \begin{macro}{\@sxverbatim}
%
% |\| $B$N(B |\catcode| $B$r(B12$B$+$i(B13$B$KJQ$($^$7$?!#(B
%
%    \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| $B4D6-$NM>J,$J:8%^!<%8%s$G$9!#(B
% $BJ8=q%U%!%$%kCf$J$I$G<+M3$K:FDj5A$7$F$/$@$5$$!#(B
%
%    \begin{macrocode}
\newdimen\verbatimleftmargin
\verbatimleftmargin=2zw
%    \end{macrocode}
%
% \end{macro}
%
% \begin{macro}{\verbatimsize}
%
% |verbatim| $B4D6-$N%U%)%s%H%5%$%:$G$9!#(B
% $BJ8=q%U%!%$%kCf$J$I$G<+M3$K:FDj5A$7$F$/$@$5$$!#(B
%
%    \begin{macrocode}
\def\verbatimsize{\fontsize{9}{11pt}\selectfont}
%    \end{macrocode}
%
% \end{macro}
%
% \begin{macro}{\@verbatim}
%
% |verbatim| $B4D6-$G;H$&%U%)%s%H$N9TAw$j$H%5%$%:!J(B|\f@size|$B!K$,(B
% $BK\J8$H0c$&$H!$A08e$N4V3V$,0c$C$F$7$^$$$^$9!#$=$l$rJd@5$7$^$9!#(B
%
%    \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 \@noligs
  \noautoxspacing
  \verbh@@k \verbh@@@k@
  \hyphenchar\font\m@ne
  \everypar \expandafter{\the\everypar \unpenalty}%
}
%    \end{macrocode}
%
% \end{macro}
%
% $B0J>e$G=*$o$j$G$9!#(B
%
%    \begin{macrocode}
%</jsverb>
\endinput
%    \end{macrocode}
%
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
%%
% \Finale
