C/SYSTEM.h

   1 #ifndef SYSTEM__h
   2 #define SYSTEM__h
   3
   4 /*
   5
   6 the CPfront runtime system interface and macro library
   7 based on SYSTEM.h by Josef Templ
   8 bh 20.12.1999
   9
  10 */
  11
  12
  13 #pragma warning(disable:4101)   /* disable "unreferenced variable" warning */
  14
  15 #ifdef __GNUC__
  16 #  include <alloca.h>
  17 #endif
  18 #include <stdint.h>
  19 #include <string.h>
  20
  21 /* extern char *memcpy(); */
  22
  23 #define export
  24 #define import extern
  25
  26 /* basic types */
  27 /*
  28 typedef unsigned char BOOLEAN;
  29 typedef unsigned char SHORTCHAR;
  30 typedef unsigned short CHAR;
  31 typedef signed char BYTE;
  32 typedef short SHORTINT;
  33 typedef int INTEGER;
  34 */
  35 #if !defined(_WIN64) && ((__SIZEOF_POINTER__ == 8) || defined (_LP64) || defined(__LP64__))
  36   /* typedef long LONGINT; */ /* LP64 */
  37   /* typedef unsigned long __U_LONGINT; */
  38 #else
  39   /* typedef long long LONGINT; */ /* ILP32 or LLP64 */
  40   /* typedef unsigned long long __U_LONGINT; */
  41 #endif
  42 /*
  43 typedef float SHORTREAL;
  44 typedef double REAL;
  45 typedef unsigned int SET;
  46 typedef void ANYREC;
  47 typedef void *ANYPTR;
  48 typedef void *SYSTEM_PTR;
  49 */
  50 typedef uint8_t  BOOLEAN;
  51 typedef uint8_t  SHORTCHAR;
  52 typedef uint16_t CHAR;
  53 typedef int8_t   BYTE;
  54 typedef int16_t  SHORTINT;
  55 typedef int32_t  INTEGER;
  56 typedef int64_t  LONGINT;
  57 typedef float    SHORTREAL;
  58 typedef double   REAL;
  59 typedef uint32_t SET;
  60 typedef void     ANYREC;
  61 typedef void    *ANYPTR;
  62 typedef void    *SYSTEM_PTR;
  63
  64 /* Unsigned variants are for use by shift and rotate macros */
  65 typedef uint8_t  __U_SHORTCHAR;
  66 typedef uint16_t __U_CHAR;
  67 typedef uint8_t  __U_BYTE;
  68 typedef uint16_t __U_SHORTINT;
  69 typedef uint32_t __U_INTEGER;
  70 typedef uint64_t __U_LONGINT;
  71 typedef uint32_t __U_SET;
  72 /*
  73 typedef unsigned char __U_SHORTCHAR;
  74 typedef unsigned short __U_CHAR;
  75 typedef unsigned char __U_BYTE;
  76 typedef unsigned short __U_SHORTINT;
  77 typedef unsigned int __U_INTEGER;
  78 typedef unsigned int __U_SET;
  79 */
  80
  81 extern LONGINT SYSTEM_INF;
  82 extern INTEGER SYSTEM_INFS;
  83 extern INTEGER SYSTEM_argCount;
  84 extern void *SYSTEM_argVector;
  85
  86 /* constants */
  87 #define __MAXEXT        15
  88 #define NIL     0
  89 #define POINTER__typ    (INTEGER*)1     /* not NIL and not a valid type */
  90 #define __INF   (*(REAL*)&SYSTEM_INF)
  91 #define __INFS  (*(SHORTREAL*)&SYSTEM_INFS)
  92
  93 #if defined _WIN32 || defined __CYGWIN__
  94 #  ifdef __GNUC__
  95 #    define __EXTERN __attribute__((dllimport))
  96 #  else
  97 #    define __EXTERN __declspec(dllimport)
  98 #  endif
  99 #else
 100 #  if __GNUC__ >= 4 && !defined(__OS2__)
 101 #    define __EXTERN __attribute__((visibility("default")))
 102 #  else
 103 #    define __EXTERN
 104 #  endif
 105 #endif
 106 #define __CALLBACK __attribute__((__stdcall__))
 107
 108
 109 /* simple open array types */
 110
 111 typedef struct BOOLEAN_ARRAY {
 112         INTEGER gc[3], len[1];
 113         BOOLEAN data[1];
 114 } BOOLEAN_ARRAY;
 115 typedef struct CHAR_ARRAY {
 116         INTEGER gc[3], len[1];
 117         CHAR data[1];
 118 } CHAR_ARRAY;
 119 typedef struct SHORTCHAR_ARRAY {
 120         INTEGER gc[3], len[1];
 121         SHORTCHAR data[1];
 122 } SHORTCHAR_ARRAY;
 123 typedef struct BYTE_ARRAY {
 124         INTEGER gc[3], len[1];
 125         BYTE data[1];
 126 } BYTE_ARRAY;
 127 typedef struct SHORTINT_ARRAY {
 128         INTEGER gc[3], len[1];
 129         SHORTINT data[1];
 130 } SHORTINT_ARRAY;
 131 typedef struct INTEGER_ARRAY {
 132         INTEGER gc[3], len[1];
 133         INTEGER data[1];
 134 } INTEGER_ARRAY;
 135 typedef struct LONGINT_ARRAY {
 136         INTEGER gc[3], len[1];
 137         LONGINT data[1];
 138 } LONGINT_ARRAY;
 139 typedef struct REAL_ARRAY {
 140         INTEGER gc[3], len[1];
 141         REAL data[1];
 142 } REAL_ARRAY;
 143 typedef struct SHORTREAL_ARRAY {
 144         INTEGER gc[3], len[1];
 145         SHORTREAL data[1];
 146 } SHORTREAL_ARRAY;
 147 typedef struct SET_ARRAY {
 148         INTEGER gc[3], len[1];
 149         SET data[1];
 150 } SET_ARRAY;
 151
 152 /* meta info */
 153
 154 typedef struct SYSTEM_OBJDESC {
 155         INTEGER fprint, offs, id, struc;
 156 } SYSTEM_OBJDESC;
 157 typedef struct SYSTEM_DIRECTORY {
 158         INTEGER num;
 159         struct SYSTEM_OBJDESC obj[1];
 160 } SYSTEM_DIRECTORY;
 161 typedef struct SYSTEM_MODDESC {
 162         struct SYSTEM_MODDESC *next;
 163         SET opts;
 164         INTEGER refcnt;
 165         SHORTINT compTime[6], loadTime[6];
 166         void (*body) ();
 167         void (*term) ();
 168         INTEGER nofimps, nofptrs, size, dsize, rsize, code, data, refs, procBase, varBase;
 169         char *names;
 170         INTEGER *ptrs;
 171         struct SYSTEM_MODDESC **imports;
 172         struct SYSTEM_DIRECTORY *exp;
 173         char name[256];
 174 } SYSTEM_MODDESC;
 175 typedef struct SYSTEM_TYPEDESC {
 176         INTEGER size;
 177         struct SYSTEM_MODDESC *mod;
 178         INTEGER id;
 179         INTEGER base[16];
 180         struct SYSTEM_DIRECTORY *fields;
 181         INTEGER ptroffs[1];
 182 } SYSTEM_TYPEDESC;
 183
 184 /* dynamic link */
 185
 186 typedef struct SYSTEM_DLINK {
 187         struct SYSTEM_DLINK *next;
 188         char *name;
 189 } SYSTEM_DLINK;
 190 extern SYSTEM_DLINK *SYSTEM_dlink;
 191
 192
 193 /* runtime system routines */
 194 extern CHAR* SYSTEM_LSTR(char *x);
 195 extern INTEGER SYSTEM_DIV(INTEGER x, INTEGER y);
 196 extern INTEGER SYSTEM_MOD(INTEGER x, INTEGER y);
 197 extern INTEGER SYSTEM_MIN(INTEGER x, INTEGER y);
 198 extern INTEGER SYSTEM_MAX(INTEGER x, INTEGER y);
 199 extern INTEGER SYSTEM_ENTIER(REAL x);
 200 extern INTEGER SYSTEM_ASH(INTEGER x, INTEGER n);
 201 extern INTEGER SYSTEM_ABS(INTEGER x);
 202 extern INTEGER SYSTEM_XCHK(INTEGER i, INTEGER ub);
 203 extern void *SYSTEM_NEWARR(INTEGER type, INTEGER n);
 204 extern void *SYSTEM_NEWARR1(INTEGER type, INTEGER n0, INTEGER n);
 205 extern void *SYSTEM_NEWARR2(INTEGER type, INTEGER n1, INTEGER n0, INTEGER n);
 206 extern void *SYSTEM_NEWARR3(INTEGER type, INTEGER n2, INTEGER n1, INTEGER n0, INTEGER n);
 207 extern void *SYSTEM_NEWARR4(INTEGER type, INTEGER n3, INTEGER n2, INTEGER n1, INTEGER n0, INTEGER n);
 208 extern void SYSTEM_REGMOD(struct SYSTEM_MODDESC *mod);
 209 extern INTEGER SYSTEM_STRLEN(CHAR x[]); /* LEN(lx$) */
 210 extern INTEGER SYSTEM_STRLENS(SHORTCHAR x[]);   /* LEN(sx$) */
 211 extern INTEGER SYSTEM_STRCMPSS(SHORTCHAR x[], SHORTCHAR y[]);   /* sx = sy */
 212 extern INTEGER SYSTEM_STRCMPTS(CHAR x[], SHORTCHAR y[]);        /* SHORT(lx) = sy */
 213 extern INTEGER SYSTEM_STRCMPTT(CHAR x[], CHAR y[]);     /* SHORT(lx) = SHORT(ly) */
 214 extern INTEGER SYSTEM_STRCMPLL(CHAR x[], CHAR y[]);     /* lx = ly */
 215 extern INTEGER SYSTEM_STRCMPSL(SHORTCHAR x[], CHAR y[]);        /* LONG(sx) = ly */
 216 extern INTEGER SYSTEM_STRCMPTL(CHAR x[], CHAR y[]);     /* LONG(SHORT(lx)) = ly */
 217 extern void SYSTEM_STRCOPYSS(SHORTCHAR x[], SHORTCHAR y[], INTEGER n);  /* sy := sx */
 218 extern void SYSTEM_STRCOPYTS(CHAR x[], SHORTCHAR y[], INTEGER n);       /* sy := SHORT(lx) */
 219 extern void SYSTEM_STRCOPYLL(CHAR x[], CHAR y[], INTEGER n);    /* ly := lx */
 220 extern void SYSTEM_STRCOPYSL(SHORTCHAR x[], CHAR y[], INTEGER n);       /* ly := LONG(sx) */
 221 extern void SYSTEM_STRCOPYTL(CHAR x[], CHAR y[], INTEGER n);    /* ly := LONG(SHORT(lx)) */
 222 extern void SYSTEM_STRAPNDSS(SHORTCHAR x[], SHORTCHAR y[], INTEGER n);  /* sy := sy + sx */
 223 extern void SYSTEM_STRAPNDTS(CHAR x[], SHORTCHAR y[], INTEGER n);       /* sy := sy + SHORT(lx) */
 224 extern void SYSTEM_STRAPNDLL(CHAR x[], CHAR y[], INTEGER n);    /* ly := ly + lx */
 225 extern void SYSTEM_STRAPNDSL(SHORTCHAR x[], CHAR y[], INTEGER n);       /* ly := ly + LONG(sx) */
 226 extern void SYSTEM_STRAPNDTL(CHAR x[], CHAR y[], INTEGER n);    /* ly := ly + LONG(SHORT(lx)) */
 227 extern LONGINT SYSTEM_DIVL(LONGINT x, LONGINT y);
 228 extern LONGINT SYSTEM_MODL(LONGINT x, LONGINT y);
 229 extern LONGINT SYSTEM_MINL(LONGINT x, LONGINT y);
 230 extern LONGINT SYSTEM_MAXL(LONGINT x, LONGINT y);
 231 extern LONGINT SYSTEM_ASHL(LONGINT x, INTEGER n);
 232 extern LONGINT SYSTEM_ABSL(LONGINT x);
 233 extern SHORTREAL SYSTEM_INT2SR(INTEGER x);
 234 extern REAL SYSTEM_LONG2R(LONGINT x);
 235 extern LONGINT SYSTEM_ENTIERL(REAL x);
 236 extern INTEGER SYSTEM_SR2INT(SHORTREAL x);
 237 extern LONGINT SYSTEM_R2LONG(REAL x);
 238 extern SHORTREAL SYSTEM_ABSF(SHORTREAL x);
 239 extern SHORTREAL SYSTEM_MINF(SHORTREAL x, SHORTREAL y);
 240 extern SHORTREAL SYSTEM_MAXF(SHORTREAL x, SHORTREAL y);
 241 extern REAL SYSTEM_ABSD(REAL x);
 242 extern REAL SYSTEM_MIND(REAL x, REAL y);
 243 extern REAL SYSTEM_MAXD(REAL x, REAL y);
 244
 245 extern INTEGER Kernel_NewRec(INTEGER typ);
 246 extern INTEGER Kernel_NewArr(INTEGER eltyp, INTEGER nofelem, INTEGER nofdim);
 247 extern void Kernel_Trap(INTEGER n);
 248
 249
 250 #define __INIT(argc, argv)      SYSTEM_argCount = argc; SYSTEM_argVector = *(void**)&argv
 251 #define __BEGREG(mod)   if (mod.opts & 0x40000) return; mod.opts |= 0x40000;
 252 #define __ENDREG
 253 #define __REGMOD(mod)   SYSTEM_REGMOD(&mod);
 254 #define __BEGBODY(mod)  if (mod.opts & 0x10000) return; mod.opts |= 0x10000;
 255 #define __ENDBODY
 256 #define __BEGCLOSE
 257 #define __ENDCLOSE
 258 #define __ENTER(name)   SYSTEM_DLINK __dl = {SYSTEM_dlink, name}; SYSTEM_dlink = &__dl
 259 #define __EXIT                          SYSTEM_dlink = __dl.next
 260
 261 /* SYSTEM ops */
 262 #define __VAL(t, x)     (*(t*)&(x))
 263 #define __VALSR(x)      SYSTEM_INT2SR(x)
 264 #define __VALR(x)       SYSTEM_LONG2R(x)
 265 #define __VALI(x)       SYSTEM_SR2INT(x)
 266 #define __VALL(x)       SYSTEM_R2LONG(x)
 267 #define __GET(a, x, t)  x= *(t*)(a)
 268 #define __PUT(a, x, t)  *(t*)(a)=(t)x
 269 #define __LSHL(x, n, t) ((t)((__U_##t)(x)<<(n)))
 270 #define __LSHR(x, n, t) ((t)((__U_##t)(x)>>(n)))
 271 #define __LSH(x, n, t)  ((n)>=0? __LSHL(x, n, t): __LSHR(x, -(n), t))
 272 #define __ROTL(x, n, t) ((t)((__U_##t)(x)<<(n)|(__U_##t)(x)>>(8*sizeof(t)-(n))))
 273 #define __ROTR(x, n, t) ((t)((__U_##t)(x)>>(n)|(__U_##t)(x)<<(8*sizeof(t)-(n))))
 274 #define __ROT(x, n, t)  ((n)>=0? __ROTL(x, n, t): __ROTR(x, -(n), t))
 275 #define __BIT(x, n)     (*(unsigned*)(x)>>(n)&1)
 276 #define __MOVE(s, d, n) memcpy((char*)(d),(char*)(s),n)
 277
 278 /* std procs and operator mappings */
 279 /*
 280 #define __SHORT(x, y)   ((int)((unsigned)(x)+(y)<(y)+(y)?(x):(__HALT(-8),0)))
 281 #define __SHORTF(x, y)  ((int)(__RF((x)+(y),(y)+(y))-(y)))
 282 #define __CHR(x)        ((CHAR)__R(x, 256))
 283 #define __CHRF(x)       ((CHAR)__RF(x, 256))
 284 */
 285 #define __DIV(x, y)     ((x)>=0?(x)/(y):~(~(x)/(y)))
 286 #define __DIVF(x, y)    SYSTEM_DIV(x,y)
 287 #define __DIVFL(x, y)   SYSTEM_DIVL(x,y)
 288 #define __MOD(x, y)     ((x)>=0?(x)%(y):(y)+~(~(x)%(y)))
 289 #define __MODF(x, y)    SYSTEM_MOD(x,y)
 290 #define __MODFL(x, y)   SYSTEM_MODL(x,y)
 291 #define __MIN(x, y)     ((x)<(y)?(x):(y))
 292 #define __MINF(x, y)    SYSTEM_MIN(x,y)
 293 #define __MINFL(x, y)   SYSTEM_MINL(x,y)
 294 #define __MINFF(x, y)   SYSTEM_MINF(x,y)
 295 #define __MINFD(x, y)   SYSTEM_MIND(x,y)
 296 #define __MAX(x, y)     ((x)>(y)?(x):(y))
 297 #define __MAXF(x, y)    SYSTEM_MAX(x,y)
 298 #define __MAXFL(x, y)   SYSTEM_MAXL(x,y)
 299 #define __MAXFF(x, y)   SYSTEM_MAXF(x,y)
 300 #define __MAXFD(x, y)   SYSTEM_MAXD(x,y)
 301 #define __NEW(t)        (void*)Kernel_NewRec((INTEGER)t)
 302 #define __NEWARR(t, n)  (void*)SYSTEM_NEWARR(t, n)
 303 #define __NEWARR0(t, n) (void*)Kernel_NewArr(t, n, 0)
 304 #define __NEWARR1(t, n0, n)     (void*)SYSTEM_NEWARR1(t, n0, n)
 305 #define __NEWARR2(t, n1, n0, n) (void*)SYSTEM_NEWARR2(t, n1, n0, n)
 306 #define __NEWARR3(t, n2, n1, n0, n)     (void*)SYSTEM_NEWARR3(t, n2, n1, n0, n)
 307 #define __NEWARR4(t, n3, n2, n1, n0, n) (void*)SYSTEM_NEWARR4(t, n3, n2, n1, n0, n)
 308 #define __HALT(x)       Kernel_Trap(x)
 309 #define __ASSERT(cond, x)       if (!(cond)) __HALT(x)
 310 #define __ENTIER(x)     SYSTEM_ENTIER(x)
 311 #define __ENTIERL(x)    SYSTEM_ENTIERL(x)
 312 #define __ABS(x)        (((x)<0)?-(x):(x))
 313 #define __ABSF(x)       SYSTEM_ABS(x)
 314 #define __ABSFL(x)      SYSTEM_ABSL(x)
 315 #define __ABSFF(x)      SYSTEM_ABSF(x)
 316 #define __ABSFD(x)      SYSTEM_ABSD(x)
 317 #define __CAP(ch)       ((CHAR)((ch)&0x5f))
 318 #define __ODD(x)        ((x)&1)
 319 #define __IN(x, s)      (((s)>>(x))&1)
 320 #define __SETOF(x)      ((SET)1<<(x))
 321 #define __SETRNG(l, h)  ((~(SET)0<<(l))&~(SET)0>>(8*sizeof(SET)-1-(h)))
 322 #define __MASK(x, m)    ((x)&~(m))
 323 #define __LSTR(x)       SYSTEM_LSTR(x)
 324
 325 #define __STRLEN(x)     SYSTEM_STRLEN(x)        /* LEN(lx$) */
 326 #define __STRLENS(x)    SYSTEM_STRLENS(x)       /* LEN(sx$) */
 327 #define __STRCMPSS(x, y)        SYSTEM_STRCMPSS(x, y)   /* sx = sy */
 328 #define __STRCMPTS(x, y)        SYSTEM_STRCMPTS(x, y)   /* SHORT(lx) = sy */
 329 #define __STRCMPTT(x, y)        SYSTEM_STRCMPTT(x, y)   /* SHORT(lx) = SHORT(ly) */
 330 #define __STRCMPLL(x, y)        SYSTEM_STRCMPLL(x, y)   /* lx = ly */
 331 #define __STRCMPSL(x, y)        SYSTEM_STRCMPSL(x, y)   /* LONG(sx) = ly */
 332 #define __STRCMPTL(x, y)        SYSTEM_STRCMPTL(x, y)   /* LONG(SHORT(lx)) = ly */
 333 #define __STRCOPYSS(x, y, n)    SYSTEM_STRCOPYSS(x, y, n)       /* sy := sx */
 334 #define __STRCOPYTS(x, y, n)    SYSTEM_STRCOPYTS(x, y, n)       /* sy := SHORT(lx) */
 335 #define __STRCOPYLL(x, y, n)    SYSTEM_STRCOPYLL(x, y, n)       /* ly := lx */
 336 #define __STRCOPYSL(x, y, n)    SYSTEM_STRCOPYSL(x, y, n)       /* ly := LONG(sx) */
 337 #define __STRCOPYTL(x, y, n)    SYSTEM_STRCOPYTL(x, y, n)       /* ly := LONG(SHORT(lx)) */
 338 #define __STRAPNDSS(x, y, n)    SYSTEM_STRAPNDSS(x, y, n)       /* sy := sy + sx */
 339 #define __STRAPNDTS(x, y, n)    SYSTEM_STRAPNDTS(x, y, n)       /* sy := sy + SHORT(lx) */
 340 #define __STRAPNDLL(x, y, n)    SYSTEM_STRAPNDLL(x, y, n)       /* ly := ly + lx */
 341 #define __STRAPNDSL(x, y, n)    SYSTEM_STRAPNDSL(x, y, n)       /* ly := ly + LONG(sx) */
 342 #define __STRAPNDTL(x, y, n)    SYSTEM_STRAPNDTL(x, y, n)       /* ly := ly + LONG(SHORT(lx)) */
 343
 344 #define __ASH(x, n, t)  ((n)>=0?__ASHL(x,n,t):__ASHR(x,-(n),t))
 345 #define __ASHL(x, n, t) ((t)(x)<<(n))
 346 #define __ASHR(x, n, t) ((t)(x)>>(n))
 347 #define __ASHF(x, n, t) SYSTEM_ASH(x, n)
 348 #define __ASHFL(x, n, t)        SYSTEM_ASHL(x, n)
 349 #define __DUP(x, l)     x=(void*)memcpy(alloca(l*sizeof(*x)),x,l*sizeof(*x))
 350 #define __DUPARR(v)     v=(void*)memcpy(v##__copy,v,sizeof(v##__copy))
 351 #define __DEL(x)        /* DUP with alloca frees storage automatically */
 352 #define __IS(tag, typ, level)   ((tag->base[level])==(INTEGER)typ)
 353 #define __TYPEOF(p)     (*(((SYSTEM_TYPEDESC**)(p))-1))
 354 #define __ISP(p, typ, level)    __IS(__TYPEOF(p),typ,level)
 355
 356 /* runtime checks */
 357 #define __X(i, ub)      (((unsigned)(i)<(unsigned)(ub))?i:(__HALT(-7),0))
 358 #define __XF(i, ub)      SYSTEM_XCHK((INTEGER)(i), (INTEGER)(ub))
 359 /*
 360 #define __RETCHK        __retchk: __HALT(-3)
 361 */
 362 #define __RETCHK        __HALT(-3)
 363 #define __CASECHK       __HALT(-2)
 364 #define __GUARDP(p, typ, level) ((typ*)(__ISP(p,typ,level)?p:(__HALT(-4),p)))
 365 #define __GUARDR(r, typ, level) (*((typ*)(__IS(r##__typ,typ,level)?r:(__HALT(-4),r))))
 366 #define __GUARDA(p, typ, level) ((struct typ*)(__IS(__TYPEOF(p),typ,level)?p:(__HALT(-4),p)))
 367 #define __WITHCHK       __HALT(-1)
 368
 369 /* Oberon-2 type bound procedures support */
 370 #define __SEND(typ, num, funtyp, parlist)       ((funtyp)(*((INTEGER*)typ-(num+1))))parlist
 371
 372 /* runtime system variables */
 373 extern SYSTEM_MODDESC *SYSTEM_modlist;
 374 extern LONGINT SYSTEM_argc;
 375 extern LONGINT SYSTEM_argv;
 376 extern void (*SYSTEM_Halt)();
 377 extern LONGINT SYSTEM_halt;
 378 extern LONGINT SYSTEM_assert;
 379 extern SYSTEM_PTR SYSTEM_modules;
 380 extern LONGINT SYSTEM_heapsize;
 381 extern LONGINT SYSTEM_allocated;
 382 extern LONGINT SYSTEM_lock;
 383 extern SHORTINT SYSTEM_gclock;
 384 extern BOOLEAN SYSTEM_interrupted;
 385
 386 #endif