Re: 条件の違う表現方法について

名前: .
日時: 2005-04-11 17:46:40
IPアドレス: 219.108.36.*

>>35381
提示していただいた記述を見る限り，どこかの学会誌のクラスファイルを
（“目的外”の用途に(?)）用いているような感じですが，
（本田さんのお話にあるように）そのクラスファイル（きわめて
古いところでしたら，スタイルファイル）の入手先を挙げていただけませんか．
# “カスタマイズを行う以上，オリジナルが必要”ということは
# 言うまでもないことと思ったのはうかつでしたが．

とりあえず，次のようなことは可能でしょう．
# ただし，このカスタマイズを“何から何まで”代行するつもりは
# ありませんので，体裁についてはご自分で変更なさってください．

\documentclass{jarticle}
\makeatletter
\let\@jtitle\@empty
\let\@jsubtitle\@empty
\let\@etitle\@empty
\let\@esubtitle\@empty
\def\jtitle#1{\gdef\@jtitle{#1}}
\def\jsubtitle#1{\gdef\@jsubtitle{#1}}
\def\etitle#1{\gdef\@etitle{#1}}
\def\esubtitle#1{\gdef\@esubtitle{#1}}
\let\@jauthorlist\@empty
\let\@eauthorlist\@empty
\newcount\@affilcnt \global\@affilcnt\z@
\def\authorlist#1{%
  #1%
  \@check@addresses}
