1: # include   "../symbol.h"
   2: 
   3: /*
   4: **  CONVERT TYPES FROM INTERNAL TO EXTERNAL FORM
   5: **
   6: **	Type codes in internal form (CHAR, FLOAT, or INT) are
   7: **	converted to external form ('c', 'f', or 'i') and returned.
   8: **	The return value is -1 if the parameter is bad.
   9: */
  10: 
  11: typeunconv(type)
  12: int type;
  13: {
  14:     switch (type)
  15:     {
  16: 
  17:       case CHAR:
  18:         return ('c');
  19: 
  20:       case FLOAT:
  21:         return ('f');
  22: 
  23:       case INT:
  24:         return ('i');
  25: 
  26:     }
  27:     return (-1);
  28: }

Defined functions

typeunconv defined in line 11; used 1 times
Last modified: 1980-12-17
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 598
Valid CSS Valid XHTML 1.0 Strict