1 /* defs.h 1.4 85/03/01 */ 2 3 /* 4 * Public definitions, common to all. 5 */ 6 7 #include <stdio.h> 8 9 #define new(type) ((type) malloc(sizeof(struct type))) 10 #define newarr(type, n) ((type *) malloc((unsigned) (n) * sizeof(type))) 11 #define dispose(ptr) { free((char *) ptr); ptr = 0; } 12 13 #define public 14 #define private static 15 16 #define ord(enumcon) ((unsigned int) enumcon) 17 #define nil 0 18 #define and && 19 #define or || 20 #define not ! 21 #define div / 22 #define mod % 23 #define max(a, b) ((a) > (b) ? (a) : (b)) 24 #define min(a, b) ((a) < (b) ? (a) : (b)) 25 26 #define assert(b) { \ 27 if (not(b)) { \ 28 panic("assertion failed at line %d in file %s", __LINE__, __FILE__); \ 29 } \ 30 } 31 32 #define badcaseval(v) { \ 33 panic("unexpected value %d at line %d in file %s", v, __LINE__, __FILE__); \ 34 } 35 36 #define checkref(p) { \ 37 if (p == nil) { \ 38 panic("reference through nil pointer at line %d in file %s", \ 39 __LINE__, __FILE__); \ 40 } \ 41 } 42 43 typedef int Integer; 44 typedef int integer; 45 typedef char Char; 46 typedef double Real; 47 typedef double real; 48 typedef enum { false, true } Boolean; 49 typedef Boolean boolean; 50 typedef char *String; 51 52 #define strdup(s) strcpy(malloc((unsigned) strlen(s) + 1), s) 53 #define streq(s1, s2) (strcmp(s1, s2) == 0) 54 55 typedef FILE *File; 56 typedef int Fileid; 57 typedef String Filename; 58 59 #define get(f, var) fread((char *) &(var), sizeof(var), 1, f) 60 #define put(f, var) fwrite((char *) &(var), sizeof(var), 1, f) 61 62 #undef FILE 63 64 extern long atol(); 65 extern double atof(); 66 extern char *malloc(); 67 extern String strcpy(), index(), rindex(); 68 extern int strlen(); 69 70 extern String cmdname; 71 extern String errfilename; 72 extern short errlineno; 73 extern int debug_flag[]; 74