add IAdvAdv in ExtraBul

This commit is contained in:
krasimir
2010-05-20 16:52:57 +00:00
parent 5392e78fea
commit d50acffba2

View File

@@ -1,5 +1,5 @@
concrete ExtraBul of ExtraBulAbs = CatBul **
open ResBul, Coordination, Prelude in {
open ResBul, MorphoFunsBul, Coordination, Prelude in {
flags coding=cp1251 ;
@@ -45,6 +45,8 @@ concrete ExtraBul of ExtraBulAbs = CatBul **
UttImpSg8fem pol imp = {s = pol.s ++ imp.s ! pol.p ! GSg Fem} ;
UttImpSg8neut pol imp = {s = pol.s ++ imp.s ! pol.p ! GSg Fem} ;
IAdvAdv adv = {s = \\qf => (mkIAdv "êîëêî").s ! qf ++ adv.s} ;
oper
reflPron : AForm => Str =
table {