GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-02 15:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

More or less complete Latvian RG (by Peteris Paikens and Normunds Gruzitis)

Browse Source
This commit is contained in:
normundsg
2011-11-07 14:21:04 +00:00
parent f87e8279bf
commit 3148e305d5
23 changed files with 1748 additions and 1077 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
lib/src/latvian/AdjectiveLav.gf
View File

@@ -1,7 +1,39 @@
concrete AdjectiveLav of Adjective = CatLav ** open ResLav, Prelude in {
{-
lin
concrete AdjectiveLav of Adjective = CatLav ** open ResLav, StructuralLav, Prelude in {
flags
coding = utf8 ;
lin
PositA a = { s = \\d,g,n,c => a.s ! (AAdj Posit d g n c) } ;
ComparA a np = { s = \\d,g,n,c => a.s ! (AAdj Compar d g n c) ++ "par" ++ np.s ! Acc ; } |
{ s = \\d,g,n,c => a.s ! (AAdj Compar d g n c) ++ "nekā" ++ np.s ! Nom ; };
UseComparA a = { s = \\d,g,n,c => a.s ! (AAdj Compar d g n c) } ;
ComplA2 a np = {
s = \\d,g,n,c => a.s ! (AAdj Posit d g n c) ++ a.p.s ++ np.s ! (a.p.c ! (fromAgr np.a).n) ;
} ;
ReflA2 a = {
s = \\d,g,n,c => a.s ! (AAdj Posit d g n c) ++ a.p.s ++ reflPron ! (a.p.c ! n) ;
} ;
AdAP ada ap = { s = \\d,g,n,c => ada.s ++ ap.s ! d ! g ! n ! c ; } ;
SentAP ap sc = { --FIXME - te vajag apstākļa vārdu nevis īpašības vārdu! Kuru nevar normāli no AP dabūt
s = \\d,g,n,c => ap.s ! d ! g ! n ! c ++ "," ++ sc.s ;
} ;
AdjOrd ord = {
s = \\d,g,n,c => ord.s ! g ! c ; --FIXME - skaitļa agreement? noteiktība?
} ;
CAdvAP cadv ap np = {
s = \\d,g,n,c => cadv.s ++ ap.s ! d ! g ! n ! c ++ cadv.p ++ np.s ! Nom ; --TODO nominatīvs var ne vienmēr būt, pie tā CAdv jāliek parametrs par locījumu
} ;
UseA2 a = {
s = \\d,g,n,c => a.s ! (AAdj Posit d g n c) ;
} ;
{-
PositA a = {
s = \\_ => a.s ! AAdj Posit Nom ;
isPre = True
@@ -35,11 +67,6 @@ concrete AdjectiveLav of Adjective = CatLav ** open ResLav, Prelude in {
isPre = False
} ;
SentAP ap sc = {
s = \\a => ap.s ! a ++ sc.s ;
isPre = False
} ;
AdAP ada ap = {
s = \\a => ada.s ++ ap.s ! a ;
isPre = ap.isPre