4.3BSD - /usr/src/new/icon/functions/integer.c

   1: #include "../h/rt.h"
   2: 
   3: /*
   4:  * integer(x) - convert x to integer.
   5:  */
   6: 
   7: Xinteger(nargs, arg1, arg0)
   8: int nargs;
   9: struct descrip arg1, arg0;
  10:    {
  11:    long l;
  12: 
  13:    switch (cvint(&arg1, &l)) {
  14:       case T_INTEGER:
  15: #ifdef LONGS
  16:       case T_LONGINT:
  17: #endif LONGS
  18:          mkint(l, &arg0);
  19:          break;
  20:       default:
  21:          fail();
  22:       }
  23:    }
  24: 
  25: Procblock(integer,1)

Defined functions