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

(Pes) WIP merge auxBe and beVerb

Browse Source
This commit is contained in:
Inari Listenmaa
2019-02-22 17:50:15 +01:00
parent f686761bc5
commit 5a2aedbffa
1 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/persian/MorphoPes.gf
View File

@@ -329,6 +329,7 @@ oper
_ => mkCmnVF dasht dar pol t ag
} ;
-- TODO: merge with auxBe in ResPes
beVerb : Verb = { s = table {
Vvform agr => imperfectSuffixD agr "باش" ;
Imp Pos Sg => "باش" ;
@@ -338,7 +339,18 @@ oper
Inf => "بودن" ;
Root1 => "بود" ;
Root2 => "باش" ;
VF pol tense agr => mkCmnVF "بود" "باش" pol tense agr
VF pol tense agr =>
let impfSuff = imperfectSuffix agr ;
perfSuff = perfectSuffix agr
in case <pol,tense,agr> of {
<Pos,PPresent2 PrImperf,Ag Sg P3> => "است" ;
<Pos,PPresent2 PrImperf> => impfSuff "هست" ;
<Pos,PPresent2 PrPerf> => perfSuff "بوده" ;
<Neg,PPresent2 PrImperf,Ag Sg P3> => "نیست" ;
<Neg,PPresent2 PrImperf> => impfSuff "نیست" ;
<Neg,PPresent2 PrPerf> => perfSuff "نبوده" ;
_ => mkCmnVF "بود" "باش" pol tense agr
}
}
} ;
}