Fixed Polish glitches

[MM]

I fixed some glitches in the Polish number-to-text routines and added some currencies.

__numbertext__
^0 zero
1 jeden
2 dwa
3 trzy
4 cztery
5 pięć
6 sześć
7 siedem
8 osiem
9 dziewięć
10 dziesięć
11 jedenaście
14 czternaście
15 piętnaście
16 szesnaście
19 dziewiętnaście
1(\d) $1naście
2(\d) dwadzieścia $1
3(\d) trzydzieści $1
4(\d) czterdzieści $1
(\d)(\d) $1dziesiąt $2
1(\d\d) sto $1
2(\d\d) dwieście $1
([34])(\d\d) $1sta $2
(\d)(\d\d) $1set $2
1(\d{3}) tysiąc $1
((?:\d{2})?[234])(\d{3}) $1 tysiące $2
(\d{1,3})(\d{3}) $1 tysięcy $2
1(\d{6}) milion $1
(1[1-9])(\d{6}) $1 milionów $2 #12 milionów
((?:\d[02-9]?)?[234])(\d{6}) $1 miliony $2 #102 miliony
(\d{1,3})(\d{6}) $1 milionów $2
1(\d{9}) miliard $1
(1[1-9])(\d{9}) $1 miliardów $2
((?:\d[02-9]?)?[234])(\d{9}) $1 miliardy $2
(\d{1,3})(\d{9}) $1 miliardów $2
1(\d{12}) bilion $1
(1[1-9])(\d{12}) $1 bilionów $2
((?:\d[02-9]?)?[234])(\d{12}) $1 biliony $2
(\d{1,3})(\d{12}) $1 bilionów $2
1(\d{15}) biliard $1
(1[1-9]))(\d{15}) $1 biliardów $2
((?:\d[02-9]?)?[234])(\d{15}) $1 biliardy $2
(\d{1,3})(\d{15}) $1 biliardów $2
1(\d{18}) trylion $1
(1[1-9])(\d{18}) $1 trylionów $2
((?:\d[02-9]?)?[234])(\d{18}) $1 tryliony $2
(\d{1,3})(\d{18}) $1 trylionów $2
1(\d{21}) tryliard $1
(1[1-9])(\d{21}) $1 tryliardów $2
((?:\d[02-9]?)?[234])(\d{21}) $1 tryliardy $2
(\d{1,3})(\d{21}) $1 tryliardów $2
1(\d{24}) kwadrylion $1
(1[1-9])(\d{24}) $1 kwadrylionów $2
((?:\d[02-9]?)?[234])(\d{24}) $1 kwadryliony $2
(\d{1,3})(\d{24}) $1 kwadrylionów $2

# negative number

[-−](\d+) minus |$1

# decimals

"([-−]?\d+)[.,]" $1| przecinek
"([-−]?\d+[.,])([^0]\d)" $1| |$2
"([-−]?\d+[.,])(\d)(\d)(\d)" $1| |$2 |$3 |$4
"([-−]?\d+[.,]\d*)(\d)" $1| |$2

# currency

# unit/subunit singular / nominative plural / genitive plural

us:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \1
up:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \2
ug:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \3
ss:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \4
sp:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \5
sg:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \6

AUD:(\D+) $(\1: dolar australijski, dolary australijskie, dolarów australijskich, cent, centy, centów)
BGN:(\D+) $(\1: lew bułgarski, lewy bułgarskie, lewów bułgarskich, stotinka, stotinki, stotinek)
CHF:(\D+) $(\1: frank szwajcarski, franki szwajcarskie, franków szwajcarskich, centym, centymy, centymów)
CAD:(\D+) $(\1: dolar kanadyjski, dolary kanadyjskie, dolarów kanadyjskich, cent, centy, centów)
CNY:(\D+) $(\1: juan, juany, juanów, fen, feny, fenów)
EUR:(\D+) $(\1: euro, euro, euro, cent, centy, centów)
GBP:(\D+) $(\1: funt szterling, funty szterlingi, funtów szterlingów, pens, pensy, pensów)
HUF:(\D+) $(\1: forint, forinty, forintów, filler, fillery, fillerów)
JPY:(\D+) $(\1: jen, jeny, jenów, sen, seny, senów)
PLN:(\D+) $(\1: złoty, złote, złotych, grosz, grosze, groszy)
RUB:(\D+) $(\1: rubel rosyjski, ruble rosyjskie, rubli rosyjskich, kopiejka, kopiejki, kopiejek)
USD:(\D+) $(\1: dolar amerykański, dolary amerykańskie, dolarów amerykańskich, cent, centy, centów)

"([A-Z]{3}) ([-−]?1)([.,]00?)?" $2 $(\1:us)
"([A-Z]{3}) ([-−]?[234])([.,]00?)?" $2 $(\1:up)
"([A-Z]{3}) ([-−]?\d*[^1][234])([.,]00?)?" $2 $(\1:up)
"([A-Z]{3}) ([-−]?\d+)([.,]00?)?" $2 $(\1:ug)

"(CNY [-−]?\d+)[.,]10?" $1 $2 jiao
"(CNY [-−]?\d+)[.,](\d)0?" $1 $2 jiao
"(CNY [-−]?\d+[.,]\d)1" $1 $2 fen
"(CNY [-−]?\d+[.,]\d)(\d)" $1 $2 fenów

