C/SYSTEM.c

   1 #include "SYSTEM.h"
   2
   3 SYSTEM_MODDESC *SYSTEM_modlist = NIL;
   4 SYSTEM_DLINK *SYSTEM_dlink = NIL;
   5
   6 LONGINT SYSTEM_INF = 0x7FF0000000000000L;
   7 INTEGER SYSTEM_INFS = 0x7F800000;
   8
   9 CHAR SYSTEM_strBuf[32][256];
  10 INTEGER SYSTEM_actual;
  11
  12 INTEGER SYSTEM_argCount;
  13 void *SYSTEM_argVector;
  14
  15 void SYSTEM_REGMOD(SYSTEM_MODDESC *mod)
  16 {
  17         int i;
  18         mod->next = SYSTEM_modlist;
  19         SYSTEM_modlist = mod;
  20         for (i = 0; i < mod->nofimps; i++) mod->imports[i]->refcnt++;
  21 }
  22
  23 typedef struct {
  24         INTEGER gc[3], len[1];
  25 } Array;
  26
  27 void *SYSTEM_NEWARR(INTEGER type, INTEGER n)
  28 {
  29         int ptr = Kernel_NewArr(type, n, 1);
  30         ((Array*)ptr)->len[0] = n;
  31         return (void*)ptr;
  32 }
  33
  34 void *SYSTEM_NEWARR1(INTEGER type, INTEGER n0, INTEGER n)
  35 {
  36         int ptr = Kernel_NewArr(type, n * n0, 1);
  37         ((Array*)ptr)->len[0] = n0;
  38         return (void*)ptr;
  39 }
  40
  41 void *SYSTEM_NEWARR2(INTEGER type, INTEGER n1, INTEGER n0, INTEGER n)
  42 {
  43         int ptr = Kernel_NewArr(type, n * n0 * n1, 2);
  44         ((Array*)ptr)->len[0] = n1;
  45         ((Array*)ptr)->len[1] = n0;
  46         return (void*)ptr;
  47 }
  48
  49 void *SYSTEM_NEWARR3(INTEGER type, INTEGER n2, INTEGER n1, INTEGER n0, INTEGER n)
  50 {
  51         int ptr = Kernel_NewArr(type, n * n0 * n1 * n2, 3);
  52         ((Array*)ptr)->len[0] = n2;
  53         ((Array*)ptr)->len[1] = n1;
  54         ((Array*)ptr)->len[2] = n0;
  55         return (void*)ptr;
  56 }
  57
  58 void *SYSTEM_NEWARR4(INTEGER type, INTEGER n3, INTEGER n2, INTEGER n1, INTEGER n0, INTEGER n)
  59 {
  60         int ptr = Kernel_NewArr(type, n * n0 * n1 * n2 * n3, 4);
  61         ((Array*)ptr)->len[0] = n3;
  62         ((Array*)ptr)->len[1] = n2;
  63         ((Array*)ptr)->len[2] = n1;
  64         ((Array*)ptr)->len[3] = n0;
  65         return (void*)ptr;
  66 }
  67
  68 INTEGER SYSTEM_XCHK(INTEGER i, INTEGER ub)
  69 {
  70         if ((unsigned)(i)>=(unsigned)(ub)) __HALT(-7);
  71         return i;
  72 }
  73
  74
  75 CHAR* SYSTEM_LSTR(char *x)
  76 {
  77         CHAR *str = SYSTEM_strBuf[SYSTEM_actual];
  78         int i = 0;
  79         SYSTEM_actual = (SYSTEM_actual + 1) & 0x1F;
  80         do {
  81                 if (i == 256) __HALT(-8);
  82                 str[i] = x[i];
  83         } while (x[i++] != 0);
  84         return str;
  85 }
  86
  87 INTEGER SYSTEM_ASH(INTEGER x, INTEGER n)
  88 {
  89         if (n >= 0) return x << n;
  90         else return x >> (-n);
  91 }
  92
  93 LONGINT SYSTEM_ASHL(LONGINT x, INTEGER n)
  94 {
  95         if (n >= 0) return x << n;
  96         else return x >> (-n);
  97 }
  98
  99 INTEGER SYSTEM_ABS(INTEGER x)
 100 {
 101         if (x<0) x=-x;
 102         return x;
 103 }
 104
 105 LONGINT SYSTEM_ABSL(LONGINT x)
 106 {
 107         if (x<0) x=-x;
 108         return x;
 109 }
 110
 111 SHORTREAL SYSTEM_ABSF(SHORTREAL x)
 112 {
 113         if (x<0) x=-x;
 114         return x;
 115 }
 116
 117 REAL SYSTEM_ABSD(REAL x)
 118 {
 119         if (x<0) x=-x;
 120         return x;
 121 }
 122
 123 INTEGER SYSTEM_ENTIER(REAL x)
 124 {
 125         INTEGER i;
 126         i = (INTEGER)x;
 127         if (i > x) i--;
 128         return i;
 129 }
 130
 131 LONGINT SYSTEM_ENTIERL(REAL x)
 132 {
 133         LONGINT i;
 134         i = (LONGINT)x;
 135         if (i > x) i--;
 136         return i;
 137 }
 138
 139 INTEGER SYSTEM_DIV(INTEGER x, INTEGER y)
 140 {
 141         if (y > 0) {
 142                 if (x < 0) return ~(~x / y);
 143                 else return x / y;
 144         } else if (y < 0) {
 145                 if (x > 0) return ~((x - 1) / -y);
 146                 else return -x / -y;
 147         } else {
 148                 __HALT(-5);
 149         }
 150 }
 151
 152 LONGINT SYSTEM_DIVL(LONGINT x, LONGINT y)
 153 {
 154         if (y > 0) {
 155                 if (x < 0) return ~(~x / y);
 156                 else return x / y;
 157         } else if (y < 0) {
 158                 if (x > 0) return ~((x - 1) / -y);
 159                 else return -x / -y;
 160         } else {
 161                 __HALT(-5);
 162         }
 163 }
 164
 165 INTEGER SYSTEM_MOD(INTEGER x, INTEGER y)
 166 {
 167         if (y > 0) {
 168                 if (x < 0) return y + ~(~x % y);
 169                 else return x % y;
 170         } else if (y < 0) {
 171                 if (x > 0) return y + 1 + ((x - 1) % -y);
 172                 else return -(-x % -y);
 173         } else {
 174                 __HALT(-5);
 175         }
 176 }
 177
 178 LONGINT SYSTEM_MODL(LONGINT x, LONGINT y)
 179 {
 180         if (y > 0) {
 181                 if (x < 0) return y + ~(~x % y);
 182                 else return x % y;
 183         } else if (y < 0) {
 184                 if (x > 0) return y + 1 + ((x - 1) % -y);
 185                 else return -(-x % -y);
 186         } else {
 187                 __HALT(-5);
 188         }
 189 }
 190
 191 INTEGER SYSTEM_MIN(INTEGER x, INTEGER y)
 192 {
 193         if (x > y) x = y;
 194         return x;
 195 }
 196
 197 LONGINT SYSTEM_MINL(LONGINT x, LONGINT y)
 198 {
 199         if (x > y) x = y;
 200         return x;
 201 }
 202
 203 SHORTREAL SYSTEM_MINF(SHORTREAL x, SHORTREAL y)
 204 {
 205         if (x > y) x = y;
 206         return x;
 207 }
 208
 209 REAL SYSTEM_MIND(REAL x, REAL y)
 210 {
 211         if (x > y) x = y;
 212         return x;
 213 }
 214
 215 INTEGER SYSTEM_MAX(INTEGER x, INTEGER y)
 216 {
 217         if (x < y) x = y;
 218         return x;
 219 }
 220
 221 LONGINT SYSTEM_MAXL(LONGINT x, LONGINT y)
 222 {
 223         if (x < y) x = y;
 224         return x;
 225 }
 226
 227 SHORTREAL SYSTEM_MAXF(SHORTREAL x, SHORTREAL y)
 228 {
 229         if (x < y) x = y;
 230         return x;
 231 }
 232
 233 REAL SYSTEM_MAXD(REAL x, REAL y)
 234 {
 235         if (x < y) x = y;
 236         return x;
 237 }
 238
 239
 240 SHORTREAL SYSTEM_INT2SR(INTEGER x)
 241 {
 242         return *(SHORTREAL*)&x;
 243 }
 244
 245 REAL SYSTEM_LONG2R(LONGINT x)
 246 {
 247         return *(REAL*)&x;
 248 }
 249
 250 INTEGER SYSTEM_SR2INT(SHORTREAL x)
 251 {
 252         return *(INTEGER*)&x;
 253 }
 254
 255 LONGINT SYSTEM_R2LONG(REAL x)
 256 {
 257         return *(LONGINT*)&x;
 258 }
 259
 260
 261
 262
 263 INTEGER SYSTEM_STRLEN(CHAR x[]) /* LEN(lx$) */
 264 {
 265         int i = 0;
 266         while (x[i] != 0) i++;
 267         return i;
 268 }
 269
 270 INTEGER SYSTEM_STRLENS(SHORTCHAR x[])   /* LEN(sx$) */
 271 {
 272         int i = 0;
 273         while (x[i] != 0) i++;
 274         return i;
 275 }
 276
 277 INTEGER SYSTEM_STRCMPSS(SHORTCHAR x[], SHORTCHAR y[])   /* sx = sy */
 278 {
 279         int i = 0;
 280         while (x[i] == y[i] && y[i] != 0) i++;
 281         return x[i] - y[i];
 282 }
 283
 284 INTEGER SYSTEM_STRCMPTS(CHAR x[], SHORTCHAR y[])        /* SHORT(lx) = sy */
 285 {
 286         int i = 0;
 287         while ((x[i] & 0xff) == y[i] && y[i] != 0) i++;
 288         return (x[i] & 0xff) - y[i];
 289 }
 290
 291 INTEGER SYSTEM_STRCMPTT(CHAR x[], CHAR y[])     /* SHORT(lx) = SHORT(ly) */
 292 {
 293         int i = 0;
 294         while ((x[i] & 0xff) == (y[i] & 0xff) && (y[i] & 0xff) != 0) i++;
 295         return (x[i] & 0xff) - (y[i] & 0xff);
 296 }
 297
 298 INTEGER SYSTEM_STRCMPLL(CHAR x[], CHAR y[])     /* lx = ly */
 299 {
 300         int i = 0;
 301         while (x[i] == y[i] && y[i] != 0) i++;
 302         return x[i] - y[i];
 303 }
 304
 305 INTEGER SYSTEM_STRCMPSL(SHORTCHAR x[], CHAR y[])        /* LONG(sx) = ly */
 306 {
 307         int i = 0;
 308         while (x[i] == y[i] && y[i] != 0) i++;
 309         return x[i] - y[i];
 310 }
 311
 312 INTEGER SYSTEM_STRCMPTL(CHAR x[], CHAR y[])     /* LONG(SHORT(lx)) = ly */
 313 {
 314         int i = 0;
 315         while ((x[i] & 0xff) == y[i] && y[i] != 0) i++;
 316         return (x[i] & 0xff) - y[i];
 317 }
 318
 319 void SYSTEM_STRCOPYSS(SHORTCHAR x[], SHORTCHAR y[], INTEGER n)  /* sy := sx */
 320 {
 321         int i = 0;
 322         do {
 323                 if (n-- == 0) __HALT(-8);
 324                 y[i] = x[i];
 325         } while (x[i++] != 0);
 326 }
 327
 328 void SYSTEM_STRCOPYTS(CHAR x[], SHORTCHAR y[], INTEGER n)       /* sy := SHORT(lx) */
 329 {
 330         int i = 0;
 331         do {
 332                 if (n-- == 0) __HALT(-8);
 333                 y[i] = (SHORTCHAR)x[i];
 334         } while ((x[i++] & 0xff) != 0);
 335 }
 336
 337 void SYSTEM_STRCOPYLL(CHAR x[], CHAR y[], INTEGER n)    /* ly := lx */
 338 {
 339         int i = 0;
 340         do {
 341                 if (n-- == 0) __HALT(-8);
 342                 y[i] = x[i];
 343         } while (x[i++] != 0);
 344 }
 345
 346 void SYSTEM_STRCOPYSL(SHORTCHAR x[], CHAR y[], INTEGER n)       /* ly := LONG(sx) */
 347 {
 348         int i = 0;
 349         do {
 350                 if (n-- == 0) __HALT(-8);
 351                 y[i] = x[i];
 352         } while (x[i++] != 0);
 353 }
 354
 355 void SYSTEM_STRCOPYTL(CHAR x[], CHAR y[], INTEGER n)    /* ly := LONG(SHORT(lx)) */
 356 {
 357         int i = 0;
 358         do {
 359                 if (n-- == 0) __HALT(-8);
 360                 y[i] = (x[i] & 0xff);
 361         } while ((x[i++] & 0xff) != 0);
 362 }
 363
 364 void SYSTEM_STRAPNDSS(SHORTCHAR x[], SHORTCHAR y[], INTEGER n)  /* sy := sy + sx */
 365 {
 366         int i = 0, j = 0;
 367         while (y[j] != 0) j++;
 368         do {
 369                 if (n-- == 0) __HALT(-8);
 370                 y[j++] = x[i];
 371         } while (x[i++] != 0);
 372 }
 373
 374 void SYSTEM_STRAPNDTS(CHAR x[], SHORTCHAR y[], INTEGER n)       /* sy := sy + SHORT(lx) */
 375 {
 376         int i = 0, j = 0;
 377         while (y[j] != 0) j++;
 378         do {
 379                 if (n-- == 0) __HALT(-8);
 380                 y[j++] = (SHORTCHAR)x[i];
 381         } while ((x[i++] & 0xff) != 0);
 382 }
 383
 384 void SYSTEM_STRAPNDLL(CHAR x[], CHAR y[], INTEGER n)    /* ly := ly + lx */
 385 {
 386         int i = 0, j = 0;
 387         while (y[j] != 0) j++;
 388         do {
 389                 if (n-- == 0) __HALT(-8);
 390                 y[j++] = x[i];
 391         } while (x[i++] != 0);
 392 }
 393
 394 void SYSTEM_STRAPNDSL(SHORTCHAR x[], CHAR y[], INTEGER n)       /* ly := ly + LONG(sx) */
 395 {
 396         int i = 0, j = 0;
 397         while (y[j] != 0) j++;
 398         do {
 399                 if (n-- == 0) __HALT(-8);
 400                 y[j++] = x[i];
 401         } while (x[i++] != 0);
 402 }
 403
 404 void SYSTEM_STRAPNDTL(CHAR x[], CHAR y[], INTEGER n)    /* ly := ly + LONG(SHORT(lx)) */
 405 {
 406         int i = 0, j = 0;
 407         while (y[j] != 0) j++;
 408         do {
 409                 if (n-- == 0) __HALT(-8);
 410                 y[j++] = (x[i] & 0xff);
 411         } while ((x[i++] & 0xff) != 0);
 412 }
 413