genitives in possessives in Nor (and Scand)

This commit is contained in:
aarne
2010-05-28 13:29:13 +00:00
parent 7a96cfc1b6
commit da5ecd322e
8 changed files with 11 additions and 13 deletions

View File

@@ -2,10 +2,8 @@ concrete ExtraNor of ExtraNorAbs = ExtraScandNor ** open CommonScand, ResNor, Pr
lin
PossNP np pro = {
s = table {
NPPoss _ => np.s ! NPNom ++ pro.s ! NPPoss (gennumAgr np.a) ++ BIND ++ "s" ; ----
_ => np.s ! NPNom ++ pro.s ! NPPoss (gennumAgr np.a)
} ;
s = \\c => np.s ! NPNom ++ pro.s ! NPPoss (gennumAgr np.a) (caseNP c) ;
a = np.a
} ;
}