Added overloaded negation to Combinators.

This commit is contained in:
bringert
2007-04-21 09:38:52 +00:00
parent eedd5a5ad0
commit 6633024433

View File

@@ -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