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