msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

added PassVPSlash

Browse Source
This commit is contained in:
Krasimir Angelov
2023-03-16 09:48:16 +01:00
parent 14955ff5d4
commit 1b9b15fbed
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/polish/ExtendPol.gf
View File

@@ -2,11 +2,11 @@
concrete ExtendPol of Extend = concrete ExtendPol of Extend =
CatPol ** ExtendFunctor - [ CatPol ** ExtendFunctor - [
iFem_Pron, youFem_Pron, theyFem_Pron, ProDrop iFem_Pron, youFem_Pron, theyFem_Pron, ProDrop, PassVPSlash
] ]
with with
(Grammar = GrammarPol) ** (Grammar = GrammarPol) **
open PronounMorphoPol in { open PronounMorphoPol, Prelude in {
lin iFem_Pron = pronJa FemSg ; lin iFem_Pron = pronJa FemSg ;
lin youFem_Pron = pronTy FemSg ; lin youFem_Pron = pronTy FemSg ;
@@ -37,6 +37,9 @@ oper
p = P3 p = P3
}; };
-- KA: PassVPSlash is derived from PassV2. Objects might be ignored
lin PassVPSlash vps = setImienne vps True;
lin GivenName, MaleSurname, FemaleSurname = \n -> n ; lin GivenName, MaleSurname, FemaleSurname = \n -> n ;
lin FullName gn sn = { lin FullName gn sn = {
nom = gn.nom ++ sn.nom ; nom = gn.nom ++ sn.nom ;