forked from GitHub/gf-rgl
move verb specific extensions from WordNet to the RGL
This commit is contained in:
@@ -138,6 +138,20 @@ concrete ExtendEng of Extend =
|
||||
}
|
||||
} ;
|
||||
|
||||
-- Conjunction of copula complements
|
||||
|
||||
lincat [Comp] = {s1,s2 : Agr => Str} ;
|
||||
lin BaseComp x y = twoTable Agr x y ;
|
||||
ConsComp xs x = consrTable Agr comma xs x ;
|
||||
ConjComp conj ss = conjunctDistrTable Agr conj ss ;
|
||||
|
||||
-- Conjunction of imperatives
|
||||
|
||||
lincat ListImp = {s1,s2 : CPolarity => ImpForm => Str} ;
|
||||
lin BaseImp = twoTable2 CPolarity ImpForm ;
|
||||
ConsImp = consrTable2 CPolarity ImpForm comma ;
|
||||
ConjImp conj ss = conjunctDistrTable2 CPolarity ImpForm conj ss ;
|
||||
|
||||
-----
|
||||
|
||||
lin
|
||||
|
||||
@@ -22,6 +22,10 @@ concrete SentenceEng of Sentence = CatEng ** open Prelude, ResEng in {
|
||||
dont ++ verb
|
||||
} ;
|
||||
|
||||
AdvImp adv imp = {
|
||||
s = \\pol,impform => adv.s ++ imp.s ! pol ! impform
|
||||
} ;
|
||||
|
||||
SlashVP np vp =
|
||||
mkClause (np.s ! npNom) np.a vp ** {c2 = vp.c2} ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user