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

Anna Ehrlemark's additional work on Slv

Browse Source
This commit is contained in:
aarne
2016-11-11 07:45:16 +00:00
parent 467153c737
commit 67c72c0c82
11 changed files with 172 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/src/slovenian/AdjectiveSlv.gf
+3 -1
View File
@@ -5,6 +5,7 @@ concrete AdjectiveSlv of Adjective = CatSlv ** open ResSlv in {
s = \\spec,g,c,n =>
case <spec,g,n,c> of {
<Def,AMasc _, Sg,Nom> => a.s ! APositDefNom ;
<Def,AMasc _, Sg,Acc> => a.s ! APositDefNom ;
<_,AMasc Animate,Sg,Acc> => a.s ! APosit Masc Sg Gen ;
_ => a.s ! APosit (agender2gender g) n c
}
@@ -12,7 +13,8 @@ concrete AdjectiveSlv of Adjective = CatSlv ** open ResSlv in {
UseComparA a = {
s = \\spec,g,c,n =>
case <spec,g,n,c> of {
<Def,AMasc _,Sg,Acc> => a.s ! AComparDefAcc ;
<Def,AMasc _,Sg,Nom> => a.s ! AComparDefNom ;
<Def,AMasc _,Sg,Acc> => a.s ! AComparDefNom ;
_ => a.s ! ACompar (agender2gender g) n c
}
} ;