mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-27 19:58:55 -06:00
Added overloaded negation to Combinators.
This commit is contained in:
@@ -75,6 +75,15 @@ incomplete resource Combinators = open Grammar in {
|
|||||||
|
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
--2 Negation
|
||||||
|
|
||||||
|
neg : overload {
|
||||||
|
neg : Imp -> Utt ;
|
||||||
|
neg : Cl -> S ;
|
||||||
|
neg : QCl -> QS ;
|
||||||
|
neg : RCl -> RS
|
||||||
|
};
|
||||||
|
|
||||||
--2 Text append
|
--2 Text append
|
||||||
|
|
||||||
-- This is not in ground API, because it would destroy parsing.
|
-- This is not in ground API, because it would destroy parsing.
|
||||||
@@ -186,6 +195,17 @@ incomplete resource Combinators = open Grammar in {
|
|||||||
|
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
neg = overload {
|
||||||
|
neg : Imp -> Utt
|
||||||
|
= UttImpSg PNeg ;
|
||||||
|
neg : Cl -> S
|
||||||
|
= UseCl TPres ASimul PNeg;
|
||||||
|
neg : QCl -> QS
|
||||||
|
= UseQCl TPres ASimul PNeg;
|
||||||
|
neg : RCl -> RS
|
||||||
|
= UseRCl TPres ASimul PNeg
|
||||||
|
};
|
||||||
|
|
||||||
-- This is not in ground API, because it would destroy parsing.
|
-- This is not in ground API, because it would destroy parsing.
|
||||||
|
|
||||||
appendText : Text -> Text -> Text
|
appendText : Text -> Text -> Text
|
||||||
|
|||||||
Reference in New Issue
Block a user