1
0
forked from GitHub/gf-core

animacy is now used in syntax as well

This commit is contained in:
krasimir
2016-08-30 08:30:04 +00:00
parent 436d957684
commit a14c81c619
5 changed files with 9 additions and 9 deletions
+5 -5
View File
@@ -4,16 +4,16 @@ concrete AdjectiveSlv of Adjective = CatSlv ** open ResSlv in {
PositA a = {
s = \\spec,g,c,n =>
case <spec,g,n,c> of {
<Def,Masc,Sg,Nom> => a.s ! APositDefNom ;
<Def,Masc,Sg,Acc> => a.s ! APositDefAcc ;
_ => a.s ! APosit g n c
<Def,AMasc _, Sg,Nom> => a.s ! APositDefNom ;
<_,AMasc Animate,Sg,Acc> => a.s ! APosit Masc Sg Gen ;
_ => a.s ! APosit (agender2gender g) n c
}
} ;
UseComparA a = {
s = \\spec,g,c,n =>
case <spec,g,n,c> of {
<Def,Masc,Sg,Acc> => a.s ! AComparDefAcc ;
_ => a.s ! ACompar g n c
<Def,AMasc _,Sg,Acc> => a.s ! AComparDefAcc ;
_ => a.s ! ACompar (agender2gender g) n c
}
} ;