Re: breakboxでの空行をなくしたい

名前: misc
日時: 2004-01-12 00:09:52
IPアドレス: 211.4.46.*

>>24807
# 既製品を組み合わせるより，然るべき環境を自作した方が早いと思いますが…
# それはともかく，
breakbox 環境および \verbatiminput マクロは，どのパッケージによるものですか？

とりあえず，
・breakbox 環境は eclbkbox パッケージによるもの
・\verbatiminput マクロは verbatim パッケージによるもの
と仮定します．

この場合，上記の両パッケージを読み込んだ後に次の記述を追加すると
どうでしょうか．

\makeatletter
\def\breakbox{%
   \vskip\breakboxskip\relax
   \setbox\bk@bxb\vbox\bgroup
      \advance\linewidth -2\fboxrule
      \advance\linewidth -2\fboxsep
      \hsize\linewidth\@parboxrestore
      \@setminipage%%% added
      \parindent\breakboxparindent\relax}
\def\endbreakbox{%
      \ifvmode \vskip-\lastskip \fi%%% added
      \egroup
   \ifhmode\par\fi
  {\noindent\bk@lcnt\@ne
   \@bkconttrue\baselineskip\z@\lineskiplimit\z@
   \lineskip\z@\vfuzz\maxdimen
   \bk@split\bk@addfsepht\bk@addskipdp
   \ifvoid\bk@bxb      % Only one line
      \def\bk@fstln{%
         \bk@addfsepdp
         \vbox{\hrule\@height\fboxrule\bk@line\hrule\@height\fboxrule}}%
   \else               % More than one line
      \def\bk@fstln{\vbox{\hrule\@height\fboxrule\bk@line}\hfil
         \advance\bk@lcnt\@ne
         \loop
            \bk@split\bk@addskipdp\leavevmode
            \ifvoid\bk@bxb      % The last line
               \@bkcontfalse\bk@addfsepdp
               \vtop{\bk@line\hrule\@height\fboxrule}%
            \else               % 2,...,(n-1)
               \bk@line
            \fi
            \hfil\advance\bk@lcnt\@ne
         \if@bkcont\repeat}%
   \fi
   \leavevmode\bk@fstln
   \par}%
   \vskip\breakboxskip\relax}

\def\verbatim@readfile#1{%
   \verbatim@startline
   \openin\verbatim@in@stream #1\relax
   \ifeof\verbatim@in@stream
      \typeout{No file #1.}%
   \else
      \let\@verbatim@prevline\relax%%% added
      \@addtofilelist{#1}%
      \ProvidesFile{#1}[(verbatim)]%
      \expandafter\endlinechar\expandafter\m@ne
      \expandafter\verbatim@read@file
      \expandafter\endlinechar\the\endlinechar\relax
      \closein\verbatim@in@stream
   \fi
   \verbatim@finish}
\def\verbatim@read@file{%
   \read\verbatim@in@stream to\next
   \ifeof\verbatim@in@stream\else
      \ifx\@verbatim@prevline\relax\else
         \expandafter\verbatim@addtoline\expandafter{\@verbatim@prevline}%
         \verbatim@processline
         \verbatim@startline
      \fi
      \let\@verbatim@prevline\next
      \expandafter\verbatim@read@file
   \fi}
\makeatother

この書き込みへの返事：