diff --git a/src/romanian/AllRon.gf b/src/romanian/AllRon.gf index 041d8a927..244ca55f5 100644 --- a/src/romanian/AllRon.gf +++ b/src/romanian/AllRon.gf @@ -2,5 +2,5 @@ --# -path=.:../abstract:../common:../prelude concrete AllRon of AllRonAbs = - LangRon, ExtraRon + LangRon, ExtendRon ** {} ; diff --git a/src/romanian/AllRonAbs.gf b/src/romanian/AllRonAbs.gf index 583d9f026..653b26abc 100644 --- a/src/romanian/AllRonAbs.gf +++ b/src/romanian/AllRonAbs.gf @@ -1,3 +1,3 @@ abstract AllRonAbs = - Lang, ExtraRonAbs + Lang, Extend ** {} ; diff --git a/src/romanian/ExtendRon.gf b/src/romanian/ExtendRon.gf new file mode 100644 index 000000000..340538bf0 --- /dev/null +++ b/src/romanian/ExtendRon.gf @@ -0,0 +1,28 @@ +--# -path=.:../common:../abstract + +concrete ExtendRon of Extend = + CatRon ** ExtendFunctor - [PassVPSlash, GivenName, MaleSurname, FemaleSurname, FullName] + with + (Grammar = GrammarRon) ** + open ResRon in { + +lin iFem_Pron = mkPronoun "eu" "mine" "mie" [] [] "meu" "mea" "mei" "mele" Fem Sg P1 ; + youFem_Pron = mkPronoun "tu" "tine" "ţie" [] "tu" "tău" "ta" "tăi" "tale" Fem Sg P2 ; + youPlFem_Pron = mkPronoun "voi" "voi" "vouă" [] "voi" "vostru" "voastră" "voştri" "voastre" Fem Pl P2 ; + youPolFem_Pron = + let dvs = mkPronoun "dumneavoastră" "dumneavoastră" "dumneavoastră" [] "dumneavoastră" "dumneavoastră" "dumneavoastră" "dumneavoastră" "dumneavoastră" Fem Pl P2 + in {s = dvs.s; c1 = dvs.c1; + c2 = dvs.c2; a = dvs.a; isPol = True; poss = dvs.poss} ; + +-- KA: derived from PassV2, objects are ignored +lin PassVPSlash vps = insertSimpObj (\\a => vps.s ! PPasse a.g a.n Indef ANomAcc) auxPassive ** {lock_VP = <>}; + +lin GivenName, MaleSurname, FemaleSurname = \n -> n ; +lin FullName gn sn = { -- KA: guessed + s = \\c => gn.s ! No ++ sn.s ! c ; + g = gn.g ; + n = gn.n ; + a = gn.a + } ; + +}