mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-26 03:51:32 +00:00
Maiko sources matching state as of 020102 prior to initial patching for Mac OSX
This commit is contained in:
Nick Briggs
443
inc/debug.h
Executable file
443
inc/debug.h
Executable file
@@ -0,0 +1,443 @@
|
||||
/* $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. */
|
||||
/* */
|
||||
/* The contents of this file are proprietary information */
|
||||
/* belonging to Venue, and are provided to you under license. */
|
||||
/* They may not be further distributed or disclosed to third */
|
||||
/* parties without the specific permission of Venue. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
|
||||
#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 */
|
||||
|
||||
Reference in New Issue
Block a user