Babel ギリシア語，ブルガリア語

名前: 稲垣
日時: 2004-11-21 16:19:14
IPアドレス: 219.117.69.*

% Babel のギリシア語・ブルガリア語に修正を加えてみました。お試しいただけ
% れば幸いです。
%
% ギリシア語の \greeknumeral{90} は『言語学大辞典 ― 別巻　世界文字辞典』
% によると，\varqoppa のようなので，定義を修正してみました。
%（大文字 \VarQoppa の場合は？）
%
% ブルガリア語の \todayRoman は，ローマ数字が出力できないようなので，手
% を入れてみました。お試しいただく際は，あらかじめ bulgarian.ldf の 223
% 行目をコメントにしてください。
% 223 %\def\todayRoman{\number\day.\,\month@Roman.\,\number\year~\cyrg.}%

\documentclass{jsbook}
\usepackage[OT2,T1]{fontenc}
\usepackage[bulgarian,greek,english]{babel}
% \greeknumeral
\DeclareTextCommand{\varqoppa}{LGR}{\char"13\relax}
\makeatletter
\def\gr@num@ii#1{%
 \ifcase#1\or i\or k\or l\or m\or n\or x\or o\or a\or \varqoppa\fi
 \ifnum#1=\z@\else\anw@true\fi\gr@num@i}
\makeatother
\begin{document}
\begin{itemize}
\item ギリシア語 

\verb:\greeknumeral{90}: の出力 \quad
\foreignlanguage{greek}{\greeknumeral{90}}

\item ブルガリア語 \verb:\todayRoman: の出力

\begin{itemize}
\item オリジナルの出力 \quad
\foreignlanguage{bulgarian}{\todayRoman} 

% \todayRoman の定義を修正します。
\def\todayRoman{\number\day.%
 \latintext\Romannumeral{\month}.\cyrillictext\number\year~\cyrg.}

\item 修正後の出力 \quad
\foreignlanguage{bulgarian}{\todayRoman} 

\end{itemize}
\end{itemize}
\end{document}

この書き込みへの返事：