mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-13 15:18:14 +00:00
c60b522012
... start by fixing the include files and the fallout in C source from removing includes not directly needed by headers that previously included them.
439 lines
9.5 KiB
C
439 lines
9.5 KiB
C
#ifndef DEBUG_H
|
|
#define DEBUG_H 1
|
|
/* $Id: debug.h,v 1.2 1999/01/03 02:05:56 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989-92 Venue. All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/************************************************************************/
|
|
#include "lispemul.h" /* for LispPTR, DLword */
|
|
|
|
#ifndef BYTESWAP
|
|
/************************************************/
|
|
/* Normal byte-order version of definitions */
|
|
/************************************************/
|
|
|
|
typedef struct{
|
|
DLword W0;
|
|
DLword W1;
|
|
DLword W2;
|
|
DLword W3;
|
|
DLword WU;
|
|
DLword W4;
|
|
DLword W5;
|
|
int TIME;
|
|
unsigned MOUSESTATE : 3;
|
|
unsigned SHIFT1 : 1;
|
|
unsigned SHIFT2 : 1;
|
|
unsigned keLOCK : 1;
|
|
unsigned keCTRL : 1;
|
|
unsigned keMETA : 1;
|
|
unsigned keFONT : 1;
|
|
unsigned USERMODE1 : 1;
|
|
unsigned USERMODE2 : 1;
|
|
unsigned USERMODE3 : 1;
|
|
unsigned NIL1 : 4;
|
|
DLword MOUSEX;
|
|
DLword MOUSEY;
|
|
} KEYBOARDEVENT;
|
|
|
|
typedef struct{
|
|
DLword READ;
|
|
DLword WRITE;
|
|
} RING;
|
|
|
|
typedef struct{
|
|
LispPTR FLAGS;
|
|
LispPTR CODES;
|
|
LispPTR SHIFTCODES;
|
|
LispPTR ARMED;
|
|
LispPTR INTERRUPTLIST;
|
|
} KEYACTION;
|
|
|
|
typedef struct{
|
|
unsigned int EVENTWAKEUPPENDING : 1;
|
|
unsigned int nil1 : 7;
|
|
unsigned int EVENTQUEUETAIL : 24;
|
|
LispPTR EVENTNAME;
|
|
} EVENT;
|
|
|
|
typedef struct{
|
|
unsigned int nil1 : 1;
|
|
unsigned int MLOCKPERPROCESS : 1;
|
|
unsigned int nil2 : 6;
|
|
unsigned int MLOCKQUEUETAIL : 24;
|
|
LispPTR MLOCKOWNER;
|
|
LispPTR MLOCKNAME;
|
|
LispPTR MLOCKLINK;
|
|
} MONITORLOCK;
|
|
|
|
typedef struct{
|
|
DLword PROCFX0;
|
|
DLword PROCFX;
|
|
unsigned int PROCSTATUS : 8;
|
|
unsigned int PROCNAME : 24;
|
|
unsigned int PROCPRIORITY : 8;
|
|
unsigned int PROCQUEUE : 24;
|
|
unsigned int nil1 : 8;
|
|
unsigned int NEXTPROCHANDLE : 24;
|
|
unsigned int PROCTIMERSET : 1;
|
|
unsigned int PROCBEINGDELETED : 1;
|
|
unsigned int PROCDELETED : 1;
|
|
unsigned int PROCSYSTEMP : 1;
|
|
unsigned int PROCNEVERSTARTED : 1;
|
|
unsigned int nil2 : 3;
|
|
unsigned int PROCWAKEUPTIMER : 24;
|
|
LispPTR PROCTIMERLINK;
|
|
LispPTR PROCTIMERBOX;
|
|
LispPTR WAKEREASON;
|
|
LispPTR PROCEVENTORLOCK;
|
|
LispPTR PROCFORM;
|
|
LispPTR RESTARTABLE;
|
|
LispPTR PROCWINDOW;
|
|
LispPTR PROCFINISHED;
|
|
LispPTR PROCRESULT;
|
|
LispPTR PROCFINISHEVENT;
|
|
LispPTR PROCMAILBOX;
|
|
LispPTR PROCDRIBBLEOUTPUT;
|
|
LispPTR PROCINFOHOOK;
|
|
LispPTR PROCTYPEAHEAD;
|
|
LispPTR PROCREMOTEINFO;
|
|
LispPTR PROCUSERDATA;
|
|
LispPTR PROCEVENTLINK;
|
|
LispPTR PROCAFTEREXIT;
|
|
LispPTR PROCBEFOREEXIT;
|
|
LispPTR PROCOWNEDLOCKS;
|
|
LispPTR PROCEVAPPLYRESULT;
|
|
LispPTR PROCTTYENTRYFN;
|
|
LispPTR PROCEXITFN;
|
|
LispPTR PROCHARDRESETINFO;
|
|
LispPTR PROCRESTARTFORM;
|
|
LispPTR PROCOLDTTYPROC;
|
|
LispPTR nil3;
|
|
} PROCESS;
|
|
|
|
typedef struct{
|
|
unsigned int PQPRIORITY : 8;
|
|
unsigned int PQHIGHER : 24;
|
|
LispPTR PQLOWER;
|
|
LispPTR PQNEXT;
|
|
LispPTR PQLAST;
|
|
} PROCESSQUEUE;
|
|
|
|
typedef struct fdev{
|
|
unsigned RESETABLE : 1;
|
|
unsigned RANDOMACCESSP : 1;
|
|
unsigned NODIRECTORIES : 1;
|
|
unsigned PAGEMAPPED : 1;
|
|
unsigned FDBINABLE : 1;
|
|
unsigned FDBOUTABLE : 1;
|
|
unsigned FDEXTENDABLE : 1;
|
|
unsigned BUFFERED : 1;
|
|
unsigned DEVICENAME : 24;
|
|
unsigned REMOTEP : 1;
|
|
unsigned SUBDIRECTORIES : 1;
|
|
unsigned INPUT_INDIRECTED : 1;
|
|
unsigned OUTPUT_INDIRECTED : 1;
|
|
unsigned NIL1 : 4;
|
|
unsigned DEVICEINFO : 24;
|
|
LispPTR OPENFILELST ;
|
|
LispPTR HOSTNAMEP ;
|
|
LispPTR EVENTFN ;
|
|
LispPTR DIRECTORYNAMEP ;
|
|
LispPTR OPENFILE ;
|
|
LispPTR CLOSEFILE ;
|
|
LispPTR REOPENFILE ;
|
|
LispPTR GETFILENAME ;
|
|
LispPTR DELETEFILE ;
|
|
LispPTR GENERATEFILES ;
|
|
LispPTR RENAMEFILE ;
|
|
LispPTR OPENP ;
|
|
LispPTR REGISTERFILE ;
|
|
LispPTR UNREGISTERFILE ;
|
|
LispPTR FREEPAGECOUNT ;
|
|
LispPTR MAKEDIRECTORY ;
|
|
LispPTR CHECKFILENAME ;
|
|
LispPTR HOSTALIVEP ;
|
|
LispPTR BREAKCONNECTION ;
|
|
LispPTR BIN ;
|
|
LispPTR BOUT ;
|
|
LispPTR PEEKBIN ;
|
|
LispPTR READCHAR ;
|
|
LispPTR WRITECHAR ;
|
|
LispPTR PEEKCHAR ;
|
|
LispPTR UNREADCHAR ;
|
|
LispPTR READP ;
|
|
LispPTR EOFP ;
|
|
LispPTR BLOCKIN ;
|
|
LispPTR BLOCKOUT ;
|
|
LispPTR FORCEOUTPUT ;
|
|
LispPTR GETFILEINFO ;
|
|
LispPTR SETFILEINFO ;
|
|
LispPTR CHARSETFN ;
|
|
LispPTR INPUTSTREAM ;
|
|
LispPTR OUTPUTSTREAM ;
|
|
LispPTR GETFILEPTR ;
|
|
LispPTR GETEOFPTR ;
|
|
LispPTR SETFILEPTR ;
|
|
LispPTR BACKFILEPTR ;
|
|
LispPTR SETEOFPTR ;
|
|
LispPTR LASTC ;
|
|
LispPTR GETNEXTBUFFER ;
|
|
LispPTR RELEASEBUFFER ;
|
|
LispPTR READPAGES ;
|
|
LispPTR WRITEPAGES ;
|
|
LispPTR TRUNCATEFILE ;
|
|
LispPTR WINDOWOPS ;
|
|
LispPTR WINDOWDATA ;
|
|
}FDEV;
|
|
typedef struct package{
|
|
LispPTR INDEX ;
|
|
LispPTR TABLES ;
|
|
LispPTR NAME ;
|
|
LispPTR NAMESYMBOL ;
|
|
LispPTR NICKNAMES ;
|
|
LispPTR USE_LIST ;
|
|
LispPTR USED_BY_LIST ;
|
|
LispPTR EXTERNAL_ONLY ;
|
|
LispPTR INTERNAL_SYMBOLS ;
|
|
LispPTR EXTERNAL_SYMBOLS ;
|
|
LispPTR SHADOWING_SYMBOLS ;
|
|
} PACKAGE;
|
|
|
|
#ifdef NEVER
|
|
typedef struct {
|
|
unsigned nil1 : 8 ;
|
|
unsigned BASE : 24 ;
|
|
unsigned READ_ONLY_P : 1 ;
|
|
unsigned nil2 : 1 ;
|
|
unsigned BIT_P : 1 ;
|
|
unsigned STRING_P : 1 ;
|
|
unsigned nil3 : 1 ;
|
|
unsigned DISPLACED_P : 1 ;
|
|
unsigned FILL_POINTER_P : 1 ;
|
|
unsigned EXTENDABLE_P : 1 ;
|
|
unsigned TYPE_NUMBER : 8 ;
|
|
DLword OFFSET;
|
|
DLword FILL_POINTER;
|
|
DLword TOTAL_SIZE;
|
|
} ONED_ARRAY;
|
|
#endif /* NEVER */
|
|
#else
|
|
|
|
/****************************************************************/
|
|
/* Byte-swapped, word-swapped definitions, for e.g. 80386's */
|
|
/****************************************************************/
|
|
|
|
typedef struct{
|
|
DLword W1;
|
|
DLword W0;
|
|
DLword W3;
|
|
DLword W2;
|
|
DLword W4;
|
|
DLword WU;
|
|
/* only swapped down to here, and MOUSEX & Y -- there */
|
|
/* looks like a missing word in the block at this point. */
|
|
DLword W5;
|
|
int TIME;
|
|
unsigned MOUSESTATE : 3;
|
|
unsigned SHIFT1 : 1;
|
|
unsigned SHIFT2 : 1;
|
|
unsigned LOCK : 1;
|
|
unsigned CTRL : 1;
|
|
unsigned META : 1;
|
|
unsigned FONT : 1;
|
|
unsigned USERMODE1 : 1;
|
|
unsigned USERMODE2 : 1;
|
|
unsigned USERMODE3 : 1;
|
|
unsigned NIL1 : 4;
|
|
DLword MOUSEY;
|
|
DLword MOUSEX;
|
|
} KEYBOARDEVENT;
|
|
|
|
typedef struct{
|
|
DLword WRITE;
|
|
DLword READ;
|
|
} RING;
|
|
|
|
typedef struct{
|
|
LispPTR FLAGS;
|
|
LispPTR CODES;
|
|
LispPTR SHIFTCODES;
|
|
LispPTR ARMED;
|
|
LispPTR INTERRUPTLIST;
|
|
} KEYACTION;
|
|
|
|
typedef struct{
|
|
unsigned int EVENTQUEUETAIL : 24;
|
|
unsigned int nil1 : 7;
|
|
unsigned int EVENTWAKEUPPENDING : 1;
|
|
LispPTR EVENTNAME;
|
|
} EVENT;
|
|
|
|
typedef struct{
|
|
unsigned int MLOCKQUEUETAIL : 24;
|
|
unsigned int nil2 : 6;
|
|
unsigned int MLOCKPERPROCESS : 1;
|
|
unsigned int nil1 : 1;
|
|
LispPTR MLOCKOWNER;
|
|
LispPTR MLOCKNAME;
|
|
LispPTR MLOCKLINK;
|
|
} MONITORLOCK;
|
|
|
|
typedef struct{
|
|
DLword PROCFX;
|
|
DLword PROCFX0;
|
|
unsigned int PROCNAME : 24;
|
|
unsigned int PROCSTATUS : 8;
|
|
unsigned int PROCQUEUE : 24;
|
|
unsigned int PROCPRIORITY : 8;
|
|
unsigned int NEXTPROCHANDLE : 24;
|
|
unsigned int nil1 : 8;
|
|
unsigned int PROCWAKEUPTIMER : 24;
|
|
unsigned int nil2 : 3;
|
|
unsigned int PROCNEVERSTARTED : 1;
|
|
unsigned int PROCSYSTEMP : 1;
|
|
unsigned int PROCDELETED : 1;
|
|
unsigned int PROCBEINGDELETED : 1;
|
|
unsigned int PROCTIMERSET : 1;
|
|
LispPTR PROCTIMERLINK;
|
|
LispPTR PROCTIMERBOX;
|
|
LispPTR WAKEREASON;
|
|
LispPTR PROCEVENTORLOCK;
|
|
LispPTR PROCFORM;
|
|
LispPTR RESTARTABLE;
|
|
LispPTR PROCWINDOW;
|
|
LispPTR PROCFINISHED;
|
|
LispPTR PROCRESULT;
|
|
LispPTR PROCFINISHEVENT;
|
|
LispPTR PROCMAILBOX;
|
|
LispPTR PROCDRIBBLEOUTPUT;
|
|
LispPTR PROCINFOHOOK;
|
|
LispPTR PROCTYPEAHEAD;
|
|
LispPTR PROCREMOTEINFO;
|
|
LispPTR PROCUSERDATA;
|
|
LispPTR PROCEVENTLINK;
|
|
LispPTR PROCAFTEREXIT;
|
|
LispPTR PROCBEFOREEXIT;
|
|
LispPTR PROCOWNEDLOCKS;
|
|
LispPTR PROCEVAPPLYRESULT;
|
|
LispPTR PROCTTYENTRYFN;
|
|
LispPTR PROCEXITFN;
|
|
LispPTR PROCHARDRESETINFO;
|
|
LispPTR PROCRESTARTFORM;
|
|
LispPTR PROCOLDTTYPROC;
|
|
LispPTR nil3;
|
|
} PROCESS;
|
|
|
|
typedef struct{
|
|
unsigned int PQHIGHER : 24;
|
|
unsigned int PQPRIORITY : 8;
|
|
LispPTR PQLOWER;
|
|
LispPTR PQNEXT;
|
|
LispPTR PQLAST;
|
|
} PROCESSQUEUE;
|
|
|
|
typedef struct fdev{
|
|
unsigned DEVICENAME : 24;
|
|
unsigned BUFFERED : 1;
|
|
unsigned FDEXTENDABLE : 1;
|
|
unsigned FDBOUTABLE : 1;
|
|
unsigned FDBINABLE : 1;
|
|
unsigned PAGEMAPPED : 1;
|
|
unsigned NODIRECTORIES : 1;
|
|
unsigned RANDOMACCESSP : 1;
|
|
unsigned RESETABLE : 1;
|
|
unsigned DEVICEINFO : 24;
|
|
unsigned NIL1 : 4;
|
|
unsigned OUTPUT_INDIRECTED : 1;
|
|
unsigned INPUT_INDIRECTED : 1;
|
|
unsigned SUBDIRECTORIES : 1;
|
|
unsigned REMOTEP : 1;
|
|
LispPTR OPENFILELST ;
|
|
LispPTR HOSTNAMEP ;
|
|
LispPTR EVENTFN ;
|
|
LispPTR DIRECTORYNAMEP ;
|
|
LispPTR OPENFILE ;
|
|
LispPTR CLOSEFILE ;
|
|
LispPTR REOPENFILE ;
|
|
LispPTR GETFILENAME ;
|
|
LispPTR DELETEFILE ;
|
|
LispPTR GENERATEFILES ;
|
|
LispPTR RENAMEFILE ;
|
|
LispPTR OPENP ;
|
|
LispPTR REGISTERFILE ;
|
|
LispPTR UNREGISTERFILE ;
|
|
LispPTR FREEPAGECOUNT ;
|
|
LispPTR MAKEDIRECTORY ;
|
|
LispPTR CHECKFILENAME ;
|
|
LispPTR HOSTALIVEP ;
|
|
LispPTR BREAKCONNECTION ;
|
|
LispPTR BIN ;
|
|
LispPTR BOUT ;
|
|
LispPTR PEEKBIN ;
|
|
LispPTR READCHAR ;
|
|
LispPTR WRITECHAR ;
|
|
LispPTR PEEKCHAR ;
|
|
LispPTR UNREADCHAR ;
|
|
LispPTR READP ;
|
|
LispPTR EOFP ;
|
|
LispPTR BLOCKIN ;
|
|
LispPTR BLOCKOUT ;
|
|
LispPTR FORCEOUTPUT ;
|
|
LispPTR GETFILEINFO ;
|
|
LispPTR SETFILEINFO ;
|
|
LispPTR CHARSETFN ;
|
|
LispPTR INPUTSTREAM ;
|
|
LispPTR OUTPUTSTREAM ;
|
|
LispPTR GETFILEPTR ;
|
|
LispPTR GETEOFPTR ;
|
|
LispPTR SETFILEPTR ;
|
|
LispPTR BACKFILEPTR ;
|
|
LispPTR SETEOFPTR ;
|
|
LispPTR LASTC ;
|
|
LispPTR GETNEXTBUFFER ;
|
|
LispPTR RELEASEBUFFER ;
|
|
LispPTR READPAGES ;
|
|
LispPTR WRITEPAGES ;
|
|
LispPTR TRUNCATEFILE ;
|
|
LispPTR WINDOWOPS ;
|
|
LispPTR WINDOWDATA ;
|
|
}FDEV;
|
|
typedef struct package{
|
|
LispPTR INDEX ;
|
|
LispPTR TABLES ;
|
|
LispPTR NAME ;
|
|
LispPTR NAMESYMBOL ;
|
|
LispPTR NICKNAMES ;
|
|
LispPTR USE_LIST ;
|
|
LispPTR USED_BY_LIST ;
|
|
LispPTR EXTERNAL_ONLY ;
|
|
LispPTR INTERNAL_SYMBOLS ;
|
|
LispPTR EXTERNAL_SYMBOLS ;
|
|
LispPTR SHADOWING_SYMBOLS ;
|
|
} PACKAGE;
|
|
#ifdef NEVER
|
|
typedef struct {
|
|
unsigned BASE : 24 ;
|
|
unsigned nil1 : 8 ;
|
|
DLword OFFSET;
|
|
unsigned TYPE_NUMBER : 8 ;
|
|
unsigned EXTENDABLE_P : 1 ;
|
|
unsigned FILL_POINTER_P : 1 ;
|
|
unsigned DISPLACED_P : 1 ;
|
|
unsigned nil3 : 1 ;
|
|
unsigned STRING_P : 1 ;
|
|
unsigned BIT_P : 1 ;
|
|
unsigned nil2 : 1 ;
|
|
unsigned READ_ONLY_P : 1 ;
|
|
DLword TOTAL_SIZE;
|
|
DLword FILL_POINTER;
|
|
} ONED_ARRAY;
|
|
#endif /* NEVER */
|
|
|
|
#endif /* BYTESWAP */
|
|
|
|
#endif /* DEBUG_H */
|