added ExtraFin.CompNomAP

This commit is contained in:
Aarne Ranta
2018-06-19 17:51:38 +02:00
parent 3156959205
commit 8ff47abd59
2 changed files with 5 additions and 1 deletions

View File

@@ -161,6 +161,9 @@ concrete ExtraFin of ExtraFinAbs = CatFin **
CompPartAP ap = { CompPartAP ap = {
s = \\agr => ap.s ! False ! NCase (complNumAgr agr) ResFin.Part s = \\agr => ap.s ! False ! NCase (complNumAgr agr) ResFin.Part
} ; } ;
CompNomAP ap = {
s = \\agr => ap.s ! False ! NCase (complNumAgr agr) ResFin.Nom
} ;
---- copied from VerbFin.CompAP, should be shared ---- copied from VerbFin.CompAP, should be shared
ICompAP ap = { ICompAP ap = {

View File

@@ -28,7 +28,8 @@ abstract ExtraFinAbs = Extra [
vai_Conj : Conj ; -- minä vai sinä? ("or" in question) vai_Conj : Conj ; -- minä vai sinä? ("or" in question)
CompPartAP : AP -> Comp ; -- kahvi on valmista CompPartAP : AP -> Comp ; -- kahvi on valmista: partitive complement also in singular
CompNomAP : AP -> Comp ; -- kengät ovat mustat: nominative complement also in plural
ProDropPoss : Pron -> Quant ; -- vaimoni ProDropPoss : Pron -> Quant ; -- vaimoni