123456789101112131415161718192021222324 |
- /* $Id$ */
- /*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
- /* EVALUATION OF MONADIC OPERATORS */
- #include "Lpars.h"
- #include <em_arith.h>
- void ch7mon(int oper, arith *pval)
- {
- switch (oper) {
- case '~':
- *pval = ~(*pval);
- break;
- case '-':
- *pval = -(*pval);
- break;
- case '!':
- *pval = !(*pval);
- break;
- }
- }
|