GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-10 11:42:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Latvian RG: approaching RGL API

Browse Source
This commit is contained in:
normundsg
2011-12-19 06:03:21 +00:00
parent 342ba2e070
commit d00b425206
39 changed files with 1324 additions and 90521 deletions
Download Patch File Download Diff File Expand all files Collapse all files

194
lib/src/latvian/NumeralLav.gf
View File

@@ -1,111 +1,117 @@
concrete NumeralLav of Numeral = CatLav ** open ResLav, ParadigmsLav in {
flags
--# -path=.:../abstract:../common:../prelude
concrete NumeralLav of Numeral = CatLav ** open
ResLav,
ParadigmsLav
in {
flags
coding = utf8 ;
{-
lincat
Digit = {s : DForm => CardOrd => Case => Str} ;
Sub10 = {s : DForm => CardOrd => Case => Str ; n : Number} ;
Sub100 = {s : CardOrd => Case => Str ; n : Number} ;
Sub1000 = {s : CardOrd => Case => Str ; n : Number} ;
Sub1000000 = {s : CardOrd => Case => Str ; n : Number} ;
-}
lincat --TODO - formas, kas pieprasa ģenitīvu - tūkstotis grāmatu, trīs simti meiteņu
Digit = {s : DForm => CardOrd => Gender => Case => Str} ;
Sub10 = {s : CardOrd => Gender => Case => Str ; n : Number};
Sub100 = {s : CardOrd => Gender => Case => Str ; n : Number};
Sub1000 = {s : CardOrd => Gender => Case => Str ; n : Number};
Sub1000000 = {s : CardOrd => Gender => Case => Str ; n : Number};
lincat
-- TODO: formas, kas pieprasa ģenitīvu - tūkstotis grāmatu, trīs simti meiteņu
Digit = { s : DForm => CardOrd => Gender => Case => Str } ;
Sub10 = { s : CardOrd => Gender => Case => Str ; n : Number } ;
Sub100 = { s : CardOrd => Gender => Case => Str ; n : Number } ;
Sub1000 = { s : CardOrd => Gender => Case => Str ; n : Number } ;
Sub1000000 = { s : CardOrd => Gender => Case => Str ; n : Number } ;
lin
num x = x;
n2 = mkNum "divi" "otrais" Pl;
n3 = let trijs = mkNumSpec "trijs" "trešais" "trīs" "trīs" Pl in {
s = \\f, o, g, c => case <f, o, g, c> of {
<unit, NCard, _, Nom> => "trīs";
<unit, NCard, _, Dat> => "trim";
<unit, NCard, _, Loc> => "trīs";
_ => trijs.s ! f ! o ! g ! c
}
} | {
s = \\f, o, g, c => case <f, o, g, c> of {
<unit, NCard, _, Nom> => "trīs";
_ => trijs.s ! f ! o ! g ! c
}
};
n4 = mkNum "četri" "ceturtais" Pl;
n5 = mkNum "pieci" "piektais" Pl;
n6 = mkNum "seši" "sestais" Pl;
n7 = mkNum "septiņi" "septītais" Pl;
n8 = mkNum "astoņi" "astotais" Pl;
n9 = mkNum "deviņi" "devītais" Pl;
pot01 = {s = viens.s ! unit} ** {n = Sg} ;
pot0 d = {s = d.s ! unit} ** {n = Pl} ;
pot110 = {s = viens.s ! ten} ** {n = Pl} ;
pot111 = {s = viens.s ! teen} ** {n = Pl} ;
pot1to19 d = {s = d.s ! teen} ** {n = Pl} ;
num x = x ;
n2 = mkNum "divi" "otrais" Pl ;
n3 =
let trijs = mkNumSpec "trijs" "trešais" "trīs" "trīs" Pl
in {
s = \\f,o,g,c => case <f, o, g, c> of {
<unit, NCard, _, Nom> => "trīs" ;
<unit, NCard, _, Dat> => "trim" ;
<unit, NCard, _, Loc> => "trīs" ;
_ => trijs.s ! f ! o ! g ! c
}
} | {
s = \\f,o,g,c => case <f, o, g, c> of {
<unit, NCard, _, Nom> => "trīs" ;
_ => trijs.s ! f ! o ! g ! c
}
} ;
n4 = mkNum "četri" "ceturtais" Pl ;
n5 = mkNum "pieci" "piektais" Pl ;
n6 = mkNum "seši" "sestais" Pl ;
n7 = mkNum "septiņi" "septītais" Pl ;
n8 = mkNum "astoņi" "astotais" Pl ;
n9 = mkNum "deviņi" "devītais" Pl ;
pot01 = { s = viens.s ! unit } ** { n = Sg } ;
pot0 d = { s = d.s ! unit } ** { n = Pl } ;
pot110 = { s = viens.s ! ten } ** { n = Pl } ;
pot111 = { s = viens.s ! teen } ** { n = Pl } ;
pot1to19 d = { s = d.s ! teen } ** { n = Pl } ;
pot0as1 n = { s = n.s ; n = n.n } ;
pot1 d = {s = d.s ! ten} ** {n = Pl} ;
pot1plus d e = {s = \\o, g, c => d.s ! ten ! NCard ! Masc ! Nom ++ e.s ! o ! g ! c; n = e.n} ;
pot1 d = { s = d.s ! ten } ** { n = Pl } ;
pot1plus d e = {
s = \\o,g,c => d.s ! ten ! NCard ! Masc ! Nom ++ e.s ! o ! g ! c ;
n = e.n
} ;
pot1as2 n = n ;
pot2 d = { s = \\o,g,c => d.s ! NCard ! Masc ! Nom ++ simts ! o ! g ! d.n ! c; n = Pl} ; --FIXME - nav īsti labi, kārtas skaitlim ir jābūt 'trīssimtais' utml
pot2plus d e = { s = \\o,g,c => d.s ! NCard ! Masc ! Nom ++ simts ! NCard ! Masc ! d.n ! Nom ++ e.s ! o ! g ! c; n = e.n} ;
-- FIXME: nav īsti labi, kārtas skaitlim ir jābūt 'trīssimtais' utml
pot2 d = {
s = \\o,g,c => d.s ! NCard ! Masc ! Nom ++ simts ! o ! g ! d.n ! c ;
n = Pl
} ;
pot2plus d e = {
s = \\o,g,c => d.s ! NCard ! Masc ! Nom ++ simts ! NCard ! Masc ! d.n ! Nom ++ e.s ! o ! g ! c ;
n = e.n
} ;
pot2as3 n = n ;
pot3 d = { s = \\o,g,c => d.s ! NCard ! Masc ! Nom ++ tuukstotis ! o ! g ! d.n ! c; n = Pl} ;
pot3plus d e ={ s = \\o,g,c => d.s ! NCard ! Masc ! Nom ++ tuukstotis ! NCard ! Masc ! d.n ! Nom ++ e.s ! o ! g ! c; n = e.n} ;
{-
pot3 d = {
s = \\o,g,c => d.s ! NCard ! Masc ! Nom ++ tuukstotis ! o ! g ! d.n ! c ;
n = Pl
} ;
lin pot01 = mkNum "one" "eleven" "ten" "first" ** {n = Sg} ;
lin pot0 d = d ** {n = Pl} ;
lin pot110 = regCardOrd "ten" ** {n = Pl} ;
lin pot111 = regCardOrd "eleven" ** {n = Pl} ;
lin pot1to19 d = {s = d.s ! teen} ** {n = Pl} ;
lin pot0as1 n = {s = n.s ! unit} ** {n = n.n} ;
lin pot1 d = {s = d.s ! ten} ** {n = Pl} ;
lin pot1plus d e = {
s = \\o,c => d.s ! ten ! NCard ! Nom ++ "-" ++ e.s ! unit ! o ! c ; n = Pl} ;
lin pot1as2 n = n ;
lin pot2 d = {s = \\o,c => d.s ! unit ! NCard ! Nom ++ mkCard o "hundred" ! c} ** {n = Pl} ;
lin pot2plus d e = {
s = \\o,c => d.s ! unit ! NCard ! Nom ++ "hundred" ++ "and" ++ e.s ! o ! c ; n = Pl} ;
lin pot2as3 n = n ;
lin pot3 n = {
s = \\o,c => n.s ! NCard ! Nom ++ mkCard o "thousand" ! c ; n = Pl} ;
lin pot3plus n m = {
s = \\o,c => n.s ! NCard ! Nom ++ "thousand" ++ m.s ! o ! c; n = Pl} ;
-}
pot3plus d e = {
s = \\o,g,c => d.s ! NCard ! Masc ! Nom ++ tuukstotis ! NCard ! Masc ! d.n ! Nom ++ e.s ! o ! g ! c ;
n = e.n
} ;
-- numerals as sequences of digits
-- Numerals as sequences of digits:
lincat
Dig = {n : Number; s : CardOrd => Str };
lincat
Dig = { n : Number ; s : CardOrd => Str } ;
lin
IDig d = d ;
lin
IDig d = d ;
IIDig d i = {
s = \\o => d.s ! NCard ++ i.s ! o ;
n = Pl ; --FIXME 1 cilvēks 11 cilvēki 21 cilvēks ...
} ;
IIDig d i = {
s = \\o => d.s ! NCard ++ i.s ! o ;
n = Pl ; -- FIXME: 1 cilvēks, 11 cilvēki, 21 cilvēks, ...
} ;
D_0 = mkDig "0" ;
D_1 = mk2Dig "1" Sg ;
D_2 = mkDig "2" ;
D_3 = mkDig "3" ;
D_4 = mkDig "4" ;
D_5 = mkDig "5" ;
D_6 = mkDig "6" ;
D_7 = mkDig "7" ;
D_8 = mkDig "8" ;
D_9 = mkDig "9" ;
D_0 = mkDig "0" ;
D_1 = mk2Dig "1" Sg ;
D_2 = mkDig "2" ;
D_3 = mkDig "3" ;
D_4 = mkDig "4" ;
D_5 = mkDig "5" ;
D_6 = mkDig "6" ;
D_7 = mkDig "7" ;
D_8 = mkDig "8" ;
D_9 = mkDig "9" ;
oper
mkDig : Str -> Dig = \c -> mk2Dig c Pl ;
oper
mkDig : Str -> Dig = \c -> mk2Dig c Pl ;
mk2Dig : Str -> Number -> Dig = \c,n -> lin Dig {
s = table {NCard => c ; NOrd => c+"."} ;
n = n
} ;
mk2Dig : Str -> Number -> Dig = \c,n -> lin Dig {
s = table { NCard => c ; NOrd => c + "." } ;
n = n
} ;
}