Re: タイトル著者概要の２重化の方法？

名前: ポム
日時: 2004-11-02 04:16:42
IPアドレス: 210.156.40.*

>>16408
16408 に書いてあることを試そうとして，うまくいかず困っています．
下にソースを添付しますので，原因を教えていただけると幸いです．

\documentclass[a4paper]{jsarticle}

\makeatletter
\def\jabstractname{概\hskip1zw要}%%% 和文の概要部分の見出し文字列
\def\eabstractname{Abstract}%%%      欧文の概要部分の見出し文字列
\long\def\jtitle#1{\def\@jtitle{#1}}
\def\@jtitle{\@latex@error{No \noexpand\jtitle given}\@ehc}
\long\def\etitle#1{\def\@etitle{#1}}
\def\@etitle{\@latex@error{No \noexpand\etitle given}\@ehc}
\def\jauthor#1{\def\@jauthor{#1}}
\let\@jauthor\@empty
\def\eauthor#1{\def\@eauthor{#1}}
\let\@eauthor\@empty
\newbox\@jabstractbox  \global\setbox\@jabstractbox\box\voidb@x
\newbox\@eabstractbox  \global\setbox\@eabstractbox\box\voidb@x
\def\jabstract{%
   \global\setbox\@jabstractbox\vbox\bgroup
      \hsize\textwidth \@parboxrestore
      \normalsize \leftskip=3zw \rightskip=3zw %%% 左右の余白の設定
      \begingroup \centering
      \bfseries \jabstractname%%% 和文概要の見出し文字列の整形
      \par\endgroup
      \vskip.25\baselineskip
      \small%%% 和文概要の文字サイズ
      \parindent=1zw\relax}
\def\endjabstract{\egroup}
\def\eabstract{%
   \global\setbox\@eabstractbox\vbox\bgroup
      \hsize\textwidth \@parboxrestore
      \normalsize \leftskip=3zw \rightskip=3zw %%%  左右の余白の設定
      \begingroup \centering
      \small\bfseries \eabstractname%%% 欧文概要の見出し文字列の整形
      \par\endgroup
      \vskip.25\baselineskip
      \footnotesize%%% 欧文概要の文字サイズ
      \parindent=1.5em\relax}
\def\endeabstract{\egroup}
\def\maketitle{%
   \par
   \begingroup
   \def\thefootnote{\fnsymbol{footnote}}%
   \def\@makefnmark{\textsuperscript{\@thefnmark}}%
   \long\def\@makefntext##1{%
      \parindent 1zw
      \noindent\hbox to2zw{\hss\textsuperscript{\@thefnmark}}##1}%
   \if@twocolumn
      \ifnum\col@number=\@ne
         %%% \twocolumn のオプション引数の中で \maketitle が用いられた場合
         \@maketitle
      \else
         %%% 2 段組時に \twocolumn のオプション引数の外で \maketitle を
         %%% 用いた場合
         \twocolumn[\@maketitle]%
      \fi
   \else%%% 1 段組の場合
      \newpage
      \global\@topnum\z@
      \@maketitle
   \fi
   \thispagestyle{jpl@in}%
   \@thanks
   \endgroup
   \setcounter{footnote}{0}%
   \global\let\thanks\relax
   \global\let\maketitle\relax
   \global\let\p@thanks\relax
   \global\let\@thanks\@empty
   \global\let\@jauthor\@empty
   \global\let\@eauthor\@empty
   \global\let\@date\@empty
   \global\let\@jtitle\@empty
   \global\let\@etitle\@empty
   \global\let\jtitle\relax
   \global\let\etitle\relax
   \global\let\jauthor\relax
   \global\let\eauthor\relax
   \global\let\date\relax
   \global\let\and\relax}
\def\@maketitle{%
   \null\vskip\baselineskip
   \begin{center}%
      \let\footnote\thanks
      {\LARGE\bfseries \@jtitle \par}%%% 和文タイトルの出力
      \vskip.5\baselineskip
      {\large \lineskip1ex
       \begin{tabular}[t]{c}
          \@jauthor%%% 和文著者リストの出力
       \end{tabular}\par}%
      \ifvoid\@jabstractbox\else
         \vskip.5\baselineskip
         \unvbox\@jabstractbox%%% 和文概要の出力
      \fi
      \setcounter{footnote}{0}%
      \vskip\baselineskip
      {\Large\bfseries \@etitle \par}%%% 欧文タイトルの出力
      \vskip.5\baselineskip
      {\normalsize\lineskip1ex
       \begin{tabular}[t]{c}
          \@eauthor%%% 欧文著者リストの出力
       \end{tabular}\par}%
      \ifvoid\@eabstractbox\else
         \vskip.5\baselineskip
         \unvbox\@eabstractbox%%% 欧文概要の出力
      \fi
   \end{center}%
   \vskip\baselineskip}
\makeatother

\begin{document}

\jtitle{複数のタイトルを出力する方法}%%% 和文タイトルの登録
\jauthor{しっぽ愛好家}%%%                和文著者リストの登録
\begin{jabstract}%%% 和文概要の登録
これは，和文タイトルと欧文タイトルを併記する，という具合に，
複数のタイトルを併記する例です．
\end{jabstract}

\etitle{A Method to Produce Multiple-Titles}%%% 欧文タイトルの登録
\eauthor{Tail-Lover}%%%                         欧文著者リストの登録
\begin{eabstract}%%% 欧文概要の登録
In this article, we are going to illustlate how to produce
two or more titles.
\end{eabstract}

\maketitle %%% 実際の表題部分の出力

\end{document}

この書き込みへの返事：