% \authorentry[address]{jname}{ename}{label}
% \@addresslist@label: label に対応する address のリスト
\def\authorentry{\@testopt\@authorentry{}}
\def\@authorentry[#1]#2#3#4{%
   \expandafter\ifx\csname @addresslist@#4\endcsname\relax
      \global\advance\@affilcnt\@ne
      \expandafter\xdef\csname @affilno@#4\endcsname{\the\@affilcnt}%
      \global\@namedef{@affillabel@\the\@affilcnt}{#4}%
      \global\expandafter\let\csname @addresslist@#4\endcsname\@empty
      \edef\@currid{\the\@affilcnt}%
   \else
      \edef\@currid{\@nameuse{@affilno@#4}}%
   \fi
   \def\@tempa{#1}%
   \ifx\@tempa\@empty
      \@cons\@jauthorlist{{#2}{\@currid}{*}}%
      \@cons\@eauthorlist{{#3}{\@currid}{*}}%
   \else
      \@cons\@jauthorlist{{#2}{\@currid}{}}%
      \@cons\@eauthorlist{{#3}{\@currid}{}}%
      \expandafter\@cons\csname @addresslist@#4\endcsname{%
         {#1}{\@currid}{}}%
   \fi}
\def\@check@addresses{%
   \let\@@elt\@elt
   \@tempswafalse
   \@tempcnta\z@
   \def\@elt##1##2##3{\advance\count@\@ne}%
   \@whilenum\@tempcnta<\@affilcnt\do{%
      \advance\@tempcnta\@ne
      \count@\z@
      \@nameuse{@addresslist@\@nameuse{@affillabel@\the\@tempcnta}}%
      \ifnum\count@>\@ne \@tempswatrue \fi}%
   \if@tempswa% 所属が同じ（でメールアドレスが異なる）著者が複数いる場合
      \def\@elt##1##2##3{%
         \if##3*\relax
            \@cons\@templist{{##1}{##2}{}}%
         \else
            \advance\count@\@ne
            \@cons\@templist{{##1}{##2}{\the\count@}}%
         \fi}%
      \let\@templist\@empty \count@\z@
      \@jauthorlist         \let\@jauthorlist\@templist
      \let\@templist\@empty \count@\z@
      \@eauthorlist         \let\@eauthorlist\@templist
      \def\@elt##1##2##3{%
         \advance\count@\@ne
         \@cons\@templist{{##1}{}{\the\count@}}}%
      \@tempcnta\z@ \count@\z@
      \@whilenum\@tempcnta<\@affilcnt\do{%
         \advance\@tempcnta\@ne
         \let\@templist\@empty
         \edef\@tempa{@addresslist@\@nameuse{@affillabel@\the\@tempcnta}}%
         \@nameuse\@tempa
         \expandafter\let\csname\@tempa\endcsname\@templist}%
   \fi
   \let\@elt\@@elt}
\let\@affillist\@empty
% \affiliate[label]{affiliation}
\def\affiliate{\@testopt\@affiliate{}}
\def\@affiliate[#1]#2{%
   \expandafter\ifx\csname @addresslist@#1\endcsname\relax
      \@latex@warning@no@line{No \string\authorentry\space for ``#1''}%
   \else
      \protected@edef\@tempa{#2}%
      \expandafter\protected@xdef\csname @affiltext@#1\endcsname{%
         \expandafter\@affiliate@cutoff\@tempa\hskip\@nil% 単に #2 でよい？
         }%
   \fi}
\def\@affiliate@cutoff#1\hskip#2\@nil{#1}

\def\maketitle{%
   \par
   \begingroup
   \if@twocolumn
      \ifnum \col@number=\@ne \@maketitle
      \else                   \twocolumn[\@maketitle]%
      \fi
   \else
      \newpage
      \global\@topnum\z@
      \@maketitle
   \fi
   \thispagestyle{plain}%
   \@thanks
   \endgroup
   \setcounter{footnote}{0}%
   \global\let\maketitle\relax}
\def\@maketitle{%
   \begingroup\centering \normalsize
      \ifx\@jtitle\@empty\else
         {\Large\bfseries \@jtitle\par}%
      \fi
      \ifx\@jsubtitle\@empty\else
         \vskip3mm
         {\bfseries \@jsubtitle\par}%
      \fi
      \ifx\@jauthorlist\@empty\else
         \vskip1.5mm
         \let\@elt\@put@author@elt
         \@jauthorlist
         \unskip\par
      \fi
      \ifnum\@affilcnt>\z@
         \vskip1.5mm
         \@tempcnta\z@
         \@whilenum\@tempcnta<\@affilcnt\do{%
            \advance\@tempcnta\@ne
            \@make@affilmark\@tempcnta\kern\z@
            \@nameuse{@affiltext@\@nameuse{@affillabel@\the\@tempcnta}}%
            \hskip1zw}%
         \unskip\par
         \vskip1.5mm
         \let\@elt\@put@address@elt
         \@tempcnta\z@
         \@whilenum\@tempcnta<\@affilcnt\do{%
            \advance\@tempcnta\@ne
            \@nameuse{@addresslist@\@nameuse{@affillabel@\the\@tempcnta}}%
            \hskip1zw}%
         \unskip\par
      \fi
%      \ifx\@etitle\@empty\else
%         \vskip3mm
%         {\large\bfseries \@etitle\par}%
%      \fi
%      \ifx\@esubtitle\@empty\else
%         \vskip3mm
%         {\small\bfseries \@esubtitle\par}%
%      \fi
%      \ifx\@eauthorlist\@empty\else
%         \vskip1.5mm
%         \let\@elt\@put@author@elt
%         \@eauthorlist\par
%      \fi
   \par\endgroup}
\def\@put@author@elt#1#2#3{%
   #1\kern\z@
   \@make@affilmark{#2}%
   \if\relax#3\relax\else
      \,\@make@emailmark{#3}%
   \fi
   \hskip1zw\relax}
\def\@make@affilmark#1{%
   \textsuperscript{%
      \ifcase#1\relax
      \or \textdagger
      \or \textdagger\textdagger
      \or \textdagger\textdagger\textdagger
      \or \textdagger\textdagger\textdagger\textdagger
      \or \textdagger\textdagger\textdagger\textdagger\textdagger
      \or \textdagger\textdagger\textdagger
          \textdagger\textdagger\textdagger
      \or \textdagger\textdagger\textdagger\textdagger
          \textdagger\textdagger\textdagger
      \or \textdagger\textdagger\textdagger\textdagger
          \textdagger\textdagger\textdagger\textdagger
      \or \textdagger\textdagger\textdagger\textdagger\textdagger
          \textdagger\textdagger\textdagger\textdagger
      \or \textasteriskcentered
      \or \textasteriskcentered\textasteriskcentered
      \or \textasteriskcentered\textasteriskcentered\textasteriskcentered
      \or \textasteriskcentered\textasteriskcentered
          \textasteriskcentered\textasteriskcentered
      \or \textasteriskcentered\textasteriskcentered\textasteriskcentered
          \textasteriskcentered\textasteriskcentered
      \or \textasteriskcentered\textasteriskcentered\textasteriskcentered
          \textasteriskcentered\textasteriskcentered\textasteriskcentered
      \or \textasteriskcentered\textasteriskcentered\textasteriskcentered
          \textasteriskcentered\textasteriskcentered\textasteriskcentered
          \textasteriskcentered
      \or \textasteriskcentered\textasteriskcentered\textasteriskcentered
          \textasteriskcentered\textasteriskcentered\textasteriskcentered
          \textasteriskcentered\textasteriskcentered
      \or \textasteriskcentered\textasteriskcentered\textasteriskcentered
          \textasteriskcentered\textasteriskcentered\textasteriskcentered
          \textasteriskcentered\textasteriskcentered\textasteriskcentered
      \fi}}
\def\@make@emailmark#1{%
   \if\relax#1\relax\else \textsuperscript{\@alph{#1})}\fi}

\def\@put@address@elt#1#2#3{%
   \if\relax#2\relax \@make@emailmark{#3}%
   \else             \@make@affilmark{#2}%
   \fi
   #1\hskip1zw}
\makeatother

\jtitle{テンプレート (タイトル)}
\jsubtitle{− (サブタイトル)−}
\etitle{pLaTeX Template (Title)}
\esubtitle{−(Subtitle)−}
\authorlist{%
 \authorentry[TARO@abc.co.jp]{日本 太郎}{Taro nihon}{Tokyo}% 
 \authorentry[jiro@def.co.jp]{日本 次郎}{jiro nihon}{Osaka}% 
 \authorentry[ichiro@hij.co.jp]{日本 一郎}{ichiro nihon}{test}%
  \authorentry[hanako@hij.co.jp]{日本 花子}{hanako nihon}{test}%
}
\affiliate[Tokyo]{工学部\hskip1zw
  〒999--9999 東京都世田谷区x--x--x}

\affiliate[Osaka]{開発部\hskip1zw
  〒888--8888 大阪府吹田市x--x--x}

\affiliate[test]{営業部\hskip1zw
  〒777--7777 ｘｘｘ県ｘｘ市x--xx--xx}


\begin{document}

\maketitle% \maketitle を用いてタイトル部分を出力するものと仮定しました．

\end{document}

この書き込みへの返事：