new latex package itnumpar (3apr07)

git-svn-id: svn://tug.org/texlive/trunk@4117 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 786 insertions, 0 deletions

diff --git a/Master/texmf-dist/source/latex/itnumpar/itnumpar.dtx b/Master/texmf-dist/source/latex/itnumpar/itnumpar.dtx
new file mode 100644
index 00000000000..df63604d015
--- /dev/null
+++ b/Master/texmf-dist/source/latex/itnumpar/itnumpar.dtx
@@ -0,0 +1,731 @@
+% \iffalse meta-comment
+%
+% Copyright (C) 2007 by Enrico Gregorio
+% <Enrico dot Gregorio (at) univr dot it>
+% ---------------------------------------
+% 
+% 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.
+%
+% \fi
+%
+% \iffalse
+%<*driver>
+\ProvidesFile{itnumpar.dtx}
+%</driver>
+%<package>\NeedsTeXFormat{LaTeX2e}[1999/12/01]
+%<package>\ProvidesPackage{itnumpar}
+%<*package>
+    [2007/04/03 v1.0 Numbers in words for Italian]
+%</package>
+%
+%<*driver>
+\documentclass{ltxdoc}
+\usepackage[english,italian]{babel}
+\usepackage{itnumpar}
+
+\IfFileExists{titlesec.sty}{
+\usepackage{titlesec}
+\titleformat{name=\section}{}{}{0pt}%
+  {\large\bfseries\Ordinalef{section} sezione: }
+\titleformat{name=\section,numberless}{}{}{0pt}{\large\bfseries}
+}
+{\renewcommand{\thesection}{\Ordinalef{section} sezione:}}
+
+\def\GuIT{%
+  {\fontencoding{OT1}\fontfamily{cmr}\fontseries{m}\scshape
+  g\kern -0.26em\lower 0.714ex\hbox{u}%
+  \kern -0.125em I\kern -0.125em t}}
+
+\newcommand{\cmdname}[1]{\texttt{\char`\\#1}}
+\EnableCrossrefs         
+\CodelineIndex
+\RecordChanges
+\begin{document}
+  \DocInput{itnumpar.dtx}
+\end{document}
+%</driver>
+% \fi
+%
+% \CheckSum{589}
+% 
+% \catcode`\@=12
+% \CharacterTable
+%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%   Digits        \0\1\2\3\4\5\6\7\8\9
+%   Exclamation   \!     Double quote  \"     Hash (number) \#
+%   Dollar        \$     Percent       \%     Ampersand     \&
+%   Acute accent  \'     Left paren    \(     Right paren   \)
+%   Asterisk      \*     Plus          \+     Comma         \,
+%   Minus         \-     Point         \.     Solidus       \/
+%   Colon         \:     Semicolon     \;     Less than     \<
+%   Equals        \=     Greater than  \>     Question mark \?
+%   Commercial at \@     Left bracket  \[     Backslash     \\
+%   Right bracket \]     Circumflex    \^     Underscore    \_
+%   Grave accent  \`     Left brace    \{     Vertical bar  \|
+%   Right brace   \}     Tilde         \~}
+%
+%
+% \changes{v1.0}{2007/04/03}{Initial version}
+%
+% \GetFileInfo{itnumpar.dtx}
+%
+% \DoNotIndex{\newcommand,\newenvironment,\',\@ctrerr,\@gobble}
+% \DoNotIndex{\@ifstar,\begingroup,\count@,\csname,\def,\else}
+% \DoNotIndex{\endcsname,\endgroup,\expandafter,\fi,\ifcase}
+% \DoNotIndex{\ifnum,\let,\number,\or,\relax,\xdef}
+% 
+%
+% \title{The \textsf{itnumpar} package\\ Il pacchetto
+% \textsf{itnumpar}\thanks{This document corresponds to
+% \textsf{itnumpar}~\fileversion, dated \filedate.}}
+% 
+% \author{Enrico Gregorio \\ \texttt{Enrico dot Gregorio (at) univr
+% dot it}}
+% 
+% \date{\filedate}
+%
+% \maketitle
+%
+% \section{Introduzione in inglese}
+% \begin{otherlanguage*}{english}
+% Sorry, this is a package intended for people writing in Italian.
+% The title of this section is `Introduction in English'.  However,
+% I'll give the flavor of it, if not the whole story.
+% 
+% The name of the package is \texttt{itnumpar}: \texttt{it} for
+% Italian, \texttt{num} for `\mbox{numero}' (number), \texttt{par} for
+% `\mbox{parola}' (word).
+% 
+% Its purpose is to give a representation of a number in words.  The
+% following commands take as an argument a counter's name (they are
+% similar to \cmdname{arabic}, \cmdname{roman} and similar ones:
+% \begin{itemize}
+% \item \cmdname{numeroinparole} for representing the counter's value
+% in Italian words, with lowercase initial;
+% 
+% \item \cmdname{Numeroinparole} for representing the counter's value
+% in Italian words, with uppercase initial;
+% 
+% \item \cmdname{ordinalem} for representing the counter's value as a
+% (spelled out) ordinal number in masculine form with lowercase
+% initial;
+% 
+% \item \cmdname{ordinalef} for representing the counter's value as a
+% (spelled out) ordinal number in feminine form with lowercase
+% initial;
+% 
+% \item \cmdname{Ordinalem} for representing the counter's value as a
+% (spelled out) ordinal number in masculine form with uppercase
+% initial;
+% 
+% \item \cmdname{Ordinalem} for representing the counter's value as a
+% (spelled out) ordinal number in feminine form with uppercase
+% initial.  \end{itemize} The Italian word `\mbox{ordinale}' means
+% `ordinal', of course; `\mbox{numero}~in~\mbox{parole}' means `number
+% in words'.
+% 
+% The other defined commands are
+% \begin{center}
+% \begin{tabular}{cc}
+% \cmdname{printnumeroinparole}&\cmdname{printNumeroinparole}\\
+% \cmdname{printordinalem}&\cmdname{printordinalef}\\
+% \cmdname{printOrdinalem}&\cmdname{printOrdinalef}
+% \end{tabular}
+% \end{center}
+% which take a number as an argument and print its textual 
+% representation like the commands above.
+% 
+% For example, the present document has been written saying
+% \begin{verbatim}
+% \renewcommand{\thesection}{\Ordinalef{section} sezione:}
+% \end{verbatim}
+% thus getting the spelled out feminine ordinal in front of the
+% section title (section in Italian is `\mbox{sezione}' and is
+% feminine).
+% 
+% The package (in the present version) supports positive numbers up to
+% $9999$ for \cmdname{numeroinparole} and \cmdname{Numeroinparole}; up
+% to $999$ for the ordinal forms.  For \cmdname{numeroinparole}, zero
+% is admissible.  For all the commands, negative numbers give an empty
+% result.
+% 
+% All these commands are fully expandable and their result is a string
+% of character tokens.  For example, \verb|\printnumeroinparole{12}|
+% expands to the string of characters `\texttt{\printnumeroinparole{12}}'.
+% \end{otherlanguage*}
+%
+% \section{Introduzione in italiano}
+% 
+% Il nome del pacchetto \`e \texttt{itnumpar} (numeri in parole in
+% italiano).  Ci sono altri pacchetti su \textsc{ctan} che fanno un
+% servizio simile per altre lingue, ma nessuno \`e facilmente
+% adattabile all'italiano.  O forse s\`{\i}, una volta ho provato ad
+% adattarne uno, ma senza grandi risultati.
+% 
+% Quali sono i problemi?  Che alcune vocali si assimilano:
+% ``\printnumeroinparole{20}--\printnumeroinparole{21}'',
+% ``\printnumeroinparole{37}--\printnumeroinparole{38}'',
+% ``\printnumeroinparole{121}'', ``\printnumeroinparole{186}''.  Che i
+% numeri con cifra delle unit\`a~$3$ in lettere vogliono l'accento:
+% ``\printnumeroinparole{23}''; con l'unica eccezione
+% di~``\printnumeroinparole{3}''.
+% 
+% Il pacchetto tratta solo numeri relativamente piccoli; non potrete
+% usarlo per compilare assegni di importo superiore a
+% \printnumeroinparole{9999}~euro\footnote{In alcuni paesi, non in
+% Italia, \`e possibile stamparsi i propri assegni.}.  Tuttavia una
+% famosa opera letteraria in italiano \`e divisa in
+% \printnumeroinparole{100} parti e quindi ho deciso di andare oltre
+% il limite di \printnumeroinparole{99} di un primo abbozzo apparso
+% sul Forum del \GuIT\footnote{Gruppo Utenti Italiani di \TeX,
+% \texttt{www.guit.sssup.it}}.
+% 
+% Rispetto a quella versione ho introdotto anche la possibilit\`a di
+% scrivere gli ordinali (fino al \printordinalem{999}), sia come
+% aggettivi maschili che femminili, come vedete nella numerazione
+% delle sezioni di questo stesso documento.
+% 
+% I comandi che descrivo nella prossima sezione sono completamente
+% espandibili e danno come risultato una lista di \emph{token} fatta
+% di caratteri.  Per esempio, l'espansione di
+% \verb|\printnumeroinparole{12}| \`e la sequenza di caratteri
+% `\texttt{\printnumeroinparole{12}}'.
+% 
+% \clearpage
+% 
+% \section{I comandi}
+% 
+% \DescribeMacro{\numeroinparole}
+% \DescribeMacro{\Numeroinparole}
+% \DescribeMacro{\ordinalem}
+% \DescribeMacro{\ordinalef}
+% \DescribeMacro{\Ordinalem}
+% \DescribeMacro{\Ordinalef}
+
+% In analogia con i comandi del tipo \cmdname{arabic}, \cmdname{Roman}
+% e simili, possiamo rappresentare il valore di un contatore con il
+% numero scritto in parole o con l'ordinale corrispondente, maschile o
+% femminile, con iniziale minuscola o maiuscola; ciascuno prende come
+% argomento il nome di un contatore:
+% \begin{itemize}
+% \item \cmdname{numeroinparole} rappresenta in parole il valore del
+% contatore, con iniziale minuscola;
+% 
+% \item \cmdname{Numeroinparole} rappresenta in parole il valore del 
+% contatore, con iniziale maiuscola;
+% 
+% \item \cmdname{ordinalem} rappresenta il valore del contatore come 
+% numero ordinale maschile con iniziale minuscola;
+% 
+% \item \cmdname{ordinalef} rappresenta il valore del contatore come 
+% numero ordinale femminile con iniziale minuscola;
+% 
+% \item \cmdname{Ordinalem} rappresenta il valore del contatore come 
+% numero ordinale maschile con iniziale maiuscola;
+% 
+% \item \cmdname{Ordinalem} rappresenta il valore del contatore come 
+% numero ordinale femminile con iniziale maiuscola.
+% \end{itemize}
+% Per esempio, nel preambolo di questo documento compare il comando
+% \begin{verbatim}
+% \renewcommand{\thesection}{\Ordinalef{section} sezione:}
+% \end{verbatim}
+% che spiega il curioso formato dei titoli di sezione.
+% 
+% \DescribeMacro{\printnumeroinparole}
+% \DescribeMacro{\printNumeroinparole}
+% \DescribeMacro{\printordinalem}
+% \DescribeMacro{\printordinalef}
+% \DescribeMacro{\printOrdinalem}
+% \DescribeMacro{\printOrdinalef}
+% Ci sono altri comandi a disposizione, che permettono di scrivere in 
+% lettere o come ordinale un numero dato come argomento:
+% \begin{center}
+% \begin{tabular}{cc}
+% \cmdname{printnumeroinparole}&\cmdname{printNumeroinparole}\\
+% \cmdname{printordinalem}&\cmdname{printordinalef}\\
+% \cmdname{printOrdinalem}&\cmdname{printOrdinalef}
+% \end{tabular}
+% \end{center}
+% Per esempio, con \verb|\printOrdinalef{123}| si ottiene
+% ``\printOrdinalef{123}'', mentre con
+% \verb|\printnumeroinparole{6783}| si ottiene
+% ``\printnumeroinparole{6783}''.
+% 
+% Non \`e possibile ottenere, con questi comandi, il modo antiquato di
+% esprimere gli ordinali: ``decimoprimo'' invece di ``undicesimo''.
+% Per precisa scelta stilistica, si ottiene ``\printordinalem{111}'' e
+% non ``centundicesimo'' come alcuni scrivono\footnote{Se non vi va,
+% scrivete voi il vostro pacchetto.}.  Ovviamente, per stampare il
+% valore di un contatore in parole, si deve scrivere, per esempio
+% \begin{verbatim}
+% \printnumeroinparole{\value{section}}
+% \end{verbatim}
+% che, dato qui, produce~``\printnumeroinparole{\value{section}}''.
+% 
+% \section{Limitazioni}
+% 
+% Il comando \cmdname{numeroinparole} (e il corrispondente
+% \cmdname{printnumeroinparole}) non possono essere usati solo con
+% numeri interi~$m$ tali che $0\le m\le 9999$.  I comandi per i numeri
+% ordinali funzionano solo con interi~$n$ tali che $1\le n\le 999$.
+% 
+% Usati con numeri negativi (e anche zero per le forme ordinali),
+% danno un risultato vuoto, senza messaggio di errore.
+% 
+% Forse future versioni del pacchetto amplieranno l'intervallo di
+% applicabilit\`a.
+% 
+% 
+% \section{Esempi}
+% 
+% Esiste, e l'ho aggiunto solo per questa applicazione, una 
+% variante~\texttt{*} del comando \cmdname{printnumeroinparole}; i
+% versi seguenti sono stato scritti come
+% \begin{verbatim}
+% \begin{verse}
+% In Italia \printnumeroinparole{640},\\
+% In Almagna \printnumeroinparole*{231},\\
+% \printNumeroinparole{100} in Francia,
+%   in Turchia \printnumeroinparole*{91},\\
+% Ma in Ispagna son gi\`a \printnumeroinparole{1003}.
+% \end{verse}
+% \end{verbatim}
+% ed ecco le immortali parole dell'abate Da~Ponte:
+% \begin{verse}
+% In Italia \printnumeroinparole{640},\\
+% In Almagna \printnumeroinparole*{231},\\
+% \printNumeroinparole{100} in Francia, in Turchia
+% \printnumeroinparole*{91},\\
+% Ma in Ispagna son gi\`a \printnumeroinparole{1003}.
+% \end{verse}
+% 
+% Supponiamo di voler scrivere con la classe \textsf{book}, in modo
+% che i capitoli siano numerati in parole: ``Capitolo~uno'',
+% ``Capitolo~due'' e cos\`{\i} via, ma che poi vogliamo riferirci ai
+% capitoli per numero durante il testo.  Dare
+% \begin{verbatim}
+% \renewcommand{\thechapter}{\numeroinparole{chapter}}
+% \end{verbatim}
+% sarebbe sbagliato, perch\'e i riferimenti sarebbero con la forma
+% testuale e non numerica.  Occorre dunque modificare il comando
+% \cmdname{chapter} o, per essere precisi, \cmdname{@chapter}, che \`e
+% quello chiamato da \cmdname{chapter} se non si usa la
+% variante~\texttt{*}.  Per essere ancora pi\`u precisi, occorre
+% modificare \cmdname{@makechapterhead}, che \`e il comando
+% responsabile della stampa del titolo.  Invece di modificare del
+% tutto il comando, gli aggiungiamo qualcosa.
+% \begin{verbatim}
+% \makeatletter
+% \let\orig@makechapterhead\@makechapterhead
+% \def\@makechapterhead#1{\begingroup
+%   \def\thechapter{\numeroinparole{chapter}}%
+%   \orig@makechapterhead{#1}\endgroup}
+% \makeatother
+% \end{verbatim}
+% e otteniamo il risultato voluto.  L'uso del pacchetto
+% \textsf{titlesec} \`e indicato per ottenere effetti diversi senza
+% troppa fatica.  Nel caso della classe \textsf{amsbook} occorre un
+% trucco diverso:
+% \begin{verbatim}
+% \makeatletter
+% \let\orig@makechapterhead\@makechapterhead
+% \def\@makechapterhead#1{\begingroup
+%   \edef\thechapter{\uppercase{\numeroinparole{chapter}}}%
+%   \orig@makechapterhead{#1}\endgroup}
+% \makeatother
+% \end{verbatim}
+% perch\'e la scritta ``capitolo uno'' deve essere tutta in maiuscolo.
+% 
+% In entrambe le modifiche, si usa il fatto che 
+% \cmdname{@makechapterhead} chiama al suo interno \cmdname{thechapter} 
+% per stampare il numero; lo usiamo allo stesso modo, ma ridefinendo 
+% localmente \cmdname{thechapter}. Con \textsf{amsbook} possiamo usare 
+% il fatto che \cmdname{numeroinparole} \`e completamente espandibile, 
+% mentre \cmdname{uppercase} non lo \`e.
+%
+% \StopEventually{\PrintChanges\PrintIndex}
+%
+% \section{Implementation}
+% \selectlanguage{english}
+% I'll use English to describe the implementation of the macros.
+%
+% Usual stuff for representing counters \verb|\|\meta{name} is the
+% user interface, \verb|\@|\meta{name} is the internal command The
+% capital letter is for a capital initial, `m' is for `masculine', `f'
+% is for `feminine'.
+% \begin{macro}{\numeroinparole}
+% \begin{macro}{\Numeroinparole}
+% \begin{macro}{\ordinalem}
+% \begin{macro}{\ordinalef}
+% \begin{macro}{\Ordinalem}
+% \begin{macro}{\Ordinalef}
+%    \begin{macrocode}
+%<*package>
+\def\numeroinparole#1{\expandafter\@numeroinparole\csname c@#1\endcsname}
+\def\Numeroinparole#1{\expandafter\@Numeroinparole\csname c@#1\endcsname}
+\def\ordinalem#1{\expandafter\@ordinalem\csname c@#1\endcsname}
+\def\ordinalef#1{\expandafter\@ordinalef\csname c@#1\endcsname}
+\def\Ordinalem#1{\expandafter\@Ordinalem\csname c@#1\endcsname}
+\def\Ordinalef#1{\expandafter\@Ordinalef\csname c@#1\endcsname}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% 
+% \begin{macro}{\printnumeroinparole}
+% \begin{macro}{\printNumeroinparole}
+% \begin{macro}{\printordinalem}
+% \begin{macro}{\printordinalef}
+% \begin{macro}{\printOrdinalem}
+% \begin{macro}{\printOrdinalef}
+% \verb|\print|\meta{name} gets as an argument a \meta{number} and
+% produces it in the literal form; instead of doing six similar
+% definitions, we do it only once
+%    \begin{macrocode}
+\begingroup
+\def\np@doprintdef#1{%
+  \expandafter\xdef\csname print#1\endcsname##1{%
+    {\count@=##1\relax\csname @#1\endcsname{\count@}}}}
+  \np@doprintdef{numeroinparole}
+  \np@doprintdef{Numeroinparole}
+  \np@doprintdef{ordinalem}
+  \np@doprintdef{ordinalef}
+  \np@doprintdef{Ordinalem}
+  \np@doprintdef{Ordinalef}
+\endgroup
+%    \end{macrocode}
+% Just for an application, I define a \texttt{*} version of 
+% \verb|\printnumeroinparole|
+%    \begin{macrocode}
+\def\np@oa{o}
+\let\@printnumeroinparole\printnumeroinparole
+\def\printnumeroinparole{%
+  \@ifstar{\@printnumeroinparolef}{\@printnumeroinparole}%
+}
+\def\@printnumeroinparolef#1{{\def\np@oa{a}\printnumeroinparole{#1}}}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \begin{macro}{\@numeroinparole}
+% \begin{macro}{\@Numeroinparole}
+% \verb|\@numeroinparole| must keep care of two particularities:
+% `zero' and `tre', since all numbers ending in `3' must have an
+% accent in the word, except for `3' itself.  So we look for the
+% particular cases and then call \verb|\np@numeroinparole| with an
+% empty second argument.  \verb|\@Numeroinparole| works in the same
+% way.
+%    \begin{macrocode}
+\def\@numeroinparole#1{%
+  \ifnum#1=0 zero% Exception
+  \else
+  \ifnum#1=3 tre% Exception
+  \else
+  \np@numeroinparole{#1}{}%
+  \fi\fi}
+\def\@Numeroinparole#1{%
+  \ifnum#1=0 Zero% Exception
+  \else
+  \ifnum#1=3 Tre% Exception
+  \else
+  \np@Numeroinparole{#1}{}%
+  \fi\fi}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \begin{macro}{\np@numeroinparole}
+% \begin{macro}{\np@Numeroinparole}
+% \verb|\np@numeroinparole| is defined with two arguments; the first
+% one is the number, the second one is either empty or~`o'.  We
+% support only numbers less than $10000$.  If $999<\#<10000$, we call
+% \verb|\np@thousand|; if $99<\#<1000$ we call \verb|\np@hundred|; if
+% $29<\#<100$, we call \verb|\np@large|; if $0<\#<30$ we call
+% \verb|\np@small|.  Numbers from 1 to 19 are special; numbers from 20
+% to 29 have~`i' in the root, numbers from 30 to 99 have~`a' in the
+% root: `venti', `trenta', `quaranta' and so on. The same for 
+% \verb|\np@Numeroinparole|.
+%    \begin{macrocode}
+\def\np@numeroinparole#1#2{%
+  \ifnum#1>9999
+    \@ctrerr
+  \else
+  \ifnum#1>999
+    \expandafter\np@thousand\number#1 \np@del
+  \else
+  \ifnum#1>99
+    \expandafter\np@hundred\number#1 \np@del
+  \else
+  \ifnum#1<30 
+    \np@small{#1}{#2}%
+  \else
+    \expandafter\np@large\number#1{#2}%
+  \fi\fi\fi\fi}
+\def\np@Numeroinparole#1#2{%
+  \ifnum#1>9999
+    \@ctrerr
+  \else
+  \ifnum#1>999
+    \expandafter\np@Thousand\number#1 \np@del
+  \else
+  \ifnum#1>99
+    \expandafter\np@Hundred\number#1 \np@del
+  \else
+  \ifnum#1<30 
+    \np@Small{#1}{#2}%
+  \else
+    \expandafter\np@Large\number#1{#2}%
+  \fi\fi\fi\fi}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \begin{macro}{\np@small}
+% \begin{macro}{\np@Small}
+% \verb|\np@small| is just an \verb|\ifcase| routine; we add in front
+% the second argument, which is empty if $1<\#<100$ or if the third
+% digit is~$0$.  The same for \verb|\np@Small|, but argument \verb|#2|
+% will always be empty.
+%    \begin{macrocode}
+\def\np@small#1#2{#2\ifcase#1 \or
+  un\np@oa\or due\or tr\'e\or quattro\or cinque\or
+  sei\or sette\or otto\or nove\or dieci\or
+  undici\or dodici\or tredici\or quattordici\or quindici\or
+  sedici\or diciassette\or diciotto\or diciannove\or venti\or
+  ventuno\or ventidue\or ventitr\'e\or ventiquattro\or venticinque\or
+  ventisei\or ventisette\or ventotto\or ventinove\fi}
+\def\np@Small#1#2{\ifcase#1 \or
+  Uno\or Due\or\or Quattro\or Cinque\or Sei\or Sette\or
+  Otto\or Nove\or Dieci\or Undici\or Dodici\or Tredici\or
+  Quattordici\or Quindici\or Sedici\or Diciassette\or Diciotto\or
+  Diciannove\or Venti\or Ventuno\or Ventidue\or Ventitr\'e\or
+  Ventiquattro\or Venticinque\or Ventisei\or Ventisette\or
+  Ventotto\or Ventinove\fi}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \begin{macro}{\np@large}
+% \begin{macro}{\np@Large}
+% \verb|\np@large| has three arguments: the two digits of \# and the
+% second argument to \verb|\np@numeroinparole|.  We do a pair of
+% \verb|\ifcase|; notice that the third argument is not put in front
+% of `ottant', since we say `centottanta', not doubling the~`o'.
+% Since we say `trentuno' and `trentadue', we put the vowel, when
+% needed, in the second part.  In a similar way we define
+% \verb|\np@Large|.
+%    \begin{macrocode}
+\def\np@large#1#2#3{%
+  \ifcase#1 \or\or\or #3trent\or #3quarant\or #3cinquant\or
+    #3sessant\or #3settant\or ottant\or #3novant\fi
+  \ifcase#2 a\or un\np@oa\or adue\or atr\'e\or aquattro\or
+    acinque\or asei\or asette\or otto\or anove\fi}
+\def\np@Large#1#2#3{%
+  \ifcase#1 \or\or\or Trent\or Quarant\or Cinquant\or
+    Sessant\or Settant\or Ottant\or Novant\fi
+  \ifcase#2 a\or uno\or adue\or atr\'e\or aquattro\or
+    acinque\or asei\or asette\or otto\or anove\fi}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \begin{macro}{\np@hundred}
+% \begin{macro}{\np@Hundred}
+% \verb|\np@hundred| has two arguments, the third digit and the other
+% two: 123 is split into `1' and `23'.  We add the digit name in front
+% of `cent' if the digit is $>1$; if the second argument is zero, we
+% add a final~`o' and we are done (cento, duecento, and so on),
+% otherwise we call recursively \verb|\np@numeroinparole| with~`o' as
+% its second argument.
+%    \begin{macrocode}
+\def\np@hundred#1#2\np@del{%
+  \ifcase#1 \or\or due\or tre\or quattro\or cinque\or
+    sei\or sette\or otto\or nove\fi cent%
+  \ifnum#2=0 o\else\np@numeroinparole{#2}{o}\fi}
+\def\np@Hundred#1#2\np@del{%
+  \ifcase#1 \or Cent\or Duecent\or Trecent\or Quattrocent\or
+    Cinquecent\or Seicent\or Settecent\or Ottocent\or Novecent\fi
+  \ifnum#2=0 o\else\np@numeroinparole{#2}{o}\fi}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \begin{macro}{\np@thousand}
+% \begin{macro}{\np@Thousand}
+% \verb|\np@thousand| does similarly (1234 is split into `1' and
+% `234'); if the fourth digit is~1, we output `mille', otherwise
+% \meta{digitname}mila.  Next we call recursively
+% \verb|\np@numeroinparole| on the second part.
+%    \begin{macrocode}
+\def\np@thousand#1#2\np@del{%
+  \ifnum#1=1 mille\else
+  \ifcase#1 \or\or due\or tre\or quattro\or cinque\or
+    sei\or sette\or otto\or nove\fi mila\fi
+  \ifnum#2=0 \else\np@numeroinparole{#2}{}\fi}
+\def\np@Thousand#1#2\np@del{%
+  \ifnum#1=1
+    Mille%
+  \else
+  \ifcase#1 \or\or Due\or Tre\or Quattro\or Cinque\or
+    Sei\or Sette\or Otto\or Nove\fi
+    mila\fi
+  \ifnum#2=0 \else\np@numeroinparole{#2}{}\fi}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \begin{macro}{\@ordinalem}
+% \begin{macro}{\@ordinalef}
+% \begin{macro}{\@Ordinalem}
+% \begin{macro}{\@Ordinalef}
+% Now we come to the ordinals; each one of the commands calls the 
+% generic one adding `o' for the masculine form and `a' for the 
+% feminine form.
+%    \begin{macrocode}
+\def\@ordinalem#1{\np@ordinal{#1}{}o}
+\def\@ordinalef#1{\np@ordinal{#1}{}a}
+\def\@Ordinalem#1{\np@Ordinal{#1}{}o}
+\def\@Ordinalef#1{\np@Ordinal{#1}{}a}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \begin{macro}{\np@ordinal}
+% \begin{macro}{\np@ordinall}
+% \begin{macro}{\np@Ordinal}
+% \begin{macro}{\np@Ordinall}
+% \verb|\np@ordinal| has two arguments, for reasons similar to the above. 
+% Ordinals for $0<\#<11$ are very special, they cannot be used in the 
+% recursion; so we check for that case and otherwise we call 
+% \verb|\np@ordinall|.
+%    \begin{macrocode}
+\def\np@ordinal#1#2{%
+  \ifnum#1=0
+     \expandafter\@gobble
+  \else
+  \ifnum#1<11
+  \ifcase#1 \or prim\or second\or terz\or quart\or quint\or
+    sest\or settim\or ottav\or non\or decim\fi
+  \else
+    \np@ordinall{#1}{#2}%
+  \fi\fi}
+%    \end{macrocode}
+% The definition of \verb|\np@ordinall| is similar to that of 
+% \verb|\np@numeroinparole|, but we support only numbers less than~1000.
+%    \begin{macrocode}
+\def\np@ordinall#1#2{%
+  \ifnum#1>999
+    \@ctrerr
+  \else
+  \ifnum#1>99
+    \expandafter\np@hundredord\number#1 \np@del
+  \else
+  \ifnum#1<30
+    \np@smallord{#1}{#2}%
+  \else
+    \expandafter\np@largeord\number#1{#2}%
+  \fi\fi\fi}
+\def\np@Ordinal#1#2{%
+  \ifnum#1=0
+    \expandafter\@gobble
+  \else
+  \ifnum#1<11
+  \ifcase#1 \or Prim\or Second\or Terz\or Quart\or Quint\or
+    Sest\or Settim\or Ottav\or Non\or Decim\fi
+  \else\np@Ordinall{#1}{#2}\fi\fi}
+\def\np@Ordinall#1#2{%
+  \ifnum#1>999
+    \@ctrerr
+  \else
+  \ifnum#1>99
+    \expandafter\np@hundredOrd\number#1 \np@del
+  \else
+  \ifnum#1<30
+    \np@smallOrd{#1}{#2}%
+  \else
+    \expandafter\np@largeOrd\number#1{#2}%
+  \fi\fi\fi}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \begin{macro}{\np@smallord}
+% \verb|\np@smallord| is similar to \verb|\np@small| (the first cases
+% are used only when called recursively.  It produces, e.g.,
+% `tredicesim', the final letter is added by \verb|\@ordinalm| or
+% \verb|\@ordinalf| or the capitalized forms.
+%    \begin{macrocode}
+\def\np@smallord#1#2{%
+  \ifcase#1 \or un\or #2du\or #2tre\or #2quattr\or #2cinqu\or
+    #2sei\or #2sett\or ott\or #2nov\or \or #2undic\or
+    #2dodic\or #2tredic\or #2quattordic\or #2quindic\or
+    #2sedic\or #2diciassett\or #2diciott\or #2diciannov\or
+    #2vent\or #2ventun\or #2ventidu\or #2ventitre\or
+    #2ventiquattr\or #2venticinqu\or #2ventisei\or
+    #2ventisett\or #2ventott\or #2ventinov%
+  \fi esim}
+%    \end{macrocode}
+% \end{macro}
+% \begin{macro}{\np@largeord}
+% \verb|\np@largeord| is similar to \verb|\np@large|.
+%    \begin{macrocode}
+\def\np@largeord#1#2#3{%
+  \ifcase#1 \or\or\or #3trent\or #3quarant\or #3cinquant\or
+    #3sessant\or #3settant\or ottant\or #3novant\fi
+  \ifcase#2 \or un\or adu\or atre\or aquattr\or
+    acinqu\or asei\or asett\or ott\or anov\fi esim}
+%    \end{macrocode}
+% \end{macro}
+% \begin{macro}{\np@hundredord}
+% \verb|\np@hundredord| is similar to \verb|\np@hundred|.  It calls
+% recursively \verb|\np@ordinall| with~`o' as second argument if \# is
+% not a multiple of~100.
+%    \begin{macrocode}
+\def\np@hundredord#1#2\np@del{%
+  \ifcase#1 \or\or due\or tre\or quattro\or cinque\or
+    sei\or sette\or otto\or nove\fi cent%
+    \ifnum#2=0 esim\else\np@ordinall{#2}{o}\fi}
+%    \end{macrocode}
+% \end{macro}
+% \begin{macro}{\np@smallOrd}
+% \begin{macro}{\np@largeOrd}
+% \begin{macro}{\np@hundredOrd}
+% The last three commands are similar to the similar uncapitalized
+% ones; the last calls \verb|\np@ordinall| for the second step.
+%    \begin{macrocode}
+\def\np@smallOrd#1{%
+  \ifcase#1 \or \or \or \or \or \or  \or \or \or \or \or
+    Undicesim\or Dodicesim\or Tredicesim\or Quattordicesim\or
+    Quindicesim\or Sedicesim\or Diciassettesim\or Diciottesim\or
+    Diciannovesim\or Ventesim\or Ventunesim\or Ventiduesim\or
+    Ventitreesim\or Ventiquattresim\or Venticinquesim\or
+    Ventiseiesim\or Ventisettesim\or Ventottesim\or Ventinovesim%
+  \fi}
+\def\np@largeOrd#1#2{%
+  \ifcase#1 \or\or\or Trent\or Quarant\or Cinquant\or
+    Sessant\or Settant\or Ottant\or Novant\fi
+  \ifcase#2 \or un\or adu\or atre\or aquattr\or
+    acinqu\or asei\or asett\or ott\or anov\fi esim}
+\def\np@hundredOrd#1#2\np@del{%
+  \ifcase#1 \or C\or Duec\or Trec\or Quattroc\or Cinquec\or
+    Seic\or Settec\or Ottoc\or Novec\fi ent%
+    \ifnum#2=0 esim\else\np@ordinall{#2}{o}\fi}
+%</package>
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \Finale
+\endinput
diff --git a/Master/texmf-dist/source/latex/itnumpar/itnumpar.ins b/Master/texmf-dist/source/latex/itnumpar/itnumpar.ins
new file mode 100644
index 00000000000..678b227b92c
--- /dev/null
+++ b/Master/texmf-dist/source/latex/itnumpar/itnumpar.ins
@@ -0,0 +1,55 @@
+%%
+%% Copyright (C) 2007 by Enrico Gregorio <Enrico dot Gregorio (at) univr dot it>
+%%
+%% 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.
+%%
+
+\input docstrip.tex
+\keepsilent
+
+\usedir{tex/latex/itnumpar}
+
+\preamble
+
+This is a generated file.
+
+Copyright (C) 2007 by Enrico Gregorio <Enrico dot Gregorio (at) univr dot it>
+
+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.
+
+\endpreamble
+
+\generate{\file{itnumpar.sty}{\from{itnumpar.dtx}{package}}}
+
+\obeyspaces
+\Msg{*************************************************************}
+\Msg{*                                                           *}
+\Msg{* To finish the installation you have to move the following *}
+\Msg{* file into a directory searched by TeX:                    *}
+\Msg{*                                                           *}
+\Msg{*     itnumpar.sty                                          *}
+\Msg{*                                                           *}
+\Msg{* To produce the documentation run the file skeleton.dtx    *}
+\Msg{* through LaTeX.                                            *}
+\Msg{*                                                           *}
+\Msg{* Happy TeXing!                                             *}
+\Msg{*                                                           *}
+\Msg{*************************************************************}
+
+\endbatchfile