% kochu.sty by Shinsaku Fujita 1998/08/30
% Copyright (C) 1998 by Shinsaku Fujita, All rights reserved. 
%
%  縦書における後注命令
%
%  作成者: 藤田眞作
%          fujitas@chem.kit.ac.jp
%
%   藤田眞作著「続LaTeX2e階梯(縦書編)」所載
%
%   無保証
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\j@urnalname{kochu}
\def\versi@ndate{August 30, 1998}
\def\versi@nno{ver1.00}
\def\copyrighth@lder{SF} % Shinsaku Fujita
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\typeout{Option Style `\j@urnalname' (\versi@nno) <\versi@ndate>\space 
[\copyrighth@lder]}
%
% 漢数字を使うときのスイッチ
%
\newif\ifchuukanjibango
%\def\kanjichuu{\chuukanjibangotrue
\def\kanjikochuu{\chuukanjibangotrue
\def\@kochuulabel##1{##1}}%漢数字の場合
%
% 連数字の前後の四分アキを除く
%
\def\kakkorensuji#1{(\kern-\rensujiskip\rensuji{#1}%
\kern-\rensujiskip)}%added by S. Fujita 1998/11/06
%
% アラビア数字を使うときのスイッチ
%
%\def\arabicchuu{\chuukanjibangofalse
\def\arabickochuu{\chuukanjibangofalse
%\def\@kochuulabel##1{(\rensuji{##1})}}%アラビア数字の場合
\def\@kochuulabel##1{\kakkorensuji{##1}}}%アラビア数字の場合
%
% 標準はアラビア数字
%  切り替えは\kanjikochuu
%
\arabickochuu
%
% \cite命令、\Kochuumark命令がオプション引数を
% もつときの出力形式
%
\def\@chuucite#1#2{{{\gt #1}\if@tempswa 
\ifchuukanjibango\hbox{、}\else , \fi#2\fi}}
%
% 行間に注を出力
%
%\def\arabicchuucite#1{(\rensuji{\chuucite{#1}})}
\def\arabicchuucite#1{\kakkorensuji{\chuucite{#1}}}
\def\kanjichuucite#1{\chuucite{#1}}
\def\kochuumark#1{\leavevmode
\ifchuukanjibango
  \hbox to\z@{\hskip-.25zw\raise.9zh\hbox{%
  \kanjiskip=0pt plus.5pt minus.5pt%added by S. Fujita 1998/11/06
  \hbox{\scriptsize\gt \kanjichuucite{#1}}}\hss}%
\else
  \hbox to\z@{\hskip-.25zw\raise.9zh\hbox{%
  \kanjiskip=0pt plus.5pt minus.5pt%added by S. Fujita 1998/11/06
  \hbox{\scriptsize \arabicchuucite{#1}}}\hss}%
\fi}
%
% 文章中に注を出力
%
\def\Kochuumark{\@ifnextchar[%]
{\@Kochuumark}{\@Kochuumark[]}}
\def\@Kochuumark[#1]#2{\def\aaa{#1}%
\ifx\aaa\empty(\chuucite{#2})%
\else(\chuucite[#1]{#2})\fi}
%
% \chuuitem
%    \bibitem命令の改変。
%     (1) \biblabel、\bibcite命令は共通に利用
%     (2) アラビア数字と漢数字の切り換え機能を追加
%
\def\chuuitem{\@ifnextchar[\@lchuuitem\@chuuitem}
\def\@lchuuitem[#1]#2{\item[\@biblabel{#1}\hfill]\if@filesw
      {\let\protect\noexpand
       \immediate
       \write\@auxout{\string\bibcite{#2}{#1}}}\fi\ignorespaces}
\def\@chuuitem#1{\item\if@filesw \immediate\write\@auxout
       {\string\bibcite{#1}{\ifchuukanjibango\Kanji\@listctr\relax
        \else\the\value{\@listctr}\fi}}\fi\ignorespaces}
%
%   \chuucite命令
%     \cite命令を流用
%     (1) アラビア数字と漢数字の切り換え機能を追加
%
\DeclareRobustCommand\chuucite{%
  \@ifnextchar [{\@tempswatrue\@chuucitex}{\@tempswafalse\@chuucitex[]}}
\def\@chuucitex[#1]#2{%
  \let\@citea\@empty
  \@chuucite{\@for\@citeb:=#2\do
    {\@citea%
     \ifchuukanjibango \def\@citea{\hbox{、}\penalty\@m}%
     \else\def\@citea{,\penalty\@m}%
     \fi
     \edef\@citeb{\expandafter\@firstofone\@citeb\@empty}%
     \if@filesw\immediate\write\@auxout{\string\citation{\@citeb}}\fi
     \@ifundefined{b@\@citeb}{\mbox{\reset@font\bfseries ?}%
       \G@refundefinedtrue
       \@latex@warning
         {Citation `\@citeb' on page \thepage \space undefined}}%
       {\hbox{\csname b@\@citeb\endcsname}}}}{#1}}
%
% 後注(kochuu)環境のフォント、表題、ラベル
%
\def\kochuufontsize{\small}
\def\kochuuname{注}
%\def\@kochuulabel#1{(\rensuji{#1})}%アラビア数字の場合
\def\@kochuulabel#1{\kakkorensuji{#1}}%アラビア数字の場合
%\def\@kochuulabel#1{#1}%漢数字の場合
%
% 後注(kochuu)環境の定義
%  thebibliography環境の流用
%  変更点
%   (1) thebibliography環境の引数は削除
%   (2) \kochuufontsizeでフォントのサイズを指定
%   (3) 表題  chapter --> section
%
\newenvironment{kochuu}
{\section*{\kochuuname
 %\@mkboth{\kochuuname}{\kochuuname}
 }%柱出力せず
   \list{\ifchuukanjibango
        \@kochuulabel{\gt \Kanji{enumiv}}\else
        \@kochuulabel{\@arabic\c@enumiv}\fi}%
        {\kochuufontsize
         \labelwidth=1zw
         \labelsep=.5zw
         \itemsep=0zw \parsep=0zw
         \leftmargin\labelwidth
         \advance\leftmargin\labelsep
         \advance\leftmargin by1.5zw
         \usecounter{enumiv}%
         \let\p@enumiv\@empty
         \def\makelabel##1{\hss\llap{##1}}
         \renewcommand\theenumiv{\@arabic\c@enumiv}}%
}
  {\def\@noitemerr
    {\@latex@warning{Empty `thekochuu' environment}}%
   \endlist}
\endinput
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  例文
%   藤田眞作著「続LaTeX2e階梯(縦書編)」所載
\documentclass[a5j]{tbook}
\usepackage{kochu}
\usepackage{furiknkt}
\usepackage{shiika}%詩歌環境
\kanjikochuu%漢数字
\begin{document}
歌枕として、
\kochuumark{AA1}白河の関は古来有名である。
ここより外は\Kanakt{陸奥}{みちのく}として、
人々の旅情をかきたてる場所であった。
松尾芭蕉\kochuumark{AA2}「奥の細道」
の白河(白川)の関の条には、この歌枕を読み込んだ
\kochuumark{AA3}古歌の一節がさりげなく引用されている。

\vspace{.5\baselineskip}
みちのくにの白河関こえ侍りけるに
\hfill \kochuumark{AA4}平兼盛
\begin{shiika}
\kochuumark{AA5}%
たよりあらばいかで都へつげやらむけふしら川の関はこえぬと
\end{shiika}

\vspace{.5\baselineskip}
陸奥に修行してまかりけるに、白河の関にとまりて、
ところがらにや、常よりも月おもしろくあはれにて、
能因が「秋風ぞ吹く」と申しけむ折、いつなりけむ
と思ひ出でられて、余波多くおぼえければ、
関屋の柱に書きつけける
\hfill\kochuumark{AA6}西行法師
\begin{shiika}
\kochuumark{AA7}%
白河の関屋を月の洩るからに人の心をとむるなりけり
\end{shiika}

\vspace{.5\baselineskip}
みちのくににまかりだりけるに、しら川の関にてよみ侍りける
\hfill\kochuumark{AA8}能因法師
\begin{shiika}
\kochuumark{AA9}%
宮こをば霞とともに立ちしかど秋風ぞふくしら川の関
\end{shiika}


\mbox{}\hfill 左大弁親宗
\begin{shiika}
\kochuumark{BB1}%
もみぢばの皆紅にちりしけば名のみなりけり白川の関
\end{shiika}

\vspace{.5\baselineskip}
宇治前太政大臣、白河にて見行客といふ事をよめる
\hfill 堀河右大臣
\begin{shiika}
\kochuumark{CC4}%
関こゆる人に問ばやみちのくのあだちのまゆみ紅葉しにきや
\end{shiika}


\mbox{}\hfill\kochuumark{BB2}源頼政
%%%%%%%%%%%%%%
%%%%%%%%%%%
\begin{shiika}
\kochuumark{BB3}%
都にはまだ青葉にて見しかども紅葉散りしく白川の関
\end{shiika}

\vspace{.5\baselineskip}
白川院鳥羽殿におわしましける時、をのこども歌合し侍りけるに、\\
卯花をよめる \hfill 藤原季通朝臣
\begin{shiika}
\kochuumark{CC1}%
見て過ぐる人しなければ卯花のさける垣ねや白川の関
\end{shiika}

\vspace{.5\baselineskip}
羇中歳暮といへる心をよめる \hfill 僧都印性
\begin{shiika}
\kochuumark{CC2}%
東路も年も末にやなりぬらむ雪ふりにける白川の関
\end{shiika}

\mbox{} \hfill 後久我太政大臣通光
\begin{shiika}
\kochuumark{CC3}%
白河の関の秋とは聞きしかど初雪わくる山のべの道
\end{shiika}

\vspace{.5\baselineskip}
芭蕉は、白河の関を訪ねたが、この歌枕を前にして、
不思議なことに俳句を残していない。
弟子の曽良の句を「奥の細道」に書き留めている。
\begin{shiika}

\vspace{.5\baselineskip}
卯の花をかざしに関の晴着かな
\end{shiika}

\begin{kochuu}
\chuuitem{AA1} 福島県白河市にあった奥州街道の関所。
\chuuitem{AA2} 芭蕉「おくのほそ道」
萩原 恭男 校注、岩波文庫七九 (一九九一)。
\chuuitem{AA3}
蓑笠庵 梨一「奥細道菅菰抄」(おくのほそみちすがもしょう。
文献\Kochuumark{AA2}に付録として掲載)の注釈が、
典拠を明らかにしている。
\chuuitem{AA4} 
たいらのかねもり。\rensuji{?}〜九九〇。
平安前期の歌人。三十六歌仙の一人。従五位下駿河守。
家集に「兼盛集」がある。
\chuuitem{AA5}「拾遺集」別・三三九
\chuuitem{AA6}
さいぎょうほうし。一一一八〜一一九〇。
平安時代末期の歌人。
%%%%%%%%%%%%%%%%%%%%
\chuuitem{AA7}「山家集」。
%「新拾遺集」羇旅。
ここでは、「西行物語」桑原博史全訳注、
講談社学術文庫(一九八一)より引用。
\chuuitem{AA8} のういんほうし。九八八〜\rensuji{?}。
平安時代中期の歌人。三十六歌仙の一人。
\chuuitem{AA9}「後拾遺集」羇旅・五一八番。
\chuuitem{BB1}「千載集」秋歌下・三六四。
\chuuitem{CC4}「詞歌和歌集」秋・一三〇番。
\chuuitem{BB2}
みなもとのよりまさ。
一一〇四一一八〇。従三位頼政。
平安時代末期の武将・歌人。
保元・平治の乱に功があった。
のち、以仁王をたてて
平家追討を企てたが敗れた。
家集に「源従三位頼政卿集」がある。
\chuuitem{BB3}「千載集」秋歌下・三六五。
\chuuitem{CC1}「千載集」夏歌・一四二。
\chuuitem{CC2}「千載集」羇旅歌・五四三。
\chuuitem{CC3}「夫木集」巻十一。
\end{kochuu}
\end{document}