GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-28 20:36:29 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Pes) Add object clitics to verb phrases

Browse Source 
Co-Authored-By: Nasrin M <Nasrin63@users.noreply.github.com>
This commit is contained in:
Inari Listenmaa
2019-05-03 18:43:06 +02:00
parent e9be8e3b0d
commit 038ed0e863
8 changed files with 109 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/persian/ExtendPes.gf
+6 -6
View File
@@ -22,16 +22,16 @@ lin
ICompAP ap = {s = "چقدر" ++ ap.s ! Bare} ;
-- : VP -> CN ; -- publishing of the document (can get a determiner)
GerundCN vp = useN (indeclN (showVPH Inf defaultAgr vp)) ;
GerundCN vp = useN (indeclN (infVP vp)) ;
-- : VP -> NP ; -- publishing the document (by nature definite)
GerundNP vp = indeclNP (showVPH Inf defaultAgr vp) ;
GerundNP vp = indeclNP (infVP vp) ;
-- : VP -> Adv ; -- publishing the document (prepositionless adverb)
GerundAdv vp = lin Adv {s = showVPH Inf defaultAgr vp} ;
GerundAdv vp = lin Adv {s = infVP vp} ;
-- : VP -> SC ;
EmbedPresPart vp = lin SC {s = showVPH Inf defaultAgr vp} ;
EmbedPresPart vp = lin SC {s = infVP vp} ;
-- : SSlash -> SC
-- Not optimal: complement with آن should go after subject, but SSlash is already fixed.
@@ -47,8 +47,8 @@ lin
-- : VP -> Adv ; -- (in order) to publish the document
InOrderToVP vp = lin Adv {s = for_Prep.s
++ case vp.passive of {
Replace => showVPH PerfStem defaultAgr <vp ** {s = \\vf => []} : VP> ; -- only show prefix
++ case vp.lightverb of {
Kardan => showVPH PerfStem defaultAgr <vp ** {s = \\vf => []} : VP> ; -- only show prefix
_ => showVPH PerfStem defaultAgr vp}
} ;
}