From 101395e54ec0c670b2308650550de02c7b4ce460 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 6 May 2008 01:01:01 +0000 Subject: modroman update (5may08) git-svn-id: svn://tug.org/texlive/trunk@7881 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/modroman/modroman.sty | 56 +++++++++++------------ 1 file changed, 28 insertions(+), 28 deletions(-) (limited to 'Master/texmf-dist/tex') diff --git a/Master/texmf-dist/tex/latex/modroman/modroman.sty b/Master/texmf-dist/tex/latex/modroman/modroman.sty index 4a01d70aa97..8da430821b3 100644 --- a/Master/texmf-dist/tex/latex/modroman/modroman.sty +++ b/Master/texmf-dist/tex/latex/modroman/modroman.sty @@ -8,8 +8,8 @@ %% %% This is a generated file. %% -%% Copyright (C) 2003, 2004 by Y. Henel, le TeXnicien de surface -%% +%% Copyright (C) 2003, 2004, 2008 by Yvon Henel, +%% dit Ğle TeXnicien de surfaceğ %% %% This file may be distributed and/or modified under the conditions of %% the LaTeX Project Public License, either version 1.2 of this license @@ -22,36 +22,36 @@ %% 1999/12/01 or later. %% \NeedsTeXFormat{LaTeX2e}[1999/12/01] -\def\fileversion{v0.3} -\def\filedate{2004/05/19} +\def\fileversion{v0.4} +\def\filedate{2008/05/03} \def\fileinfo{fichier modroman.dtx par Le TeXnicien de surface} \ProvidesPackage{modroman} [\filedate\space\fileversion\space\fileinfo] -\newif\if@upourv -\DeclareOption{upourv}{\@upourvtrue} -\DeclareOption{vpourv}{\@upourvfalse} -\DeclareOption{defaut}{\@upourvfalse} -\ExecuteOptions{defaut} +\DeclareOption{vpourv}{% + \@ifdefinable\modrom@actuelV{\def\modrom@actuelV{v}} +} +\DeclareOption{upourv}{\def\modrom@actuelV{u}} +\ExecuteOptions{vpourv} \ProcessOptions\relax -\newcount\romt@mp -\def\modromannumeral{\afterassignment\modrom@naux \romt@mp=} -\def\modrom@naux{\ifnum\romt@mp<10 - \modrom@ni{\romt@mp}\else\modrom@nii{\romt@mp}\fi\relax} -\if@upourv -\def\modrom@ni#1{\ifcase#1 \or i\or ij\or iij\or iu\or - u\or uj\or uij\or uiij\or ix\fi\relax}\else -\def\modrom@ni#1{\ifcase#1 \or i\or ij\or iij\or iv\or - v\or vj\or vij\or viij\or ix\fi\relax}\fi -\def\modrom@nii#1{{\count0 =#1\count1 =\count0 % - \divide\count0 by 10 \multiply\count0 by 10 % - \advance \count1 by -\count0 % - \romannumeral\count0\modrom@nij{\count1}% - }} -\if@upourv -\def\modrom@nij#1{\ifcase#1 \or j\or ij\or iij\or iu\or - u\or uj\or uij\or uiij\or ix\fi\relax}\else -\def\modrom@nij#1{\ifcase#1 \or j\or ij\or iij\or iv\or - v\or vj\or vij\or viij\or ix\fi\relax}\fi +\@ifdefinable\romt@mp{\newcount\romt@mp} +\@ifdefinable\modromannumeral{% + \def\modromannumeral{\afterassignment\modrom@naux \romt@mp=}} +\@ifdefinable\modrom@naux{% + \def\modrom@naux{\ifnum\romt@mp<10 + \modrom@ni{\romt@mp}\else\modrom@nii{\romt@mp}\fi\relax}} +\@ifdefinable\modrom@ni{% + \def\modrom@ni#1{\ifcase#1 \or i\or ij\or iij\or i\modrom@actuelV\or + \modrom@actuelV\or \modrom@actuelV j\or \modrom@actuelV ij\or + \modrom@actuelV iij\or ix\fi\relax}}% +\@ifdefinable\modrom@nii{% + \def\modrom@nii#1{{\count0 =#1\count1 =\count0 % + \divide\count0 by 10 \multiply\count0 by 10 % + \advance \count1 by -\count0 % + \romannumeral\count0\modrom@nij{\count1}}}} +\@ifdefinable\modrom@nij{% + \def\modrom@nij#1{\ifcase#1 \or j\or ij\or iij\or i\modrom@actuelV\or + \modrom@actuelV\or \modrom@actuelV j\or \modrom@actuelV ij\or + \modrom@actuelV iij\or ix\fi\relax}} \newcommand{\modroman}[1]{\expandafter\modromannumeral\value{#1}} \endinput %% -- cgit v1.2.3