1
0
forked from GitHub/gf-rgl

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 23fc46867c
commit f06d54837b

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 lin
PossNP np pro = { 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 a = np.a
} ; } ;
} }