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

Merge pull request #236 from inariksit/persian

Browse Source 
(Pes) Generalise infVP to other non-finite verb forms
This commit is contained in:
Inari Listenmaa
2019-05-06 17:29:05 +02:00
committed by GitHub
parent ba911da6c3 31d4e5971a
commit 05eb9a0d8f
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/persian/ResPes.gf
View File

@@ -112,7 +112,10 @@ oper
} ; } ;
showVPHwithImpPrefix = showVPH' OV True VVPres ; showVPHwithImpPrefix = showVPH' OV True VVPres ;
infVP : VPH -> Str = showVPH' VO False VVPres Inf defaultAgr ; infVP = overload {
infVP : VPH -> Str = showVPH' VO False VVPres Inf defaultAgr ; -- word order VO, VerbForm infinitive
infVP : VerbForm -> VPH -> Str = \vf,vp -> showVPH' VO False VVPres vf defaultAgr vp -- VO as word order, but VerbForm can be any (e.g. present participle or perfect stem)
} ;
showVPH' : WordOrder -> Bool -> VVTense -> VerbForm -> Agr -> VPH -> Str = showVPH' : WordOrder -> Bool -> VVTense -> VerbForm -> Agr -> VPH -> Str =
\wo,showImpPref,ant,vf,agr,vp -> \wo,showImpPref,ant,vf,agr,vp ->