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

Xinteger defined in line 7; never used
Last modified: 1984-11-18
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 672
Valid CSS Valid XHTML 1.0 Strict