1*47955Sbostic /*- 2*47955Sbostic * Copyright (c) 1980 The Regents of the University of California. 3*47955Sbostic * All rights reserved. 422819Smckusick * 5*47955Sbostic * %sccs.include.proprietary.c% 6*47955Sbostic * 7*47955Sbostic * @(#)ftypes.h 5.2 (Berkeley) 04/12/91 822819Smckusick */ 922819Smckusick 1022819Smckusick 1122819Smckusick /* variable types 1222819Smckusick * numeric assumptions: 1322819Smckusick * int < reals < complexes 1422819Smckusick * TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX 1522819Smckusick */ 1622819Smckusick 1722819Smckusick #define TYUNKNOWN 0 1822819Smckusick #define TYADDR 1 1922819Smckusick #define TYSHORT 2 2022819Smckusick #define TYLONG 3 2122819Smckusick #define TYREAL 4 2222819Smckusick #define TYDREAL 5 2322819Smckusick #define TYCOMPLEX 6 2422819Smckusick #define TYDCOMPLEX 7 2522819Smckusick #define TYLOGICAL 8 2622819Smckusick #define TYCHAR 9 2722819Smckusick #define TYSUBR 10 2822819Smckusick #define TYERROR 11 2922819Smckusick 3022819Smckusick #define NTYPES (TYERROR+1) 3122819Smckusick #define TYBLANK TYSUBR 3222819Smckusick 3322819Smckusick /* special defines for constants 3422819Smckusick */ 3522819Smckusick 3622819Smckusick #define TYBITSTR TYUNKNOWN 3722819Smckusick #define TYHOLLERITH TYSUBR 3822819Smckusick 39