Fix GenNP and add GenNPIndef in ExtraBul

This commit is contained in:
krasimir
2008-02-20 15:12:22 +00:00
parent 0d580d9418
commit 512e71d65c
2 changed files with 5 additions and 1 deletions

View File

@@ -2,7 +2,9 @@ concrete ExtraBul of ExtraBulAbs = CatBul **
open ResBul, Coordination, Prelude in {
lin
GenNP np = {s = \\aform => np.s ! Gen aform} ;
GenNP np = {s = \\gn => np.s ! Gen (aform gn Def Nom); spec=Indef} ;
GenNPIndef np = {s = \\gn => np.s ! Gen (aform gn Indef Nom); spec=Indef} ;
i8fem_Pron = mkNP "àç" "ìåí" "ìîé" "ìîÿ" "ìîÿò" "ìîÿ" "ìîÿòà" "ìîå" "ìîåòî" "ìîè" "ìîèòå" (GSg Fem) P1 ;
i8neut_Pron = mkNP "àç" "ìåí" "ìîé" "ìîÿ" "ìîÿò" "ìîÿ" "ìîÿòà" "ìîå" "ìîåòî" "ìîè" "ìîèòå" (GSg Neut) P1 ;

View File

@@ -1,6 +1,8 @@
abstract ExtraBulAbs = Extra ** {
fun
GenNPIndef : NP -> Quant ;
-- Feminine variants of pronouns (those in $Structural$ are
-- masculine, which is the default when gender is unknown).