% fboxverb.sty
%   -- verbatim in fbox style
%
% NISHI Takao <zophos@koka-in.org>
% $Id: $
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% USAGE:
%
% \usepackage{fboxverb}
%
% \begin{fboxverb}
%    Just same as the verbatim environment.
%    You can write here what you want to show as is.
% \end{fboxverb}
%
%  or
%
% \begin{fboxverbpage}{10in}
%    An argument is same as the minipage environment. 
% \end{fboxverbpage}
%
% To change box width of fboxverb, set legth to \fboxverbwidth
%
% ex)
%      Set box width to 10 inch. in LaTeX way as;
%
%      \setlegth{\fboxverbwidth}{10in}
%
%      Set box width to half size of current page
%        in plain TeX way as;
%
%      \fboxverbwidth=.5\textwidth
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% COPYRIGHT:
%
% fboxverb.sty is a free software with ABSOLUTELY NO WARRANTY
% under the terms of the BSD License.
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% CHANGE LOG:
%
%   2001/10/21: 
%     + fboxverbpage environment added
%
%   2001/10/20:
%     + initial version
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newdimen\fboxverbwidth\fboxverbwidth 0.9\textwidth
\newdimen\temp@fboxverbwidth

%
% fboxverb
%
\begingroup \catcode `|=0 \catcode `[= 1
\catcode`]=2 \catcode `\{=12 \catcode `\}=12
\catcode`\\=12 |gdef|@xfboxverb#1\end{fboxverb}[|fbox[|begin[minipage][|fboxverbwidth]#1|end[minipage]]|end[fboxverb]]
|endgroup

\def\fboxverb{\@verbatim \frenchspacing\@vobeyspaces \@xfboxverb}
\def\endfboxverb{\endverbatim}

%
% fboxverbpage
%
\begingroup \catcode `|=0 \catcode `[= 1
\catcode`]=2 \catcode `\{=12 \catcode `\}=12
\catcode`\\=12 |gdef|@xfboxverbpage#1\end{fboxverbpage}[|fbox[|begin[minipage][|fboxverbwidth]#1|end[minipage]]|end[fboxverbpage]]
|endgroup

\def\fboxverbpage#1{\temp@fboxverbwidth\fboxverbwidth\fboxverbwidth=#1
     \@verbatim \frenchspacing\@vobeyspaces \@xfboxverbpage}
\def\endfboxverbpage{\endverbatim\fboxverbwidth\temp@fboxverbwidth}