"(([A-Z]{3}) [-−]?\d+)[.,](01)" $1 |$(1) $(\2:ss)
"(([A-Z]{3}) [-−]?\d+)[.,]([^1][234])" $1 |$3 $(\2:sp)
"(([A-Z]{3}) [-−]?\d+)[.,](\d)" $1 |$(\30) $(\2:sg)
"(([A-Z]{3}) [-−]?\d+)[.,](\d\d)" $1 |$3 $(\2:sg)

[László Németh (nemeth-libreoffice)]

Fixed in Numbertext 0.6 OpenOffice.org extension:

__numbertext__
^0 zero
1 jeden
2 dwa
3 trzy
4 cztery
5 pięć
6 sześć
7 siedem
8 osiem
9 dziewięć
10 dziesięć
11 jedenaście
14 czternaście
15 piętnaście
16 szesnaście
19 dziewiętnaście
1(\d) $1naście
2(\d) dwadzieścia $1
3(\d) trzydzieści $1
4(\d) czterdzieści $1
(\d)(\d) $1dziesiąt $2
1(\d\d) sto $1
2(\d\d) dwieście $1
([34])(\d\d) $1sta $2
(\d)(\d\d) $1set $2
1(\d{3}) tysiąc $1
([234]|[^1][234]|\d[^1][234])(\d{3}) $1 tysiące $2
(\d{1,3})(\d{3}) $1 tysięcy $2

# affix function
:1,(.+) \1
:(1[1-9]),(.+) $1 \2ów
:([234]|[^1][234]|\d[^1][234]),(.+) $1 \2y
:(\d+),(.+) $1 \2ów

(\d{1,3})(\d{6}) $(:\1,milion) $2
(\d{1,3})(\d{9}) $(:\1,miliard) $2
(\d{1,3})(\d{12}) $(:\1,bilion) $2
(\d{1,3})(\d{15}) $(:\1,biliard) $2
(\d{1,3})(\d{18}) $(:\1,trylion) $2
(\d{1,3})(\d{21}) $(:\1,tryliard) $2
(\d{1,3})(\d{24}) $(:\1,kwadrylion) $2

# negative number

[-−](\d+) minus |$1

# decimals

"([-−]?\d+)[.,]" $1| przecinek
"([-−]?\d+[.,])([^0]\d)" $1| |$2
"([-−]?\d+[.,])(\d)(\d)(\d)" $1| |$2 |$3 |$4
"([-−]?\d+[.,]\d*)(\d)" $1| |$2

# currency

# unit/subunit singular / nominative plural / genitive plural

us:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \1
up:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \2
ug:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \3
ss:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \4
sp:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \5
sg:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \6

AUD:(\D+) $(\1: dolar australijski, dolary australijskie, dolarów australijskich, cent, centy, centów)
BGN:(\D+) $(\1: lew bułgarski, lewy bułgarskie, lewów bułgarskich, stotinka, stotinki, stotinek)
CHF:(\D+) $(\1: frank szwajcarski, franki szwajcarskie, franków szwajcarskich, centym, centymy, centymów)
CAD:(\D+) $(\1: dolar kanadyjski, dolary kanadyjskie, dolarów kanadyjskich, cent, centy, centów)
CNY:(\D+) $(\1: juan, juany, juanów, fen, feny, fenów)
EUR:(\D+) $(\1: euro, euro, euro, cent, centy, centów)
GBP:(\D+) $(\1: funt szterling, funty szterlingi, funtów szterlingów, pens, pensy, pensów)
HUF:(\D+) $(\1: forint, forinty, forintów, filler, fillery, fillerów)
JPY:(\D+) $(\1: jen, jeny, jenów, sen, seny, senów)
PLN:(\D+) $(\1: złoty, złote, złotych, grosz, grosze, groszy)
RUB:(\D+) $(\1: rubel rosyjski, ruble rosyjskie, rubli rosyjskich, kopiejka, kopiejki, kopiejek)
USD:(\D+) $(\1: dolar amerykański, dolary amerykańskie, dolarów amerykańskich, cent, centy, centów)

"([A-Z]{3}) ([-−]?1)([.,]00?)?" $2 $(\1:us)
"([A-Z]{3}) ([-−]?[234])([.,]00?)?" $2 $(\1:up)
"([A-Z]{3}) ([-−]?\d*[^1][234])([.,]00?)?" $2 $(\1:up)
"([A-Z]{3}) ([-−]?\d+)([.,]00?)?" $2 $(\1:ug)

"(CNY [-−]?\d+)[.,]10?" $1 $2 jiao
"(CNY [-−]?\d+)[.,](\d)0?" $1 $2 jiao
"(CNY [-−]?\d+[.,]\d)1" $1 $2 fen
"(CNY [-−]?\d+[.,]\d)(\d)" $1 $2 fenów

"(([A-Z]{3}) [-−]?\d+)[.,](01)" $1 |$(1) $(\2:ss)
"(([A-Z]{3}) [-−]?\d+)[.,]([^1][234])" $1 |$3 $(\2:sp)
"(([A-Z]{3}) [-−]?\d+)[.,](\d)" $1 |$(\30) $(\2:sg)
"(([A-Z]{3}) [-−]?\d+)[.,](\d\d)" $1 |$3 $(\2:sg)