r3721 - in /packages/liblingua-es-numeros-perl/trunk: Numeros.pm debian/rules

Wed Sep 13 19:00:54 UTC 2006

Author: gwolf
Date: Wed Sep 13 19:00:53 2006
New Revision: 3721

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=3721
Log:
Load liblingua-es-numeros-perl-0.01 into
packages/liblingua-es-numeros-perl/trunk.

Modified:
    packages/liblingua-es-numeros-perl/trunk/Numeros.pm
    packages/liblingua-es-numeros-perl/trunk/debian/rules   (props changed)

Modified: packages/liblingua-es-numeros-perl/trunk/Numeros.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/liblingua-es-numeros-perl/trunk/Numeros.pm?rev=3721&op=diff
==============================================================================

--- packages/liblingua-es-numeros-perl/trunk/Numeros.pm (original)
+++ packages/liblingua-es-numeros-perl/trunk/Numeros.pm Wed Sep 13 19:00:53 2006
@@ -1,6 +1,6 @@
 =head1 NAME
 
-Lingua::ES::Numeros - Convierte números a texto en Español (Castellano)
+Lingua::ES::Numeros - Convierte nÃºmeros a texto en EspaÃ±ol (Castellano)
 
 =head1 SYNOPSIS
 
@@ -18,18 +18,18 @@
 
 =head1 DESCRIPTION
 
-Lingua::ES::Numeros convierte números de precisión arbitraria en su
-representación textual en castellano.  Tiene soporte para la
-representación de cardinales, ordinales y reales.  Como los números
-manejados tienen mayor rango que el manejo númeríco nativo de Perl,
-estos se manejan como cadenas de caracteres, permitiendo así el
-crecimiento ilimitado del sistema de conversión.
+Lingua::ES::Numeros convierte nÃºmeros de precisiÃ³n arbitraria en su
+representaciÃ³n textual en castellano.  Tiene soporte para la
+representaciÃ³n de cardinales, ordinales y reales.  Como los nÃºmeros
+manejados tienen mayor rango que el manejo nÃºmerÃco nativo de Perl,
+estos se manejan como cadenas de caracteres, permitiendo asÃ el
+crecimiento ilimitado del sistema de conversiÃ³n.
 
 =cut
 
 #######################################################################
 # Jose Luis Rey Barreira (C) 2001
-# Código bajo licencia GPL ver http://www.gnu.org
+# CÃ³digo bajo licencia GPL ver http://www.gnu.org
 #######################################################################
 
 package Lingua::ES::Numeros;
@@ -62,7 +62,7 @@
 
 #####################################################################
 #
-# Soporte para números CARDINALES
+# Soporte para nÃºmeros CARDINALES
 #
 ####################################################################
 
@@ -70,9 +70,9 @@
 	cero un dos tres cuatro 
 	cinco seis siete ocho nueve
 	diez once doce trece catorce
-	quince dieciséis diecisiete dieciocho diecinueve
-	veinte veintiun veintidós veintitrés veinticuatro
-	veinticinco veintiséis veintisiete veintiocho veintinueve
+	quince diecisÃ©is diecisiete dieciocho diecinueve
+	veinte veintiun veintidÃ³s veintitrÃ©s veinticuatro
+	veinticinco veintisÃ©is veintisiete veintiocho veintinueve
 	};
 
 my @decenas = qw {
@@ -146,12 +146,12 @@
 		push @grupo, $1;
 	}
 	push @grupo, $n;
