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