pl.sor 4.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147
  1. ^0 zero
  2. 1 jeden
  3. 2 dwa
  4. 3 trzy
  5. 4 cztery
  6. 5 pięć
  7. 6 sześć
  8. 7 siedem
  9. 8 osiem
  10. 9 dziewięć
  11. 10 dziesięć
  12. 11 jedenaście
  13. 14 czternaście
  14. 15 piętnaście
  15. 16 szesnaście
  16. 19 dziewiętnaście
  17. 1(\d) $1naście
  18. 2(\d) dwadzieścia[ $1]
  19. 3(\d) trzydzieści[ $1]
  20. 4(\d) czterdzieści[ $1]
  21. (\d)(\d) $1dziesiąt[ $2]
  22. 1(\d\d) sto[ $1]
  23. 2(\d\d) dwieście[ $1]
  24. ([34])(\d\d) $1sta[ $2]
  25. (\d)(\d\d) $1set[ $2]
  26. 1(\d{3}) tysiąc[ $1]
  27. ([234]|[2-9][234]|\d[02-9][234])(\d{3}) $1 tysiące[ $2]
  28. (\d{1,3})(\d{3}) $1 tysięcy[ $2]
  29. # affix function
  30. :1,(.+) \1
  31. :(1[1-9]),(.+) $1 \2ów
  32. :([234]|[2-9][234]|\d[02-9][234]),(.+) $1 \2y
  33. :(\d+),(.+) $1 \2ów
  34. (\d{1,3})(\d{6}) $(:\1,milion)[ $2]
  35. (\d{1,3})(\d{9}) $(:\1,miliard)[ $2]
  36. (\d{1,3})(\d{12}) $(:\1,bilion)[ $2]
  37. (\d{1,3})(\d{15}) $(:\1,biliard)[ $2]
  38. (\d{1,3})(\d{18}) $(:\1,trylion)[ $2]
  39. (\d{1,3})(\d{21}) $(:\1,tryliard)[ $2]
  40. (\d{1,3})(\d{24}) $(:\1,kwadrylion)[ $2]
  41. # negative number
  42. [-−](\d+) minus |$1
  43. # decimals
  44. "([-−]?\d+)[.,]" $1| przecinek
  45. "([-−]?\d+[.,])([^0]\d)" $1| |$2
  46. "([-−]?\d+[.,])(\d)(\d)(\d)" $1| |$2 |$3 |$4
  47. "([-−]?\d+[.,]\d*)(\d)" $1| |$2
  48. # currency
  49. # unit/subunit singular / nominative plural / genitive plural
  50. us:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \1
  51. up:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \2
  52. ug:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \3
  53. ss:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \4
  54. sp:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \5
  55. sg:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \6
  56. AUD:(\D+) $(\1: dolar australijski, dolary australijskie, dolarów australijskich, cent, centy, centów)
  57. BGN:(\D+) $(\1: lew bułgarski, lewy bułgarskie, lewów bułgarskich, stotinka, stotinki, stotinek)
  58. CHF:(\D+) $(\1: frank szwajcarski, franki szwajcarskie, franków szwajcarskich, centym, centymy, centymów)
  59. CAD:(\D+) $(\1: dolar kanadyjski, dolary kanadyjskie, dolarów kanadyjskich, cent, centy, centów)
  60. CNY:(\D+) $(\1: juan, juany, juanów, fen, feny, fenów)
  61. EUR:(\D+) $(\1: euro, euro, euro, cent, centy, centów)
  62. GBP:(\D+) $(\1: funt szterling, funty szterlingi, funtów szterlingów, pens, pensy, pensów)
  63. HUF:(\D+) $(\1: forint, forinty, forintów, filler, fillery, fillerów)
  64. JPY:(\D+) $(\1: jen, jeny, jenów, sen, seny, senów)
  65. PLN:(\D+) $(\1: złoty, złote, złotych, grosz, grosze, groszy)
  66. RUB:(\D+) $(\1: rubel rosyjski, ruble rosyjskie, rubli rosyjskich, kopiejka, kopiejki, kopiejek)
  67. USD:(\D+) $(\1: dolar amerykański, dolary amerykańskie, dolarów amerykańskich, cent, centy, centów)
  68. "([A-Z]{3}) ([-−]?1)([.,]00?)?" $2$(\1:us)
  69. "([A-Z]{3}) ([-−]?[234])([.,]00?)?" $2$(\1:up)
  70. "([A-Z]{3}) ([-−]?\d*[02-9][234])([.,]00?)?" $2$(\1:up)
  71. "([A-Z]{3}) ([-−]?\d+)([.,]00?)?" $2$(\1:ug)
  72. "(CNY [-−]?\d+)[.,]10?" $1 $2 jiao
  73. "(CNY [-−]?\d+)[.,](\d)0?" $1 $2 jiao
  74. "(CNY [-−]?\d+[.,]\d)1" $1 $2 fen
  75. "(CNY [-−]?\d+[.,]\d)(\d)" $1 $2 fenów
  76. "(([A-Z]{3}) [-−]?\d+)[.,](01)" $1 |$(1)$(\2:ss)
  77. "(([A-Z]{3}) [-−]?\d+)[.,]([02-9][234])" $1 |$3$(\2:sp)
  78. "(([A-Z]{3}) [-−]?\d+)[.,](\d)" $1 |$(\30)$(\2:sg)
  79. "(([A-Z]{3}) [-−]?\d+)[.,](\d\d)" $1 |$3$(\2:sg)
  80. == ordinal(-masculine)? ==
  81. ([-−]?\d+) $(ordinal |$2)
  82. "(.*)siąt (.*)" $(ordinal \2siąty \3)
  83. "(.*)eści (.*)" $(ordinal \2esty \3)
  84. "(.*)dwadzieścia (.*)" $(ordinal \2dwudziesty \3)
  85. (.*)dwadzieścia \2dwudziesty
  86. (.*)jeden \2pierwszy
  87. (.*)dwa \2drugi
  88. (.*)trzy \2trzeci
  89. (.*)cztery \2czwarty
  90. (.*)pięć \2piąty
  91. (.*)sześć \2szósty
  92. (.*)siedem \2siódmy
  93. (.*)osiem \2ósmy
  94. (.*)dziewięć \2dziewiąty
  95. (.*)dziesięć \2dziesiąty
  96. (.*)jedenaście \2jedenasty
  97. (.*)dwanaście \2dwunasty
  98. (.*)dwieście \2dwusetny
  99. (.*)siąt \2siąty
  100. (.*)trzysta \2trzechsetny
  101. (.*)czterysta \2czterechsetny
  102. (.*)ści[ea] \2sty
  103. (.*)eści \2esty
  104. (.*)(sto|set) \2setny
  105. "(.*)dwa tysiące" \2dwutysięczny
  106. "(.*)pięć tysięcy" \2pięciotysięczny
  107. "(.*)sto tysięcy" \2stutysięczny
  108. "(.*) (tysi[ąę]c[ey]?)" \2tysięczny
  109. (.*)tysiąc \2tysięczny
  110. (.*(on|ard))(y|ów)? \2owy
  111. == ordinal-feminine ==
  112. ([-−]?\d+) $(ordinal-feminine $(ordinal |$1))
  113. "(.*)[yi] (.*)" $(ordinal-feminine \1a \2)
  114. (.*)[yi] \1a
  115. == ordinal-neuter ==
  116. ([-−]?\d+) $(ordinal-neuter $(ordinal |$1))
  117. "(.*)[yi] (.*)" $(ordinal-neuter \1e \2)
  118. (.*)[yi] \1e
  119. == ordinal-number ==
  120. (\d+) \1.
  121. == help ==
  122. "" $(1), $(2), $(3)\n$(help ordinal)$(help ordinal-number)
  123. (ordinal(-number)?) \1: $(\1 1), $(\1 2), $(\1 3)\n