forked from GitHub/gf-rgl
(Som) Fix bug in DetCN with indefinite forms
This commit is contained in:
@@ -20,11 +20,14 @@ concrete NounSom of Noun = CatSom ** open ResSom, Prelude in {
|
|||||||
-- special form for fem. nouns
|
-- special form for fem. nouns
|
||||||
<_,Nom,False,Indefinite,Sg> => {nf=NomSg ; c=c} ;
|
<_,Nom,False,Indefinite,Sg> => {nf=NomSg ; c=c} ;
|
||||||
|
|
||||||
-- Definite
|
|
||||||
<_,Nom,False,Definite,n> => {nf=Def n ; c=c} ;
|
|
||||||
|
|
||||||
-- If cn has modifier, Nom ending attaches to the modifier
|
-- If cn has modifier, Nom ending attaches to the modifier
|
||||||
<_,Nom,True,_,_> => {nf=Def det.n ; c=Abs} ;
|
<_,Nom,True,_,_> => {nf=Def det.n ; c=Abs} ;
|
||||||
|
|
||||||
|
-- Definite
|
||||||
|
<_,_,False,Definite,n> => {nf=Def n ; c=c} ;
|
||||||
|
|
||||||
|
<_,_,False,Indefinite,n> => {nf=Indef n ; c=c} ;
|
||||||
|
|
||||||
_ => {nf=Def det.n ; c=c} -- TODO check
|
_ => {nf=Def det.n ; c=c} -- TODO check
|
||||||
} ;
|
} ;
|
||||||
art = gda2da cn.gda ! det.n ;
|
art = gda2da cn.gda ! det.n ;
|
||||||
|
|||||||
Reference in New Issue
Block a user