github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-17 08:33:48 +00:00
Code Issues Projects Releases Wiki Activity

Remove unused/obsolete LispWindowFd references/definition

Browse Source
This commit is contained in:
Nick Briggs 2023-01-07 17:38:34 -08:00
parent c57ae7666d
commit 4a61a3fa6b
12 changed files with 3 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/bbtsub.c
View File

@ -224,7 +224,6 @@ typedef struct tbta {
} TBLTARG;
#endif /* BYTESWAP */
extern int LispWindowFd;
extern int ScreenLocked; /* for mouse tracking */
/*****************************************************************
(PUTPROPS \SETPBTFUNCTION MACRO

1
src/bitblt.c
View File

@ -41,7 +41,6 @@ extern int kbd_for_makeinit;
extern DspInterface currentdsp;
#endif
extern int LispWindowFd;
extern int ScreenLocked;
#ifdef COLOR

2
src/common.c
View File

@ -39,7 +39,7 @@ error
******************************************************************/
extern fd_set LispReadFds;
extern int LispWindowFd, LispKbdFd;
extern int LispKbdFd;
extern struct screen LispScreen;
extern int displaywidth, displayheight;
extern DLword *DisplayRegion68k;

1
src/draw.c
View File

@ -37,7 +37,6 @@ extern int displaywidth, displayheight;
extern int DisplayRasterWidth;
extern DLword *DisplayRegion68k_end_addr;
extern int LispWindowFd;
extern int ScreenLocked;
#ifdef COLOR

1
src/dspsubrs.c
View File

@ -75,7 +75,6 @@ LispPTR DSP_VideoColor(LispPTR *args) /* args[0] : black flag */
}
extern struct cursor CurrentCursor;
extern int LispWindowFd;
/****************************************************
*

1
src/initdsp.c
View File

@ -54,7 +54,6 @@ extern DspInterface currentdsp;
#endif
int LispWindowFd = -1;
int FrameBufferFd = -1;
extern unsigned displaywidth, displayheight, DisplayRasterWidth, DisplayType, DisplayByteSize;

1
src/kbdsubrs.c
View File

@ -55,7 +55,6 @@ extern DspInterface currentdsp;
#include <X11/Xlib.h>
#endif /* XWINDOW */
extern int LispWindowFd;
extern fd_set LispReadFds;
void KB_enable(LispPTR *args) /* args[0] : ON/OFF flag

2
src/keyevent.c
View File

@ -110,7 +110,6 @@ extern DspInterface currentdsp;
extern DLword *EmMouseX68K, *EmMouseY68K, *EmKbdAd068K, *EmRealUtilin68K, *EmUtilin68K;
extern DLword *EmKbdAd168K, *EmKbdAd268K, *EmKbdAd368K, *EmKbdAd468K, *EmKbdAd568K;
extern u_char *SUNLispKeyMap;
extern int LispWindowFd;
extern int RS232C_Fd, RS232C_remain_data;
extern fd_set LispIOFds;
fd_set LispReadFds;
@ -218,6 +217,7 @@ DLword ColorCursor_savebitmap[CURSORWIDTH / COLORPIXELS_IN_DLWORD * CURSORHEIGHT
/* */
/* LispWindowFd The keyboard/window FD, for keyboard */
/* and mouse events. */
/* 01/07/2023 - unused, obsolete */
/* */
/* LispIOFds A bit vector of TCP FDs, or other */
/* FDs Lisp is doing async I/O on. */

1
src/llstk.c
View File

@ -466,7 +466,6 @@ void decusecount68k(FX *frame68k) {
#ifdef ORG_FILPCORSORBAR
extern DLword *EmCursorBitMap68K;
extern int LispWindowFd;
#ifdef XWINDOW
extern int Current_Hot_X, Current_Hot_Y;

1
src/misc7.c
View File

@ -33,7 +33,6 @@
#define OP_READ 2 /* Just read the bit that's there. */
#define OP_PAINT 3 /* Turn the bit on. */
extern int LispWindowFd;
extern int ScreenLocked;
/*** N_OP_misc7 -- pseudocolor or fbitmapbit ***/

2
src/uraid.c
View File

@ -143,7 +143,7 @@ v filename Save the virtual memory on the filename(Not Bootable)
/************************************************************************/
extern int DisplayRasterWidth;
extern int LispWindowFd, LispKbdFd;
extern int LispKbdFd;
extern fd_set LispReadFds;
extern struct cursor CurrentCursor, InvisibleCursor;
extern struct screen LispScreen;

1
src/vmemsave.c
View File

@ -68,7 +68,6 @@
#define FILECANNOTWRITE (S_POSITIVE | 5)
#define FILETIMEOUT (S_POSITIVE | 6)
extern int LispWindowFd;
extern struct pixrect *CursorBitMap, *InvisibleCursorBitMap;
extern struct cursor CurrentCursor, InvisibleCursor;
#ifdef DOS