added PartPlCN to ExtraFin

This commit is contained in:
aarne
2017-06-04 10:30:15 +00:00
parent e427b38759
commit 7900258691
2 changed files with 14 additions and 1 deletions

View File

@@ -143,6 +143,18 @@ concrete ExtraFin of ExtraFinAbs = CatFin **
a = acn.a ;
isPron = False ; isNeg = False
} ;
PartPlCN cn =
let
acn = DetCN (DetQuant IndefArt NumPl) cn
in {
s = table {
NPCase Nom | NPAcc => acn.s ! NPCase ResFin.Part ;
c => acn.s ! c
} ;
a = acn.a ;
isPron = False ; isNeg = False
} ;
vai_Conj = {s1 = [] ; s2 = "vai" ; n = Sg} ;

View File

@@ -23,7 +23,8 @@ abstract ExtraFinAbs = Extra [
-- i_implicPron : Pron ; -- (minä), minut, ...
whatPart_IP : IP ;
PartCN : CN -> NP ; -- olutta
PartCN : CN -> NP ; -- olutta
PartPlCN : CN -> NP ; -- jauhoja
vai_Conj : Conj ; -- minä vai sinä? ("or" in question)