1 /* 2 * Copyright (c) 1980 Regents of the University of California. 3 * All rights reserved. The Berkeley software License Agreement 4 * specifies the terms and conditions for redistribution. 5 * 6 * @(#)ftypes.h 5.1 (Berkeley) 06/07/85 7 */ 8 9 10 /* variable types 11 * numeric assumptions: 12 * int < reals < complexes 13 * TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX 14 */ 15 16 #define TYUNKNOWN 0 17 #define TYADDR 1 18 #define TYSHORT 2 19 #define TYLONG 3 20 #define TYREAL 4 21 #define TYDREAL 5 22 #define TYCOMPLEX 6 23 #define TYDCOMPLEX 7 24 #define TYLOGICAL 8 25 #define TYCHAR 9 26 #define TYSUBR 10 27 #define TYERROR 11 28 29 #define NTYPES (TYERROR+1) 30 #define TYBLANK TYSUBR 31 32 /* special defines for constants 33 */ 34 35 #define TYBITSTR TYUNKNOWN 36 #define TYHOLLERITH TYSUBR 37 38