ack/lang/cem/cpp.ansi/ch3mon.c
1989-10-23 13:00:35 +00:00

26 lines
443 B
C

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