-	croak 'Número fuera de rango' if @grupo > @Llones;
+	croak 'NÃºmero fuera de rango' if @grupo > @Llones;
 	for (my $i=$#grupo; $i>0; $i--) {
 		my $g = $grupo[$i];
 		next if $g == 0;
 		$buf .= ($buf ? ' ' : '') . hasta1M($g, $un_mil) . ' ' . 
-			$Llones[$i] . ($g==1 ? 'illón' : 'illones');
+			$Llones[$i] . ($g==1 ? 'illÃ³n' : 'illones');
 	}
 	if ($grupo[0] > 0) {
 		$buf .= ' ' if $buf;
@@ -164,33 +164,33 @@
 	my ($n, $exp, $un_mil, $sex) = @_;
 	
 	$n =~ s/0*$//;               # eliminar 0 a la derecha
-	my $ll = -$exp + length $n;  # total de dígitos en $n
-	my $mm = $ll - 6*@Llones;    # digitos fuera de precisión
-	croak 'Número fuera de precisión' if length($n) <= $mm; 
-	$n = substr($n, 0, length($n)-$mm); # eliminar dígitos sobrantes 
+	my $ll = -$exp + length $n;  # total de dÃgitos en $n
+	my $mm = $ll - 6*@Llones;    # digitos fuera de precisiÃ³n
+	croak 'NÃºmero fuera de precisiÃ³n' if length($n) <= $mm; 
+	$n = substr($n, 0, length($n)-$mm); # eliminar dÃgitos sobrantes 
 	return '' unless $n =~ /[1-9]/;  
 	
-	$ll -= $mm if $mm > 0;   # tomar en cuenta los dígitos sobrantes
-	$mm = $ll % 6;           # 1->décimas, 2->centésimas, etc.
-	$ll = int( $ll / 6 );    # 1->millonésimas, 3->trillonésimas, etc.
+	$ll -= $mm if $mm > 0;   # tomar en cuenta los dÃgitos sobrantes
+	$mm = $ll % 6;           # 1->dÃ©cimas, 2->centÃ©simas, etc.
+	$ll = int( $ll / 6 );    # 1->millonÃ©simas, 3->trillonÃ©simas, etc.
 	if ($ll) {
-		$ll = enteroAtexto('1', $mm, 0) . ' ' . $Llones[$ll] . 'illonés';
-		$ll =~ s/^un\s*//;  # evitar el 'un ' en 'un millonésimas'
+		$ll = enteroAtexto('1', $mm, 0) . ' ' . $Llones[$ll] . 'illonÃ©s';
+		$ll =~ s/^un\s*//;  # evitar el 'un ' en 'un millonÃ©simas'
 	} else {
 		for ($mm) {
-			/1/ && do { $ll = "déc"; last };
-			/2/ && do { $ll = "centés"; last };
-			$ll = enteroAtexto('1', $mm, 0) . "és";
+			/1/ && do { $ll = "dÃ©c"; last };
+			/2/ && do { $ll = "centÃ©s"; last };
+			$ll = enteroAtexto('1', $mm, 0) . "Ã©s";
 		}
 	}
-	# Traducir el número, ajustar su sexo
+	# Traducir el nÃºmero, ajustar su sexo
 	$mm = enteroAtexto($n, 0, $un_mil);
 	if ($sex eq 'a') {
 		$mm =~ s/un$/una/;
 	} else {
 		$sex = 'o';
 	}
-	# Ajustar el sexo de la magnitud (milésimas, etc)
+	# Ajustar el sexo de la magnitud (milÃ©simas, etc)
 	$mm .= ' ' . $ll . "im$sex";
 	$mm .= 's' if $n !~ /^0*1$/; # plural si es > 1
 	return $mm;
@@ -199,13 +199,13 @@
 
 #####################################################################
 #
-# Soporte para números ORDINALES
+# Soporte para nÃºmeros ORDINALES
 #
 ####################################################################
 
 my @hasta20vo = qw{
 	x primer_ segund_ tercer_ cuart_ quint_ sext_ 
-	séptim_ octav_ noven_ décim_ undécim_ duodécim_
+	sÃ©ptim_ octav_ noven_ dÃ©cim_ undÃ©cim_ duodÃ©cim_
 	};
 
 my @decimos = qw {
@@ -222,7 +222,7 @@
 	return $hasta20vo[$_] if $_ < 13;
 	/(.)(.)/;
 	return 'decim_' . $hasta20vo[$2] if $1 == 1;
-	return $decimos[$1 - 2] . 'gésim_' . ($2 ? ' ' . $hasta20vo[$2] : ""); 
+	return $decimos[$1 - 2] . 'gÃ©sim_' . ($2 ? ' ' . $hasta20vo[$2] : ""); 
 }
 
 sub hasta1Kvo($)
@@ -233,7 +233,7 @@
 	my $c = int($n / 100);
 	$c = $c==0 
 		? '' 
-		: $centesimos[$c - 1] . 'entésim_';
+		: $centesimos[$c - 1] . 'entÃ©sim_';
 	my $d = hasta100vo($n % 100);
 	return $c . ($c and $d ? ' ' : '') . $d;
 }
