godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial revision

Browse Source
This commit is contained in:
ceriel
1987-01-06 15:16:53 +00:00
parent 56c9ada9e0
commit 143b2531bb
34 changed files with 3301 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
util/cpp/ch7mon.c Normal file
View File

@@ -0,0 +1,19 @@
/* EVALUATION OF MONADIC OPERATORS */
#include "Lpars.h"
ch7mon(oper, pval)
register int *pval;
{
switch (oper) {
case '~':
*pval = ~(*pval);
break;
case '-':
*pval = -(*pval);
break;
case '!':
*pval = !(*pval);
break;
}
}