added a version of compoundN which combines adjective and noun into a new noun

This commit is contained in:
kr.angelov
2013-09-20 12:04:37 +00:00
parent fd430a40fe
commit d2dc171508
3 changed files with 17 additions and 12 deletions

View File

@@ -5,7 +5,7 @@ concrete ExtraBul of ExtraBulAbs = CatBul **
lin
PossIndefPron p = {
s = \\_,aform => p.gen ! (indefAForm ! aform) ;
s = \\_,aform => p.gen ! (indefAForm aform) ;
nonEmpty = True;
spec = Indef
} ;
@@ -17,7 +17,7 @@ concrete ExtraBul of ExtraBulAbs = CatBul **
} ;
ReflIndefQuant = {
s = \\_,aform => reflPron ! (indefAForm ! aform) ;
s = \\_,aform => reflPron ! (indefAForm aform) ;
nonEmpty = True;
spec = Indef
} ;
@@ -65,13 +65,6 @@ concrete ExtraBul of ExtraBulAbs = CatBul **
APl Indef => "ñâîè" ;
APl Def => "ñâîèòå"
} ;
indefAForm : AForm => AForm =
table {
ASg g _ => ASg g Indef ;
ASgMascDefNom => ASg Masc Indef ;
APl _ => APl Indef
} ;
lincat
VPI = {s : Agr => Str} ;