From ca83d4be7d6c614d7a1057e003b5f92740812c90 Mon Sep 17 00:00:00 2001 From: Aarne Ranta Date: Thu, 14 Sep 2017 18:03:32 +0200 Subject: [PATCH] invariable verb must_VV in persian --- src/persian/ParadigmsPes.gf | 4 +++- src/persian/StructuralPes.gf | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/src/persian/ParadigmsPes.gf b/src/persian/ParadigmsPes.gf index c7c2ebd54..65cb4784a 100644 --- a/src/persian/ParadigmsPes.gf +++ b/src/persian/ParadigmsPes.gf @@ -122,7 +122,9 @@ oper compoundV : Str -> V -> V = \s,v -> {s = \\vf => s ++ v.s ! vf ; lock_V = <>} ; compoundV : Str -> V2 -> V = \s,v -> {s = \\vf => s ++ v.s ! vf ; lock_V = <>} ; }; - + + invarV : Str -> V -- for verbs like " بایستن " ("must"), which don't inflect + = \s -> lin V {s = \\_ => s} ; ----2 Adverbs mkAdv : Str -> Adv = \str -> {s = str ; lock_Adv = <>}; diff --git a/src/persian/StructuralPes.gf b/src/persian/StructuralPes.gf index 835c5666c..67d449ef7 100644 --- a/src/persian/StructuralPes.gf +++ b/src/persian/StructuralPes.gf @@ -49,7 +49,7 @@ concrete StructuralPes of Structural = CatPes ** more_CAdv = {s = "بیشتر" ; p = "" } ; most_Predet = ss "اکثر"; much_Det = mkDet ["مقدار زیادی"] Pl ; - must_VV = mkV_1 " بایستن " ** {isAux = True} ; ---- AR + must_VV = invarV " بایستن " ** {isAux = True} ; ---- AR -- must_VV = { -- s = table { -- VVF VInf => ["هوe تْ"] ;