1
0
forked from GitHub/gf-core

fixes in the library for the implicit arguments syntax

This commit is contained in:
krasimir
2009-10-02 21:26:45 +00:00
parent 2732a7a22e
commit f05088df54

View File

@@ -15,59 +15,59 @@ lincat Sub1000000 = {s : Gender => Str} ;
lin num x = {s = table{ _ => x.s } ; n = Pl}; ---- n TODO ; Size? AR 18/12/2007
lin n2 =
{s = table {{unit} => table {{Fem} => "две" ; _ => "два"} ;
{teen} => gg "двенадцать" ;
{ten} => gg "двадцать" ;
{hund} => gg "двести"} ;
{s = table {unit => table {Fem => "две" ; _ => "два"} ;
teen => gg "двенадцать" ;
ten => gg "двадцать" ;
hund => gg "двести"} ;
size = sgg} ;
lin n3 =
{s = table {{unit} => gg "три" ;
{teen} => gg "тринадцать" ;
{ten} => gg "тридцать" ;
{hund} => gg "триста"} ;
{s = table {unit => gg "три" ;
teen => gg "тринадцать" ;
ten => gg "тридцать" ;
hund => gg "триста"} ;
size = sgg} ;
lin n4 =
{s = table {{unit} => gg "четыре" ;
{teen} => gg "четырнадцать" ;
{ten} => gg "сорок" ;
{hund} => gg "четыреста"} ;
{s = table {unit => gg "четыре" ;
teen => gg "четырнадцать" ;
ten => gg "сорок" ;
hund => gg "четыреста"} ;
size = sgg} ;
lin n5 =
{s = table {{unit} => gg "пять" ;
{teen} => gg "пятнадцать" ;
{ten} => gg "пятьдесят" ;
{hund} => gg "пятьсот"} ;
{s = table {unit => gg "пять" ;
teen => gg "пятнадцать" ;
ten => gg "пятьдесят" ;
hund => gg "пятьсот"} ;
size = plg} ;
lin n6 =
{s = table {{unit} => gg "шесть" ;
{teen} => gg "шестнадцать" ;
{ten} => gg "шестьдесят" ;
{hund} => gg "шестьсот"} ;
{s = table {unit => gg "шесть" ;
teen => gg "шестнадцать" ;
ten => gg "шестьдесят" ;
hund => gg "шестьсот"} ;
size = plg} ;
lin n7 =
{s = table {{unit} => gg "семь" ;
{teen} => gg "семнадцать" ;
{ten} => gg "семьдесят" ;
{hund} => gg "семьсот"} ;
{s = table {unit => gg "семь" ;
teen => gg "семнадцать" ;
ten => gg "семьдесят" ;
hund => gg "семьсот"} ;
size = plg} ;
lin n8 =
{s = table {{unit} => gg "восемь" ;
{teen} => gg "восемнадцать" ;
{ten} => gg "восемьдесят" ;
{hund} => gg "восемьсот"} ;
{s = table {unit => gg "восемь" ;
teen => gg "восемнадцать" ;
ten => gg "восемьдесят" ;
hund => gg "восемьсот"} ;
size = plg} ;
lin n9 =
{s = table {{unit} => gg "девять" ;
{teen} => gg "девятнадцать" ;
{ten} => gg "девяносто" ;
{hund} => gg "девятьсот"} ;
{s = table {unit => gg "девять" ;
teen => gg "девятнадцать" ;
ten => gg "девяносто" ;
hund => gg "девятьсот"} ;
size = plg} ;
lin pot01 =
{s = table {{attr} => table {{hund} => gg "сто" ; _ => gg []} ;
_ => table {{hund} => gg "сто" ;
_ => table {{Masc} => "один" ; {Fem} => "одна" ; _ => "одно"}}} ;
{s = table {attr => table {hund => gg "сто" ; _ => gg []} ;
_ => table {hund => gg "сто" ;
_ => table {Masc => "один" ; Fem => "одна" ; _ => "одно"}}} ;
size = nom} ;
lin pot0 d =
{s = table {_ => d.s} ; size = d.size} ;