floatの体裁を区別したい

名前: 水時計
日時: 2008-04-16 20:41:59
IPアドレス: 61.23.233.*

度々、御世話になります。

以下のようにして、新しいfloatを追加しました。

\newcounter{srclist}[chapter]
\renewcommand{\thesrclist}{%
  \ifnum\c@chapter>\z@\thechapter\textendash\fi\@arabic\c@srclist}
\def\srclistname{リスト}
\def\fps@srclist{tbp}
\def\ftype@srclist{4}
\def\ext@srclist{los}
\def\fnum@srclist{\srclistname~\thesrclist}
\newenvironment{srclist}%
               {\@float{srclist}}%
               {\end@float}
\newenvironment{srclist*}%
               {\@dblfloat{srclist}}%
               {\end@dblfloat}

\newcommand*{\l@srclist}{\@dottedtocline{1}{1.5em}{2.3em}}
\newcommand{\listofsrclists}{%
  \if@twocolumn\@restonecoltrue\onecolumn
  \else\@restonecolfalse\fi
  \chapter*{\listsrclistname
  \@mkboth{\listsrclistname}{\listsrclistname}}%
  \@starttoc{los}%
  \if@restonecol\twocolumn\fi
}
\newcommand{\listsrclistname}{リ\!ス\!ト\,目 次}

これをplatexで処理すると

リスト2-2 : キャプション文

のようになります。

さて、table、figure環境でのキャプションの体裁は

表 2-2 : キャプション文
図 2-2 : キャプション文

の状態を保ったまま、追加したsrclist環境のキャプションの体裁だけ以下のように
したいのです。

リスト2-2　キャプション文　（\hspace{1zw}の空白）

そこで、以下のようにしました。

\long\def\@makecaption#1#2{%
  \small\bfseries\fontfamily{phv}\selectfont
  \vskip\abovecaptionskip
  \iftdir\sbox\@tempboxa{#1\hskip1zw#2}%
    \else\if\ftype@srclist\sbox\@tempboxa{#1\hspace{1zw}#2}%
		 \else \sbox\@tempboxa{#1 : #2}%
		 \fi
	\fi
  \ifdim \wd\@tempboxa >\hsize
    \iftdir #1\hskip1zw#2\relax\par
      \else\if\ftype@srclist#1\hspace{1zw}#2\relax\par
		\else#1 : #2\relax\par\fi
	  \fi
  \else
    \global \@minipagefalse
    \hbox to\hsize{\box\@tempboxa\hfil}%
  \fi
  \vskip\belowcaptionskip}


他にも、色々いじって見たのですが、分岐の仕方が分かっておらず希望の出力が得ら
れません。
どうかお教えください。

\listofsrclistを出力しようとすると、上手くできない状態ですので、ひょっとした
らsrclistの定義自体抜けがあるかもしれない、と疑ってはいます。

この書き込みへの返事：