genitive s in Nor possessives ; some Nor words in Phrasebook

This commit is contained in:
aarne
2010-05-28 12:25:26 +00:00
parent e4442d1328
commit 219cb014a7
7 changed files with 29 additions and 15 deletions

View File

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