@@ -247,8 +247,8 @@
 	$h = $h<=1
 		? $h==0 
 			? ''
-			: 'milésim_'
-		: hasta1k($h) . 'milésim_';
+			: 'milÃ©sim_'
+		: hasta1k($h) . 'milÃ©sim_';
 	my $l = hasta1Kvo($n % 1000);
 	return $h . ($h and $l ? ' ' : '') . $l;
 }
@@ -256,29 +256,29 @@
 
 #####################################################################
 #
-# Métodos de Clase
+# MÃ©todos de Clase
 #
 ####################################################################
 
-=head1 MÉTODOS DE CLASE
+=head1 MÃ‰TODOS DE CLASE
 
 =over 4
 
 =item parse_num($num, $dec, $sep)
 
-Descompone el número en sus diferentes partes y retorna una lista con
+Descompone el nÃºmero en sus diferentes partes y retorna una lista con
 las mismas, por ejemplo:
 
    use Linugua::ES::Numeros qw( :All );
    ($sgn, $ent, $frc, $exp) = parse_num('123.45e10', '.', '",');
 
-=head2 Parámetros
+=head2 ParÃ¡metros
 
 =over 4
 
 =item $num
 
-El número a traducir
+El nÃºmero a traducir
 
 =item $dec
 
@@ -296,25 +296,25 @@
 
 =item $sgn
 
-Signo, puede ser -1 si está presente el signo negativo, 1 si está
+Signo, puede ser -1 si estÃ¡ presente el signo negativo, 1 si estÃ¡
 presente el signo negativo y 0 si no hay signo presente.
 
 =item $ent
 
-Parte entera del número, solo los dígitos más significativos (ver $exp)
+Parte entera del nÃºmero, solo los dÃgitos mÃ¡s significativos (ver $exp)
 
 =item $frc
 
-Parte fraccional del número, solo los dígitos menos significativos (ver
+Parte fraccional del nÃºmero, solo los dÃgitos menos significativos (ver
 $exp)
 
 =item $exp
 
-Exponente del número, si es > 0, dicta el número de ceros que sigue a la parte entera, si es < 0, dicta el número de ceros que están entre el punto decimal y la parte fraccional.
+Exponente del nÃºmero, si es > 0, dicta el nÃºmero de ceros que sigue a la parte entera, si es < 0, dicta el nÃºmero de ceros que estÃ¡n entre el punto decimal y la parte fraccional.
 
 =back
 
-Este método no se exporta implicitamente, asi que debe ser importado
+Este mÃ©todo no se exporta implicitamente, asi que debe ser importado
 con cualquiera de las siguientes sintaxis:
 
   use Lingua::ES::Numeros qw(parse_num);
@@ -342,11 +342,11 @@
 		$exp = 0 unless defined $exp;
 	}
 	else {
-		croak "Número ilegal";
+		croak "NÃºmero ilegal";
 	}
 	return ($sgn, $int, $frc, $exp) if $exp == 0;
 	
