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

(Pes) Fix also ExtraPes

Browse Source
This commit is contained in:
Inari Listenmaa
2019-02-20 17:39:41 +01:00
parent 49fe707af9
commit f8689eea04
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/persian/ExtraPes.gf
View File

@@ -1,19 +1,19 @@
concrete ExtraPes of ExtraPesAbs = CatPes ** concrete ExtraPes of ExtraPesAbs = CatPes **
open ResPes, Coordination, Prelude, MorphoPes, ParadigmsPes in { open ResPes, Coordination, Prelude, MorphoPes, ParadigmsPes in {
flags coding = utf8; flags coding = utf8;
lin lin
GenNP np = {s = \\_ => np.s ! Ezafe ; a = np.a ; mod = True} ; -- changed from mod=False for Phrasebook GenNP np = {s = \\_ => np.s ! Ezafe ; a = np.a ; mod = Ezafe} ; -- changed from mod=False for Phrasebook
-- each_Det = mkDet "هر کwی" "هر کwی" "هر کwی" "هر کwی" Sg ; -- each_Det = mkDet "هر کwی" "هر کwی" "هر کwی" "هر کwی" Sg ;
-- have_V = mkV "رکh-ن"; -- have_V = mkV "رکh-ن";
IAdvAdv adv = {s = "تا چه" ++ adv.s} ; IAdvAdv adv = {s = "تا چه" ++ adv.s} ;
-- ICompAP ap = {s = "کتنE" ++ ap.s ! Sg ! Masc ! Dir ! Posit} ; -- ICompAP ap = {s = "کتنE" ++ ap.s ! Sg ! Masc ! Dir ! Posit} ;
-- cost_V = mkV "قیمت" ; -- cost_V = mkV "قیمت" ;
-- added for causitives -- added for causitives
-- make_CV = mkVerb "نْتهنگ" ** {c2 = "" }; -- make_CV = mkVerb "نْتهنگ" ** {c2 = "" };
-- for VP conjunction -- for VP conjunction
} }