From cf4156f29b2f28901a1759997e97a80adc9e7e2a Mon Sep 17 00:00:00 2001 From: Aarne Ranta Date: Thu, 22 Mar 2018 20:36:04 +0100 Subject: [PATCH] accessing Pes.Root1 from Cl level --- src/persian/ResPes.gf | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/src/persian/ResPes.gf b/src/persian/ResPes.gf index 3c632d90..e32b9a0b 100644 --- a/src/persian/ResPes.gf +++ b/src/persian/ResPes.gf @@ -101,6 +101,7 @@ oper | VCondSimul | VCondAnter -- subj na "I می گْ" | VVVForm -- AR 21/3/2018 for mustCl after Nasrin + | VRoot1 -- AR 22/3/2018 for mustCl past after Nasrin ; @@ -348,7 +349,8 @@ mkSlClause : NP -> VPH -> SlClause = \np,vp -> { => vp.s ! VPTense Neg (VPCond Simul) (AgPes n p) ; => vp.s ! VPTense Neg (VPCond Anter) (AgPes n p) ; -- verb form to be confirmed - <_, VVVForm> => vp.s ! VVForm (AgPes n p) -- AR 21/3/2018 + <_, VVVForm> => vp.s ! VVForm (AgPes n p) ; -- AR 21/3/2018 + <_, VRoot1> => vp.s ! VPStem1 {- ++ Predef.Bind ++ "ه" -} -- AR 22/3/2018 }; ---- VVForm (AgPes n p) => {inf = verb.s ! Vvform (AgPes n p)} ; @@ -393,7 +395,9 @@ mkSClause : Str -> AgrPes -> VPH -> Clause = \subj,agr,vp -> { False => vp.s ! VPTense Neg (VPFutr Anter) (AgPes n p) }; -- verb form need to be confirmed => vp.s ! VPTense Neg (VPCond Simul) (AgPes n p) ; => vp.s ! VPTense Neg (VPCond Anter) (AgPes n p) ; -- verb form to be confirmed - <_, VVVForm> => vp.s ! VVForm (AgPes n p) -- AR 21/3/2018 + <_, VVVForm> => vp.s ! VVForm (AgPes n p) ; -- AR 21/3/2018 + <_, VRoot1> => vp.s ! VPStem1 {- ++ Predef.Bind ++ "ه" -} -- AR 22/3/2018 + }; @@ -422,7 +426,7 @@ mkSClause : Str -> AgrPes -> VPH -> Clause = \subj,agr,vp -> { VPTense pol (VPFutr Anter) (AgPes n p) => { inf = verb.inf ! AX pol (AuxFut FtAorist) p n } ; -- this is to be confirmed VPTense pol (VPCond Simul) (AgPes n p) => { inf = verb.inf ! AX pol (AuxFut FtAorist) p n } ; VPTense pol (VPCond Anter) (AgPes n p) => { inf = verb.inf ! AX pol (AuxPast PstImperf) p n } ; - VVForm (AgPes n p) => {inf = ""} ; -- to be checked + VVForm (AgPes n p) => {inf = ""} ; -- to be checked => {inf = verb.s ! Vvform (AgPes n p)} ; VPStem1 => { inf = ""}; VPStem2 => { inf = "بود"} ; VPImp _ _ => { inf = ""} -- need to be confirmed