Re: moreverbで円マーク

名前: しっぽ愛好家
日時: 2003-05-23 22:00:27
IPアドレス: 211.4.46.*

>>18930
%%% [専用フォントを持ち込みたくない人のために]
moreverb パッケージを読み込んだ後に次の記述を入れてみるとどうでしょうか．

%%% オリジナルの verbatim/verbatim* 環境には手を入れていないので，
%%% これらの環境を用いた場合の出力には（オリジナルどおりに）
%%% バックスラッシュが用いられます．ただ，verbatim/verbatim* の代わりに
%%% 常に verbatimtab/verbatimtab* を用いることにすればよいので，
%%% （事実上）問題はないでしょう．
%%% %%% verbatimtab* 環境は下記の記述の中で導入しています．

\makeatletter
%
%%% バックスラッシュを用いた出力に戻したい場合には，
%%% 該当する環境の直前（あるいはプリアンブル）に \UseBackslash という
%%% 記述を入れます．
\newif\if@UseBackslash
\def\UseBackslash{\@UseBackslashtrue}
\def\UseYensymbol{\@UseBackslashfalse}
\UseYensymbol%%% 円記号を使用
\def\verbatim@tabexpand#1{%
   \ifx#1\@nil
      \the\toks@
      \expandafter\par
   \else
      \ifx#1\@xobeytab
         \@xobeytab
      \else
         \if\noexpand#1\@backslashchar
            \if@UseBackslash
               \toks@\expandafter{\the\toks@#1}%
            \else
               \toks@\expandafter{\the\toks@ Y\llap=}%
            \fi
         \else
            \toks@\expandafter{\the\toks@#1}%
         \fi
%%% オリジナルでの次の行を，上記の 9 行のように変更しました．
%%%            \toks@\expandafter{\the\toks@#1}%
         \advance\tab@position\m@ne
      \fi
      \ifnum\tab@position=0 \tab@position\tab@size \fi
      \expandafter\verbatim@tabexpand
   \fi}
\def\@xobeytab@{%
   \loop
      \toks@\expandafter{\the\toks@\@xxxii}%
      \advance\tab@position-1
   \ifnum\tab@position>0 \repeat}
%
%%% ついでに，boxedverbatim/listing* 環境でも ``タブ文字を展開'' 
%%% することにします．
%%% %%% 余計なお世話かもしれませんが…
\@namedef{listingcont*}{%
   \tab@size=\verbatimtabsize
   \let\@xobeytab\@xobeytab@
   \def\verbatim@processline{%
      \thelisting@line \global\advance\listing@line1
      \tab@position\tab@size \toks@{}%
      \expandafter\verbatim@tabexpand\the\verbatim@line\@nil}%
   \@verbatim\@vobeytabs\verbatim@start}
\def\boxedverbatim{%
   \tab@size=\verbatimtabsize
   \def\verbatim@processline{{%
      \tab@position\tab@size \toks@{}%
      \setbox0=\hbox{\expandafter\verbatim@tabexpand\the\verbatim@line\@nil}%
      \hsize=\wd0 \leavevmode\box0\par}}%
   \@minipagetrue%%%DPC%%%
   \@tempswatrue%%%DPC%%%
   \setbox0=\vbox\bgroup
      \@verbatim\frenchspacing\@vobeyspaces\@vobeytabs\verbatim@start}
\def\endboxedverbatim{%
      \endtrivlist
      \unskip\setbox0=\lastbox %%%DPC%%%
   \egroup
   \fbox{\box0}}% <<<=== change here for centering,...
%
%%% verbatimtab* 環境を追加してみます．
\@namedef{verbatimtab*}{%
   \obeylines\@testopt\@sverbatimtab\verbatimtabsize}
\def\@sverbatimtab[#1]{%
   \do@verbatimtab{#1}{%
      \let\@xobeytab\@xobeytab@
      \@verbatim\frenchspacing\@vobeytabs\verbatim@start}}
\@namedef{endverbatimtab*}{\endtrivlist}
\makeatother

この書き込みへの返事：