Fgh004: Adding new workflow that builds maiko releases and docker images (#415 )

* Adding new workflow that builds maiko releaases for Linux/amd64, Linux/arm64, Linux/arm7, Macos/amd64. (Not Macos/arm64 as yet.) Also builds and pushes to DockerHub docker images for Linux/amd64 and Linux/arm64. Delete old buildDocker.yml workflow. * Adding latest version of buildReleaseInclDocker.yml; builds release and docker images for all major platforms except MacOs arm64.
Use pointer format and don't cast address to int for ethernet debuggging
2026-03-16 23:07:24 +00:00 · 2022-02-11 14:21:19 -08:00 · 2022-01-22 17:04:39 -08:00 · 2022-01-22 16:02:26 -08:00 · 2022-01-22 15:21:20 -08:00 · 2022-01-22 15:16:36 -08:00
28 changed files with 520 additions and 1172 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/.github/workflows/buildDocker.yml
+++ b/.github/workflows/buildDocker.yml
@@ -1,84 +0,0 @@
-#  based on https://blog.oddbit.com/post/2020-09-25-building-multi-architecture-im/
---
-# Interlisp workflow to build a Docker Image that supports multiple architectures
-name: 'Build Maiko Docker image'
-
-# Run this workflow on push to master
-# Other branches can be added it needed. 
-on:
-  push:
-    branches:
-      - master
-
-#  Jobs that are run as part of this workflow.
-jobs:
-  # Job to build the docker image
-  # see: https://github.com/docker/build-push-action
-  docker:
-    runs-on: ubuntu-latest
-    steps:
-      # Checkout the branch  
-      - name: Checkout
-        uses: actions/checkout@v2
-
-      # Setup some environment variables
-      - name: Prepare
-        id: prep
-        run: |
-          # Name of the Docker Image. 
-          DOCKER_IMAGE=interlisp/${GITHUB_REPOSITORY#*/}
-          VERSION=latest
-          SHORTREF=${GITHUB_SHA::8}
-          ## Do we want to use tags and or versions 
-          # If this is git tag, use the tag name as a docker tag
-          if [[ $GITHUB_REF == refs/tags/* ]]; then
-            VERSION=${GITHUB_REF#refs/tags/v}
-          fi
-          TAGS="${DOCKER_IMAGE}:${VERSION},${DOCKER_IMAGE}:${SHORTREF}"
-          # If the VERSION looks like a version number, assume that
-          # this is the most recent version of the image and also
-          # tag it 'latest'.
-          if [[ $VERSION =~ ^[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}$ ]]; then
-            TAGS="$TAGS,${DOCKER_IMAGE}:latest"
-          fi
-          # Set output parameters.
-          echo ::set-output name=tags::${TAGS}
-          echo ::set-output name=docker_image::${DOCKER_IMAGE}
-          echo ::set-output name=build_time::$(date -u +'%Y-%m-%dT%H:%M:%SZ')
-      # Setup the Docker Machine Emulation environment.  
-      - name: Set up QEMU
-        uses: docker/setup-qemu-action@master
-        with:
-          platforms: all
-
-      # Setup the Docker Buildx funtion
-      - name: Set up Docker Buildx
-        id: buildx
-        uses: docker/setup-buildx-action@master
-
-      # Login into DockerHub - required to store the created image
-      - name: Login to DockerHub
-        if: github.event_name != 'pull_request'
-        uses: docker/login-action@v1
-        with:
-          username: ${{ secrets.DOCKER_USERNAME }}
-          password: ${{ secrets.DOCKER_PASSWORD }}
-
-      # Start the Docker Build using the Dockerfile in the repository we
-      # checked out.  
-      - name: Build
-        uses: docker/build-push-action@v2
-        with:
-          builder: ${{ steps.buildx.outputs.name }}
-          build-args: BUILD_DATE=${{ steps.prep.outputs.build_time }}
-          context: .
-          file: ./Dockerfile
-          # Platforms - Sepecify the platforms to include in the build
-          #  linux/amd64 -- Standard x86_64
-          #  linux/arm64 -- Apple M1
-          #  linux/arm/v7 -- Raspberry pi
-          platforms: linux/amd64,linux/arm64,linux/arm/v7
-          # Push the result to DockerHub
-          push: true
-          # tags to assign to the Docker image
-          tags: ${{ steps.prep.outputs.tags }}
--- a/.github/workflows/buildReleaseInclDocker.yml
+++ b/.github/workflows/buildReleaseInclDocker.yml
@@ -0,0 +1,414 @@
+#*******************************************************************************
+# buidReleaseInclDocker.yml
+#
+# Workflow to build a Maiko release that is pushed to github as well as
+# Docker images incorporating the release, which are pushed to Docker Hub.
+# For linux:  release assets are built/pushed for X86_64, aarch64 and arm7vl and 
+#     a multiplatform Docker image is pushed.
+# For macOS:  release assets are built/pushed for X86_64. (No aarch64 as yet.)
+# For Windows:  not supported
+#
+# Note release pushed to github also includes source code assets in tar and zip formats.
+#
+# 2022-01-16 by Frank Halasz based on earlier workflow called buildDocker.yml
+#
+# Copyright 2022 by Interlisp.org
+#
+#
+# ******************************************************************************
+
+name: 'Build/Push Release & Docker Image'
+
+env:
+  workflow: 'buildReleaseInclDocker.yml'
+
+# Run this workflow on ...
+on: 
+    workflow_dispatch:
+      inputs:
+        force:
+          description: "Force build even if build already successfully completed for this commit"
+          type: choice
+          options:
+          - 'false'
+          - 'true'
+
+    workflow_call:
+      secrets:
+        DOCKER_USERNAME:
+          required: true
+        DOCKER_PASSWORD:
+          required: true
+      outputs:
+        successful:
+          description: "'True' if maiko build completed successully"
+          value: ${{ jobs.complete.outputs.build_successful }}
+      inputs:
+        force:
+          description: "Force build even if build already successfully completed for this commit"
+          required: false
+          type: string
+          default: 'false'
+
+defaults:
+  run:
+    shell: bash
+
+#  3 separate jobs here that can run in parallel
+#
+#  1.  Linux: Build/push a multiplatform Linux Docker image and use results to
+#      build/push Linux release assets.
+#
+#  2.  MacOs_x86_64:  Build maiko for MacOS on X86_64 then create and push release assets.
+#
+#  3.  Sources:  create/push sources assets for this release.
+#
+
+jobs:
+
+######################################################################################
+
+  # Regularize the inputs so they can be referenced the same way whether they are
+  # the result of a workflow_dispatch or a workflow_call
+
+  inputs:
+    runs-on: ubuntu-latest
+    outputs:
+      force: ${{ steps.force.outputs.force }}
+    steps:
+      - id: force
+        run: >
+          if [ '${{ toJSON(inputs) }}' = 'null'  ];
+          then echo ::set-output name=force::'${{ github.event.inputs.force }}'; echo "workflow_dispatch";
+          else echo ::set-output name=force::'${{ inputs.force }}'; echo "workflow_call";
+          fi
+        
+
+
+######################################################################################
+
+  # Use sentry-action to determine if this release has already been built
+  # based on the latest commit to the repo
+
+  sentry:
+    needs: inputs
+    runs-on: ubuntu-latest
+    outputs:
+      release_not_built: ${{ steps.check.outputs.release_not_built }}
+
+    steps: 
+      # Checkout the actions for this repo owner
+      - name: Checkout Actions
+        uses: actions/checkout@v2
+        with:
+          repository: ${{ github.repository_owner }}/.github
+          path: ./Actions_${{ github.sha }}
+      - run: mv ./Actions_${{ github.sha }}/actions ../actions && rm -rf ./Actions_${{ github.sha }}
+
+      # Check if build already run for this commit
+      - name: Build already completed? 
+        id: check
+        continue-on-error: true
+        uses: ./../actions/check-sentry-action
+        with:
+          tag: "release_docker"
+
+######################################################################################
+
+  # Linux: build and push multi-platform docker image for Linux
+  # Use docker images to create and push release assets to github
+
+  linux:
+  
+    needs: [inputs, sentry]
+    if: |
+      needs.sentry.outputs.release_not_built == 'true'
+      || needs.inputs.outputs.force == 'true'
+    
+    runs-on: ubuntu-latest
+
+    steps:
+      # Checkout the actions for this repo owner
+      - name: Checkout Actions
+        uses: actions/checkout@v2
+        with:
+          repository: ${{ github.repository_owner }}/.github
+          path: ./Actions_${{ github.sha }}
+      - run: mv ./Actions_${{ github.sha }}/actions ../actions && rm -rf ./Actions_${{ github.sha }}
+
+      # Checkout the branch  
+      - name: Checkout
+        uses: actions/checkout@v2
+
+      # Setup release tag
+      - name: Setup Release Tag
+        id: tag
+        uses: ./../actions/release-tag-action
+
+      # Setup docker environment variables
+      - name: Setup Docker Environment Variables
+        id: docker_env
+        run: |
+          DOCKER_OWNER=$(echo "${{ github.repository_owner }}" | tr '[:upper:]' '[:lower:]')
+          echo "DOCKER_OWNER=${DOCKER_OWNER}" >> ${GITHUB_ENV}
+          DOCKER_IMAGE=${DOCKER_OWNER}/${{ steps.tag.outputs.repo_name }}
+          DOCKER_TAGS="${DOCKER_IMAGE}:latest,${DOCKER_IMAGE}:${RELEASE_TAG#*-}"
+          echo ::set-output name=build_time::$(date -u +'%Y-%m-%dT%H:%M:%SZ')
+          echo ::set-output name=docker_tags::${DOCKER_TAGS}
+
+      # Setup the Docker Machine Emulation environment.  
+      - name: Set up QEMU
+        uses: docker/setup-qemu-action@master
+        with:
+          platforms: linux/amd64,linux/arm64,linux/arm/v7
+
+      # Setup the Docker Buildx funtion
+      - name: Set up Docker Buildx
+        id: buildx
+        uses: docker/setup-buildx-action@master
+
+      # Login into DockerHub - required to store the created image
+      - name: Login to DockerHub
+        uses: docker/login-action@v1
+        with:
+          username: ${{ secrets.DOCKER_USERNAME }}
+          password: ${{ secrets.DOCKER_PASSWORD }}
+
+      # Do the Docker Build using the Dockerfile in the repository we
+      # checked out.  Push the result to Docker Hub.
+      #
+      # NOTE: THE ACTUAL MAIKO BUILD (FOR LINUX) HAPPENS HERE - I.E., IN THE
+      #       DOCKER BUILD CALL.  BUILD COMMANDS ARE SPECIFIED IN THE
+      #       Dockerfile, NOT HERE IN THE WORKFLOW.
+      #
+      - name: Build Docker Image for Push to Docker Hub
+        if: ${{ true }}
+        uses: docker/build-push-action@v2
+        with:
+          builder: ${{ steps.buildx.outputs.name }}
+          build-args: |
+            BUILD_DATE=${{ steps.docker_env.outputs.build_time }}
+            RELEASE_TAG=${{ steps.tag.outputs.release_tag }}
+          context: .
+          file: ./Dockerfile
+          platforms: linux/amd64,linux/arm64,linux/arm/v7
+          # Push the result to DockerHub
+          push: true
+          tags: ${{ steps.docker_env.outputs.docker_tags }}
+
+      # Redo the Docker Build (hopefully mostly using the cache from the previous build).
+      # But save the results in a directory under /tmp to be used for creating release tars.
+      - name: Rebuild Docker Image For Saving Locally
+        uses: docker/build-push-action@v2
+        with:
+          builder: ${{ steps.buildx.outputs.name }}
+          build-args: |
+            BUILD_DATE=${{ steps.docker_env.outputs.build_time }}
+            RELEASE_TAG=${{ steps.tag.outputs.release_tag }}
+          context: .
+          file: ./Dockerfile
+          platforms: linux/amd64,linux/arm64,linux/arm/v7
+          # Put the results out to the local file system
+          outputs: type=local,dest=/tmp/docker_images
+          tags: ${{ steps.docker_env.outputs.docker_tags }}
+
+      # Use docker results to create releases for github.
+      # Docker results are in /tmp/docker_images. One subdir for each platform.
+      - name: Make release tars for each platform
+        env:
+          RELEASE_TAG: ${{ steps.tag.outputs.release_tag }}
+        run: |
+          mkdir -p /tmp/release_tars
+          for OSARCH in "linux.x86_64:linux_amd64" "linux.aarch64:linux_arm64" "linux.armv7l:linux_arm_v7" ;    \
+            do                                                                         \
+              pushd /tmp/docker_images/${OSARCH##*:}/usr/local/interlisp >/dev/null ;  \
+              /usr/bin/tar -c -z                                                       \
+                -f /tmp/release_tars/${RELEASE_TAG}-${OSARCH%%:*}.tgz                  \
+                maiko/bin/osversion                                                    \
+                maiko/bin/machinetype                                                  \
+                maiko/bin/config.guess                                                 \
+                maiko/bin/config.sub                                                   \
+                maiko/${OSARCH%%:*}/lde*                                               \
+              ;                                                                        \
+              popd >/dev/null ;                                                        \
+            done
+
+      # Push Release to github
+      - name: Push the release
+        uses: ncipollo/release-action@v1.8.10
+        with: 
+          allowUpdates: true
+          artifacts:
+            /tmp/release_tars/${{ steps.tag.outputs.release_tag }}-linux.x86_64.tgz,
+            /tmp/release_tars/${{ steps.tag.outputs.release_tag }}-linux.aarch64.tgz,
+            /tmp/release_tars/${{ steps.tag.outputs.release_tag }}-linux.armv7l.tgz
+          tag: ${{ steps.tag.outputs.release_tag }}
+          draft: true
+          token: ${{ secrets.GITHUB_TOKEN }}
+
+
+######################################################################################
+
+  # MacOS: build for MacOS (X86_64) and use results to
+  # create and push release assets to github
+  macos_x86_64:
+
+    needs: [inputs, sentry]
+    if: |
+      needs.sentry.outputs.release_not_built == 'true'
+      || needs.inputs.outputs.force == 'true'
+
+    runs-on: macos-10.15
+
+    steps:
+
+      # Checkout the branch  
+      - name: Checkout
+        uses: actions/checkout@v2
+
+      # Checkout the actions for this repo owner
+      - name: Checkout Actions
+        uses: actions/checkout@v2
+        with:
+          repository: ${{ github.repository_owner }}/.github
+          path: ./Actions_${{ github.sha }}
+      - run: mv ./Actions_${{ github.sha }}/actions ../actions && rm -rf ./Actions_${{ github.sha }}
+
+      # Setup release tag
+      - name: Setup Release Tag
+        id: tag
+        uses: ./../actions/release-tag-action
+
+      # Install X11 dependencies
+      - name: Install X11 dependencies on MacOS
+        if: ${{ runner.os == 'macOS'}}
+        run: brew install --cask xquartz
+
+      # Build maiko   
+      - name: Build
+        working-directory: ./bin
+        run: |
+          ./makeright x
+          ./makeright init
+
+      # Create release tar for github.
+      - name: Make release tar(s)
+        env:
+          RELEASE_TAG: ${{ steps.tag.outputs.release_tag }}
+        run: |
+          mkdir -p /tmp/release_tars
+          pushd ${GITHUB_WORKSPACE}/../ >/dev/null
+          tar -c -z                                                       \
+            -f /tmp/release_tars/${RELEASE_TAG}-darwin.x86_64.tgz                  \
+            maiko/bin/osversion                                                    \
+            maiko/bin/machinetype                                                  \
+            maiko/bin/config.guess                                                 \
+            maiko/bin/config.sub                                                   \
+            maiko/darwin.x86_64/lde*
+          popd >/dev/null
+
+      # Push Release
+      - name: Push the release
+        uses: ncipollo/release-action@v1.8.10
+        with: 
+          allowUpdates: true
+          artifacts:
+            /tmp/release_tars/${{ steps.tag.outputs.release_tag }}-darwin.x86_64.tgz
+          tag: ${{ steps.tag.outputs.release_tag }}
+          draft: true
+          token: ${{ secrets.GITHUB_TOKEN }}
+
+
+######################################################################################
+
+  # Sources: create and push release assets containing sources to github
+  sources:
+
+    needs: [inputs, sentry]
+    if: |
+      needs.sentry.outputs.release_not_built == 'true'
+      || needs.inputs.outputs.force == 'true'
+
+    runs-on: ubuntu-latest
+
+    steps:
+
+      # Checkout the branch  
+      - name: Checkout
+        uses: actions/checkout@v2
+
+      # Checkout the actions for this repo owner
+      - name: Checkout Actions
+        uses: actions/checkout@v2
+        with:
+          repository: ${{ github.repository_owner }}/.github
+          path: ./Actions_${{ github.sha }}
+      - run: mv ./Actions_${{ github.sha }}/actions ../actions && rm -rf ./Actions_${{ github.sha }}
+
+      # Setup release tag
+      - name: Setup Release Tag
+        id: tag
+        uses: ./../actions/release-tag-action
+
+      # Create source tars for the release
+      - name: Make source tars
+        env:
+          RELEASE_TAG: ${{ steps.tag.outputs.release_tag }}
+        run: |
+          mkdir -p /tmp/release_tars
+          pushd ${GITHUB_WORKSPACE}/../ >/dev/null
+          mv maiko ${RELEASE_TAG}
+          /usr/bin/tar -c -z -f /tmp/release_tars/${RELEASE_TAG}-source.tgz --exclude=.git ${RELEASE_TAG}
+          /usr/bin/find ${RELEASE_TAG} -name .git -prune -o -print |\
+                /usr/bin/zip -@ /tmp/release_tars/${RELEASE_TAG}-source.zip
+          mv ${RELEASE_TAG} maiko
+          popd >/dev/null
+
+      # Push Release
+      - name: Push the release
+        uses: ncipollo/release-action@v1.8.10
+        with: 
+          allowUpdates: true
+          artifacts:
+            /tmp/release_tars/${{ steps.tag.outputs.release_tag }}-source.tgz,
+            /tmp/release_tars/${{ steps.tag.outputs.release_tag }}-source.zip
+          tag: ${{ steps.tag.outputs.release_tag }}
+          draft: true
+          token: ${{ secrets.GITHUB_TOKEN }}
+
+######################################################################################
+
+  # Use set-sentry-action to determine set the sentry that says this release has
+  # been successfully built
+
+  complete:
+
+    runs-on: ubuntu-latest
+
+    outputs:
+      build_successful: ${{ steps.output.outputs.build_successful }}
+
+    needs: [inputs, sentry, linux, macos_x86_64, sources]
+
+    steps: 
+      # Checkout the actions for this repo owner
+      - name: Checkout Actions
+        uses: actions/checkout@v2
+        with:
+          repository: ${{ github.repository_owner }}/.github
+          path: ./Actions_${{ github.sha }}
+      - run: mv ./Actions_${{ github.sha }}/actions ../actions && rm -rf ./Actions_${{ github.sha }}
+
+      # Set sentry
+      - name: Is build for this commit already completed? 
+        id: set
+        uses: ./../actions/set-sentry-action
+        with:
+          tag: "release_docker"
+     
+      - name: Output
+        id: output
+        run: |
+          echo ::set-output name=build_successful::'true'
+          
+######################################################################################
--- 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
@@ -18,17 +18,15 @@ ENDIF()

 find_program(
    CLANG_TIDY_EXE
-    NAMES "clang-tidy" "clang-tidy12" "clang-tidy11" "clang-tidy10"
+    NAMES "clang-tidy" "clang-tidy13" "clang-tidy12" "clang-tidy11" "clang-tidy10"
    DOC "Path to clang-tidy executable"
 )

 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
@@ -11,6 +11,7 @@
 /*									*/
 /************************************************************************/

+#include <inttypes.h>
 #include "maiko/platform.h"

 /************************************************************************/
@@ -187,8 +188,8 @@ error Must specify RELEASE to build Medley.

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



@@ -237,9 +238,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/ether.c
+++ b/src/ether.c
@@ -478,7 +478,7 @@ int *ether_debug() {
 #ifdef MAIKO_ENABLE_ETHERNET
  estat[0] = 0;
  if (ether_fd < 0) return (NIL);
-  printf("fd %d bsize %d buf %X icb %X in %d out %d\n ", ether_fd, ether_bsize, (int)ether_buf,
+  printf("fd %d bsize %d buf %p icb %X in %d out %d\n ", ether_fd, ether_bsize, ether_buf,
         IOPage->dlethernet[3], ether_in, ether_out);
 #endif /* MAIKO_ENABLE_ETHERNET */

--- a/src/gcarray.c
+++ b/src/gcarray.c
@@ -112,7 +112,7 @@ LispPTR aref1(LispPTR array, int index) {
  if (index >= actarray->totalsize) {
    printf("Invalid index in GC's AREF1:  0x%x\n", index);
    printf(" Array size limit:  0x%x\n", actarray->totalsize);
-    printf(" Array ptr: 0x%lx\n", (UNSIGNED)array);
+    printf(" Array ptr: 0x%x\n", array);
    printf(" Array 68K ptr: %p\n", actarray);
    printf("base:     0x%x\n", actarray->base);
    printf("offset:   0x%x\n", actarray->offset);
--- 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/subr.c
+++ b/src/subr.c
@@ -485,18 +485,27 @@ void OP_subrcall(int subr_no, int argnum) {
    case sb_GET_NATIVE_ADDR_FROM_LISP_PTR:
      POP_SUBR_ARGS;
      /* XXX: this WILL NOT WORK if Lisp memory is allocated outside the low 4GB */
+      /* not supported since native addresses can't be represented as
+         a Lisp FIXP
      ARITH_SWITCH(Addr68k_from_LADDR(args[0]), TopOfStack);
+      */
+      TopOfStack = NIL_PTR;
      break;

    case sb_GET_LISP_PTR_FROM_NATIVE_ADDR:
      POP_SUBR_ARGS;
+      /* not supported since native addresses can't be represented as
+         a Lisp FIXP
+
      {
        register UNSIGNED iarg;
        N_GETNUMBER(args[0], iarg, ret_nil);
        ARITH_SWITCH(LADDR_from_68k(iarg), TopOfStack);
        break;
      };
-
+      */
+      TopOfStack = NIL_PTR;
+      break;
    case sb_DSK_GETFILENAME:
      POP_SUBR_ARGS;
      TopOfStack = DSK_getfilename(args);
--- 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
Frank Halasz	8ea2c76110	Fgh004: Adding new workflow that builds maiko releases and docker images (#415 ) * Adding new workflow that builds maiko releaases for Linux/amd64, Linux/arm64, Linux/arm7, Macos/amd64. (Not Macos/arm64 as yet.) Also builds and pushes to DockerHub docker images for Linux/amd64 and Linux/arm64. Delete old buildDocker.yml workflow. * Adding latest version of buildReleaseInclDocker.yml; builds release and docker images for all major platforms except MacOs arm64.	2022-02-11 14:21:19 -08:00
Nick Briggs	3e7c71c0c0	Use pointer format and don't cast address to int for ethernet debuggging	2022-01-22 17:04:39 -08:00
Nick Briggs	f2a3715930	Remove support for GET-NATIVE-ADDR-FROM-LISP-PTR and GET-LISP-PTR-FROM-NATIVE-ADDR (#414 ) Since the native addresses for objects within the Lisp memory may be at locations that can't be represented in 32-bits conversion between a native address and a Lisp FIXP can't be supported. For now, return NIL for conversion in either direction. There are no known users of these two subrs. Should it be necessary to reimplement them at some future time the representation will need to be something that can hold 64 bits.	2022-01-22 16:02:26 -08:00
Nick Briggs	f15d8eca09	Use correct size for %x format for LispPTR in debug output for GC array problems.	2022-01-22 15:21:20 -08:00
Nick Briggs	008ce703e7	Use inttypes.h to provide uintptr_t/intptr_t of machine dependent size for UNSIGNED/INT declarations	2022-01-22 15:16:36 -08:00
Nick Briggs	fa08a08648	Update possible names for clang-tidy to include version 13	2022-01-22 14:03:14 -08:00
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