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

@@ -65,7 +65,7 @@ param
VType = VAct | VPass | VRefl ;
NPForm = NPNom | NPAcc | NPPoss GenNum ;
NPForm = NPNom | NPAcc | NPPoss GenNum Case ;
RCase = RNom | RGen | RPrep Bool ;
@@ -82,7 +82,7 @@ oper
accusative : NPForm = NPAcc ;
caseNP : NPForm -> Case = \np -> case np of {
NPPoss _ => Gen ;
NPPoss _ _ => Gen ;
_ => Nom
} ;
@@ -224,7 +224,7 @@ oper
s = table {
NPNom => du ;
NPAcc => dig ;
NPPoss h => gennumForms din ditt dina ! h
NPPoss h c => mkCase c (gennumForms din ditt dina ! h)
} ;
a = {
g = g ;