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