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

invariable verb must_VV in persian

Browse Source
This commit is contained in:
Aarne Ranta
2017-09-14 18:03:32 +02:00
parent 29380f0df0
commit ca83d4be7d
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/persian/ParadigmsPes.gf
View File

@@ -122,7 +122,9 @@ oper
compoundV : Str -> V -> V = \s,v -> {s = \\vf => s ++ v.s ! vf ; lock_V = <>} ; 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 = <>} ; 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 ----2 Adverbs
mkAdv : Str -> Adv = \str -> {s = str ; lock_Adv = <>}; mkAdv : Str -> Adv = \str -> {s = str ; lock_Adv = <>};

2
src/persian/StructuralPes.gf
View File

@@ -49,7 +49,7 @@ concrete StructuralPes of Structural = CatPes **
more_CAdv = {s = "بیشتر" ; p = "" } ; more_CAdv = {s = "بیشتر" ; p = "" } ;
most_Predet = ss "اکثر"; most_Predet = ss "اکثر";
much_Det = mkDet ["مقدار زیادی"] Pl ; much_Det = mkDet ["مقدار زیادی"] Pl ;
must_VV = mkV_1 " بایستن " ** {isAux = True} ; ---- AR must_VV = invarV " بایستن " ** {isAux = True} ; ---- AR
-- must_VV = { -- must_VV = {
-- s = table { -- s = table {
-- VVF VInf => ["هوe تْ"] ; -- VVF VInf => ["هوe تْ"] ;