1
0
forked from GitHub/gf-rgl

added ExtendRon

This commit is contained in:
Krasimir Angelov
2023-03-16 12:03:18 +01:00
parent 1b9b15fbed
commit 69d5b80f23
3 changed files with 30 additions and 2 deletions

View File

@@ -2,5 +2,5 @@
--# -path=.:../abstract:../common:../prelude --# -path=.:../abstract:../common:../prelude
concrete AllRon of AllRonAbs = concrete AllRon of AllRonAbs =
LangRon, ExtraRon LangRon, ExtendRon
** {} ; ** {} ;

View File

@@ -1,3 +1,3 @@
abstract AllRonAbs = abstract AllRonAbs =
Lang, ExtraRonAbs Lang, Extend
** {} ; ** {} ;

28
src/romanian/ExtendRon.gf Normal file
View File

@@ -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
} ;
}