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

Defined functions

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