(Ara) Add state parameter to regNP + small cleanup/move around code

This commit is contained in:
Inari Listenmaa
2018-11-30 15:23:49 +01:00
parent fc0c504107
commit 0475955567
4 changed files with 18 additions and 16 deletions
-9
View File
@@ -571,15 +571,6 @@ resource ParadigmsAra = open
proDrop : NP -> NP = \np -> lin NP (ResAra.proDrop np) ;
-- e.g. al-jamii3, 2a7ad
regNP : Str -> Number -> NP = \word,n -> lin NP (emptyNP ** {
s = \\c => fixShd word (dec1sg ! Def ! c)
});
-- e.g. hadha, dhaalika
indeclNP : Str -> Number -> NP = \word,n -> lin NP (emptyNP ** {
s = \\c => word
});
mkQuant7 : (_,_,_,_,_,_,_ : Str) -> State -> Quant =
\hava,havihi,havAn,havayn,hAtAn,hAtayn,hA'ulA,det -> lin Quant (baseQuant **