Remove debugging printf(.) that was left in unixcomm.c

Clean up issues in Unix_handlecomm preventing clean process exit (#413 )
When Medley closes a stream open to a process it uses a "unixcomm" command (3) which should close() the communication channel open with the process and give it a chance to handle that and exit cleanly before using a SIGKILL on it. We can't determine apriori whether the process is going to cooperate, so we're stuck trying for up to 0.1s (arbitrary choice!) waiting for the process to exit, then it gets a SIGKILL, and we wait up to 0.1s again to see that it really exited.
2026-03-16 06:47:22 +00:00 · 2022-01-03 22:48:23 -08:00 · 2021-12-23 10:46:37 -08:00 · 2021-12-21 21:33:03 -08:00 · 2021-12-09 21:15:48 -08:00 · 2021-12-09 14:57:45 -08:00
23 changed files with 92 additions and 1084 deletions
--- a/.github/workflows/build.yml
+++ b/.github/workflows/build.yml
@@ -42,17 +42,9 @@ jobs:
      BUILD_TYPE: Release
    steps:
    - uses: actions/checkout@v2
-    - name: Show CMake version
-      run: cmake --version
    - name: Install X11 dependencies on MacOS
      if: ${{ runner.os == 'macOS'}}
      run: brew install --cask xquartz
-    - name: Install SDL2 dependencies on MacOS
-      if: ${{ runner.os == 'macOS'}}
-      run: brew install sdl2
-    - name: Install SDL dependency on Ubuntu
-      if: ${{ runner.os == 'Linux'}}
-      run: sudo apt-get update && sudo apt-get install -y libsdl2-dev
    - name: Create Build Environment
      run: cmake -E make_directory ${{github.workspace}}/build
    - name: Configure CMake
--- a/.gitignore
+++ b/.gitignore
@@ -6,6 +6,8 @@
 .DS_Store
 # build directories
 build/**
+*.m68k-x/**
+*.m68k/**
 *.386-x/**
 *.386/**
 *.ppc-x/**
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -23,12 +23,10 @@ find_program(
 )

 IF (CLANG_TIDY_EXE)
-   IF (NOT CMAKE_CROSSCOMPILING)
 # There are many many warnings for strcpy instances to deal with,
 # but suppress it for now so that other issues are more obvious
 #
-        SET(CMAKE_C_CLANG_TIDY ${CLANG_TIDY_EXE} -checks=-*,cert-*,clang-analyzer-security.*,-clang-analyzer-security.insecureAPI.strcpy,-clang-analyzer-security.insecureAPI.bzero -header-filter=.*)
-   ENDIF()
+   SET(CMAKE_C_CLANG_TIDY ${CLANG_TIDY_EXE} -checks=-*,cert-*,clang-analyzer-security.*,-clang-analyzer-security.insecureAPI.strcpy,-clang-analyzer-security.insecureAPI.bzero -header-filter=.*)
 ENDIF()

 INCLUDE(CheckLibraryExists)
@@ -41,7 +39,7 @@ SET(MAIKO_DEFINITIONS
    "-DRELEASE=351"
 )

-OPTION(MAIKO_DISPLAY_X11 "Use X11 for display." OFF)
+OPTION(MAIKO_DISPLAY_X11 "Use X11 for display." ON)
 IF(MAIKO_DISPLAY_X11)
  FIND_PACKAGE(X11 REQUIRED)
  SET(MAIKO_DISPLAY_X11_DEFINITIONS
@@ -74,21 +72,6 @@ IF(MAIKO_DISPLAY_X11)
  )
 ENDIF()

-OPTION(MAIKO_DISPLAY_SDL "Use SDL for display." ON)
-IF(MAIKO_DISPLAY_SDL)
-  FIND_PACKAGE(SDL2 REQUIRED)
-  SET(MAIKO_DISPLAY_SDL_DEFINITIONS
-    "-DSDL"
-  )
-  SET(MAIKO_DISPLAY_SDL_LIBRARIES ${SDL2_LIBRARIES})
-  SET(MAIKO_DISPLAY_SDL_SRCS
-    src/sdl.c
-  )
-  SET(MAIKO_DISPLAY_SDL_HDRS
-    inc/sdldefs.h
-  )
-ENDIF()
-
 IF(CMAKE_SYSTEM_NAME STREQUAL "SunOS")
  LIST(APPEND MAIKO_DEFINITIONS
    "-DOS5"
@@ -407,7 +390,7 @@ SET(MAIKO_HDRS
 )

 ADD_CUSTOM_TARGET(gen-vdate
-  COMMAND mkvdate > vdate.c
+  COMMAND ../bin/mkvdate > vdate.c
  BYPRODUCTS vdate.c
 )

@@ -421,11 +404,6 @@ IF(MAIKO_DISPLAY_X11)
  TARGET_LINK_LIBRARIES(lde X11::X11)
 ENDIF()

-IF(MAIKO_DISPLAY_SDL)
-  # Tell it that the SDL launcher is available.
-  TARGET_COMPILE_DEFINITIONS(lde PUBLIC ${MAIKO_DISPLAY_SDL_DEFINITIONS})
-ENDIF()
-
 ADD_EXECUTABLE(ldeether src/ldeether.c src/dlpi.c)
 TARGET_COMPILE_DEFINITIONS(ldeether PUBLIC ${MAIKO_DEFINITIONS})
 TARGET_INCLUDE_DIRECTORIES(ldeether PUBLIC inc)
@@ -444,25 +422,6 @@ IF(MAIKO_DISPLAY_X11)
  TARGET_LINK_LIBRARIES(ldex ${MAIKO_LIBRARIES} ${MAIKO_DISPLAY_X11_LIBRARIES})
 ENDIF()

-IF(MAIKO_DISPLAY_SDL)
-  ADD_EXECUTABLE(ldesdl
-    src/main.c
-    vdate.c
-    ${MAIKO_SRCS}
-    ${MAIKO_HDRS}
-    ${MAIKO_DISPLAY_SDL_SRCS}
-    ${MAIKO_DISPLAY_SDL_HDRS}
-  )
-  TARGET_COMPILE_DEFINITIONS(ldesdl PUBLIC ${MAIKO_DEFINITIONS} ${MAIKO_DISPLAY_SDL_DEFINITIONS})
-  TARGET_INCLUDE_DIRECTORIES(ldesdl PUBLIC inc)
-  TARGET_INCLUDE_DIRECTORIES(ldesdl PRIVATE ${SDL2_INCLUDE_DIRS})
-  TARGET_LINK_LIBRARIES(ldesdl ${MAIKO_LIBRARIES} ${MAIKO_DISPLAY_SDL_LIBRARIES})
-ENDIF()
-
-ADD_EXECUTABLE(mkvdate src/mkvdate.c)
-TARGET_COMPILE_DEFINITIONS(mkvdate PUBLIC ${MAIKO_DEFINITIONS})
-TARGET_INCLUDE_DIRECTORIES(mkvdate PUBLIC inc)
-
 ADD_EXECUTABLE(setsout src/setsout.c src/byteswap.c)
 TARGET_COMPILE_DEFINITIONS(setsout PUBLIC ${MAIKO_DEFINITIONS})
 TARGET_INCLUDE_DIRECTORIES(setsout PUBLIC inc)
--- a/bin/machinetype
+++ b/bin/machinetype
@@ -12,6 +12,7 @@
 os=${LDEARCH:-`./config.guess`}
 # o/s switch block
 case "$os" in
+        m68k-*)		      echo m68k ;;
        sparc-*)	      echo sparc ;;
        alpha-*)	      echo alpha ;;
 	i*86-*-*)             echo 386 ;;
--- a/bin/makefile-tail
+++ b/bin/makefile-tail
@@ -160,9 +160,6 @@ $(OSARCHDIR)$(LDENAME): $(LIBFILES) $(EXTFILES) $(OBJECTDIR)vdate.o
 $(OSARCHDIR)ldeether: $(OBJECTDIR)ldeether.o $(DLPIFILES)
 	$(CC) $(OBJECTDIR)ldeether.o $(DLPIFILES) $(LDEETHERLDFLAGS) -o $(OSARCHDIR)ldeether

-$(OSARCHDIR)mkvdate: $(OBJECTDIR)mkvdate.o $(REQUIRED-INCS)
-	$(CC) $(OBJECTDIR)mkvdate.o $(LDFLAGS) -o $(OSARCHDIR)mkvdate
-
 $(OSARCHDIR)tstsout: $(OBJECTDIR)tstsout.o $(BYTESWAPFILES) $(REQUIRED-INCS)
 	$(CC) $(OBJECTDIR)tstsout.o $(BYTESWAPFILES) $(LDFLAGS) -lc -lm -o $(OSARCHDIR)tstsout

@@ -171,9 +168,9 @@ $(OSARCHDIR)setsout: $(OBJECTDIR)setsout.o $(REQUIRED-INCS)

 #### Component files ######################################################

-$(OBJECTDIR)vdate.o: $(LIBFILES) $(EXTFILES) $(OSARCHDIR)mkvdate
+$(OBJECTDIR)vdate.o: $(LIBFILES) $(EXTFILES) mkvdate
 	$(RM) $(OBJECTDIR)vdate.c
-	$(OSARCHDIR)mkvdate > $(OBJECTDIR)vdate.c
+	$(BINDIR)mkvdate > $(OBJECTDIR)vdate.c
 	$(CC) $(RFLAGS) $(OBJECTDIR)vdate.c -o $(OBJECTDIR)vdate.o

 $(OBJECTDIR)tstsout.o: $(SRCDIR)tstsout.c $(REQUIRED-INCS) \
@@ -197,9 +194,6 @@ $(OBJECTDIR)ldeboot.o: $(SRCDIR)ldeboot.c $(REQUIRED-INCS) \
 $(OBJECTDIR)ldeether.o: $(SRCDIR)ldeether.c $(REQUIRED-INCS)
 	$(CC) $(RFLAGS) $(SRCDIR)ldeether.c -o $(OBJECTDIR)ldeether.o

-$(OBJECTDIR)mkvdate.o: $(SRCDIR)mkvdate.c $(REQUIRED-INCS)
-	$(CC) $(RFLAGS) $(SRCDIR)mkvdate.c -o $(OBJECTDIR)mkvdate.o
-
 $(OBJECTDIR)main.o: $(SRCDIR)main.c $(REQUIRED-INCS) \
 	$(INCDIR)lispemul.h $(INCDIR)dbprint.h \
 	$(INCDIR)emlglob.h $(INCDIR)address.h $(INCDIR)adr68k.h $(INCDIR)stack.h \
@@ -1026,9 +1020,6 @@ $(OBJECTDIR)xwinman.o: $(SRCDIR)xwinman.c $(REQUIRED-INCS) \
 	$(INCDIR)xlspwindefs.h $(INCDIR)xscrolldefs.h
 	$(CC) $(RFLAGS) $(SRCDIR)xwinman.c -o $(OBJECTDIR)xwinman.o

-$(OBJECTDIR)sdl.o: $(SRCDIR)sdl.c $(REQUIRED-INCS)
-	$(CC) $(RFLAGS) $(SRCDIR)sdl.c -o $(OBJECTDIR)sdl.o
-
 $(OBJECTDIR)foreign.o: $(SRCDIR)foreign.c $(REQUIRED-INCS) \
 	$(INCDIR)/foreigndefs.h
 	$(CC) $(RFLAGS) $(SRCDIR)foreign.c -o $(OBJECTDIR)foreign.o
--- a/bin/mkvdate
+++ b/bin/mkvdate
@@ -0,0 +1,5 @@
+#!/bin/sh
+cat <<EOF
+#include <time.h>
+time_t MDate = $(date +%s);
+EOF
--- a/bin/osversion
+++ b/bin/osversion
@@ -1,6 +1,7 @@
 #!/bin/sh
-os=`./config.guess`
+os=${LDEARCH:-`./config.guess`}
 case "$os" in
+        m68k-*-amigaos)		echo amigaos ;;
        sparc-sun-sunos*)	echo sunos4 ;;
        sparc-sun-solaris1*)	echo sunos4 ;;
        *-*-solaris2*)	        echo sunos5 ;;
--- a/inc/commondefs.h
+++ b/inc/commondefs.h
@@ -3,6 +3,4 @@
 void stab(void);
 void warn(const char *s);
 int error(const char *s);
-int stackcheck(void);
-void stackoverflow(void);
 #endif
--- a/inc/display.h
+++ b/inc/display.h
@@ -44,10 +44,6 @@ extern DLword *DISP_MAX_Address;
 #define DISPLAYBUFFER
 #endif /* XWINDOW */

-#ifdef SDL
-#define DISPLAYBUFFER
-#endif /* SDL */
-
 #ifdef DOS
 #define DISPLAYBUFFER
 #endif /* DOS */
--- a/inc/maiko/platform.h
+++ b/inc/maiko/platform.h
@@ -59,6 +59,13 @@
 #  define MAIKO_OS_DETECTED 1
 #endif

+#ifdef amigaos3
+#  define MAIKO_OS_AMIGAOS3 1
+#  define MAIKO_OS_NAME "AmigaOS 3"
+#  define MAIKO_OS_UNIX_LIKE 1
+#  define MAIKO_OS_DETECTED 1
+#endif
+
 /* __SVR4: Defined by clang, gcc, and Sun Studio.
 * __SVR4__ was only defined by Sun Studio. */
 #if defined(__sun) && defined(__SVR4)
@@ -137,6 +144,13 @@
 #  define MAIKO_ARCH_DETECTED 1
 #endif

+#ifdef __mc68000
+#  define MAIKO_ARCH_M68000 1
+#  define MAIKO_ARCH_NAME "Motorola68K"
+#  define MAIKO_ARCH_WORD_BITS 32
+#  define MAIKO_ARCH_DETECTED 1
+#endif
+
 /* Modern GNU C, Clang, Sun Studio  provide __BYTE_ORDER__
 * Older GNU C (ca. 4.0.1) provides __BIG_ENDIAN__/__LITTLE_ENDIAN__
 */
--- a/inc/sdldefs.h
+++ b/inc/sdldefs.h
@@ -1,11 +0,0 @@
-#ifndef SDLDEFS_H
-#define SDLDEFS_H 1
-
-void sdl_notify_damage(int x, int y, int w, int h);
-void sdl_setCursor(int hot_x, int hot_y);
-void sdl_bitblt_to_screen(int x, int y, int w, int h);
-void sdl_set_invert(int flag);
-void sdl_setMousePosition(int x, int y);
-void process_SDLevents();
-int init_SDL(char *windowtitle, int w, int h, int s);
-#endif
--- a/inc/version.h
+++ b/inc/version.h
@@ -187,8 +187,8 @@ error Must specify RELEASE to build Medley.

 	/* Set up defaults */
 #define UNALIGNED_FETCH_OK
-#define UNSIGNED unsigned long
-#define INT long
+typedef unsigned long UNSIGNED;
+typedef long INT;



@@ -237,9 +237,9 @@ typedef unsigned char u_char;
 typedef unsigned long u_int;
 typedef unsigned short u_short;
 #undef UNALIGNED_FETCH_OK
-#define USHORT unsigned
+typedef unsigned USHORT;
 #else
-#define USHORT unsigned short
+typedef unsigned short USHORT;
 #endif /* DOS */

 	/****************************************************************/
--- a/src/bbtsub.c
+++ b/src/bbtsub.c
@@ -479,10 +479,6 @@ do_it_now:
  if (in_display_segment(dstbase)) flush_display_region(dx, dty, w, h);
 #endif /* XWINDOW */

-#ifdef SDL
-  if (in_display_segment(dstbase)) flush_display_region(dx, dty, w, h);
-#endif /* XWINDOW */
-
 #ifdef DOS
  /* Copy the changed section of display bank to the frame buffer */
  if (in_display_segment(dstbase)) {
@@ -838,10 +834,6 @@ do_it_now:
  if (in_display_segment(dstbase)) flush_display_region(dlx, dty, width, height);
 #endif /* XWINDOW */

-#ifdef SDL
-  if (in_display_segment(dstbase)) flush_display_region(dlx, dty, width, height);
-#endif /* SDL */
-
 #ifdef DOS
  /* Copy the changed section of display bank to the frame buffer */
  if (in_display_segment(dstbase)) {
@@ -1089,10 +1081,6 @@ do_it_now:
  if (in_display_segment(dstbase)) flush_display_region(left, dty, width, height);
 #endif /* XWINDOW */

-#ifdef SDL
-  if (in_display_segment(dstbase)) flush_display_region(left, dty, width, height);
-#endif /* SDL */
-
 #ifdef DOS
  /* Copy the changed section of display bank to the frame buffer */
  if (in_display_segment(dstbase)) {
@@ -1222,10 +1210,6 @@ void bltchar(LispPTR *args)
  if (in_display_segment(dstbase)) flush_display_lineregion(dx, dstbase, w, h);
 #endif /* XWINDOW */

-#ifdef SDL
-  if (in_display_segment(dstbase)) flush_display_lineregion(dx, dstbase, w, h);
-#endif /* SDL */
-
 #ifdef DOS
  if (in_display_segment(dstbase)) flush_display_lineregion(dx, dstbase, w, h);
 #endif /* DOS */
@@ -1439,9 +1423,6 @@ void newbltchar(LispPTR *args) {
 #ifdef XWINDOW
  if (in_display_segment(dstbase)) flush_display_lineregion(dx, dstbase, w, h);
 #endif /* XWINDOW */
-#ifdef SDL
-  if (in_display_segment(dstbase)) flush_display_lineregion(dx, dstbase, w, h);
-#endif /* SDL */
 #ifdef DOS
  if (in_display_segment(dstbase)) flush_display_lineregion(dx, dstbase, w, h);
 #endif /* DOS */
--- a/src/common.c
+++ b/src/common.c
@@ -141,39 +141,3 @@ uraidloop:

 void warn(const char *s)
 { printf("\nWARN: %s \n", s); }
-
-/*****************************************************************
-stackcheck
-
-        common sub-routine.
-
-        Not Implemented.
-
-        1.check Stack overflow.
-                (check CurrentStackPTR)
-        2.if overflow, return T (not 0).
-          Otherwise, return F (0).
-******************************************************************/
-int stackcheck() {
-#ifdef TRACE2
-  printf("TRACE:stackcheck()\n");
-#endif
-  return (0);
-}
-
-/*****************************************************************
-stackoverflow
-
-        common sub-routine.
-
-        Not Implemented.
-
-        1.error handling of stack overflow.
-******************************************************************/
-
-void stackoverflow() {
-#ifdef TRACE2
-  printf("TRACE:stackoverflow()\n");
-#endif
-  printf("stackoverflow \n");
-}
--- a/src/dspsubrs.c
+++ b/src/dspsubrs.c
@@ -21,11 +21,9 @@

 #include "dspsubrsdefs.h"
 #include "commondefs.h"
-#if defined(XWINDOW)
+#ifdef XWINDOW
 #include "xcursordefs.h"
 #include "xlspwindefs.h"
-#elif defined(SDL)
-#include "sdldefs.h"
 #endif

 extern int DebugDSP;
@@ -74,13 +72,6 @@ LispPTR DSP_VideoColor(LispPTR *args) /* args[0] :	black flag	*/
    return ATOM_T;
  else
    return NIL;
-#elif defined(SDL)
-  invert = args[0] & 0xFFFF;
-  sdl_set_invert(invert);
-  if (invert)
-    return ATOM_T;
-  else
-    return NIL;
 #else
  return NIL;
 #endif
@@ -105,11 +96,9 @@ void DSP_Cursor(LispPTR *args, int argnum)
  extern int LastCursorX, LastCursorY;


-#if defined(XWINDOW)
+#ifdef XWINDOW
  /* For X-Windows, set the cursor to the given location. */
  Set_XCursor((int)(args[0] & 0xFFFF), (int)(args[1] & 0xFFFF));
-#elif defined(SDL)
-  sdl_setCursor((int)(args[0] & 0xFFFF), (int)(args[1] & 0xFFFF));
 #endif /* XWINDOW */
 }

@@ -129,11 +118,6 @@ void DSP_SetMousePos(register LispPTR *args)
  if (Mouse_Included)
    set_Xmouseposition((int)(GetSmalldata(args[0])), (int)(GetSmalldata(args[1])));
 #endif /* XWINDOW */
-#ifdef SDL
-  int x = (int)(GetSmalldata(args[0]));
-  int y = (int)(GetSmalldata(args[1]));
-  sdl_setMousePosition(x, y);
-#endif /* SDL */
 }

 /****************************************************
@@ -194,10 +178,8 @@ void flip_cursor() {
 #endif


-#if defined(XWINDOW)
+#ifdef XWINDOW
  /* JDS 011213: 15- cur y, as function does same! */
  Set_XCursor(Current_Hot_X, 15 - Current_Hot_Y);
-#elif defined(SDL)
-  sdl_setCursor(0, 0); // TODO: keep track of the current hot_x and hot_y
 #endif /* XWINDOW */
 }
--- a/src/initdsp.c
+++ b/src/initdsp.c
@@ -66,7 +66,6 @@ extern DspInterface currentdsp;
 int LispWindowFd = -1;
 int FrameBufferFd = -1;

-extern int sdl_displaywidth, sdl_displayheight, sdl_pixelscale;
 int displaywidth, displayheight, DisplayRasterWidth, DisplayType;
 int DisplayByteSize;
 DLword *DisplayRegion68k; /* 68k addr of #{}22,0 */
@@ -90,10 +89,6 @@ extern DLword *ColorDisplayRegion68k;
 extern int MonoOrColor;
 #endif /* COLOR */

-#ifdef SDL
-extern void sdl_notify_damage(int, int, int, int);
-#endif /* SDL */
-
 #ifdef XWINDOW
 DLword *DisplayRegion68k_end_addr;
 extern int *Xdisplay; /* DAANGER -jarl nilsson 27-apr-92 */
@@ -185,10 +180,7 @@ void init_display2(DLword *display_addr, int display_max)
  displaywidth = currentdsp->Display.width;
  displayheight = currentdsp->Display.height;
 #endif /* XWINDOW */
-#if (defined(SDL))
-  displaywidth = sdl_displaywidth;
-  displayheight = sdl_displayheight;
-#endif /* SDL */
+
  DisplayRasterWidth = displaywidth / BITSPER_DLWORD;

  if ((displaywidth * displayheight) > display_max) { displayheight = display_max / displaywidth; }
@@ -202,9 +194,7 @@ void init_display2(DLword *display_addr, int display_max)
  DisplayType = SUN2BW;
  DisplayRegion68k_end_addr = DisplayRegion68k + DisplayRasterWidth * displayheight;
 #endif /* XWINDOW */
-#ifdef SDL
-  DisplayType = SUN2BW;
-#endif /* SDL */
+
  init_cursor();
  DisplayByteSize = ((displaywidth * displayheight / 8 + (getpagesize() - 1)) & -getpagesize());

@@ -276,10 +266,7 @@ in_display_segment(baseaddr)
 /************************************************************************/

 void flush_display_buffer() {
-  //  printf("flush_display_buffer\n");
-#ifdef SDL
-  sdl_notify_damage(0, 0, sdl_displaywidth, sdl_displayheight);
-#endif
+
 #ifdef XWINDOW
  (currentdsp->bitblt_to_screen)(currentdsp, DisplayRegion68k, currentdsp->Visible.x,
                                 currentdsp->Visible.y, currentdsp->Visible.width,
@@ -310,10 +297,7 @@ void flush_display_buffer() {

 void flush_display_region(int x, int y, int w, int h)
 {
-  //  printf("flush_display_region %d %d %d %d\n", x, y, w, h);
-#ifdef SDL
-  sdl_notify_damage(x, y, w, h);
-#endif
+
 #if (defined(XWINDOW) || defined(DOS))
  TPRINT(("Enter flush_display_region x=%d, y=%d, w=%d, h=%d\n", x, y, w, h));
  (currentdsp->bitblt_to_screen)(currentdsp, DisplayRegion68k, x, y, w, h);
@@ -356,10 +340,7 @@ void flush_display_lineregion(UNSIGNED x, DLword *ybase, UNSIGNED w, UNSIGNED h)
 {
  int y;
  y = ((DLword *)ybase - DisplayRegion68k) / DLWORD_PERLINE;
-  //  printf("flush_display_lineregion %d %d %d %d\n", x, y, w, h);
-#ifdef SDL
-  sdl_notify_damage(x, y, w, h);
-#endif
+
 #if (defined(XWINDOW) || defined(DOS))
  TPRINT(("Enter flush_display_lineregion x=%d, y=%d, w=%d, h=%d\n", x, y, w, h));
  (currentdsp->bitblt_to_screen)(currentdsp, DisplayRegion68k, x, y, w, h);
@@ -390,10 +371,7 @@ void flush_display_ptrregion(DLword *ybase, UNSIGNED bitoffset, UNSIGNED w, UNSI
  baseoffset = (((DLword *)ybase) - DisplayRegion68k);
  y = baseoffset / DLWORD_PERLINE;
  x = bitoffset + (BITSPERWORD * (baseoffset - (DLWORD_PERLINE * y)));
-  //  printf("flush_display_ptrregion %d %d %d %d\n", x, y, w, h);
-#ifdef SDL
-  sdl_notify_damage(x, y, w, h);
-#endif
+
 #if   (defined(XWINDOW) || defined(DOS))
  TPRINT(("Enter flush_display_ptrregion\n x=%d, y=%d, w=%d, h=%d\n", x, y, w, h));
  (currentdsp->bitblt_to_screen)(currentdsp, DisplayRegion68k, x, y, w, h);
--- a/src/initkbd.c
+++ b/src/initkbd.c
@@ -273,7 +273,6 @@ void set_kbd_iopointers() {
 #define KB_HP9000 (10 + MIN_KEYTYPE)  /* TODO: Can we remove this? */
 #define KB_X (11 + MIN_KEYTYPE)
 #define KB_DOS (12 + MIN_KEYTYPE)
-#define KB_SDL (13 + MIN_KEYTYPE)

 /* KB_SUN4 not defined in older OS versions */
 #ifndef KB_SUN4
@@ -433,8 +432,6 @@ void keyboardtype(int fd)
    type = KB_X;
 #elif DOS
    type = KB_DOS;
-#elif SDL
-    type = KB_SDL;
 #endif /* XWINDOW */
  } /* if end */
  else {
@@ -450,8 +447,6 @@ void keyboardtype(int fd)
      type = KB_X;
    else if (strcmp("x", key) == 0)
      type = KB_X;
-    else if (strcmp("sdl", key) == 0)
-      type = KB_SDL;
    else
      type = KB_SUN3; /* default */
  }
@@ -488,11 +483,7 @@ void keyboardtype(int fd)
      InterfacePage->devconfig |= KB_SUN3 - MIN_KEYTYPE; /* 10 */
      break;
 #endif /* XWINDOW */
-#ifdef SDL
-  case KB_SDL:
-    InterfacePage->devconfig |= KB_SUN3 - MIN_KEYTYPE; /* 10 */
-    break;
-#endif /* SDL */
+
 #ifdef DOS
    case KB_DOS:
      SUNLispKeyMap = DOSLispKeyMap_101;
--- a/src/keyevent.c
+++ b/src/keyevent.c
@@ -58,9 +58,7 @@ void Mouse_hndlr(void); /* Fields mouse events from driver        */

 #include "keyeventdefs.h"
 #include "osmsgdefs.h"
-#ifdef XWINDOW
 #include "xwinmandefs.h"
-#endif

 #ifdef MAIKO_ENABLE_ETHERNET
 #include "etherdefs.h"
--- a/src/ldeboot.c
+++ b/src/ldeboot.c
@@ -35,9 +35,7 @@
 #include <X11/Xutil.h>
 #define LDEX "ldex"
 #endif /* XWINDOW */
-#ifdef SDL
-#define LDESDL "ldesdl"
-#endif
+
 #define LDEMONO "ldesingle"
 #define LDECOLOR "ldemulti"
 #define LDETRUECOLOR "ldetruecolor"
@@ -135,9 +133,7 @@ int main(int argc, char *argv[])
    }   /* end if */
  }
 #endif /* XWINDOW */
-#ifdef SDL
-  strcpy(filetorun,LDESDL);
-#endif /* SDL */
+
 #ifdef USESUNSCREEN
  if ((FrameBufferFd = open("/dev/fb", O_RDWR)) < 0) {
    fprintf(stderr, "ldeboot: can't open FrameBuffer\n");
@@ -191,6 +187,7 @@ int main(int argc, char *argv[])
    fork_Unix();

  /* start ldemono or ldecolor */
+
  if (filetorun[0] == '\0') {
    fprintf(stderr, "Unable to determine what display program to run.\n");
    exit(1);
--- a/src/main.c
+++ b/src/main.c
@@ -245,9 +245,7 @@ int flushing = FALSE; /* see dbprint.h if set, all debug/trace printing will cal
 #include "devif.h"
 extern DspInterface currentdsp;
 #endif /* DOS || XWINDOW */
-#ifdef SDL
-extern int init_SDL(char*, int, int, int);
-#endif
+
 extern time_t MDate;
 extern int nokbdflag;
 extern int nomouseflag;
@@ -285,18 +283,7 @@ const char *helpstring =
 -bw <pixels>             The Medley screen borderwidth\n\
 -g[eometry] <geom>]      The Medley screen geometry\n\
 -sc[reen] <w>x<h>]       The Medley screen geometry\n";
-#elif SDL
-const char *helpstring =
-    "\n\
- either setenv LDESRCESYSOUT or do:\n\
- medley [<sysout-name>] [<options>]\n\
- -info                    Print general info about the system\n\
- -help                    Print this message\n\
- -pixelscale <n>          The amount of pixels to show for one Medley screen pixel.\n\
- -sc[reen] <w>x<h>]       The Medley screen geometry\n\
- -t <title>               The window title\n\
- -title <title>           The window title\n";
-#else  /* not DOS, not XWINDOW, not SDL */
+#else  /* not DOS, not XWINDOW */
 const char *helpstring =
    "\n\
 either setenv LDESRCESYSOUT or do:\n\
@@ -319,9 +306,6 @@ int main(int argc, char *argv[])
  extern int TIMER_INTERVAL;
  extern fd_set LispReadFds;
  int tmpint;
-  int width = 1024, height = 768;
-  int pixelscale = 1;
-  char *windowtitle = "Medley";
 #ifdef MAIKO_ENABLE_FOREIGN_FUNCTION_INTERFACE
  if (dld_find_executable(argv[0]) == 0) {
    perror("Name of executable not found.");
@@ -449,40 +433,7 @@ int main(int argc, char *argv[])
    }

 #endif /* DOS */
-#ifdef SDL
-    else if ((strcmp(argv[i], "-sc") == 0) || (strcmp(argv[i], "-SC") == 0)) {
-      if (argc > ++i) {
-        int read = sscanf(argv[i], "%dx%d", &width, &height);
-        if(read != 2) {
-          fprintf(stderr, "Could not parse -sc argument %s\n", argv[i]);
-          exit(1);
-        }
-      } else {
-        fprintf(stderr, "Missing argument after -sc\n");
-        exit(1);
-      }
-    } else if ((strcmp(argv[i], "-pixelscale") == 0) || (strcmp(argv[i], "-PIXELSCALE") == 0)) {
-      if (argc > ++i) {
-        int read = sscanf(argv[i], "%d", &pixelscale);
-        if(read != 1) {
-          fprintf(stderr, "Could not parse -pixelscale argument %s\n", argv[i]);
-          exit(1);
-        }
-      } else {
-        fprintf(stderr, "Missing argument after -pixelscale\n");
-        exit(1);
-      }
-    } else if ((strcmp(argv[i], "-t") == 0) || (strcmp(argv[i], "-T") == 0)
-               || (strcmp(argv[i], "-title") == 0) || (strcmp(argv[i], "-TITLE") == 0)) {
-      if (argc > ++i) {
-        windowtitle = argv[i];
-      } else {
-        fprintf(stderr, "Missing argument after -title\n");
-        exit(1);
-      }
-    }

-#endif /* SDL */
    /* Can only do this under SUNOs, for now */
    else if (!strcmp(argv[i], "-E")) { /**** ethernet info	****/
 #ifdef MAIKO_ENABLE_ETHERNET
@@ -562,9 +513,7 @@ int main(int argc, char *argv[])
 #if defined(DOS) || defined(XWINDOW)
  make_dsp_instance(currentdsp, 0, 0, 0, 1); /* All defaults the first time */
 #endif                                       /* DOS || XWINDOW */
-#if defined(SDL)
-  init_SDL(windowtitle, width, height, pixelscale);
-#endif /* SDL */
+
  /* Load sysout to VM space and returns real sysout_size(not 0) */
  sysout_size = sysout_loader(sysout_name, sysout_size);

--- a/src/sdl.c
+++ b/src/sdl.c
@@ -1,735 +0,0 @@
-#include <SDL.h>
-#include <SDL_keycode.h>
-#include <assert.h>
-#include <limits.h>
-#include "sdldefs.h"
-#include "byteswapdefs.h"
-#include "lispemul.h"
-#include "lsptypes.h"
-#include "miscstat.h"
-#include "keyboard.h"
-#include "lspglob.h"  // for IOPage
-#include "display.h"  // for CURSORHEIGHT, DisplayRegion68k
-
-/* if SDLRENDERING is defined, render to a texture rather than
- * using the window surface
- */
-
-#define  SDLRENDERING 1
-
-static SDL_Window *sdl_window = NULL;
-#if defined(SDLRENDERING)
-static SDL_Renderer *sdl_renderer = NULL;
-static SDL_RendererInfo sdl_rendererinfo = {0};
-static SDL_Texture *sdl_texture = NULL;
-#else
-static SDL_Surface *sdl_windowsurface = NULL;
-static SDL_Surface *sdl_buffersurface = NULL;
-static int buffer_size = 0;
-static void *buffer = NULL;
-#endif
-static Uint32 sdl_white;
-static Uint32 sdl_black;
-static Uint32 sdl_foreground;
-static Uint32 sdl_background;
-static int sdl_bytesperpixel;
-static SDL_PixelFormat *sdl_pixelformat;
-
-extern void kb_trans(u_short keycode, u_short upflg);
-extern int error(const char *s);
-
-extern int KBDEventFlg;
-/* clang-format off */
-int keymap[] = {
-  0, SDLK_5,
-  1, SDLK_4,
-  2, SDLK_6,
-  3, SDLK_e,
-  4, SDLK_7,
-  5, SDLK_d,
-  6, SDLK_u,
-  7, SDLK_v,
-  8, SDLK_RIGHTPAREN,
-  8, SDLK_0,
-  9, SDLK_k,
-  10, SDLK_MINUS,
-  11, SDLK_p,
-  12, SDLK_SLASH,
-  13, SDLK_KP_PERIOD,
-  14, SDLK_SCROLLLOCK,
-  15, SDLK_BACKSPACE,
-  16, SDLK_3,
-  17, SDLK_2,
-  18, SDLK_w,
-  19, SDLK_q,
-  20, SDLK_s,
-  21, SDLK_a,
-  22, SDLK_LEFTPAREN,
-  22, SDLK_9,
-  23, SDLK_i,
-  24, SDLK_x,
-  25, SDLK_o,
-  26, SDLK_l,
-  27, SDLK_COMMA,
-  28, SDLK_QUOTE,
-  29, SDLK_RIGHTBRACKET,
-  31, SDLK_LALT, /* Meta, Sun-4 usual key */
-  32, SDLK_1,
-  33, SDLK_ESCAPE,
-  34, SDLK_TAB,
-  35, SDLK_f,
-  36, SDLK_LCTRL,
-  37, SDLK_c,
-  38, SDLK_j,
-  39, SDLK_b,
-  40, SDLK_z,
-  41, SDLK_LSHIFT,
-  42, SDLK_PERIOD,
-  43, SDLK_SEMICOLON,
-  43, SDLK_COLON,
-  44, SDLK_RETURN,
-  45, SDLK_BACKQUOTE,
-  47, SDLK_RCTRL,
-  48, SDLK_r,
-  49, SDLK_t,
-  50, SDLK_g,
-  51, SDLK_y,
-  52, SDLK_h,
-  53, SDLK_8,
-  54, SDLK_n,
-  55, SDLK_m,
-  56, SDLK_CAPSLOCK,
-  57, SDLK_SPACE,
-  58, SDLK_LEFTBRACKET,
-  59, SDLK_EQUALS,
-  60, SDLK_RSHIFT,
-  61, SDLK_F11,
-  61, SDLK_PAUSE,
-  62, SDLK_HOME,
-  63, SDLK_PAGEUP,
-  64, SDLK_KP_EQUALS,
-  65, SDLK_KP_DIVIDE,
-  66, SDLK_F7,
-  67, SDLK_F4,
-  68, SDLK_F5,
-  69, SDLK_KP_2,
-  70, SDLK_KP_3,
-  // 71, XK_Linefeed,
-  // 73, XK_Numlock,
-  76, SDLK_KP_ENTER,
-  80, SDLK_F9,
-  81, SDLK_KP_7,
-  82, SDLK_KP_8,
-  83, SDLK_KP_9,
-  84, SDLK_KP_4,
-  85, SDLK_KP_5,
-  86, SDLK_LALT, /* (sun left-diamond key) */
-  87, SDLK_KP_6,
-  89, SDLK_INSERT,
-  90, SDLK_END,
-  91, SDLK_F12,
-  92, SDLK_PRINTSCREEN, // is this XK_Print??
-  93, SDLK_MODE, // is this XK_Mode_switch
-  94, SDLK_KP_1,
-  95, SDLK_KP_MULTIPLY,
-  96, SDLK_KP_MINUS,
-  97, SDLK_HELP,
-  98, SDLK_KP_0,
-  99, SDLK_F2,
-  100, SDLK_F3,
-  101, SDLK_F6,
-  102, SDLK_KP_PLUS,
-  104, SDLK_F8,
-  105, SDLK_BACKSLASH,
-  106, SDLK_F10,
-  107, SDLK_F11,
-  108, SDLK_F12,
-  -1, -1
-};
-/* clang-format on */
-static const DLword bitmask[16] = {1 << 15, 1 << 14, 1 << 13, 1 << 12, 1 << 11, 1 << 10,
-                                   1 << 9,  1 << 8,  1 << 7,  1 << 6,  1 << 5,  1 << 4,
-                                   1 << 3,  1 << 2,  1 << 1,  1 << 0};
-// all of the following are overwritten, the values here are irrelevant defaults!
-// actual size of the lisp display in pixels.
-int sdl_displaywidth = 0;
-int sdl_displayheight = 0;
-// current size of the window, in pixels
-int sdl_windowwidth = 0;
-int sdl_windowheight = 0;
-// each pixel is shown as this many pixels
-int sdl_pixelscale = 0;
-extern DLword *EmKbdAd068K, *EmKbdAd168K, *EmKbdAd268K, *EmKbdAd368K, *EmKbdAd468K, *EmKbdAd568K,
-    *EmRealUtilin68K;
-extern DLword *EmCursorBitMap68K;
-extern DLword *CTopKeyevent;
-extern int URaid_req;
-extern LispPTR *KEYBUFFERING68k;
-
-void DoRing() {
-  DLword w, r;
-  KBEVENT *kbevent;
-
-do_ring:
-  /* DEL is not generally present on a Mac X keyboard, Ctrl-shift-ESC would be 18496 */
-  if (((*EmKbdAd268K) & 2113) == 0) { /*Ctrl-shift-NEXT*/
-    error("******  EMERGENCY Interrupt ******");
-    *EmKbdAd268K = KB_ALLUP;          /*reset*/
-    ((RING *)CTopKeyevent)->read = 0; /* reset queue */
-    ((RING *)CTopKeyevent)->write = MINKEYEVENT;
-    /*return(0);*/
-  } else if (((*EmKbdAd268K) & 2114) == 0) { /* Ctrl-Shift-DEL */
-    *EmKbdAd268K = KB_ALLUP;                 /*reset*/
-    URaid_req = T;
-    ((RING *)CTopKeyevent)->read = 0; /* reset queue */
-    ((RING *)CTopKeyevent)->write = MINKEYEVENT;
-    /*return(0);*/
-  }
-
-#ifdef OS4_TYPE4BUG
-  else if (((*EmKbdAd268K) & 2120) == 0) { /* Ctrl-Shift-Return */
-    *EmKbdAd268K = KB_ALLUP;               /*reset*/
-    URaid_req = T;
-    ((RING *)CTopKeyevent)->read = 0; /* reset queue */
-    ((RING *)CTopKeyevent)->write = MINKEYEVENT;
-  }
-#endif
-
-  r = RING_READ(CTopKeyevent);
-  w = RING_WRITE(CTopKeyevent);
-
-  if (r == w) /* event queue FULL */
-    goto KBnext;
-
-  kbevent = (KBEVENT *)(CTopKeyevent + w);
-  /*    RCLK(kbevent->time); */
-  kbevent->W0 = *EmKbdAd068K;
-  kbevent->W1 = *EmKbdAd168K;
-  kbevent->W2 = *EmKbdAd268K;
-  kbevent->W3 = *EmKbdAd368K;
-  kbevent->W4 = *EmKbdAd468K;
-  kbevent->W5 = *EmKbdAd568K;
-  kbevent->WU = *EmRealUtilin68K;
-
-  if (r == 0) /* Queue was empty */
-    ((RING *)CTopKeyevent)->read = w;
-  if (w >= MAXKEYEVENT)
-    ((RING *)CTopKeyevent)->write = MINKEYEVENT;
-  else
-    ((RING *)CTopKeyevent)->write = w + KEYEVENTSIZE;
-
-KBnext:
-  if (*KEYBUFFERING68k == NIL) *KEYBUFFERING68k = ATOM_T;
-}
-
-static int min(int a, int b) {
-  if (a < b) return a;
-  return b;
-}
-
-static int display_update_needed = 0;
-
-static int min_x = INT_MAX;
-static int min_y = INT_MAX;
-static int max_x = 0;
-static int max_y = 0;
-void sdl_notify_damage(int x, int y, int w, int h) {
-  if (x < min_x) min_x = x;
-  if (y < min_y) min_y = y;
-  if (x + w > max_x) max_x = min(x + w, sdl_displaywidth - 1);
-  if (y + h > max_y) max_y = min(y + h, sdl_displayheight - 1);
-  display_update_needed = 1;
-}
-
-/* a simple linked list to remember generated cursors
- * because cursors don't have any identifying information
- * except for the actual bitmap in Lisp, just cache that.
- * 16 DLwords, to give a 16x16 bitmap cursor.
- */
-struct CachedCursor {
-  struct CachedCursor *next;
-  DLword EmCursorBitMap[CURSORHEIGHT];
-  SDL_Cursor *cursor;
-} *sdl_cursorlist = NULL;
-
-/*
- * given a 16-bit value and a repeat count modify an array
- * of bytes to contain the same bit pattern with each bit
- * repeated "reps" times consecutively in the output
- */
-static void replicate_bits(int bits, int reps, Uint8 *out) {
-  int dbyte = 0;
-  int dbit = 7;
-  for (int ibit = 15; ibit >= 0; --ibit) {
-    for (int r = 0; r < reps; r++) {
-      if (bits & (1 << ibit))
-        out[dbyte] |= 1 << dbit;
-      if (--dbit < 0) {
-        dbyte++;
-        dbit = 7;
-      }
-    }
-  }
-}
-
-static int cursor_equal_p(DLword *a, DLword *b) {
-  for (int i = 0; i < CURSORHEIGHT; i++)
-    if (a[i] != b[i]) return FALSE;
-  return TRUE;
-}
-
-/*
- * Try to find cursor CURSOR on the sdl_cursorlist, if it isn't there, add it.
- * Return an SDL_Cursor that can be used directly.
- */
-static SDL_Cursor *sdl_getOrAllocateCursor(DLword cursor[16], int hot_x, int hot_y) {
-  hot_x = 0;
-  hot_y = 0;
-  /* try to find the cursor by checking the full bitmap */
-  struct CachedCursor *pclp = NULL;
-  struct CachedCursor *clp = sdl_cursorlist;
-  SDL_Cursor *c;
-  while (clp != NULL) {
-    if (cursor_equal_p(clp->EmCursorBitMap, cursor) == TRUE) {
-      /* if it's in the first two elements of the list, leave the order alone.
-       * There is a high probability of flipping back and forth between two
-       */
-      if (clp == sdl_cursorlist || pclp == sdl_cursorlist) {
-        return clp->cursor;
-      }
-      /* otherwise unlink the found item and reinsert at the front */
-      pclp->next = clp->next;
-      clp->next = sdl_cursorlist;
-      sdl_cursorlist = clp;
-      return clp->cursor;
-    }
-    pclp = clp;
-    clp = clp->next;
-  }
-  /* It isn't there, so build a new one */
-  clp = (struct CachedCursor *)malloc(sizeof(struct CachedCursor));
-  memcpy(clp->EmCursorBitMap, cursor, sizeof(clp->EmCursorBitMap));
-  /* no scaling is an easy case, scale > 1 is harder */
-  if (sdl_pixelscale == 1) {
-    Uint8 sdl_cursor_data[32];
-    for (int i = 0; i < 32; i++) sdl_cursor_data[i] = GETBYTE(((Uint8 *)cursor) + i);
-    c = SDL_CreateCursor(sdl_cursor_data, sdl_cursor_data, 16, 16, hot_x, hot_y);
-  } else {
-    Uint8 *sdl_cursor_data = calloc(sdl_pixelscale * sdl_pixelscale, 32);
-    /* fill in the cursor data expanded */
-    for (int i = 0; i < 32; i += 2) {
-      int v = GETBYTE(((Uint8 *)cursor) + i) << 8 | GETBYTE(((Uint8 *)cursor) + i + 1);
-      int db = i * sdl_pixelscale * sdl_pixelscale;
-      /* spread the bits out for the first copy of the row */
-      replicate_bits(v, sdl_pixelscale, &sdl_cursor_data[db]);
-      /* and then copy the replicated bits for the copies of the row */
-      for (int j = 1; j < sdl_pixelscale; j++) {
-        memcpy(&sdl_cursor_data[db + (j * 2 * sdl_pixelscale)], &sdl_cursor_data[db], 2 * sdl_pixelscale);
-      }
-    }
-    c = SDL_CreateCursor(sdl_cursor_data, sdl_cursor_data, 16 * sdl_pixelscale, 16 * sdl_pixelscale, hot_x, hot_y);
-  }
-  if (c == NULL) printf("ERROR creating cursor: %s\n", SDL_GetError());
-  clp->cursor = c;
-  clp->next = sdl_cursorlist;
-  sdl_cursorlist = clp;
-  return clp->cursor;
-}
-
-/*
- * Read a cursor bitmap from lisp. Try to find a cached cursor, then use that.
- * Use HOT_X and HOT_Y as the cursor hotspot.
- * XXX: needs to deal with sdl_pixelscale > 1, and where is the hotspot?
- */
-void sdl_setCursor(int hot_x, int hot_y) {
-  SDL_Cursor *c = sdl_getOrAllocateCursor(EmCursorBitMap68K, hot_x, hot_y);
-  SDL_SetCursor(c);
-}
-#if defined(SDLRENDERING)
-void sdl_bitblt_to_texture(int _x, int _y, int _w, int _h) {
-  DLword *src = DisplayRegion68k;
-  void *dst;
-  int dstpitchbytes;
-  int dstpitchpixels;
-  const int bitsperword = 8 * sizeof(DLword);
-  int sourcepitchwords = sdl_displaywidth / bitsperword;
-  int xstart = _x / bitsperword;
-  int xlimit = (_x + _w + bitsperword - 1) / bitsperword;
-  int ystart = _y * sourcepitchwords;
-  int ylimit = (_y + _h) * sourcepitchwords;
-  SDL_Rect dstrect;
-  // Avoid dealing with partial words in the update by stretching the source rectangle
-  // left and right to cover complete units and lock the corresponding
-  // region in the texture
-  dstrect.x = xstart * bitsperword;
-  dstrect.w = (xlimit * bitsperword) - dstrect.x;
-  dstrect.y = _y;
-  dstrect.h = _h;
-  SDL_LockTexture(sdl_texture, &dstrect, &dst, &dstpitchbytes);
-  dstpitchpixels = dstpitchbytes / sdl_bytesperpixel;
-  int dy = 0;
-  // for each line in the source image
-  for (int sy = ystart; sy < ylimit; sy += sourcepitchwords, dy += dstpitchpixels) {
-    // for each word in the line
-    int dx = 0;
-    for (int sx = xstart; sx < xlimit; sx++, dx += bitsperword) {
-      int srcw = GETBASEWORD(src, sy + sx);
-      // for each bit in the word
-      for (int b = 0; b < bitsperword; b++) {
-        ((Uint32 *)dst)[dy + dx + b] = (srcw & bitmask[b]) ? sdl_foreground : sdl_background;
-      }
-    }
-  }
-  SDL_UnlockTexture(sdl_texture);
-}
-void sdl_bitblt_to_texture_exact(int _x, int _y, int _w, int _h) {
-  DLword *src = DisplayRegion68k;
-  void *dst;
-  int dstpitchbytes;
-  int dstpitchpixels;
-  const int bitsperword = 8 * sizeof(DLword);
-  int sourcepitchwords = sdl_displaywidth / bitsperword;
-  int xstart = _x / bitsperword;   // "word" index of first accessed word in line
-  int xstartb = _x % bitsperword;  // bit within word
-  int xlimit = (_x + _w + bitsperword - 1) / bitsperword;  // word index
-  int ystart = _y * sourcepitchwords;
-  int ylimit = (_y + _h) * sourcepitchwords;
-  SDL_Rect dstrect = {.x = _x, .y = _y, .w = _w, .h = _h};
-  SDL_LockTexture(sdl_texture, &dstrect, &dst, &dstpitchbytes);
-  dstpitchpixels = dstpitchbytes / sdl_bytesperpixel;
-  int dy = 0;
-  // for each line in the source image
-  for (int sy = ystart; sy < ylimit; sy += sourcepitchwords, dy += dstpitchpixels) {
-    int dx = 0;
-    int sx = xstart;
-    int b = xstartb;
-    int srcw = GETBASEWORD(src, sy + sx);
-    // for each pixel within the dstination region line
-    for (int dx = 0; dx < _w; dx++) {
-      ((Uint32 *)dst)[dy + dx] = (srcw & bitmask[b]) ? sdl_foreground : sdl_background;
-      if (++b == bitsperword) {
-        b = 0;
-        sx++;
-        srcw = GETBASEWORD(src, sy + sx);
-      }
-    }
-  }
-  SDL_UnlockTexture(sdl_texture);
-}
-#else
-void sdl_bitblt_to_buffer(int _x, int _y, int _w, int _h) {
-  Uint32 *src = (Uint32 *)DisplayRegion68k;
-  int width = sdl_displaywidth;
-  int height = sdl_displayheight;
-  int bpw = 8 * sizeof(Uint32);
-  int pitch = sdl_displaywidth / bpw;
-  int xlimit = (_x + _w + bpw - 1) / bpw;
-  int ylimit = _y + _h;
-  for (int y = _y; y < ylimit; y++) {
-    int they = y * sdl_displaywidth;
-    for (int x = _x / bpw; x < xlimit; x++) {
-      int srcw = src[y * pitch + x];
-      int thex = x * bpw;
-      for (int b = 0; b < bpw; b++) {
-        uint32_t px = 0;
-        if (srcw & (1 << (bpw - 1 - b))) {
-          px = sdl_foreground;
-        } else {
-          px = sdl_background;
-        }
-        int pxindex = they + thex + b;
-        assert(pxindex >= 0 && pxindex < buffer_size);
-        ((Uint32 *)buffer)[pxindex] = px;
-      }
-    }
-  }
-}
-void sdl_bitblt_to_window_surface(int _x, int _y, int _w, int _h) {
-  DLword *src = DisplayRegion68k;
-  Uint32 *dst = (Uint32 *)sdl_windowsurface->pixels;
-  int dstpitchbytes = sdl_windowsurface->pitch;
-  int dstpitchpixels = dstpitchbytes / sdl_bytesperpixel;
-  const int bitsperword = 8 * sizeof(DLword);
-  int sourcepitchwords = sdl_displaywidth / bitsperword;
-  int xstart = _x / bitsperword;
-  int xlimit = (_x + _w + bitsperword - 1) / bitsperword;
-  int ystart = _y * sourcepitchwords;
-  int ylimit = (_y + _h) * sourcepitchwords;
-  int dy = _y * dstpitchpixels;
-  // for each line in the source image
-  for (int sy = ystart; sy < ylimit; sy += sourcepitchwords, dy += dstpitchpixels) {
-    // for each word in the line
-    int dx = (_x / bitsperword) * bitsperword;
-    for (int sx = xstart; sx < xlimit; sx++, dx += bitsperword) {
-      int srcw = GETBASEWORD(src, sy + sx);
-      // for each bit in the word
-      for (int b = 0; b < bitsperword; b++) {
-        ((Uint32 *)dst)[dy + dx + b] = (srcw & bitmask[b]) ? sdl_foreground : sdl_background;
-      }
-    }
-  }
-}
-#endif
-static int map_key(SDL_Keycode k) {
-  for (int i = 0; keymap[i] != -1; i += 2) {
-    if (keymap[i + 1] == k) return keymap[i];
-  }
-  return -1;
-}
-#define KEYCODE_OFFSET 0
-static void handle_keydown(SDL_Keycode k, unsigned short mod) {
-  int lk = map_key(k);
-  if (lk == -1) {
-    printf("No mapping for key %s\n", SDL_GetKeyName(k));
-  } else {
-    printf("dn %s -> lisp keycode %d (0x%x)\n", SDL_GetKeyName(k), lk, mod);
-    kb_trans(lk - KEYCODE_OFFSET, FALSE);
-    DoRing();
-    if ((KBDEventFlg += 1) > 0) Irq_Stk_End = Irq_Stk_Check = 0;
-  }
-}
-static void handle_keyup(SDL_Keycode k, unsigned short mod) {
-  int lk = map_key(k);
-  if (lk == -1) {
-    printf("No mapping for key %s\n", SDL_GetKeyName(k));
-  } else {
-    printf("up %s -> lisp keycode %d (0x%x)\n", SDL_GetKeyName(k), lk, mod);
-    kb_trans(lk - KEYCODE_OFFSET, TRUE);
-    DoRing();
-    if ((KBDEventFlg += 1) > 0) Irq_Stk_End = Irq_Stk_Check = 0;
-  }
-}
-extern DLword *EmCursorX68K, *EmCursorY68K;
-extern DLword *EmMouseX68K, *EmMouseY68K, *EmKbdAd068K, *EmRealUtilin68K;
-extern LispPTR *CLastUserActionCell68k;
-extern MISCSTATS *MiscStats;
-
-/* bits within the EmRealUtilin word */
-#define KEYSET_LEFT 8
-#define KEYSET_LEFTMIDDLE 9
-#define KEYSET_MIDDLE 10
-#define KEYSET_RIGHTMIDDLE 11
-#define KEYSET_RIGHT 12
-/* Mouse buttons */
-#define MOUSE_LEFT 13
-#define MOUSE_RIGHT 14
-#define MOUSE_MIDDLE 15
-static void sdl_update_viewport(int width, int height) {
-  /* XXX: needs work */
-  int w = width / 32 * 32;
-  if (w > sdl_displaywidth * sdl_pixelscale) w = sdl_displaywidth * sdl_pixelscale;
-  int h = height / 32 * 32;
-  if (h > sdl_displayheight * sdl_pixelscale) h = sdl_displayheight * sdl_pixelscale;
-  SDL_Rect r;
-  r.x = 0;
-  r.y = 0;
-  r.w = w;
-  r.h = h;
-#if defined(SDLRENDERING)
-  SDL_RenderSetViewport(sdl_renderer, &r);
-#endif
-  printf("new viewport: %d / %d\n", w, h);
-}
-static int last_keystate[512] = {0};
-void sdl_set_invert(int flag) {
-  if (flag) {
-    sdl_foreground = sdl_white;
-    sdl_background = sdl_black;
-  } else {
-    sdl_foreground = sdl_black;
-    sdl_background = sdl_white;
-  }
-  sdl_notify_damage(0, 0, sdl_displaywidth, sdl_displayheight);
-}
-void sdl_setMousePosition(int x, int y) {
-  SDL_WarpMouseInWindow(sdl_window, x * sdl_pixelscale, y * sdl_pixelscale);
-}
-#if defined(SDLRENDERING)
-void sdl_update_display() {
-  sdl_bitblt_to_texture(min_x, min_y, max_x - min_x, max_y - min_y);
-  SDL_RenderCopy(sdl_renderer, sdl_texture, NULL, NULL);
-  SDL_RenderPresent(sdl_renderer);
-}
-#else
-void sdl_update_display() {
-  SDL_Rect r, s;
-
-  r.x = min_x;
-  r.y = min_y;
-  r.w = max_x - min_x;
-  r.h = max_y - min_y;
-  if (sdl_pixelscale == 1) {
-    sdl_bitblt_to_window_surface(r.x, r.y, r.w, r.h);
-    SDL_UpdateWindowSurfaceRects(sdl_window, &r, 1);
-  } else {
-    s.x = r.x * sdl_pixelscale;
-    s.y = r.y * sdl_pixelscale;
-    s.w = r.w * sdl_pixelscale;
-    s.h = r.h * sdl_pixelscale;
-    sdl_bitblt_to_buffer(r.x, r.y, r.w, r.h);
-    SDL_LowerBlitScaled(sdl_buffersurface, &r, sdl_windowsurface, &s);
-    SDL_UpdateWindowSurfaceRects(sdl_window, &s, 1);
-  }
-}
-#endif
-int process_events_time = 0;
-void process_SDLevents() {
-  SDL_Event event;
-  while (SDL_PollEvent(&event)) {
-    switch (event.type) {
-      case SDL_QUIT:
-        printf("quitting\n");
-        exit(0);
-        break;
-      case SDL_WINDOWEVENT:
-        switch (event.window.event) {
-          case SDL_WINDOWEVENT_RESIZED:
-            /* XXX: what about integer multiple of 32 requirements here? */
-            sdl_windowwidth = event.window.data1;
-            sdl_windowheight = event.window.data2;
-            sdl_update_viewport(sdl_windowwidth, sdl_windowheight);
-            break;
-        }
-        break;
-      case SDL_KEYDOWN:
-        printf("dn ts: %x, type: %x, state: %x, repeat: %x, scancode: %x, sym: %x <%s>, mod: %x\n",
-               event.key.timestamp, event.key.type, event.key.state, event.key.repeat,
-               event.key.keysym.scancode, event.key.keysym.sym,
-               SDL_GetKeyName(event.key.keysym.sym), event.key.keysym.mod);
-        if (event.key.repeat) {
-          /* Lisp needs to see the UP transition before the DOWN transition */
-          handle_keyup(event.key.keysym.sym, event.key.keysym.mod);
-        }
-        handle_keydown(event.key.keysym.sym, event.key.keysym.mod);
-        break;
-      case SDL_KEYUP:
-        printf("up ts: %x, type: %x, state: %x, repeat: %x, scancode: %x, sym: %x <%s>, mod: %x\n",
-               event.key.timestamp, event.key.type, event.key.state, event.key.repeat,
-               event.key.keysym.scancode, event.key.keysym.sym,
-               SDL_GetKeyName(event.key.keysym.sym), event.key.keysym.mod);
-        handle_keyup(event.key.keysym.sym, event.key.keysym.mod);
-        break;
-      case SDL_MOUSEMOTION: {
-        int x, y;
-        SDL_GetMouseState(&x, &y);
-        x /= sdl_pixelscale;
-        y /= sdl_pixelscale;
-        *CLastUserActionCell68k = MiscStats->secondstmp;
-        *EmCursorX68K = (*((DLword *)EmMouseX68K)) = (short)(x & 0xFFFF);
-        *EmCursorY68K = (*((DLword *)EmMouseY68K)) = (short)(y & 0xFFFF);
-        DoRing();
-        if ((KBDEventFlg += 1) > 0) Irq_Stk_End = Irq_Stk_Check = 0;
-        break;
-      }
-      case SDL_MOUSEBUTTONDOWN: {
-        int button = event.button.button;
-        switch (button) {
-          case 1: PUTBASEBIT68K(EmRealUtilin68K, MOUSE_LEFT, FALSE); break;
-          case 2: PUTBASEBIT68K(EmRealUtilin68K, MOUSE_MIDDLE, FALSE); break;
-          case 3: PUTBASEBIT68K(EmRealUtilin68K, MOUSE_RIGHT, FALSE); break;
-          case 4: PUTBASEBIT68K(EmRealUtilin68K, KEYSET_LEFT, FALSE); break;
-          case 5: PUTBASEBIT68K(EmRealUtilin68K, KEYSET_LEFTMIDDLE, FALSE); break;
-          case 6: PUTBASEBIT68K(EmRealUtilin68K, KEYSET_RIGHT, FALSE); break;
-          case 7: PUTBASEBIT68K(EmRealUtilin68K, KEYSET_RIGHTMIDDLE, FALSE); break;
-        }
-        DoRing();
-        if ((KBDEventFlg += 1) > 0) Irq_Stk_End = Irq_Stk_Check = 0;
-        break;
-      }
-      case SDL_MOUSEBUTTONUP: {
-        int button = event.button.button;
-        switch (button) {
-          case 1: PUTBASEBIT68K(EmRealUtilin68K, MOUSE_LEFT, TRUE); break;
-          case 2: PUTBASEBIT68K(EmRealUtilin68K, MOUSE_MIDDLE, TRUE); break;
-          case 3: PUTBASEBIT68K(EmRealUtilin68K, MOUSE_RIGHT, TRUE); break;
-          case 4: PUTBASEBIT68K(EmRealUtilin68K, KEYSET_LEFT, TRUE); break;
-          case 5: PUTBASEBIT68K(EmRealUtilin68K, KEYSET_LEFTMIDDLE, TRUE); break;
-          case 6: PUTBASEBIT68K(EmRealUtilin68K, KEYSET_RIGHT, TRUE); break;
-          case 7: PUTBASEBIT68K(EmRealUtilin68K, KEYSET_RIGHTMIDDLE, TRUE); break;
-        }
-        DoRing();
-        if ((KBDEventFlg += 1) > 0) Irq_Stk_End = Irq_Stk_Check = 0;
-        break;
-      }
-      case SDL_MOUSEWHEEL:
-        printf("mousewheel mouse %d x %d y %d direction %s\n", event.wheel.which, event.wheel.x,
-               event.wheel.y,
-               event.wheel.direction == SDL_MOUSEWHEEL_NORMAL ? "normal" : "flipped");
-        break;
-        /* case SDL_KEYMAPCHANGED: */
-        /*   printf("SDL_KEYMAPCHANGED\n"); break; */
-        /* case SDL_TEXTINPUT: */
-        /*   printf("SDL_TEXTINPUT\n"); break; */
-      default: printf("other event type: %d\n", event.type);
-    }
-  }
-  if (display_update_needed) {
-    sdl_update_display();
-    display_update_needed = 0;
-    min_x = min_y = INT_MAX;
-    max_x = max_y = 0;
-  }
-}
-
-int init_SDL(char *windowtitle, int w, int h, int s) {
-  sdl_pixelscale = s;
-  // width must be multiple of 32
-  w = (w + 31) / 32 * 32;
-  sdl_displaywidth = w;
-  sdl_displayheight = h;
-  sdl_windowwidth = w * s;
-  sdl_windowheight = h * s;
-  int width = sdl_displaywidth;
-  int height = sdl_displayheight;
-  printf("requested width: %d, height: %d\n", width, height);
-  if (SDL_Init(SDL_INIT_VIDEO) < 0) {
-    printf("SDL could not be initialized. SDL_Error: %s\n", SDL_GetError());
-    return 1;
-  }
-  printf("initialised\n");
-  sdl_window = SDL_CreateWindow(windowtitle, SDL_WINDOWPOS_UNDEFINED, SDL_WINDOWPOS_UNDEFINED,
-                                sdl_windowwidth, sdl_windowheight, 0);
-  printf("Window created\n");
-  if (sdl_window == NULL) {
-    printf("Window could not be created. SDL_Error: %s\n", SDL_GetError());
-    return 2;
-  }
-#if defined(SDLRENDERING)
-  printf("Creating renderer...\n");
-  sdl_renderer = SDL_CreateRenderer(sdl_window, -1, SDL_RENDERER_ACCELERATED);
-  if (NULL == sdl_renderer) {
-    printf("SDL Error: %s\n", SDL_GetError());
-    return 3;
-  }
-  SDL_GetRendererInfo(sdl_renderer, &sdl_rendererinfo);
-  SDL_SetRenderDrawColor(sdl_renderer, 127, 127, 127, 255);
-  SDL_RenderClear(sdl_renderer);
-  SDL_RenderPresent(sdl_renderer);
-  SDL_RenderSetScale(sdl_renderer, 1.0, 1.0);
-  printf("Creating texture...\n");
-  sdl_pixelformat = SDL_AllocFormat(sdl_rendererinfo.texture_formats[0]);
-  sdl_texture = SDL_CreateTexture(sdl_renderer, sdl_pixelformat->format,
-                                  SDL_TEXTUREACCESS_STREAMING, width, height);
-  sdl_black = SDL_MapRGB(sdl_pixelformat, 0, 0, 0);
-  sdl_white = SDL_MapRGB(sdl_pixelformat, 255, 255, 255);
-  sdl_foreground = sdl_black;
-  sdl_background = sdl_white;
-  sdl_bytesperpixel = sdl_pixelformat->BytesPerPixel;
-#else
-  printf("Creating window surface and buffer surface\n");
-  sdl_windowsurface = SDL_GetWindowSurface(sdl_window);
-  sdl_pixelformat = sdl_windowsurface->format;
-  sdl_black = SDL_MapRGB(sdl_pixelformat, 0, 0, 0);
-  sdl_white = SDL_MapRGB(sdl_pixelformat, 255, 255, 255);
-  sdl_foreground = sdl_black;
-  sdl_background = sdl_white;
-  sdl_bytesperpixel = sdl_pixelformat->BytesPerPixel;
-  buffer_size = width * height * sdl_bytesperpixel;
-  buffer = malloc(buffer_size);
-  sdl_buffersurface = SDL_CreateRGBSurfaceWithFormatFrom(
-      buffer, sdl_displaywidth, sdl_displayheight, sdl_bytesperpixel * 8,
-      sdl_displaywidth * sdl_bytesperpixel, sdl_pixelformat->format);
-#endif
-  printf("SDL initialised\n");
-  return 0;
-}
--- a/src/unixcomm.c
+++ b/src/unixcomm.c
@@ -89,7 +89,6 @@ enum UJTYPE {
 /* These are indexed by WRITE socket# */
 struct unixjob {
  char *pathname; /* used by Lisp direct socket access subr */
-  int readsock;   /* Socket to READ from for this job. */
  int PID;        /* process ID associated with this slot */
  int status;     /* status returned by subprocess (not shell) */
  enum UJTYPE type;
@@ -284,7 +283,6 @@ int FindUnixPipes(void) {
  cleareduj.status = -1;
  cleareduj.pathname = NULL;
  cleareduj.PID = 0;
-  cleareduj.readsock = 0;
  cleareduj.type = UJUNUSED;
  for (int i = 0; i < NPROCS; i++) UJ[i] = cleareduj;

@@ -374,7 +372,7 @@ LispPTR Unix_handlecomm(LispPTR *args) {

  /* Get command */
  N_GETNUMBER(args[0], command, bad);
-  DBPRINT(("\nUnix_handlecomm: trying %d\n", command));
+  DBPRINT(("\nUnix_handlecomm: command %d\n", command));

  switch (command) {
    case 0: /* Fork pipe process */
@@ -435,9 +433,9 @@ LispPTR Unix_handlecomm(LispPTR *args) {
        UJ[PipeFD].type = UJPROCESS;
        UJ[PipeFD].status = -1;
        UJ[PipeFD].PID = (d[1] << 8) | d[2] | (d[4] << 16) | (d[5] << 24);
-        UJ[PipeFD].readsock = 0;
        close(sockFD);
        unlink(PipeName);
+        DBPRINT(("New process: slot/PipeFD %d PID %d\n", PipeFD, UJ[PipeFD].PID));
        return (GetSmallp(PipeFD));
      } else {
        DBPRINT(("Fork request failed."));
@@ -482,17 +480,11 @@ LispPTR Unix_handlecomm(LispPTR *args) {
      N_GETNUMBER(args[1], slot, bad); /* Get job # */

      if (!valid_slot(slot)) return (NIL); /* No fd open; punt the read */
-
-      if (UJ[slot].readsock)
-        sock = UJ[slot].readsock;
-      else
-        sock = slot;
-
      switch (UJ[slot].type) {
        case UJPROCESS:
        case UJSHELL:
        case UJSOSTREAM:
-          TIMEOUT(dest = read(sock, buf, 1));
+          TIMEOUT(dest = read(slot, buf, 1));
          if (dest > 0) return (GetSmallp(buf[0]));
          /* Something's amiss; check our process status */
          wait_for_comm_processes();
@@ -523,66 +515,46 @@ LispPTR Unix_handlecomm(LispPTR *args) {

      N_GETNUMBER(args[1], slot, bad);

-      DBPRINT(("Killing process in slot %d.\n", slot));
-
-      if (valid_slot(slot)) switch (UJ[slot].type) {
-          case UJSHELL:
-          case UJPROCESS:
-            /* First check to see it hasn't already died */
-            if (UJ[slot].status == -1) {
-              /* Kill the job */
-              kill(UJ[slot].PID, SIGKILL);
-              for (int i = 0; i < 10; i++) {
-                /* Waiting for the process to exit is possibly risky.
-                   Sending SIGKILL is always supposed to kill
-                   a process, but on very rare occurrences this doesn't
-                   happen because of a Unix kernel bug, usually a user-
-                   written device driver which hasn't been fully
-                   debugged.  So we time it out just be safe. */
-                if (UJ[slot].status != -1) break;
-                wait_for_comm_processes();
-                usleep(10);
-              }
-            }
-            break;
-          default: break;
-          }
-      else
-        return (ATOM_T);
-
+      DBPRINT(("Terminating process in slot %d.\n", slot));
+      if (!valid_slot(slot)) return (ATOM_T);
+      /* in all cases we need to close() the file descriptor */
+      close(slot);
      switch (UJ[slot].type) {
-        case UJUNUSED:
-          break;
-
-        case UJSHELL:
-          DBPRINT(("Kill 3 closing shell desc %d.\n", slot));
-          close(slot);
-          break;
-
-        case UJPROCESS:
-          DBPRINT(("Kill 3 closing process desc %d.\n", slot));
-          close(slot);
-          if (UJ[slot].readsock) close(UJ[slot].readsock);
-          break;
-
-        case UJSOSTREAM:
-          DBPRINT(("Kill 3 closing stream socket desc %d.\n", slot));
-          close(slot);
-          break;
-
-        case UJSOCKET:
-          DBPRINT(("Kill 3 closing raw socket desc %d.\n", slot));
-          close(slot);
+      case UJSHELL:
+      case UJPROCESS:
+        /* wait for up to 0.1s for it to exit on its own after the close() */
+        for (int i = 0; i < 10; i++) {
+          wait_for_comm_processes();
+          if (UJ[slot].status != -1) break;
+          usleep(10000);
+        }
+        /* check again before we terminate it */
+        if (UJ[slot].status != -1) break;
+        kill(UJ[slot].PID, SIGKILL);
+        for (int i = 0; i < 10; i++) {
+          /* Waiting for the process to exit is possibly risky.
+             Sending SIGKILL is always supposed to kill
+             a process, but on very rare occurrences this doesn't
+             happen because of a Unix kernel bug, usually a user-
+             written device driver which hasn't been fully
+             debugged.  So we time it out just be safe. */
+          wait_for_comm_processes();
+          usleep(10000);
+          if (UJ[slot].status != -1) break;
+        }
+        break;
+      case UJSOCKET:
+        if (UJ[slot].pathname) {
          DBPRINT(("Unlinking %s\n", UJ[slot].pathname));
-          if (UJ[slot].pathname) {
-            if (unlink(UJ[slot].pathname) < 0) perror("Kill 3 unlink");
-            free(UJ[slot].pathname);
-            UJ[slot].pathname = NULL;
-          }
-          break;
+          if (unlink(UJ[slot].pathname) < 0) perror("Kill 3 unlink");
+          free(UJ[slot].pathname);
+          UJ[slot].pathname = NULL;
+        }
+        break;
+      default: break;
      }
      UJ[slot].type = UJUNUSED;
-      UJ[slot].readsock = UJ[slot].PID = 0;
+      UJ[slot].PID = 0;
      UJ[slot].pathname = NULL;

      /* If status available, return it, otherwise T */
@@ -674,8 +646,6 @@ LispPTR Unix_handlecomm(LispPTR *args) {
        case UJPROCESS:
          DBPRINT(("Kill 5 closing process desc %d.\n", dest));
          close(dest);
-          if (UJ[dest].readsock) close(UJ[dest].readsock);
-          UJ[dest].readsock = 0;
          break;

        case UJSOCKET:
@@ -696,7 +666,7 @@ LispPTR Unix_handlecomm(LispPTR *args) {
      }

      UJ[dest].type = UJUNUSED;
-      UJ[dest].readsock = UJ[dest].PID = 0;
+      UJ[dest].PID = 0;
      return (ATOM_T);
    /* break; */

@@ -729,18 +699,13 @@ LispPTR Unix_handlecomm(LispPTR *args) {
        N_GETNUMBER(args[1], slot, bad);     /* Get job # */
        if (!valid_slot(slot)) return (NIL); /* No fd open; punt the read */

-        if (UJ[slot].readsock)
-          sock = UJ[slot].readsock;
-        else
-          sock = slot;
-
        bufp = (Addr68k_from_LADDR(args[2])); /* User buffer */
        DBPRINT(("Read buffer slot %d, type is %d\n", slot, UJ[slot].type));

        switch (UJ[slot].type) {
          case UJSHELL:
          case UJPROCESS:
-          case UJSOSTREAM: dest = read(sock, bufp, 512);
+          case UJSOSTREAM: dest = read(slot, bufp, 512);
 #ifdef BYTESWAP
            word_swap_page(bufp, 128);
 #endif /* BYTESWAP */
--- a/src/xc.c
+++ b/src/xc.c
@@ -99,9 +99,7 @@
 #include "ubf3defs.h"
 #include "unwinddefs.h"
 #include "vars3defs.h"
-#ifdef XWINDOW
 #include "xwinmandefs.h"
-#endif
 #include "z2defs.h"

 #ifdef DOS
@@ -111,14 +109,10 @@ extern IOPAGE *IOPage68K;
 extern KbdInterface currentkbd;
 extern DspInterface currentdsp;
 extern MouseInterface currentmouse;
-#elif defined(XWINDOW)
+#else
 extern DspInterface currentdsp;
 #endif /* DOS */

-#ifdef SDL
-extern void process_SDLevents();
-#endif
-
 typedef struct conspage ConsPage;
 typedef ByteCode *InstPtr;

@@ -1124,12 +1118,8 @@ check_interrupt:
     * If the system is configured with SIGIO handling we have a hint
     * that allows us to cheaply skip if there's nothing to do
     */
-#ifdef XWINDOW
    process_Xevents(currentdsp);
-#endif
-#ifdef SDL
-    process_SDLevents();
-#endif
+
    if (IO_Signalled) {
      IO_Signalled = FALSE;
      process_io_events();
Author	SHA1	Message	Date
Nick Briggs	bb0b011f90	Remove debugging printf(.) that was left in unixcomm.c	2022-01-03 22:48:23 -08:00
Nick Briggs	6bccbfbcf3	Clean up issues in Unix_handlecomm preventing clean process exit (#413 ) When Medley closes a stream open to a process it uses a "unixcomm" command (3) which should close() the communication channel open with the process and give it a chance to handle that and exit cleanly before using a SIGKILL on it. We can't determine apriori whether the process is going to cooperate, so we're stuck trying for up to 0.1s (arbitrary choice!) waiting for the process to exit, then it gets a SIGKILL, and we wait up to 0.1s again to see that it really exited.	2021-12-23 10:46:37 -08:00
Nick Briggs	e3af3b03b9	Remove unused "readsock" field from Unix job table.	2021-12-21 21:33:03 -08:00
Nick Briggs	880747f2dc	Add m68k to directories that .gitignore ignores for build artifacts	2021-12-09 21:15:48 -08:00
Nick Briggs	c7fd28a438	Removed unused (and unimplemented) stackcheck() and stackoverflow() routines These routines were stubs that did nothing and were not called from anywhere so lack value in even providing a template or hook for a fuller implementation. Also note that "stackcheck" conflicts with a predefined symbol in some runtime libraries. Should these be implemented in the future they should use a maiko-specific name.	2021-12-09 14:57:45 -08:00
Nick Briggs	e1efc860c4	Prefer typedef over #define where it can be used for type definitions	2021-12-09 14:48:52 -08:00
Nick Briggs	26fe840edf	Convert "mkvdate" into a shell script instead of compiled C code (#411 ) For all systems other than DOS, use a simple shell script to create the vdate.c (contains version date) that goes into every build.	2021-12-09 12:36:12 -08:00
Nick Briggs	212a0fa9c6	Add some support for cross-compilation to MC68000 AmigaOS (#412 ) Add m68k to recognized CPUs (machinetype) Add amigaos to recognized operating systems (osversion) Add ability to override "config.guess" output w/ LDEARCH= to osversion Add platform.h clauses to recognize AmigaOS 3 using gcc to cross-compile	2021-12-08 12:03:04 -08:00