1 #ifndef __PTOC_H__ 2 #define __PTOC_H__ 3 4 #include <stdio.h> 5 #include <stdlib.h> 6 #include <string.h> 7 #include <stdarg.h> 8 #include <assert.h> 9 10 #define items(x) (sizeof(x)/sizeof(*(x))) 11 12 typedef int integer; 13 typedef unsigned cardinal; /* unsigned integer */ 14 typedef float real; 15 16 #if defined(TURBO_PASCAL) || defined(HP_PASCAL) 17 typedef unsigned word; /* It should have the same size as integer */ 18 typedef unsigned char byte; 19 #endif 20 21 #ifdef TURBO_PASCAL 22 typedef long longint; 23 typedef signed char shortint; 24 typedef void* pointer; 25 typedef const char* asciiz; 26 #endif 27 28 typedef unsigned char boolean; 29 #define true (1) 30 #define false (0) 31 32 #define nil NULL 33 34 #define EXTERN extern 35 36 /* 37 * Pascal runtime library headers 38 */ 39 40 #include "io.h" 41 #include "array.h" 42 #include "paslib.h" 43 #include "set.h" 44 45 #endif 46 47 48