1: #include "../h/rt.h"
   2: 
   3: /*
   4:  * defshort - if dp is null, default to def; otherwise, convert to short
   5:  *  integer.  The result is an integer value in *dp.
   6:  */
   7: 
   8: defshort(dp, def)
   9: struct descrip *dp;
  10: int def;
  11:    {
  12:    long l;
  13: 
  14:    DeRef(*dp)
  15:    if (NULLDESC(*dp)) {
  16:       dp->type = D_INTEGER;
  17:       INTVAL(*dp) = def;
  18:       return 1;
  19:       }
  20:    switch (cvint(dp, &l)) {
  21:       case T_INTEGER:
  22:          dp->type = D_INTEGER;
  23:          INTVAL(*dp) = (int)l;
  24:          break;
  25: #ifdef LONGS
  26:       case T_LONGINT:
  27:          runerr(205, dp);
  28: #endif LONGS
  29:       default:
  30:          runerr(101, dp);
  31:       }
  32:    return 0;
  33:    }

Defined functions

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