GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-07 18:22: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

24
lib/src/latvian/AdverbLav.gf
View File

@@ -1,20 +1,26 @@
concrete AdverbLav of Adverb = CatLav ** open ResLav, Prelude in {
{-
lin
PositAdvAdj a = {s = a.s ! AAdv} ;
PositAdvAdj a = {s = a.s ! (AAdv Posit)} ;
ComparAdvAdj cadv a np = {
s = cadv.s ++ a.s ! AAdv ++ cadv.p ++ np.s ! Nom
s = cadv.s ++ a.s ! (AAdv cadv.d) ++ cadv.p ++ np.s ! Nom -- TODO vajag arî 'âtrâks par Jâni' un 'âtrâks nekâ Jânis' pie more_CAdv
-- TODO - vai te tieðâm veido 'âtrâk par Jâni', kas ir pareizais adverbs? nevis 'âtrâks par jâni'...
} ;
ComparAdvAdjS cadv a s = {
s = cadv.s ++ a.s ! AAdv ++ cadv.p ++ s.s
} ;
s = cadv.s ++ a.s ! (AAdv cadv.d) ++ cadv.p ++ s.s
} ;
PrepNP prep np = {s = prep.s ++ np.s ! Acc} ;
PrepNP prep np = {s = prep.s ++ np.s ! (prep.c ! (fromAgr np.a).n)} ; --FIXME - postpozîcijas prievârdi
AdAdv = cc2 ;
SubjS = cc2 ;
AdnCAdv cadv = {s = cadv.s ++ cadv.p} ;
-}
AdnCAdv cadv = {
s = case cadv.d of {
Posit => cadv.s ++ cadv.p;
_ => NON_EXISTENT
}
};
}