GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-07-01 11:38:34 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Ara) Move mkQuant functions from Paradigms to Res

Browse Source
This commit is contained in:
Inari Listenmaa
2019-01-29 14:11:05 +01:00
parent 6d477ccbeb
commit 267ef1b178
2 changed files with 32 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/arabic/ParadigmsAra.gf
+4 -24
View File
@@ -657,32 +657,12 @@ resource ParadigmsAra = open
mkQuant7 : (_,_,_,_,_,_,_ : Str) -> State -> Quant =
\hava,havihi,havAn,havayn,hAtAn,hAtayn,hA'ulA,det -> lin Quant (baseQuant **
{ s = \\n,s,g,c =>
case <s,g,c,n> of {
<_,Masc,_,Sg> => hava;
<_,Fem,_,Sg> => havihi;
<_,Masc,Nom,Dl>=> havAn;
<_,Masc,_,Dl> => havayn;
<_,Fem,Nom,Dl> => hAtAn;
<_,Fem,_,Dl> => hAtayn;
<Hum,_,_,Pl> => hA'ulA;
_ => havihi
};
d = det
});
\hava,havihi,havAn,havayn,hAtAn,hAtayn,hA'ulA,det ->
lin Quant (ResAra.mkQuant7 hava havihi havAn havayn hAtAn hAtayn hA'ulA det) ;
mkQuant3 : (_,_,_ : Str) -> State -> Quant =
\dalika,tilka,ula'ika,det -> lin Quant (baseQuant **
{ s = \\n,s,g,c =>
case <s,g,c,n> of {
<_,Masc,_,Sg> => dalika;
<_,Fem,_,Sg> => tilka;
<Hum,_,_,_> => ula'ika;
_ => tilka
};
d = det
});
\dalika,tilka,ula'ika,det ->
lin Quant (ResAra.mkQuant3 dalika tilka ula'ika det) ;
brkA : (root,sg,pl : Str) -> Adj -- also broken feminine
= brkABool False ;