diff --git a/lib/resource-1.0/api/Combinators.gf b/lib/resource-1.0/api/Combinators.gf index ca5abfda9..6373fa7ae 100644 --- a/lib/resource-1.0/api/Combinators.gf +++ b/lib/resource-1.0/api/Combinators.gf @@ -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 -- 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. appendText : Text -> Text -> Text