forked from GitHub/gf-rgl
added ExtendRon
This commit is contained in:
@@ -2,5 +2,5 @@
|
|||||||
--# -path=.:../abstract:../common:../prelude
|
--# -path=.:../abstract:../common:../prelude
|
||||||
|
|
||||||
concrete AllRon of AllRonAbs =
|
concrete AllRon of AllRonAbs =
|
||||||
LangRon, ExtraRon
|
LangRon, ExtendRon
|
||||||
** {} ;
|
** {} ;
|
||||||
|
|||||||
@@ -1,3 +1,3 @@
|
|||||||
abstract AllRonAbs =
|
abstract AllRonAbs =
|
||||||
Lang, ExtraRonAbs
|
Lang, Extend
|
||||||
** {} ;
|
** {} ;
|
||||||
|
|||||||
28
src/romanian/ExtendRon.gf
Normal file
28
src/romanian/ExtendRon.gf
Normal 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
|
||||||
|
} ;
|
||||||
|
|
||||||
|
}
|
||||||
Reference in New Issue
Block a user