From dcb784501ec956b9548b31582fc26abc20e515be Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 12 Jan 2006 23:59:30 +0000 Subject: modroman git-svn-id: svn://tug.org/texlive/trunk@1102 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/modroman/modroman.sty | 58 +++++++++++++++++++++++ 1 file changed, 58 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/modroman/modroman.sty (limited to 'Master/texmf-dist/tex/latex/modroman') diff --git a/Master/texmf-dist/tex/latex/modroman/modroman.sty b/Master/texmf-dist/tex/latex/modroman/modroman.sty new file mode 100644 index 00000000000..4a01d70aa97 --- /dev/null +++ b/Master/texmf-dist/tex/latex/modroman/modroman.sty @@ -0,0 +1,58 @@ +%% +%% This is file `modroman.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% modroman.dtx (with options: `package') +%% +%% This is a generated file. +%% +%% Copyright (C) 2003, 2004 by Y. Henel, 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 +%% or (at your option) any later version. The latest version of this +%% license is in: +%% +%% http://www.latex-project.org/lppl.txt +%% +%% and version 1.2 or later is part of all distributions of LaTeX version +%% 1999/12/01 or later. +%% +\NeedsTeXFormat{LaTeX2e}[1999/12/01] +\def\fileversion{v0.3} +\def\filedate{2004/05/19} +\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} +\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 +\newcommand{\modroman}[1]{\expandafter\modromannumeral\value{#1}} +\endinput +%% +%% End of file `modroman.sty'. -- cgit v1.2.3