-	# Correr el punto décimal tantas posciones como sea posible
+	# Correr el punto dÃ©cimal tantas posciones como sea posible
 	if ($exp > 0) {
 		if ($exp > length $frc) {
 			$exp -= length $frc;
@@ -376,52 +376,52 @@
 
 =head1 CAMPOS
 
-El objeto contiene los siguientes campos que alteran la conversión.
+El objeto contiene los siguientes campos que alteran la conversiÃ³n.
 
 =over 4
 
 =item DECIMAL
 
-Especifíca la cadena de caracteres que se utilizará para separar la
-parte entera de la parte fraccional del número a convertir.  El valor
+EspecifÃca la cadena de caracteres que se utilizarÃ¡ para separar la
+parte entera de la parte fraccional del nÃºmero a convertir.  El valor
 por defecto de DECIMAL es '.'
 
 =item SEPARADORES
 
 Cadena de caracteres que contiene todos los caracteres de formato del
-número.  Todos los caracteres de esta cadena serán ignorados por el
-parser que descompone el número.  El valor por defecto de SEPARADORES es
+nÃºmero.  Todos los caracteres de esta cadena serÃ¡n ignorados por el
+parser que descompone el nÃºmero.  El valor por defecto de SEPARADORES es
 ',"_'
 
 =item ACENTOS
 
-Afecta la ortografía de los números traducidos, si es falso la
-representación textual de los números no tendrá acentos, el valor
-predeterminado de este campo es 1 (con acentos).  Esté campo puede ser
+Afecta la ortografÃa de los nÃºmeros traducidos, si es falso la
+representaciÃ³n textual de los nÃºmeros no tendrÃ¡ acentos, el valor
+predeterminado de este campo es 1 (con acentos).  EstÃ© campo puede ser
 de mucha utilidad si el conjunto de caracteres utilizado no es el
-Latin1, ya que los acentos dependen de él en esta versión (ver
+Latin1, ya que los acentos dependen de Ã©l en esta versiÃ³n (ver
 PROBLEMAS).
 
 =item MAYUSCULAS
 
-Si es cierto, la representación textual del número será una cadena de
-caracteres en mayúsculas, el valor predeterminado de este campo es 0 (en
-minúsculas)
+Si es cierto, la representaciÃ³n textual del nÃºmero serÃ¡ una cadena de
+caracteres en mayÃºsculas, el valor predeterminado de este campo es 0 (en
+minÃºsculas)
 
 =item HTML
 
-Si es cierto, la representación textual del número será una cadena de
-caracteres en HTML (los acentos estarán representados por las
+Si es cierto, la representaciÃ³n textual del nÃºmero serÃ¡ una cadena de
+caracteres en HTML (los acentos estarÃ¡n representados por las
 respectivas entidades HTML).  El valor predeterminado es 0 (texto).
 
 =item SEXO
 
-El sexo de los números, puede ser: 'a', 'o' o '', para números en
+El sexo de los nÃºmeros, puede ser: 'a', 'o' o '', para nÃºmeros en
 femenino, masculino o neutro respectivamente.  El valor por defecto
 de este campo es 'o'.
 
  +---+--------------------+-----------------------------+
- |Nú |     CARDINALES     |          ORDINALES          |
+ |NÃº |     CARDINALES     |          ORDINALES          |
  |me +------+------+------+---------+---------+---------+
  |ro | 'o'  | 'a'  |  ''  |   'o'   |   'a'   |   ''    |
  +---+------+------+------+---------+---------+---------+
@@ -433,26 +433,26 @@
 =item UNMIL
 
 Este campo solo afecta la traduccion de cardinales y cuando es cierto,
-el número 1000 se traduce como 'un mil', de otro modo se traduce
+el nÃºmero 1000 se traduce como 'un mil', de otro modo se traduce
 simplemente 'mil'.  El valor por defecto de UNMIL es 1.
 
 =item NEGATIVO
 
-La cadena de caracteres que contiene el nombre con el que se traducirá
+La cadena de caracteres que contiene el nombre con el que se traducirÃ¡
 el signo negativo (-), por defecto vale 'menos'.
 
 =item POSITIVO
 
-La cadena de caracteres que contiene el nombre con el que se traducirá
-el signo positivo (+), por defecto vale ''.  Esta cadena sólo es añadida
-al número en presencia del signo '+', de otro modo no se agrega aunque
-el número se asume positivo.
+La cadena de caracteres que contiene el nombre con el que se traducirÃ¡
+el signo positivo (+), por defecto vale ''.  Esta cadena sÃ³lo es aÃ±adida
+al nÃºmero en presencia del signo '+', de otro modo no se agrega aunque
+el nÃºmero se asume positivo.
 
 =item FORMATO
 
-Una cadena de caracteres que especifíca como se deben traducir los
-decimales de un número real.  Su valor por defecto es 'con %02d ctms.'
-(ver el método B<real>).
+Una cadena de caracteres que especifÃca como se deben traducir los
+decimales de un nÃºmero real.  Su valor por defecto es 'con %02d ctms.'
+(ver el mÃ©todo B<real>).
 
 =back
 
@@ -473,9 +473,9 @@
 
 =head1 CONSTRUCTOR
 
-Para construir un objeto Lingua::ES::Numeros, se utiliza el método de
-clase B<new>, este método puede recibir como parámetro cualesquiera de
-los campos mencionados en la sección anterior.
+Para construir un objeto Lingua::ES::Numeros, se utiliza el mÃ©todo de
+clase B<new>, este mÃ©todo puede recibir como parÃ¡metro cualesquiera de
+los campos mencionados en la secciÃ³n anterior.
 
 Ejemplos:
 
@@ -484,7 +484,7 @@
       # usa los valores predeterminados de los campos
       $obj = new Lingua::ES::Numeros; 
       
-      # especifíca los valores de algunos campos
+      # especifÃca los valores de algunos campos
       $obj = Lingua::ES::Numeros::->new( 'ACENTOS'    => 0, 
                                          'MAYUSCULAS' => 1,
                                          'SEXO'       => 'a',
@@ -507,47 +507,47 @@
 
 #####################################################################
 #
-# Métodos del Objeto
+# MÃ©todos del Objeto
 #
 ####################################################################
 
 sub retval($$)
 {
-# Rutina de utilidad que retorna el valor textual adecuado, según los
+# Rutina de utilidad que retorna el valor textual adecuado, segÃºn los
 # valores de los campos ACENTOS, MAYUSCULAS y HTML.
 #
 # Esta rutina por ahora no hace uso de locale ni utf8 y por lo tanto el
-# módulo solo funciona en máquinas que utilicen el set de caracteres
+# mÃ³dulo solo funciona en mÃ¡quinas que utilicen el set de caracteres
 # Latin1 (ISO-8859-1).  Esto puede cambiar proximamente.
 #
 	my $self = shift;
 	$_ = shift;
 	if ($self->{ACENTOS}) {
-		tr/a-záéíóú/A-ZÁÉÍÓÚ/ if $self->{MAYUSCULAS};
+		tr/a-zÃ¡Ã©ÃÃ³Ãº/A-ZÃÃ‰ÃÃ“Ãš/ if $self->{MAYUSCULAS};
 		if ( $self->{HTML} ) {
-			s/([ÁÉÍÓÚáéíóú])/&$1acute;/g;
-			tr/ÁÉÍÓÚáéíóú/AEIOUaeiou/;
+			s/([ÃÃ‰ÃÃ“ÃšÃ¡Ã©ÃÃ³Ãº])/&$1acute;/g;
+			tr/ÃÃ‰ÃÃ“ÃšÃ¡Ã©ÃÃ³Ãº/AEIOUaeiou/;
 		}
 	} 
 	else {
-		tr/áéíóú/aeiou/;
+		tr/Ã¡Ã©ÃÃ³Ãº/aeiou/;
 		return uc $_ if $self->{MAYUSCULAS};
 	}
 	return $_;
 }
 
-=head1 MÉTODOS DEL OBJETO
+=head1 MÃ‰TODOS DEL OBJETO
 
 =over 4
 
 =item $n = cardinal($n)
 
-Convierte el número $n, como un número cardinal a castellano.
-
-La conversión esta afectada por los campos: DECIMAL, SEPARADORES,
+Convierte el nÃºmero $n, como un nÃºmero cardinal a castellano.
+
+La conversiÃ³n esta afectada por los campos: DECIMAL, SEPARADORES,
 SEXO, ACENTOS, MAYUSCULAS, POSITIVO y NEGATIVO.
 
-Esta conversión ignora la parte fraccional del número, si la tiene.
+Esta conversiÃ³n ignora la parte fraccional del nÃºmero, si la tiene.
 
 =cut
 
@@ -564,7 +564,7 @@
 		$s = $self->{POSITIVO} if $sgn > 0;
 		$s .= ' ' if $s;
 		$ent = $s . $ent;
-		$ent =~ tr/áéíóú/aeiou/ unless $self->{ACENTOS};
+		$ent =~ tr/Ã¡Ã©ÃÃ³Ãº/aeiou/ unless $self->{ACENTOS};
 	} 
 	else {
 		$ent = 'cero';
@@ -574,37 +574,37 @@
 
 =item $n = real($n [, $fsexo])
 
-Convierte el número $n, como un número real a castellano.  
-
-El parámetro opcional $fsexo se utiliza para especificas un sexo diferente para
+Convierte el nÃºmero $n, como un nÃºmero real a castellano.  
+
+El parÃ¡metro opcional $fsexo se utiliza para especificas un sexo diferente para
 la parte decimal, recibe los mismos valores que se le pueden asignar al campo
 SESO, pero el sexo neutro equivale a masculino en la parte fraccional, si es
-omitido se usará el valor del campo SEXO.
-
-La conversión esta afectada por los campos: DECIMAL, SEPARADORES,
+omitido se usarÃ¡ el valor del campo SEXO.
+
+La conversiÃ³n esta afectada por los campos: DECIMAL, SEPARADORES,
 SEXO, ACENTOS, MAYUSCULAS, POSITIVO y NEGATIVO.
 
 =head2 Formato de la parte fraccional (FORMATO)
 
-Además esta conversión utiliza el campo FORMATO para dirigir la
-conversión de la parte fraccional del número real.  Este campo es un
-formato estilo sprintf que solo tiene una especificación de
-formato precedida por '%'.  Además las dos únicas especificaciones
-válidas por ahora son:
+AdemÃ¡s esta conversiÃ³n utiliza el campo FORMATO para dirigir la
+conversiÃ³n de la parte fraccional del nÃºmero real.  Este campo es un
+formato estilo sprintf que solo tiene una especificaciÃ³n de
+formato precedida por '%'.  AdemÃ¡s las dos Ãºnicas especificaciones
+vÃ¡lidas por ahora son:
 
 =over 4
 
 =item %s
 
-Incluye la representación textual de la parte fraccional dentro del
-formato.  Por ejemplo, convertir '123.345' con formato 'más %s.' resultará
-en el número: CIENTO VEINTITRÉS Y TRECIENTOS CUARENTA MÁS CINCO MILÉSIMAS.
+Incluye la representaciÃ³n textual de la parte fraccional dentro del
+formato.  Por ejemplo, convertir '123.345' con formato 'mÃ¡s %s.' resultarÃ¡
+en el nÃºmero: CIENTO VEINTITRÃ‰S Y TRECIENTOS CUARENTA MÃS CINCO MILÃ‰SIMAS.
 
 =item %Nd
 
-Incluye la representación numérica de la parte fraccional, donde N es
-una especificación del formato '%d' de sprintf.  Por ejemplo, convertir
-'123.345' con formato ' con %02d ctms.' producirá: CIENTO VEINTITRÉS Y
+Incluye la representaciÃ³n numÃ©rica de la parte fraccional, donde N es
+una especificaciÃ³n del formato '%d' de sprintf.  Por ejemplo, convertir
+'123.345' con formato ' con %02d ctms.' producirÃ¡: CIENTO VEINTITRÃ‰S Y
 TRECIENTOS CUARENTA CON 34 CTMS.
 
 =back
@@ -625,14 +625,14 @@
 	# Traducir la parte decimal de acuerdo al formato
 	for ($self->{FORMATO}) {
 		/%s/ && do { 
-			# Textual, se traduce según el sexo
+			# Textual, se traduce segÃºn el sexo
 			$fsex = $sex unless defined $fsex;
 			$frc = fracAtexto($frc, $exp, $self->{UNMIL}, $fsex);
 			$frc = $frc ? sprintf($self->{FORMATO}, $frc) : '';
 			last;
 			};
 		/%([0-9]*)/ && do {
-			# Numérico, se da formato a los dígitos
+			# NumÃ©rico, se da formato a los dÃgitos
 			$frc = substr('0' x $exp . $frc, 0, $1);
 			$frc = sprintf($self->{FORMATO}, $frc);
 			last;
@@ -659,12 +659,12 @@
 
 =item $n = ordinal($n)
 
-Convierte el número $n, como un número ordinal a castellano.  
-
-La conversión esta afectada por los campos: DECIMAL, SEPARADORES,
+Convierte el nÃºmero $n, como un nÃºmero ordinal a castellano.  
+
+La conversiÃ³n esta afectada por los campos: DECIMAL, SEPARADORES,
 SEXO, ACENTOS y MAYUSCULAS.
 
-Presenta advertencias si el número es negativo y/o si no es un natural >
+Presenta advertencias si el nÃºmero es negativo y/o si no es un natural >
 0.
 
 =cut
@@ -692,7 +692,7 @@
 		my $g = $grupo[$i];
 		next if $g == 0;
 		$ent .= ($ent ? ' ' : '') . hasta1M($g,0) . ' ' . 
-			$Llones[$i] . 'illonésim_';
+			$Llones[$i] . 'illonÃ©sim_';
 	}
 	if ($grupo[0] > 0) {
 		$ent .= ' ' if $ent;
@@ -711,61 +711,61 @@
 
 =back
 
-=head1 DIAGNÓSTICOS
+=head1 DIAGNÃ“STICOS
 
 =over 4
 
-=item Número ilegal.
-
-El número tiene un error sintáctico.
-
-=item Número fuera de rango.
-
-La parte entera del número es demasiado grande.  Por el momento solo se
-aceptan números de hasta 10**126 - 1, pues no se cual es la
-representación textual de números >= 10**126.  Cualquier ayuda o
-corrección será bien recibida.
-
-=item Número fuera de precisión.
-
-La parte fraccional del número es menor que 10**-126 y no se puede
+=item NÃºmero ilegal.
+
+El nÃºmero tiene un error sintÃ¡ctico.
+
+=item NÃºmero fuera de rango.
+
+La parte entera del nÃºmero es demasiado grande.  Por el momento solo se
+aceptan nÃºmeros de hasta 10**126 - 1, pues no se cual es la
+representaciÃ³n textual de nÃºmeros >= 10**126.  Cualquier ayuda o
+correcciÃ³n serÃ¡ bien recibida.
+
+=item NÃºmero fuera de precisiÃ³n.
+
+La parte fraccional del nÃºmero es menor que 10**-126 y no se puede
 traducir por los motivos antes mencionados.
 
 =item Ordinal negativo
 
-El número a convertir en ordinal es negativo.
+El nÃºmero a convertir en ordinal es negativo.
 
 =item Ordinal con decimales
 
-El número a convertir en ordinal tiene decimales.
+El nÃºmero a convertir en ordinal tiene decimales.
 
 =back
 
 =head1 AUTOR
 
-José Luis Rey Barreira <jrey at mercared.com>
+JosÃ© Luis Rey Barreira <jrey at mercared.com>
 
 =head1 PROBLEMAS
 
-La conversión a mayúsculas se está haciendo actualmente mediante una
-transliteración para poder convertir los caracteres acentuados.  El
-problema es que esto no funcionará si el conjunto de caracteres en uso
+La conversiÃ³n a mayÃºsculas se estÃ¡ haciendo actualmente mediante una
+transliteraciÃ³n para poder convertir los caracteres acentuados.  El
+problema es que esto no funcionarÃ¡ si el conjunto de caracteres en uso
 es distinto al ISO 8859-1 (Latin1) o al ISO 8859-15.
 
-Las alternativas a este problema serían: la utilización de Perl 5.6 o
-superior con 'utf8', pero restringo el uso del módulo a una gran
-cantidad de usuarios que todavía usan Perl 5.00x, por otra parte podría
+Las alternativas a este problema serÃan: la utilizaciÃ³n de Perl 5.6 o
+superior con 'utf8', pero restringo el uso del mÃ³dulo a una gran
+cantidad de usuarios que todavÃa usan Perl 5.00x, por otra parte podrÃa
 utilizar locales, pero no se si estos funcionan exactamente igual en
-Unix, Windows, BeOS, etc. así que creo que la transliteración es
+Unix, Windows, BeOS, etc. asÃ que creo que la transliteraciÃ³n es
 adecuada por ahora.
 
 =head1 LICENCIA
 
-Este código es propiedad intelectual de José Rey y se distribuye según
-los términos de la Licencia Pública General del proyecto GNU, cuya letra
-y explicación se pueden encontrar en inglés en la página
+Este cÃ³digo es propiedad intelectual de JosÃ© Rey y se distribuye segÃºn
+los tÃ©rminos de la Licencia PÃºblica General del proyecto GNU, cuya letra
+y explicaciÃ³n se pueden encontrar en inglÃ©s en la pÃ¡gina
 http://www.gnu.org/licenses/licenses.html y de la que cual hay una
-traducción al castellano en
+traducciÃ³n al castellano en
 http://lucas.hispalinux.es/Otros/gples/gples.html
 
 =cut

Propchange: packages/liblingua-es-numeros-perl/trunk/debian/rules
------------------------------------------------------------------------------
--- svn:executable (original)
+++ svn:executable Wed Sep 13 19:00:53 2006
@@ -1,0 +1,1 @@
+*


