\write a rimska cisla ve versalkach

[Zdenek Wagner]

On Thu, 25 Jun 1998, Tomas Kouba wrote:

Dobry den,

pan Tomas Kouba byl velice rychly a na muj dotaz velmi rychle
poslal cast kodu z nejnovejsiho latex.ltx. S touto upravou je muj
problem vyresen. Puvodni dotaz i odpoved jsou nize a pro mene
zasvecene dodavam, ze \Roman pri sve expanzi vola \@Roman.

> Date: Thu, 25 Jun 1998 17:58:14 +0100
> From: Tomas Kouba <kouba at fzu.cz>
> Reply-To: csTeX at cs.felk.cvut.cz
> To: "'csTeX at cs.felk.cvut.cz'" <csTeX at cs.felk.cvut.cz>
> Subject: RE: \write a rimska cisla ve versalkach
>
> On Thursday, June 25, 1998 6:36 PM, Z. Wagner
> [SMTP:wagner at beba.cesnet.cz] wrote:
> > Dobry den,
> >
> >
> > \def\thechapter{\Roman{chapter}}
> >
> > Nyni potrebuji nazvy kapitol vcetne rimskych cisel pomoci \write
> > zapsat do
> > souboru, ktery bude zpracovavan jinym programem. Bohuzel \Roman
> > obsahuje
> > \uppercase, coz je primitiv a pri \write se tudiz neexpanduje. V
> > souboru
> > pak nemam V, ale \uppercase{v}. Chtel jsem to obejit pomoci
> > \MakeUppercase, ale nepodarilo se.
> >
> Pouzivate asi LaTeX 2.09 v 2E je primitiv \uppercase obejit pres
> makro ktere odebira tokeny ze vstupu a \ifcase pro pismena ktere
> tvori rimske cislice.
>
> \def\@Roman#1{\expandafter\@slowromancap\romannumeral #1@}
> \def\@slowromancap#1{\ifx @#1% then terminate
>      \else
>        \if i#1I\else\if v#1V\else\if x#1X\else\if l#1L\else\if
>        c#1C\else\if d#1D\else \if m#1M\else#1\fi\fi\fi\fi\fi\fi\fi
>        \expandafter\@slowromancap
>      \fi
> }
>
> Tomas Kouba
>
>
> --
>                    Ing. Tomas Kouba
> Institute of Physics, AS CR    ph.: +420-2-24311137
> Cukrovarnicka 10               fax: +420-2-3123184
> 162 53 Prague                  e-mail: kouba at fzu.cz
> Czech republic                 URL: http://www.fzu.cz/~kouba
>
>
>

Zdenek Wagner

E. Hala Laboratory of Thermodynamics,
Institute of Chemical Process Fundamentals
of the Academy of Sciences of the Czech Republic
e-mail:wagner at mbox.cesnet.cz  or  wagner at icpf.cas.cz

Local editor of the Bulletin of the Czech and Slovak TeX Users Group,
member of the CSTUG board
e-mail:Zdenek.Wagner at cstug.cz  or  bulletin at cstug.cz  or  zpravodaj at cstug.cz

see also http://www.icpf.cas.cz/wagner/
         http://www.cstug.cz/