articles added to Browse

This commit is contained in:
aarne
2009-12-03 09:27:57 +00:00
parent bb41907a4d
commit 5c678ab686
3 changed files with 41 additions and 2 deletions

View File

@@ -1,6 +1,12 @@
--# -path=.:alltenses
concrete BrowseEng of Browse = CatEng, ConjunctionEng, NumeralEng, LexiconEng, StructuralEng ** open LangEng in {
concrete BrowseEng of Browse = CatEng, NumeralEng, LexiconEng, StructuralEng ** open LangEng in {
lincat ListAdv = LangEng.ListAdv ;
lincat ListAP = LangEng.ListAP ;
lincat ListNP = LangEng.ListNP ;
lincat ListRS = LangEng.ListRS ;
lincat ListS = LangEng.ListS ;
lin mkAP_1 = PositA ;
lin mkAP_2 = ComparA ;
@@ -298,6 +304,11 @@ lin this_Det_336 = (DetQuant this_Quant NumSg) ;
lin those_Det_337 = (DetQuant that_Quant NumPl) ;
lin these_Det_338 = (DetQuant this_Quant NumPl) ;
lin the_Det = DetQuant DefArt NumSg ;
lin thePl_Det = DetQuant DefArt NumPl ;
lin a_Det = DetQuant IndefArt NumSg ;
lin aPl_Det = DetQuant IndefArt NumPl ;
oper
ComplV2 : V2 -> NP -> VP = \v,np -> ComplSlash (SlashV2a v) np ;
ComplV2A : V2A -> NP -> AP -> VP = \v,np,ap -> ComplSlash (SlashV2A v ap) np ; --# notminimal