1
0
forked from GitHub/gf-core

added the rest of Romanian :-)

This commit is contained in:
krasimir
2009-09-10 17:23:29 +00:00
parent be3dc0ef9e
commit 7a13751a10
21 changed files with 2571 additions and 630 deletions

View File

@@ -0,0 +1,30 @@
incomplete concrete AdverbRon of Adverb =
CatRon ** open ResRon, Prelude in {
lin
PositAdvAdj a = {
s = a.s ! AA
} ;
ComparAdvAdj cadv a np = {
s = cadv.s ++ a.s ! AA ++ cadv.p ++ (np.s ! No).comp
} ;
ComparAdvAdjS cadv a s = {
s = cadv.s ++ a.s ! AA ++ cadv.p ++ s.s ! Indic
} ;
PrepNP prep np = {s = case prep.needIndef of
{False => prep.s ++ (np.s ! prep.c).comp;
_ => prep.s ++ np.indForm}
};
AdAdv ada adv = {s = ada.s ++ adv.s } ;
SubjS subj s = {
s = subj.s ++ s.s ! Indic
} ;
AdnCAdv cadv = {s = cadv.s ++ conjThan} ;
-- doesn't yield to a correct form for more_CAdv
}