Finnish negation particle stored in VP for vowel harmony

This commit is contained in:
aarne
2008-06-22 18:33:15 +00:00
parent 82186e38b7
commit eb72aeb20a
7 changed files with 40 additions and 20 deletions

View File

@@ -41,7 +41,8 @@ concrete IdiomFin of Idiom = CatFin **
s = \\_ => vp.s ! VIPass ;
s2 = vp.s2 ;
ext = vp.ext ;
sc = vp.sc
sc = vp.sc ;
qp = vp.qp
} ;
ProgrVP vp =
@@ -52,7 +53,8 @@ concrete IdiomFin of Idiom = CatFin **
s = on.s ;
s2 = \\b,p,a => inf ++ vp.s2 ! b ! p ! a ;
ext = vp.ext ;
sc = vp.sc
sc = vp.sc ;
qp = vp.qp
} ;
-- This gives "otetaan oluet" instead of "ottakaamme oluet".
@@ -66,7 +68,7 @@ concrete IdiomFin of Idiom = CatFin **
} ;
oper
olla = verbOlla ** {sc = NPCase Nom} ;
olla = verbOlla ** {sc = NPCase Nom ; qp = "ko"} ;
noSubj : Polarity -> Str = \_ -> [] ;
}