Re: \label{...} 指定の自動化は可能なのでしょうか

名前: 本田
日時: 2001-09-28 20:25:32
IPアドレス: 202.224.196.*

>>2494 
 
誤読してました(^^;ラベルも自動化なんですよね． 
とりあえずこんなものを作ってみました． 
endnote.sty風に原文を訳文の直後に記述して 
\printgenbunで一気にだします． 
2回以上のコンパイルが必要です． 
試験はそんなにしていないのでご容赦を 
 
\documentclass[a4paper]{jarticle}  
\newcounter{zit}  
\newcommand{\zit}{【引用原文\thezit】}  
\makeatletter 
\def\@namegdef#1{\expandafter\gdef\csname #1\endcsname} 
\long\def\genbun#1{% 
   \stepcounter{zit} 
   \footnote{\zit\label{yaku@\thezit}原文は\pageref{genbun@\thezit} 
ページにあります．} 
   \immediate\write\@auxout{% 
    \string\@namegdef\string{genbun@\thezit\string}% 
    \string{\string\label\string{genbun@\thezit\string}#1\string}} 
   } 
\def\printgenbun{% 
   \clearpage 
   \section*{付録：引用原文} 
   \setcounter{zit}{\@ne} 
   \noindent 
   \print@genbun\par\noindent 
} 
\def\print@genbun{% 
   \expandafter\ifx\csname genbun@\the\c@zit\endcsname\relax\else 
   本文\pageref{yaku@\thezit}ページ参照． 
      \begin{quote} 
   \csname genbun@\the\c@zit\endcsname% 
      \end{quote} 
   \stepcounter{zit} 
   \print@genbun\par\noindent 
   \fi 
} 
 
\makeatother 
\begin{document}  
\section{The \TeX{}bookより}  
クヌース先生は``The \TeX{}book''の第12章「グルー」の最終ページで，  
マーク＝トウェイン作『ハックルベリー＝フィンの冒険』からの次の  
文言を添付しておられます。  
\begin{quote}  
\small  
ま，ちょっとはったりをかましてるところもあるけんど，  
おっさんはだいたいほんとのことをいっとる。 
\genbun{There was things which he streched, but mainly he told the truth. } 
\end{quote}  
また，第15章には次のような引用も見られます。  
\begin{quote}  
\small  
ドン，あなたの本の中では脚註を使わないでね。 
\genbun{Don't use footnotes in your books, Don. } 
\end{quote}  
\printgenbun 
\end{document}

この書き込みへの返事：