lt.sor 8.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216
  1. ^0 nulis
  2. 1 vienas
  3. 2 du
  4. 3 trys
  5. 4 keturi
  6. 5 penki
  7. 6 šeši
  8. 7 septyni
  9. 8 aštuoni
  10. 9 devyni
  11. 10 dešimt
  12. 11 vienuolika
  13. 12 dvylika
  14. 13 trylika
  15. 14 keturiolika
  16. 15 penkiolika
  17. 16 šešiolika
  18. 17 septyniolika
  19. 18 aštuoniolika
  20. 19 devyniolika
  21. 2(\d) dvidešimt[ $1]
  22. 3(\d) trisdešimt[ $1]
  23. ([4-9])(\d) $1|asdešimt[ $2]
  24. 1(\d\d) vienas šimtas[ $1]
  25. ([2-9])(\d\d) $1 šimtai[ $2]
  26. 1(\d{3}) vienas tūkstantis[ $1]
  27. (\d?1\d|\d?\d?0)(\d{3}) $1 tūkstančių[ $2]
  28. (\d?\d1)(\d{3}) $1 tūkstantis[ $2]
  29. (\d{1,3})(\d{3}) $1 tūkstančiai[ $2]
  30. (\d?1\d|\d?\d?0)(\d{6}) $1 milijonų[ $2]
  31. (\d?\d?1)(\d{6}) $1 milijonas[ $2]
  32. (\d{1,3})(\d{6}) $1 milijonai[ $2]
  33. (\d?1\d|\d?\d?0)(\d{9}) $1 milijardų[ $2]
  34. (\d?\d?1)(\d{9}) $1 milijardas[ $2]
  35. (\d{1,3})(\d{9}) $1 milijardai[ $2]
  36. (\d?1\d|\d?\d?0)(\d{12}) $1 trilijonų[ $2]
  37. (\d?\d?1)(\d{12}) $1 trilijonas[ $2]
  38. (\d{1,3})(\d{12}) $1 trilijonai[ $2]
  39. (\d?1\d|\d?\d?0)(\d{15}) $1 kvadrilijonų[ $2]
  40. (\d?\d?1)(\d{15}) $1 kvadrilijonas[ $2]
  41. (\d{1,3})(\d{15}) $1 kvadrilijonai[ $2]
  42. (\d?1\d|\d?\d?0)(\d{18}) $1 kvintilijonų[ $2]
  43. (\d?\d?1)(\d{18}) $1 kvintilijonas[ $2]
  44. (\d{1,3})(\d{18}) $1 kvintilijonai[ $2]
  45. # negative numbers
  46. [-−](\d+) minus |$1
  47. # decimals
  48. # before delimiter
  49. ([-−]?(1|\d*[02-9]1))[.,] $1| sveikas
  50. ([-−]?\d*[2-9])[.,] $1| sveiki
  51. (0|[-−]?\d*(1[1-9]|[1-9]0))[.,] $1| sveikų
  52. # atfer delimiter
  53. "([-−]?\d+[.,])(1)" $1| ir |$(f:$2) dešimtoji
  54. "([-−]?\d+[.,])([2-9])" $1| ir |$(f:$2) dešimtosios
  55. "([-−]?\d+[.,])([02-9]1)" $1| ir |$(f:$2) šimtoji
  56. "([-−]?\d+[.,])(1[1-9]|[1-9]0)" $1| ir |$(f:$2) šimtųjų
  57. "([-−]?\d+[.,])([02-9][2-9])" $1| ir |$(f:$2) šimtosios
  58. "([-−]?\d+[.,])(\d[02-9]1)" $1| ir |$(f:$2) tūkstantoji
  59. "([-−]?\d+[.,])(\d1[1-9]|[1-9]0)" $1| ir |$(f:$2) tūkstantųjų
  60. "([-−]?\d+[.,])(\d[02-9][2-9])" $1| ir |$(f:$2) tūkstantosios
  61. # female conversion
  62. f:(.*)as \1a
  63. f:(.*)du \1dvi
  64. f:(.*)i \1ios
  65. f:(.*) \1
  66. # currency
  67. # unit/subunit singular/plural_a/plural_b
  68. us:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \1
  69. upa:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \2
  70. upb:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \3
  71. ss:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \4
  72. spa:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \5
  73. spb:([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*) \6
  74. AUD:(\D+) $(\1: Australijos doleris, Australijos dolerių, Australijos doleriai, centas, centų, centai)
  75. BGN:(\D+) $(\1: levas, levų, levai, stotinka, stotinkų, stotinkos)
  76. CAD:(\D+) $(\1: Kanados doleris, Kanados dolerių, Kanados doleriai, centas, centų, centai)
  77. CHF:(\D+) $(\1: Šveicarijos frankas, Šveicarijos frankų, Šveicarijos frankai, santimas, santimų, santimai)
  78. CZK:(\D+) $(\1: Čekijos krona, Čekijos kronų, Čekijos kronos, heleris, helerių, heleriai)
  79. EEK:(\D+) $(\1: Estijos krona, Estijos kronų, Estijos kronos, sentas, sentų, sentai)
  80. EUR:(\D+) $(\1: euras, eurų, eurai, euro centas, euro centų, euro centai)
  81. GBP:(\D+) $(\1: svaras sterlingų, svarų sterlingų, svarai sterlingų, pensas, pensų, pensai)
  82. GHS:(\D+) $(\1: sedis, sedžių, sedžiai, peseva, pesevų, pesevos)
  83. HKD:(\D+) $(\1: Honkongo doleris, Honkongo dolerių, Honkongo doleriai, centas, centų, centai)
  84. HRK:(\D+) $(\1: kuna, kunų, kunos, lipa, lipų, lipos)
  85. HUF:(\D+) $(\1: forintas, forintų, forintai, fileris, filerių, fileriai)
  86. INR:(\D+) $(\1: Indijos rupija, Indijos rupijų, Indijos rupijos, paisa, paisų, paisos)
  87. JMD:(\D+) $(\1: Jamaikos doleris, Jamaikos dolerių, Jamaikos doleriai, centas, centų, centai)
  88. KES:(\D+) $(\1: Kenijos šilingas, Kenijos šilingų, Kenijos šilingai, centas, centų, centai)
  89. LRD:(\D+) $(\1: Liberijos doleris, Liberijos dolerių, Liberijos doleriai, centas, centų, centai)
  90. LTL:(\D+) $(\1: litas, litų, litai, centas, centų, centai)
  91. LVL:(\D+) $(\1: lats, lati, santims, santimi)
  92. MUR:(\D+) $(\1: Mauricijaus rupija, Mauricijaus rupijų, Mauricijaus rupijos, centas, centų, centai)
  93. MXN:(\D+) $(\1: Meksikos pesas, Meksikos pesų, Meksikos pesai, sentavas, sentavų, sentavai)
  94. MWK:(\D+) $(\1: Malavio kvača, Malavio kvačų, Malavio kvačos, tambala, tambalų, tambalos)
  95. NAD:(\D+) $(\1: Namibijos doleris, Namibijos dolerių, Namibijos doleriai, centas, centų, centai)
  96. NGN:(\D+) $(\1: naira, nairų, nairos, koba, kobų, kobos)
  97. NOK:(\D+) $(\1: Norvegijos krona, Norvegijos kronų, Norvegijos kronos, erė, erių, erės)
  98. NZD:(\D+) $(\1: Naujosios Zelandijos doleris, Naujosios Zelandijos dolerių, Naujosios Zelandijos doleriai, centas, centų, centai)
  99. PGK:(\D+) $(\1: kina, kinų, kinos, toja, tojų, tojos)
  100. PHP:(\D+) $(\1: Filipinų pesas, Filipinų pesų, Filipinų pesai, sentimas, sentimų, sentimai)
  101. PKR:(\D+) $(\1: Pakistano rupija, Pakistano rupijų, Pakistano rupijos, paisa, paisų, paisos)
  102. PLN:(\D+) $(\1: zlotas, zlotų, zlotai, grašis, grašių, grašiai)
  103. RON:(\D+) $(\1: Rumunijos lėja, Rumunijos lėjų, Rumunijos lėjos, banas, banų, banai)
  104. RSD:(\D+) $(\1: Serbijos dinaras, Serbijos dinarų, Serbijos dinarai, paras, parų, parai)
  105. RUB:(\D+) $(\1: Rusijos rublis, Rusijos rublių, Rusijos rubliai, kapeika, kapeikų, kapeikos)
  106. RWF:(\D+) $(\1: Ruandos frankas, Ruandos frankų, Ruandos frankai, sentimas, sentimų, sentimai)
  107. SDG:(\D+) $(\1: Sudano svaras, Sudano svarų, Sudano svarai, piastras, piastrų, piastrai)
  108. SEK:(\D+) $(\1: Švedijos krona, Švedijos kronų, Švedijos kronos, erė, erių, erės)
  109. SGD:(\D+) $(\1: Singapūro doleris, Singapūro dolerių, Singapūro doleriai, centas, centų, centai)
  110. SLL:(\D+) $(\1: leonė, leonių, leonės, centas, centų, centai)
  111. THB:(\D+) $(\1: Tailando batas, Tailando batų, Tailando batai, satangas, satangų, satangai)
  112. TRY:(\D+) $(\1: Turkijos lira, Turkijos lirų, Turkijos liros, kurušas, kurušų, kurušai)
  113. TTD:(\D+) $(\1: Trinidado ir Tobago doleris, Trinidado ir Tobago dolerių, Trinidado ir Tobago doleriai, centas, centų, centai)
  114. TZS:(\D+) $(\1: Tanzanijos šilingas, Tanzanijos šilingų, Tanzanijos šilingai, centas, centų, centai)
  115. UAH:(\D+) $(\1: grivina, grivinų, grivinos, kapeika, kapeikų, kapeikos)
  116. UGX:(\D+) $(\1: Ugandos šilingas, Ugandos šilingų, Ugandos šilingai, centas, centų, centai)
  117. USD:(\D+) $(\1: JAV doleris, JAV dolerių, JAV doleriai, centas, centų, centai)
  118. ZAR:(\D+) $(\1: Pietų Afrikos randas, Pietų Afrikos randų, Pietų Afrikos randai, centas, centų, centai)
  119. ZMK:(\D+) $(\1: Zambijos kvača, Zambijos kvačų, Zambijos kvačos, ngvi, ngvių, ngvės)
  120. ZWL:(\D+) $(\1: Zimbabvės doleris, Zimbabvės dolerių, Zimbabvės doleriai, centas, centų, centai)
  121. # female gender
  122. # before delimiter
  123. "(CZK|EEK|HRK|INR|MUR|MWK|NGN|NOK|PGK|PKR|RON|SEK|SLL|TRY|UAH|ZMK) ([-−]?(1|\d*[02-9]1))([.,]00?)?" $(f:$2)|$(\1:us) # 1| *01| *21 ...
  124. "(CZK|EEK|HRK|INR|MUR|MWK|NGN|NOK|PGK|PKR|RON|SEK|SLL|TRY|UAH|ZMK) ([-−]?(0|\d*(1[1-9]|[01-9]0)))([.,]00?)?" $2|$(\1:upa) # 0 | *11| *19| *10| *30 ...
  125. "(CZK|EEK|HRK|INR|MUR|MWK|NGN|NOK|PGK|PKR|RON|SEK|SLL|TRY|UAH|ZMK) ([-−]?\d*[2-9])([.,]00?)?" $(f:$2)|$(\1:upb) # *2| *8 ...
  126. # atfer delimiter
  127. "((BGN|GHS|HRK|INR|MWK|NGN|NOK|PGK|PKR|SEK|RUB|UAH|ZMK) [-−]?\d+)[.,](0+)" $1| # 0, 00
  128. "((BGN|GHS|HRK|INR|MWK|NGN|NOK|PGK|PKR|SEK|RUB|UAH|ZMK) [-−]?\d+)[.,]([02-9]1)" $1| ir |$(f:$3)|$(\2:ss) # 1, 21, 31, ..., 91
  129. "((BGN|GHS|HRK|INR|MWK|NGN|NOK|PGK|PKR|SEK|RUB|UAH|ZMK) [-−]?\d+)[.,](\d)" $1| ir |$(\30)$(\2:spa) # *,x conversion to *,x0
  130. "((BGN|GHS|HRK|INR|MWK|NGN|NOK|PGK|PKR|SEK|RUB|UAH|ZMK) [-−]?\d+)[.,](1[0-9]|[2-9]0)" $1| ir |$3|$(\2:spa) # 10-19, 20, 30, ..., 90
  131. "((BGN|GHS|HRK|INR|MWK|NGN|NOK|PGK|PKR|SEK|RUB|UAH|ZMK) [-−]?\d+)[.,](\d\d)" $1| ir |$(f:$3)$(\2:spb) # all the rest
  132. # male gender (all except female gender filter matches)
  133. # before delimiter
  134. "([A-Z]{3}) ([-−]?(1|\d*[02-9]1))([.,]00?)?" $2|$(\1:us)
  135. "([A-Z]{3}) ([-−]?0|\d*(1[1-9]|[01-9]0))([.,]00?)?" $2|$(\1:upa)
  136. "([A-Z]{3}) ([-−]?\d*[2-9])([.,]00?)?" $2|$(\1:upb)
  137. # atfer delimiter
  138. "(([A-Z]{3}) [-−]?\d+)[.,]([02-9]1)" $1| ir |$3|$(\2:ss)
  139. "(([A-Z]{3}) [-−]?\d+)[.,](\d)" $1| ir |$(\30)$(\2:spa)
  140. "(([A-Z]{3}) [-−]?\d+)[.,](1[0-9]|[2-9]0)" $1| ir |$3|$(\2:spa)
  141. "(([A-Z]{3}) [-−]?\d+)[.,](\d\d)" $1| ir |$3$(\2:spb)
  142. == feminine ==
  143. ([-−]?\d+) $(feminine $1)
  144. (.*)vienas \1viena
  145. (.*)du \1dvi
  146. (.*)i \1ios
  147. == masculine ==
  148. ([-−]?\d+) $1
  149. == ordinal ==
  150. ([-−]?\d+) $(ordinal $1)
  151. (.*)vienas \1pirmas
  152. (.*)du \1antras
  153. (.*)trys \1trečias
  154. (.*)keturi \1ketvirtas
  155. (.*)penki \1penktas
  156. (.*)šeši \1šeštas
  157. (.*)septyni \1septintas
  158. (.*)aštuoni \1aštuntas
  159. (.*)devyni \1devintas
  160. (.*)dešimt \1dešimtas
  161. (.*)lika \1liktas
  162. (.*)šimt \1šimtas
  163. (.*) \1 # FIXME (tūkstančių etc.)
  164. == ordinal-masculine ==
  165. ([-−]?\d+) $(ordinal $1)
  166. == ordinal-feminine ==
  167. ([-−]?\d+) $(ordinal-feminine $(ordinal $1))
  168. (.*)tasis \1toji
  169. (.*)s \1
  170. (.*) \1 # FIXME (tūkstančių etc.)
  171. == ordinal-number(-masculine)? ==
  172. ((\d*[02-9])?3) \2-ias # ends in 3 but not 13
  173. (\d+) \2-as
  174. == ordinal-number-feminine ==
  175. ((\d*[02-9])?3) \1-ia
  176. (\d+) \1-a
  177. == help ==
  178. "" $(help feminine)$(help masculine)$(help ordinal-feminine)$(help ordinal-masculine)$(help ordinal-number-feminine)$(help ordinal-number-masculine)
  179. (feminine|masculine|ordinal(-feminine|-masculine|-number|-number-masculine|-number-feminine)?) \1: $(\1 1), $(\1 2), $(\1 3)\n