12345678910111213141516171819202122232425 |
- /* $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>
- ch7mon(oper, pval)
- register arith *pval;
- {
- switch (oper) {
- case '~':
- *pval = ~(*pval);
- break;
- case '-':
- *pval = -(*pval);
- break;
- case '!':
- *pval = !(*pval);
- break;
- }
- }
|