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