Return to numeq.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / operators

BSD 4.3

#include "../h/rt.h"

/*
 * x = y - test if x is numerically equal to y.
 */

numeq(nargs, arg2, arg1, arg0)
int nargs;
struct descrip arg2, arg1, arg0;
   {
   DclSave
   SetBound;
   if (numcmp(&arg1, &arg2, &arg0) != 0)
      fail();
   ClearBound;
   }

Opblock(numeq,2,"=")

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.