Re: ハイフネーションとBabel

名前: 安田
日時: 2006-08-29 02:22:17
IPアドレス: 210.159.171.*

>>44519

栗山さん、稲垣さん、こんばんは。

>\selectlanguage でロシア語に切り替わった直後に 
>\f@encoding （現在のフォントエンコーディング）を
>チェックして l@russian-t2a, l@russian-ot2（を登録しておくとして）
>をセットし直すようなことをやれないかということです。

その後いろいろ試してみました。
language.dat に、
%-------------------------
russian ruhyphen7.tex % OT2用
russiant ruhyphen.tex % T2A用
%-------------------------
としてフォーマットを生成し、以下のようなマクロを組めば、
同一文書中で OT2/T2A ハイフネーションが切り替えられる
ことができました。
russianb.ldf に組み込めればよいんですけど。

%---- test.tex
\documentclass[a4paper]{jsarticle}
\usepackage[OT2,T2A,T1]{fontenc}
\usepackage[russian,japanese]{babel}
\usepackage{pscyr}%PSCyr russian fonts
\def\ottwo{OT2}%
\def\ttwoa{T2A}%
\def\chgrus#1{% 切り替え用マクロ
\fontencoding{#1}\selectfont%
\edef\thisenc{\csname f@encoding\endcsname}% 現在のフォントエンコーディング
  \ifx\ottwo\thisenc\language=\csname l@russian\endcsname% ロシア語OT2
  \else\ifx\ttwoa\thisenc\language=\csname l@russiant\endcsname% ロシア語T2A
  \else unabailable! \thisenc\fi\fi}
\begin{document}
\selectlanguage{russian}
\chgrus{OT2}
V naqale bylo Slovo, i Slovo bylo u Boga, i Slovo bylo Bog.
Ono bylo v naqale u Boga. Vse qrez Nego n\'aqalo byt{p1},
i bez Nego niqto ne n\'aqalo byt{p1}, qto n\'aqalo byt{p1}.
\showhyphens{%
V naqale bylo Slovo, i Slovo bylo u Boga, i Slovo bylo Bog.
Ono bylo v naqale u Boga. Vse qrez Nego n\'aqalo byt{p1},
i bez Nego niqto ne n\'aqalo byt{p1}, qto n\'aqalo byt{p1}.
}

\the\language

\vspace{1em}
\fontencoding{T2A}\selectfont
\chgrus{T2A}
% 以下 T2A シンボルで記述
%<utf82tex_r>
\CYRV{} \cyrn\cyra\cyrch\cyra\cyrl\cyre{}
\cyrb\cyrery\cyrl\cyro{}
\cyrs\cyrl\cyro\cyrv\cyro, 
\cyri{} \CYRS\cyrl\cyro\cyrv\cyro{}
\cyrb\cyrery\cyrl\cyro{}
\cyru{} \CYRB\cyro\cyrg\cyra, 
\cyri{} \CYRS\cyrl\cyro\cyrv\cyro{}
\cyrb\cyrery\cyrl\cyro{} \CYRB\cyro\cyrg.
\CYRO\cyrn\cyro{} \cyrb\cyrery\cyrl\cyro{} 
\cyrv{} \cyrn\cyra\cyrch\cyra\cyrl\cyre{} 
\cyru{} \CYRB\cyro\cyrg\cyra.
\CYRV\cyrs\cyre{} \cyrch\cyrr\cyre\cyrz{} 
\CYRN\cyre\cyrg\cyro{} 
\cyrn\'\cyra\cyrch\cyra\cyrl\cyro{} 
\cyrb\cyrery\cyrt\cyrsftsn, 
\cyri{} \cyrb\cyre\cyrz{} \CYRN\cyre\cyrg\cyro{} 
\cyrn\cyri\cyrch\cyrt\cyro{} \cyrn\cyre{}
\cyrn\'\cyra\cyrch\cyra\cyrl\cyro{} 
\cyrb\cyrery\cyrt\cyrsftsn, 
\cyrch\cyrt\cyro{} 
\cyrn\'\cyra\cyrch\cyra\cyrl\cyro{} 
\cyrb\cyrery\cyrt\cyrsftsn. 
\showhyphens{%
\CYRV{} \cyrn\cyra\cyrch\cyra\cyrl\cyre{}
\cyrb\cyrery\cyrl\cyro{}
\cyrs\cyrl\cyro\cyrv\cyro, 
\cyri{} \CYRS\cyrl\cyro\cyrv\cyro{}
\cyrb\cyrery\cyrl\cyro{}
\cyru{} \CYRB\cyro\cyrg\cyra, 
\cyri{} \CYRS\cyrl\cyro\cyrv\cyro{}
\cyrb\cyrery\cyrl\cyro{} \CYRB\cyro\cyrg.
\CYRO\cyrn\cyro{} \cyrb\cyrery\cyrl\cyro{} 
\cyrv{} \cyrn\cyra\cyrch\cyra\cyrl\cyre{} 
\cyru{} \CYRB\cyro\cyrg\cyra.
\CYRV\cyrs\cyre{} \cyrch\cyrr\cyre\cyrz{} 
\CYRN\cyre\cyrg\cyro{} 
\cyrn\'\cyra\cyrch\cyra\cyrl\cyro{} 
\cyrb\cyrery\cyrt\cyrsftsn, 
\cyri{} \cyrb\cyre\cyrz{} \CYRN\cyre\cyrg\cyro{} 
\cyrn\cyri\cyrch\cyrt\cyro{} \cyrn\cyre{}
\cyrn\'\cyra\cyrch\cyra\cyrl\cyro{} 
\cyrb\cyrery\cyrt\cyrsftsn, 
\cyrch\cyrt\cyro{} 
\cyrn\'\cyra\cyrch\cyra\cyrl\cyro{} 
\cyrb\cyrery\cyrt\cyrsftsn. 
}
%</utf82tex_r>

\the\language
\end{document}

この書き込みへの返事：