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

(Pes) Fix appComp's behaviour with prepositions that take ezafe

Browse Source 
Co-Authored-By: Nasrin M <Nasrin63@users.noreply.github.com>
This commit is contained in:
Inari Listenmaa
2019-04-25 11:20:37 +02:00
parent 0d5cd13aea
commit 5b8303aa57
2 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/persian/MorphoPes.gf
View File

@@ -25,6 +25,10 @@ oper
-- fatha : Str = "َ" ; -- fatha : Str = "َ" ;
kasre,fatha : Str = [] ; kasre,fatha : Str = [] ;
-- for appComp
-- runtimeKasre : Str -> Str = \s -> glue s kasre ;
runtimeKasre : Str -> Str = \s -> s ;
---- Nouns ---- Nouns
param param

4
src/persian/ResPes.gf
View File

@@ -149,7 +149,9 @@ oper
-- VP complementation -- VP complementation
--------------------- ---------------------
appComp : Compl -> (Mod=>Str) -> Str = \c2,obj -> appComp : Compl -> (Mod=>Str) -> Str = \c2,obj ->
c2.s ++ obj ! c2.mod ++ c2.ra ; case c2.mod of {
Ezafe => runtimeKasre c2.s ++ obj ! Bare ++ c2.ra ;
_ => c2.s ++ obj ! c2.mod ++ c2.ra } ;
insertComp : (Agr => Str) -> VPH -> VPH = \obj,vp -> vp ** { insertComp : (Agr => Str) -> VPH -> VPH = \obj,vp -> vp ** {
comp = \\a => vp.comp ! a ++ obj ! a comp = \\a => vp.comp ! a ++ obj ! a