forked from GitHub/gf-rgl
genitive s in Nor possessives ; some Nor words in Phrasebook
This commit is contained in:
@@ -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
|
||||||
} ;
|
} ;
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user