Кириллица \uppercase в \addcontentsline

Question

Я не могу добавить заглавную строку кириллицей в оглавление моего двуязычного документа. Вот компилируемый пример:

\documentclass[a4paper,10pt]{extreport}
\usepackage[koi8-r]{inputenc}
\usepackage[english,russian]{babel}
\newif\ifeng
\def\rus{\selectlanguage{russian}\engfalse}
\def\eng{\selectlanguage{english}\engtrue}
\def\UpperCase#1{\ifeng\uppercase{#1}\else\lowercase{#1}\fi}
\def\section#1{\vspace{1cm plus 1cm minus .5cm}\goodbreak
    \noindent{\bf\large\UpperCase{#1}}%
    \ifeng\addcontentsline{entoc}{section}{\UpperCase{#1}}\else%
    \addcontentsline{rutoc}{section}{\UpperCase{#1}}\fi\par\nopagebreak
    }
\def\subsection#1{\goodbreak
    \noindent{\bf\large #1}%
    \ifeng\addcontentsline{entoc}{subsection}{#1}\else%
    \addcontentsline{rutoc}{subsection}{#1}\fi\par\nopagebreak}
\makeatletter
\renewcommand\tableofcontents{\pagebreak\selectlanguage{russian}
    \noindent{\bf\large СОДЕРЖАНИЕ}\@starttoc{rutoc}
    \vspace{2em}\selectlanguage{english}
    \noindent{\bf\large CONTENTS}\@starttoc{entoc}}
\makeatother
\begin{document}
\tableofcontents
\rus\section{Русский}
\subsection{Подсекция}
Текст
\eng\section{English}
\subsection{Subsection}
Text
\end{document}

(Странно, но чтобы сделать заглавные буквы в koi8-r мне нужно вызвать макрос \lowercaseи наоборот).

Но по команде \rus\section{Русский}в строю \jobname.rutocя вижу \contentsline {section}{\lowercase {\IeC {\CYRR }\IeC {\cyru }\IeC {\cyrs }\IeC {\cyrs }\IeC {\cyrk }\IeC {\cyri }\IeC {\cyrish rt }}}{1}.

Что мне сделать, чтобы в оглавлении были использованы заглавные буквы?

Answer 1

Вам следует использовать \MakeUppercaseand not \uppercase, но вам также необходимо явно указать загрузку fontencс T2Aопцией:

\documentclass[a4paper,10pt]{extreport}
\usepackage[T2A]{fontenc}
\usepackage[koi8-r]{inputenc}
\usepackage[english,russian]{babel}
\newif\ifeng
\def\rus{\selectlanguage{russian}\engfalse}
\def\eng{\selectlanguage{english}\engtrue}
\def\section#1{\vspace{1cm plus 1cm minus .5cm}\goodbreak
    \noindent{\bf\large\MakeUppercase{#1}}%
    \ifeng\addcontentsline{entoc}{section}{\MakeUppercase{#1}}\else%
    \addcontentsline{rutoc}{section}{\MakeUppercase{#1}}\fi\par\nopagebreak
    }
\def\subsection#1{\goodbreak
    \noindent{\bf\large #1}%
    \ifeng\addcontentsline{entoc}{subsection}{#1}\else%
    \addcontentsline{rutoc}{subsection}{#1}\fi\par\nopagebreak}
\makeatletter
\renewcommand\tableofcontents{\pagebreak\selectlanguage{russian}
    \noindent{\bf\large СОДЕРЖАНИЕ}\@starttoc{rutoc}
    \vspace{2em}\selectlanguage{english}
    \noindent{\bf\large CONTENTS}\@starttoc{entoc}}
\makeatother
\begin{document}

\tableofcontents
\rus\section{Русский}
\subsection{Подсекция}
Текст
\eng\section{English}
\subsection{Subsection}
Text
\end{document}