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

(Ara) Add a constructor for mkDet that allows gender variance

Browse Source
This commit is contained in:
Inari Listenmaa
2019-01-02 13:38:45 +02:00
parent 4a3f17c166
commit 829ab04dcf
1 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/arabic/MorphoAra.gf
View File

@@ -5,8 +5,19 @@ flags optimize = all ;--noexpand;
oper
mkDet : Str -> Number -> State -> Det
= mkDetDecl True ;
mkDet = overload {
mkDet : Str -> Number -> State -> Det
= mkDetDecl True ;
mkDet : (m,f : Str) -> Number -> State -> Det
= \m,f,n,d ->
let detM = mkDetDecl True m n d ;
detF = mkDetDecl True f n d ;
in detM ** {
s = \\h,g,c => case g of {
Fem => detF.s ! h ! g ! c ;
Masc => detM.s ! h ! g ! c }
}
} ;
mkDetDecl : Bool -> Str -> Number -> State -> Det
= \decl,word,num,state -> baseQuant **