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

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

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

@@ -1,26 +1,34 @@
concrete AdverbLav of Adverb = CatLav ** open ResLav, Prelude in {
--# -path=.:../abstract:../common:../prelude
lin
PositAdvAdj a = {s = a.s ! (AAdv Posit)} ;
ComparAdvAdj cadv a np = {
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.d) ++ cadv.p ++ s.s
} ;
concrete AdverbLav of Adverb = CatLav ** open
ResLav,
Prelude
in {
PrepNP prep np = {s = prep.s ++ np.s ! (prep.c ! (fromAgr np.a).n)} ; --FIXME - postpozîcijas prievârdi
flags
coding = utf8 ;
AdAdv = cc2 ;
SubjS = cc2 ;
lin
PositAdvAdj a = { s = a.s ! (AAdv Posit) } ;
-- 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'? kurš ir pareizais adverbs? nevis 'ātrāks par Jāni'?
ComparAdvAdj cadv a np = { s = cadv.s ++ a.s ! (AAdv cadv.d) ++ cadv.p ++ np.s ! Nom } ;
ComparAdvAdjS cadv a s = { s = cadv.s ++ a.s ! (AAdv cadv.d) ++ cadv.p ++ s.s } ;
-- FIXME: postpozīcijas prievārdi
PrepNP prep np = { s = prep.s ++ np.s ! (prep.c ! (fromAgr np.a).n) } ;
AdAdv = cc2 ;
SubjS = cc2 ;
AdnCAdv cadv = {
s = case cadv.d of {
Posit => cadv.s ++ cadv.p ;
_ => NON_EXISTENT
}
} ;
AdnCAdv cadv = {
s = case cadv.d of {
Posit => cadv.s ++ cadv.p;
_ => NON_EXISTENT
}
};
}