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

ReflRNP & ReflPron in French

Browse Source
This commit is contained in:
Krasimir Angelov
2023-11-04 15:25:17 +01:00
parent e97205e04d
commit a4237dad70
1 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/french/ExtendFre.gf
View File

@@ -4,7 +4,7 @@ concrete ExtendFre of Extend =
CatFre ** ExtendFunctor - CatFre ** ExtendFunctor -
[ [
---- iFem_Pron, youFem_Pron, weFem_Pron, youPlFem_Pron, theyFem_Pron, youPolFem_Pron, youPolPl_Pron, youPolPlFem_Pron, ---- iFem_Pron, youFem_Pron, weFem_Pron, youPlFem_Pron, theyFem_Pron, youPolFem_Pron, youPolPl_Pron, youPolPlFem_Pron,
ExistCN, ExistMassCN, ExistPluralCN, ExistCN, ExistMassCN, ExistPluralCN, RNP, ReflRNP,
PassVPSlash, PassAgentVPSlash, ApposNP, CompoundN PassVPSlash, PassAgentVPSlash, ApposNP, CompoundN
] -- put the names of your own definitions here ] -- put the names of your own definitions here
with with
@@ -19,6 +19,9 @@ concrete ExtendFre of Extend =
ParadigmsFre in { ParadigmsFre in {
-- put your own definitions here -- put your own definitions here
lincat
RNP = {s : Agr => Case => Str} ;
lin lin
ExistCN cn = ExistCN cn =
let let
@@ -43,6 +46,17 @@ lin PassVPSlash vps = passVPSlash vps [] ;
PassAgentVPSlash vps np = passVPSlash PassAgentVPSlash vps np = passVPSlash
vps (let by = <Grammar.by8agent_Prep : Prep> in by.s ++ (np.s ! by.c).ton) ; vps (let by = <Grammar.by8agent_Prep : Prep> in by.s ++ (np.s ! by.c).ton) ;
ReflRNP v rnp = -- VPSlash -> RNP -> VP ; -- love my family and myself
case v.c2.isDir of {
True => insertRefl v ;
False => insertComplement
(\\a => let agr = verbAgr a in v.c2.s ++ rnp.s ! agr ! v.c2.c) v
} ;
ReflPron = { -- RNP ; -- myself
s = \\agr,c => reflPron agr.n agr.p c
} ;
oper oper
passVPSlash : VPSlash -> Str -> VP = \vps, agent -> passVPSlash : VPSlash -> Str -> VP = \vps, agent ->
let auxvp = predV auxPassive let auxvp = predV auxPassive