mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-13 15:18:14 +00:00
3d9f090e70
Remove unused #define PERCENT_OF_SCREEN in MyWindow.h Move structures for dir.c to dirdefs.h where they are used Resolve S_CHAR vs S_CHARACTER in favor of S_CHARACTER and cleanup #defines Fix = vs == bug in FSDEBUG code in dir.c Eliminate duplicate/unused constant definitions in gcr.c Declare static internal function bytecmp in mkatom.c Update many source and include files to include headers for what they use
179 lines
7.1 KiB
C
179 lines
7.1 KiB
C
#ifndef MY_H
|
|
#define MY_H 1
|
|
/* @(#) my.h Version 2.15 (2/8/93). copyright venue */
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* M Y . H */
|
|
/* */
|
|
/* */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989-92 Venue. All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/************************************************************************/
|
|
#include "version.h" // for BIGVM
|
|
#include "adr68k.h" // for Addr68k_from_LADDR, LADDR_from_68k
|
|
#include "arith.h" // for N_ARITH_SWITCH, N_GETNUMBER
|
|
#include "gcdata.h" // for ADDREF, DELREF
|
|
#include "lispemul.h" // for ERROR_EXIT, LispPTR, DLword, SEGMASK, state
|
|
#include "lispmap.h" // for S_POSITIVE, S_CHARACTER, S_NEGATIVE
|
|
#include "lspglob.h"
|
|
#include "lsptypes.h" // for GETBYTE, GETWORD, GetTypeNumber, TYPE_FLOATP
|
|
#include "mkcelldefs.h" // for createcell68k
|
|
|
|
#ifdef BIGVM
|
|
#define IsNumber(address) ((GETWORD(MDStypetbl +(((address) & 0x0fffff00)>>9))) & 0x1000)
|
|
#else
|
|
#define IsNumber(address) ((GETWORD(MDStypetbl +(((address) & 0x0ffff00)>>9))) & 0x1000)
|
|
#endif
|
|
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* N _ M a k e F l o a t */
|
|
/* */
|
|
/* Get a numeric argument as a floating-point number, converting */
|
|
/* from SMALLP or FIXP, if necessary. */
|
|
/* */
|
|
/************************************************************************/
|
|
#define N_MakeFloat(arg, dest, tos){ \
|
|
switch (SEGMASK & (LispPTR)(arg)) { \
|
|
case S_POSITIVE: \
|
|
(dest) = (float)(0xFFFF & (LispPTR)(arg)); \
|
|
break; \
|
|
case S_NEGATIVE: \
|
|
(dest) = (float)((int)(0xFFFF0000 | (LispPTR)(arg))); \
|
|
break; \
|
|
default: \
|
|
switch (GetTypeNumber(arg)) { \
|
|
case TYPE_FLOATP: \
|
|
(dest) = *((float *)Addr68k_from_LADDR(arg)); \
|
|
break; \
|
|
case TYPE_FIXP: \
|
|
(dest) = (float)(*((int *)Addr68k_from_LADDR(arg)));\
|
|
break; \
|
|
default: ERROR_EXIT(tos); \
|
|
} \
|
|
} \
|
|
}
|
|
|
|
|
|
|
|
#define N_GetPos(arg, dest, tos){ \
|
|
if (((arg) & SEGMASK) == S_POSITIVE) \
|
|
(dest) = (arg) & 0xFFFF; \
|
|
else { \
|
|
if (GetTypeNumber(arg) != TYPE_FIXP) ERROR_EXIT(tos); \
|
|
if (((dest) = *((int *)Addr68k_from_LADDR(arg))) & 0x80000000) \
|
|
ERROR_EXIT(tos); \
|
|
} \
|
|
}
|
|
|
|
static inline LispPTR
|
|
aref_switch(unsigned type, LispPTR tos, LispPTR baseL, int index)
|
|
{
|
|
LispPTR result;
|
|
DLword *wordp;
|
|
|
|
switch (type)
|
|
{
|
|
case 38: /* pointer : 32 bits */
|
|
return(*(((LispPTR *)Addr68k_from_LADDR(baseL)) + index));
|
|
case 20: /* signed : 16 bits */
|
|
result = (GETWORD(((DLword *)Addr68k_from_LADDR(baseL)) + index)) & 0xFFFF;
|
|
if (result & 0x8000) return(result | S_NEGATIVE);
|
|
else return(result | S_POSITIVE);
|
|
case 67: /* Character : 8 bits */
|
|
return(S_CHARACTER | ((GETBYTE(((char *)Addr68k_from_LADDR(baseL)) + index)) & 0xFF));
|
|
case 22: /* signed : 32 bits */
|
|
result = *(((LispPTR *)Addr68k_from_LADDR(baseL)) + index);
|
|
N_ARITH_SWITCH(result);
|
|
case 0: /* unsigned : 1 bit per element */
|
|
return(S_POSITIVE | (((GETBYTE(((char *)Addr68k_from_LADDR(baseL)) + (index >> 3))) >> (7 - (index & 7))) & 1));
|
|
case 3: /* unsigned : 8 bits per element */
|
|
return(S_POSITIVE | ((GETBYTE(((char *)Addr68k_from_LADDR(baseL)) + index)) & 0xFF));
|
|
case 4: /* unsigned : 16 bits per element */
|
|
return(S_POSITIVE | ((GETWORD(((DLword *)Addr68k_from_LADDR(baseL)) + index)) & 0xFFFF));
|
|
case 54: /* Float : 32 bits */
|
|
wordp = createcell68k(TYPE_FLOATP);
|
|
*((LispPTR *)wordp) = *(((LispPTR *)Addr68k_from_LADDR(baseL)) + index);
|
|
return(LADDR_from_68k(wordp));
|
|
case 68: /* Character : 16 bits */
|
|
return(S_CHARACTER | ((GETWORD(((DLword *)Addr68k_from_LADDR(baseL)) + index)) & 0xFFFF));
|
|
case 86: /* XPointer : 32 bits */
|
|
return(*(((LispPTR *)Addr68k_from_LADDR(baseL)) + index));
|
|
default: /* Illegal or Unimplemented */
|
|
ERROR_EXIT(tos);
|
|
}/* end switch typenumber */
|
|
}
|
|
|
|
#define aset_switch(type, tos) \
|
|
{ \
|
|
switch (type) { \
|
|
case 38: /* pointer : 32 bits */ \
|
|
GCLOOKUP(*(((int *)Addr68k_from_LADDR(base)) + index), DELREF); \
|
|
GCLOOKUP(data, ADDREF); \
|
|
*(((int *)Addr68k_from_LADDR(base)) + index) = data; \
|
|
return(data); \
|
|
case 20: /* signed : 16 bits */ \
|
|
new = data & 0xFFFF; \
|
|
if ((((data & SEGMASK) == S_POSITIVE) && ((data & 0x8000) == 0)) ||\
|
|
(((data & SEGMASK) == S_NEGATIVE) && (data & 0x8000))) \
|
|
GETWORD(((DLword *)Addr68k_from_LADDR(base)) + index) = new; \
|
|
else ERROR_EXIT(tos); \
|
|
return(data); \
|
|
case 67: /* Character : 8 bits */ \
|
|
if ((data & SEGMASK) != S_CHARACTER) ERROR_EXIT(tos); \
|
|
new = data & 0xFFFF; \
|
|
if (new > 0xFF) ERROR_EXIT(tos); \
|
|
GETBYTE(((char *)Addr68k_from_LADDR(base)) + index) = new; \
|
|
return(data); \
|
|
case 22: /* signed : 32 bits */ \
|
|
N_GETNUMBER(data, new, doufn); \
|
|
*(((int *)Addr68k_from_LADDR(base)) + index) = new; \
|
|
return(data); \
|
|
case 0: /* unsigned : 1 bit per element */ \
|
|
N_GetPos(data, new, tos); \
|
|
if (new > 1) ERROR_EXIT(tos); \
|
|
if (new) { \
|
|
new = (1 << (7 - (index & 7))); \
|
|
GETBYTE(((char *)Addr68k_from_LADDR(base)) + (index >> 3)) |= new; \
|
|
} \
|
|
else { \
|
|
new = 0xFF - (1 << (7 - (index & 7))); \
|
|
GETBYTE(((char *)Addr68k_from_LADDR(base)) + (index >> 3)) &= new; \
|
|
} \
|
|
return(data); \
|
|
case 3: /* unsigned : 8 bits per element */ \
|
|
N_GetPos(data, new, tos); \
|
|
if (new > 0xFF) ERROR_EXIT(tos); \
|
|
GETBYTE(((char *)Addr68k_from_LADDR(base)) + index) = new; \
|
|
return(data); \
|
|
case 4: /* unsigned : 16 bits per element */ \
|
|
N_GetPos(data, new, tos); \
|
|
if (new > 0xFFFF) ERROR_EXIT(tos); \
|
|
GETWORD(((DLword *)Addr68k_from_LADDR(base)) + index) = new; \
|
|
return(data); \
|
|
case 54: /* Float : 32 bits */ \
|
|
if (GetTypeNumber(data) != TYPE_FLOATP) ERROR_EXIT(tos); \
|
|
*(((int *)Addr68k_from_LADDR(base)) + index) = *((int *)Addr68k_from_LADDR(data)); \
|
|
return(data); \
|
|
case 68: /* Character : 16 bits */ \
|
|
if ((data & SEGMASK) != S_CHARACTER) ERROR_EXIT(tos); \
|
|
new = data & 0xFFFF; \
|
|
GETWORD(((DLword *)Addr68k_from_LADDR(base)) + index) = new; \
|
|
return(data); \
|
|
case 86: /* XPointer : 32 bits */ \
|
|
*(((int *)Addr68k_from_LADDR(base)) + index) = data; \
|
|
return(data); \
|
|
default: /* Illegal or Unimplemented */ \
|
|
ERROR_EXIT(tos); \
|
|
}/* end switch typenumber */ \
|
|
}
|
|
#endif /* MY_H */
|