mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 08:58:55 -06:00
added ExtendRon
This commit is contained in:
@@ -2,5 +2,5 @@
|
||||
--# -path=.:../abstract:../common:../prelude
|
||||
|
||||
concrete AllRon of AllRonAbs =
|
||||
LangRon, ExtraRon
|
||||
LangRon, ExtendRon
|
||||
** {} ;
|
||||
|
||||
@@ -1,3 +1,3 @@
|
||||
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