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: }