Ignore mouse motion events when the window does not have keyboard focus

Set up makeright etc. to allow for easier compilation of alternate versions
The makeright script and the makefile-* slices it depends are modified to allow easily specifying the RELEASE version number of the Maiko emulator to be built. The default version remains 351, but can be changed with e.g. RELEASE=201 ./makeright x The object directories and executables are NOT named with the version.
2026-03-21 00:38:06 +00:00 · 2024-08-15 20:36:26 -07:00 · 2024-08-05 17:13:01 -07:00 · 2024-08-05 16:23:54 -07:00 · 2024-08-05 16:20:09 -07:00
28 changed files with 274 additions and 1254 deletions
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -37,16 +37,12 @@ IF(NEED_LIB_M)
  SET(MAIKO_LIBRARIES m)
 ENDIF()

-SET (MAIKO_RELEASE 351 CACHE STRING "Release version to build. Release: 115, 200, 201, 210, 300, 350, 351")
-SET_PROPERTY(CACHE MAIKO_RELEASE PROPERTY STRINGS 115 200 201 210 300 350 351)
-
-MESSAGE("-- Configured for release ${MAIKO_RELEASE}")
 SET(MAIKO_DEFINITIONS
-    "-DRELEASE=${MAIKO_RELEASE}"
+    "-DRELEASE=351"
 )

 SET(MAIKO_INIT_DEFINITIONS
-    "-DRELEASE=${MAIKO_RELEASE}" "-DINIT" "-DNOVERSION"
+    "-DRELEASE=351" "-DINIT" "-DNOVERSION"
 )

 OPTION(MAIKO_DISPLAY_X11 "Use X11 for display." ON)
--- a/inc/gcdata.h
+++ b/inc/gcdata.h
@@ -19,6 +19,7 @@
 /**********************************************************************/
 #include "lispemul.h" /* for LispPTR, DLword */
 #include "version.h" /* for USHORT */
+#include "gchtfinddefs.h"

 #define ADDREF  0       /* for gclookup routine. */
 #define DELREF  1       /* for gclookup routine. */
--- a/inc/gchtfinddefs.h
+++ b/inc/gchtfinddefs.h
@@ -1,9 +1,8 @@
 #ifndef GCHTFINDDEFS_H
 #define GCHTFINDDEFS_H 1
 #include "lispemul.h" /* for LispPTR, DLword */
-#include "gcdata.h"   /* for GCENTRY */
 void enter_big_reference_count(LispPTR ptr);
-void modify_big_reference_count(GCENTRY *entry, DLword casep, LispPTR ptr);
+void modify_big_reference_count(LispPTR *entry, DLword casep, LispPTR ptr);
 LispPTR htfind(LispPTR ptr, int casep);
 LispPTR rec_htfind(LispPTR ptr, int casep);
 #endif
--- a/inc/locfile.h
+++ b/inc/locfile.h
@@ -499,8 +499,7 @@ do  {				\
 #define	MAXVERSION		999999999

 #define	LASTVERSIONARRAY	((unsigned) -1)
-#define	VERSIONARRAYCHUNKLENGTH	200
-#define	VERSIONARRAYMAXLENGTH   2000
+#define	VERSIONARRAYLENGTH	200

 #define NoFileP(varray)						\
        (((varray)->version_no == LASTVERSIONARRAY)? 1 : 0)
--- a/inc/my.h
+++ b/inc/my.h
@@ -20,7 +20,6 @@
 #include "version.h"     // for BIGVM
 #include "adr68k.h"      // for NativeAligned2FromLAddr, NativeAligned4FromLAddr, LAddrFromNative
 #include "arith.h"       // for N_ARITH_SWITCH, N_GETNUMBER
-#include "gchtfinddefs.h"// for htfind, rec_htfind, from gcdata.h macros
 #include "gcdata.h"	 // for ADDREF, DELREF
 #include "lispemul.h"    // for ERROR_EXIT, LispPTR, DLword, SEGMASK, state
 #include "lispmap.h"     // for S_POSITIVE, S_CHARACTER, S_NEGATIVE
--- a/inc/version.h
+++ b/inc/version.h
@@ -237,14 +237,6 @@ typedef unsigned short USHORT;
 	/* 	    --Start of system-specific flags		 	*/
 	/*								*/
 	/****************************************************************/
-#ifdef MAIKO_OS_MACOS
-/* macOS does not follow the POSIX standard for the names of the stat
-   fields that allow access to the nanosecond resolution times
-*/
-#define st_atim st_atimespec
-#define st_mtim st_mtimespec
-#define st_ctim st_ctimespec
-#endif

 	/****************************************************************/
 	/* 	    End of system-specific flag settings		*/
--- a/src/bbtsub.c
+++ b/src/bbtsub.c
@@ -49,6 +49,7 @@
 #include "stack.h"
 #include "return.h"
 #include "cell.h"
+#include "gcdata.h"

 #include "bbtsubdefs.h"
 #include "car-cdrdefs.h"
--- a/src/car-cdr.c
+++ b/src/car-cdr.c
@@ -38,7 +38,6 @@
 #include "conspagedefs.h"  // for next_conspage
 #include "emlglob.h"
 #include "gcdata.h"        // for GCLOOKUP, ADDREF, DELREF
-#include "gchtfinddefs.h"  // for htfind, rec_htfind
 #include "lispemul.h"      // for ConsCell, LispPTR, DLword, NIL_PTR, state
 #include "lspglob.h"       // for ListpDTD
 #include "lsptypes.h"      // for Listp, dtd
--- a/src/conspage.c
+++ b/src/conspage.c
@@ -23,7 +23,6 @@
 #include "commondefs.h"    // for error
 #include "conspagedefs.h"  // for N_OP_cons, cons, next_conspage
 #include "gcdata.h"        // for GCLOOKUP, ADDREF, DELREF
-#include "gchtfinddefs.h"  // for htfind, rec_htfind
 #include "lispemul.h"      // for ConsCell, DLword, LispPTR, NIL_PTR, DLWORD...
 #include "lspglob.h"
 #include "lsptypes.h"      // for dtd, Listp, TYPE_LISTP
--- a/src/dsk.c
+++ b/src/dsk.c
@@ -13,7 +13,7 @@
 #include <fcntl.h>          // for O_RDWR, O_CREAT, open, O_RDONLY, O_TRUNC
 #include <stdio.h>          // for NULL, sprintf, size_t, rename, SEEK_SET
 #include <stddef.h>         // for ptrdiff_t
-#include <stdlib.h>         // for strtoul, qsort
+#include <stdlib.h>         // for strtoul
 #include <string.h>         // for strcpy, strcmp, strlen, strncpy, strchr
 #include <sys/stat.h>       // for stat, fstat, mkdir, S_ISREG, st_atime, chmod
 #include <sys/types.h>      // for ino_t, time_t, off_t
@@ -38,13 +38,12 @@
 #include <pwd.h>            // for getpwuid, passwd
 #include <sys/param.h>      // for MAXPATHLEN
 #include <sys/statvfs.h>    // for statvfs
-#include <sys/time.h>       // for timeval, utimes, futimens
+#include <sys/time.h>       // for timeval, utimes
 #else
 #include <direct.h>
 #include <dos.h>
 #include <time.h>
 #include <io.h>
-#include <search.h>         // for qsort(?)
 #define MAXPATHLEN _MAX_PATH
 #define MAXNAMLEM _MAX_PATH
 #define alarm(x) 0
@@ -58,31 +57,25 @@ typedef struct filename_entry {
  unsigned version_no;
 } FileName;

-/*
- * VA, a structure representing the file names and version numbers
- *  that were present in a directory at a particular moment in time.
- *  The {DSK} device presents a case-insensitive (to Medley) but
- *  case-preserving (to the host) file system. The VA (Version Array)
- */
-static struct {
-  char name[MAXPATHLEN];     /* lowercase unversioned file name */
-  struct timespec lastMTime; /* modification time of the directory */
-  int allocated;             /* number of entries in the files array */
-  int lastUsed;              /* index of the last entry in use in files array */
-  FileName *files;           /* array of files */
-} VA = {0};
+typedef struct current_varray {
+  char path[MAXPATHLEN]; /* pathname of directory */
+  char file[MAXPATHLEN]; /* file name  (down cased name) */
+  time_t mtime;
+} CurrentVArray;
+
+static FileName VersionArray[VERSIONARRAYLENGTH];
+static CurrentVArray VArrayInfo;

 static int locate_file(char *dir, char *name);
 static int make_directory(char *dir);
-static int maintain_version(char *file, int forcep);
-static int compare_file_versions(const void *a, const void *b);
+static int maintain_version(char *file, FileName *varray, int forcep);
 static int get_versionless(FileName *varray, char *file, char *dir);
 static int check_vless_link(char *vless, FileName *varray, char *to_file, int *highest_p);
 static int get_old(char *dir, FileName *varray, char *afile, char *vfile);
 static int get_oldest(char *dir, FileName *varray, char *afile, char *vfile);
 static int get_new(char *dir, FileName *varray, char *afile, char *vfile);
 static int get_old_new(char *dir, FileName *varray, char *afile, char *vfile);
-static int get_version_array(char *dir, char *file);
+static int get_version_array(char *dir, char *file, FileName *varray, CurrentVArray *cache);

 #ifdef DOS
 static void separate_drive(char *lfname, char *drive)
@@ -374,24 +367,24 @@ LispPTR COM_openfile(LispPTR *args)
  if (dskp) {
    if (unpack_filename(file, dir, name, ver, 1) == 0) return (NIL);
    if (true_name(dir) != -1) return (0);
-    if (get_version_array(dir, name) == 0) return (NIL);
+    if (get_version_array(dir, name, VersionArray, &VArrayInfo) == 0) return (NIL);
    ConcNameAndVersion(name, ver, file);

    switch (args[1]) {
      case RECOG_OLD:
-        if (get_old(dir, VA.files, file, name) == 0) return (NIL);
+        if (get_old(dir, VersionArray, file, name) == 0) return (NIL);
        break;

      case RECOG_OLDEST:
-        if (get_oldest(dir, VA.files, file, name) == 0) return (NIL);
+        if (get_oldest(dir, VersionArray, file, name) == 0) return (NIL);
        break;

      case RECOG_NEW:
-        if (get_new(dir, VA.files, file, name) == 0) return (NIL);
+        if (get_new(dir, VersionArray, file, name) == 0) return (NIL);
        break;

      case RECOG_OLD_NEW:
-        if (get_old_new(dir, VA.files, file, name) == 0) return (NIL);
+        if (get_old_new(dir, VersionArray, file, name) == 0) return (NIL);
        break;

      default: return (NIL);
@@ -446,7 +439,7 @@ LispPTR COM_openfile(LispPTR *args)
         * Actually we are creating a new file.  We have to
         * maintain a version status.
         */
-        if (maintain_version(file, 1) == 0) {
+        if (maintain_version(file, (FileName *)NULL, 1) == 0) {
          TIMEOUT(rval = close(fd));
          *Lisp_errno = errno;
          return (NIL);
@@ -492,7 +485,7 @@ LispPTR COM_openfile(LispPTR *args)
     * the entirely newly created file, versionless file, should not
     * be linked to any file.
     */
-    if (maintain_version(file, 0) == 0) {
+    if (maintain_version(file, (FileName *)NULL, 0) == 0) {
      TIMEOUT(close(fd));
      *Lisp_errno = errno;
      return (NIL);
@@ -677,7 +670,7 @@ LispPTR COM_closefile(LispPTR *args)
    *Lisp_errno = errno;
    return (NIL);
  }
-#ifndef DOS /* effectively NEVER, since we're in an ifdef DOS */
+#ifndef DOS
  TIMEOUT(rval = utimes(file, time));
  if (rval != 0) {
    *Lisp_errno = errno;
@@ -688,9 +681,13 @@ LispPTR COM_closefile(LispPTR *args)
  int fd, fatp, dskp, rval;
  time_t cdate;
  char lfname[MAXPATHLEN + 5], host[MAXNAMLEN];
-  char file[MAXPATHLEN];
+  char file[MAXPATHLEN], dir[MAXPATHLEN], name[MAXNAMLEN + 1];
+  char ver[VERSIONLEN];
+  DIR *dirp;
+  struct dirent *dp;
  struct stat sbuf;
-  struct timespec timesp[2];
+  struct timeval time[2];
+  ino_t ino;

  ERRSETJMP(NIL);
  Lisp_errno = (int *)NativeAligned4FromLAddr(args[3]);
@@ -755,24 +752,60 @@ LispPTR COM_closefile(LispPTR *args)
    }
  }

-  /* introduction of futimens() allows us to set the times on an open
-   * file descriptor so a lot of directory manipulation to find the
-   * appropriate name associated with the inode is no longer required
-   */
+  if (!unpack_filename(file, dir, name, ver, 1)) return (NIL);

-  timesp[0].tv_sec = (long)sbuf.st_atime;
-  timesp[0].tv_nsec = 0L;
-  timesp[1].tv_sec = (long)ToUnixTime(cdate);
-  timesp[1].tv_nsec = 0L;
+  if (dskp) {
+    /*
+     * On {DSK}, we have to make sure dir is case sensitively existing
+     * directory.
+     */
+    if (true_name(dir) != -1) return (NIL);

-  TIMEOUT(rval = futimens(fd, timesp));
-  if (rval != 0) {
+    /*
+     * There is a very troublesome problem here.  The file name Lisp
+     * recognizes is not always the same as the name which COM_openfile
+     * used to open the file.  Sometimes COM_openfile uses the versionless
+     * file name to open a file, although Lisp always recognizes with
+     * *versioned* file name.
+     * Thus, we compare i-node number of the requested file with ones of all
+     * of files on the directory.   This is time spending implementation.
+     * More clean up work is needed.
+     */
+    TIMEOUT(rval = fstat(fd, &sbuf));
+    if (rval != 0) {
+      *Lisp_errno = errno;
+      return (NIL);
+    }
+    ino = sbuf.st_ino;
+
+    errno = 0;
+    TIMEOUT0(dirp = opendir(dir));
+    if (dirp == (DIR *)NULL) {
+      *Lisp_errno = errno;
+      return (NIL);
+    }
+
+    for (S_TOUT(dp = readdir(dirp)); dp != (struct dirent *)NULL || errno == EINTR;
+         errno = 0, S_TOUT(dp = readdir(dirp)))
+      if (dp) {
+        if (ino == (ino_t)dp->d_ino) sprintf(file, "%s/%s", dir, dp->d_name);
+      }
+    TIMEOUT(closedir(dirp));
+  }
+
+  time[0].tv_sec = (long)sbuf.st_atime;
+  time[0].tv_usec = 0L;
+  time[1].tv_sec = (long)ToUnixTime(cdate);
+  time[1].tv_usec = 0L;
+
+  TIMEOUT(rval = close(fd));
+  if (rval == -1) {
    *Lisp_errno = errno;
    return (NIL);
  }

-  TIMEOUT(rval = close(fd));
-  if (rval == -1) {
+  TIMEOUT(rval = utimes(file, time));
+  if (rval != 0) {
    *Lisp_errno = errno;
    return (NIL);
  }
@@ -885,10 +918,10 @@ LispPTR DSK_getfilename(LispPTR *args)
         * Recognizing a file on DSK device needs the version information.
         * We gather version information in a version array first.
         */
-        if (get_version_array(dir, name) == 0) return (NIL);
+        if (get_version_array(dir, name, VersionArray, &VArrayInfo) == 0) return (NIL);

        ConcNameAndVersion(name, ver, aname);
-        if (get_old(dir, VA.files, aname, vname) == 0) return (NIL);
+        if (get_old(dir, VersionArray, aname, vname) == 0) return (NIL);

        if ((rval = true_name(aname)) == 0) return (NIL);
        if (rval == -1) {
@@ -925,10 +958,10 @@ LispPTR DSK_getfilename(LispPTR *args)
        strcpy(vname, dir);
        dirp = 1;
      } else {
-        if (get_version_array(dir, name) == 0) return (NIL);
+        if (get_version_array(dir, name, VersionArray, &VArrayInfo) == 0) return (NIL);

        ConcNameAndVersion(name, ver, aname);
-        if (get_oldest(dir, VA.files, aname, vname) == 0) return (NIL);
+        if (get_oldest(dir, VersionArray, aname, vname) == 0) return (NIL);

        if ((rval = true_name(aname)) == 0) return (NIL);
        if (rval == -1) {
@@ -974,10 +1007,10 @@ LispPTR DSK_getfilename(LispPTR *args)
           * Here, dir is an existing directory.  We have to perform
           * "new" recognition with the version information.
           */
-          if (get_version_array(dir, name) == 0) return (NIL);
+          if (get_version_array(dir, name, VersionArray, &VArrayInfo) == 0) return (NIL);

          ConcNameAndVersion(name, ver, aname);
-          if (get_new(dir, VA.files, aname, vname) == 0) return (NIL);
+          if (get_new(dir, VersionArray, aname, vname) == 0) return (NIL);
          dirp = 0;
        }
      }
@@ -1000,10 +1033,10 @@ LispPTR DSK_getfilename(LispPTR *args)
          strcpy(vname, aname);
          dirp = 1;
        } else {
-          if (get_version_array(dir, name) == 0) return (NIL);
+          if (get_version_array(dir, name, VersionArray, &VArrayInfo) == 0) return (NIL);

          ConcNameAndVersion(name, ver, aname);
-          if (get_old_new(dir, VA.files, aname, vname) == 0) return (NIL);
+          if (get_old_new(dir, VersionArray, aname, vname) == 0) return (NIL);
          dirp = 0;
        }
      }
@@ -1099,6 +1132,7 @@ LispPTR DSK_deletefile(LispPTR *args)
  char file[MAXPATHLEN], fbuf[MAXPATHLEN], vless[MAXPATHLEN];
  char dir[MAXPATHLEN], ver[VERSIONLEN];
  int rval, fatp;
+  FileName *varray;
 #ifdef DOS
  char drive[1], rawname[MAXNAMLEN];
  int extlen; /* len of extension, for making backup filename */
@@ -1126,9 +1160,10 @@ LispPTR DSK_deletefile(LispPTR *args)
 #endif

  if (unpack_filename(file, dir, fbuf, ver, 1) == 0) return (NIL);
-  if (get_version_array(dir, fbuf) == 0) return (NIL);
+  if (get_version_array(dir, fbuf, VersionArray, &VArrayInfo) == 0) return (NIL);
+  varray = VersionArray;

-  if (NoFileP(VA.files))
+  if (NoFileP(varray))
    return (NIL); /*
                   * If the specified file is deleted from
                   * outside of Lisp during the last time
@@ -1143,9 +1178,9 @@ LispPTR DSK_deletefile(LispPTR *args)
   */

  ConcNameAndVersion(fbuf, ver, file);
-  if (get_oldest(dir, VA.files, file, fbuf) == 0) return (NIL);
+  if (get_oldest(dir, varray, file, fbuf) == 0) return (NIL);

-  if (get_versionless(VA.files, vless, dir) == 0) {
+  if (get_versionless(varray, vless, dir) == 0) {
    /*
     * There is no versionless file.  All we have to do is to simply
     * try to unlink the specified file.
@@ -1164,7 +1199,7 @@ LispPTR DSK_deletefile(LispPTR *args)
   * file is linked will destroy the consistency of the version status.
   */

-  if (check_vless_link(vless, VA.files, fbuf, &rval) == 0) return (NIL);
+  if (check_vless_link(vless, varray, fbuf, &rval) == 0) return (NIL);

  if (strcmp(file, vless) == 0 || strcmp(file, fbuf) == 0) {
    if (*fbuf != '\0') {
@@ -1185,12 +1220,12 @@ LispPTR DSK_deletefile(LispPTR *args)
      /*
       * Finally, we have to maintain the version status.
       */
-      if (maintain_version(vless, 0) == 0) return (NIL);
+      if (maintain_version(vless, (FileName *)NULL, 0) == 0) return (NIL);
      return (ATOM_T);
    } else {
      /*
       * Although the versionfile is specified, it is not linked
-       * to any file in VA.files.  We should not maintain the version
+       * to any file in varray.  We should not maintain the version
       * status after deleting the versionless file, because
       * we cannot say whether the versionless file is actually under
       * control of the Medley DSK file system or not.
@@ -1245,6 +1280,7 @@ LispPTR DSK_renamefile(LispPTR *args)
  char dir[MAXPATHLEN], ver[VERSIONLEN];
  int rval, fatp;
  int need_maintain_flg;
+  FileName *varray;
 #ifdef DOS
  char drive1[1], drive2[1];
  int extlen1, extlen2; /* len of extension */
@@ -1295,9 +1331,10 @@ LispPTR DSK_renamefile(LispPTR *args)
   * We maintain the destination to handle the link damaged case correctly.
   */
  ConcDirAndName(dir, fbuf, dst);
-  if (maintain_version(dst, 0) == 0) return (NIL);
+  if (maintain_version(dst, (FileName *)NULL, 0) == 0) return (NIL);

-  if (get_version_array(dir, fbuf) == 0) return (NIL);
+  if (get_version_array(dir, fbuf, VersionArray, &VArrayInfo) == 0) return (NIL);
+  varray = VersionArray;

  /*
   * Although the file should have been recognized with "new" mode in Lisp
@@ -1306,7 +1343,7 @@ LispPTR DSK_renamefile(LispPTR *args)
   */

  ConcNameAndVersion(fbuf, ver, dst);
-  if (get_new(dir, VA.files, dst, fbuf) == 0) return (NIL);
+  if (get_new(dir, varray, dst, fbuf) == 0) return (NIL);

  /*
   * At this point, there are three cases for the destination.  If there is
@@ -1316,9 +1353,9 @@ LispPTR DSK_renamefile(LispPTR *args)
   * "real" destination file is the file to which the versionless file is linked,
   * we have to unlink the versionless file.
   */
-  if (!NoFileP(VA.files)) {
-    if (OnlyVersionlessP(VA.files)) {
-      get_versionless(VA.files, vless, dir);
+  if (!NoFileP(varray)) {
+    if (OnlyVersionlessP(varray)) {
+      get_versionless(varray, vless, dir);
      if (strcmp(dst, vless) != 0) {
        ConcNameAndVersion(vless, "1", fbuf);
        TIMEOUT(rval = rename(vless, fbuf));
@@ -1332,8 +1369,8 @@ LispPTR DSK_renamefile(LispPTR *args)
       * We are sure that the versionless file is linked to one of
       * the higher versioned file here.
       */
-      get_versionless(VA.files, vless, dir);
-      if (check_vless_link(vless, VA.files, fbuf, &rval) == 0) { return (NIL); }
+      get_versionless(varray, vless, dir);
+      if (check_vless_link(vless, varray, fbuf, &rval) == 0) { return (NIL); }
      if (strcmp(dst, fbuf) == 0) {
        TIMEOUT(rval = unlink(vless));
        if (rval == -1) {
@@ -1345,9 +1382,9 @@ LispPTR DSK_renamefile(LispPTR *args)
  }

  if (unpack_filename(src, dir, fbuf, ver, 1) == 0) return (NIL);
-  if (get_version_array(dir, fbuf) == 0) return (NIL);
+  if (get_version_array(dir, fbuf, varray, &VArrayInfo) == 0) return (NIL);

-  if (NoFileP(VA.files))
+  if (NoFileP(varray))
    return (NIL); /*
                   * If the specified file is deleted from
                   * outside of Lisp during the last time
@@ -1361,9 +1398,9 @@ LispPTR DSK_renamefile(LispPTR *args)
   * of it.
   */
  ConcNameAndVersion(fbuf, ver, src);
-  if (get_old(dir, VA.files, src, fbuf) == 0) return (NIL);
+  if (get_old(dir, varray, src, fbuf) == 0) return (NIL);

-  if (get_versionless(VA.files, vless, dir) == 0) {
+  if (get_versionless(varray, vless, dir) == 0) {
    /*
     * There is no versionless file.  All we have to do is to simply
     * try to rename the specified file.
@@ -1376,7 +1413,7 @@ LispPTR DSK_renamefile(LispPTR *args)
     * versionless file is linked will destroy the consistency of the
     * version status.
     */
-    if (check_vless_link(vless, VA.files, fbuf, &rval) == 0) return (NIL);
+    if (check_vless_link(vless, varray, fbuf, &rval) == 0) return (NIL);

    if (strcmp(src, vless) == 0 && *fbuf != '\0') {
      /*
@@ -1421,9 +1458,9 @@ LispPTR DSK_renamefile(LispPTR *args)
   * is on.
   */

-  if (maintain_version(dst, 0) == 0) return (NIL);
+  if (maintain_version(dst, (FileName *)NULL, 0) == 0) return (NIL);
  if (need_maintain_flg) {
-    if (maintain_version(src, 0) == 0) return (NIL);
+    if (maintain_version(src, (FileName *)NULL, 0) == 0) return (NIL);
  }

  return (ATOM_T);
@@ -1621,9 +1658,9 @@ LispPTR COM_getfileinfo(LispPTR *args)
       */
      strcpy(file, dir);
    } else {
-      if (get_version_array(dir, name) == 0) return (NIL);
+      if (get_version_array(dir, name, VersionArray, &VArrayInfo) == 0) return (NIL);
      ConcNameAndVersion(name, ver, file);
-      if (get_old(dir, VA.files, file, name) == 0) return (NIL);
+      if (get_old(dir, VersionArray, file, name) == 0) return (NIL);
    }
  }

@@ -1810,9 +1847,9 @@ LispPTR COM_setfileinfo(LispPTR *args)
  if (dskp) {
    if (unpack_filename(file, dir, name, ver, 1) == 0) return (NIL);
    if (true_name(dir) != -1) return (0);
-    if (get_version_array(dir, name) == 0) return (NIL);
+    if (get_version_array(dir, name, VersionArray, &VArrayInfo) == 0) return (NIL);
    ConcNameAndVersion(name, ver, file);
-    if (get_old(dir, VA.files, file, name) == 0) return (NIL);
+    if (get_old(dir, VersionArray, file, name) == 0) return (NIL);
  }

  switch (args[1]) {
@@ -2766,26 +2803,34 @@ static int make_directory(char *dir)
 *		and highest version number respectively.
 *
 * Description:
- * Finds the highest versioned entry in varray.
 *
- * Preconditions:
- *     Varray must include at least one versioned file, satisfying the condition:
- *       (!NoFileP(varray) && !OnlyVersionlessP(varray))
- *     Varray must be sorted from highest to lowest version
+ * Find the highest versioned entry in varray.  Varray has to include at least
+ * one versioned file, that is varray has to satisfy (!NoFileP(varray) &&
+ * !OnlyVersionlessP(varray)).
+ *
 */
-
 #ifdef DOS
 #define FindHighestVersion(varray, mentry, max_no)                                         \
-  do {                                    \
-    (max_no) = varray[0].version_no;      \
-    (mentry) = &varray[0];                \
-  } while (0)
+  do {                                                                                        \
+    FileName *centry;                                                             \
+    for (centry = varray, max_no = -1; centry->version_no != LASTVERSIONARRAY; centry++) { \
+      if (centry->version_no > max_no) {                                                   \
+        max_no = centry->version_no;                                                       \
+        mentry = centry;                                                                   \
+      }                                                                                    \
+    }                                                                                      \
+    } while (0)
 #else
 #define FindHighestVersion(varray, mentry, max_no)                                        \
-  do {                                    \
-    (max_no) = varray[0].version_no;      \
-    (mentry) = &varray[0];                \
-  } while (0)
+  do {                                                                                       \
+    FileName *centry;                                                            \
+    for (centry = (varray), (max_no) = 0; centry->version_no != LASTVERSIONARRAY; centry++) { \
+      if (centry->version_no > (max_no)) {                                                  \
+        (max_no) = centry->version_no;                                                      \
+        (mentry) = centry;                                                                  \
+      }                                                                                   \
+    }                                                                                     \
+    } while (0)
 #endif /* DOS */

 /*
@@ -2872,19 +2917,6 @@ static int make_directory(char *dir)
      }                                                                     \
  } while (0)

-/*
- * comparison function for qsort to sort file versions in descending order
- */
-static int compare_file_versions(const void *a, const void *b)
-{
-  unsigned a_ver = ((FileName *)a)->version_no;
-  unsigned b_ver = ((FileName *)b)->version_no;
-
-  if (a_ver > b_ver) return (-1);
-  if (a_ver < b_ver) return (1);
-  return (0);
-}
-
 /************************************************************************/
 /*									*/
 /*		    g e t _ v e r s i o n _ a r r a y			*/
@@ -2896,6 +2928,7 @@ static int compare_file_versions(const void *a, const void *b)
 /*		guarantee that the directory exists.			*/
 /*	file	File name, optionally including a (unix) version	*/
 /*	varray	Place to put the version array entries.			*/
+/*	cache	Place to hold info about the new version array		*/
 /*									*/
 /*	Read thru DIR and gather all files that match FILE into		*/
 /*	VARRAY.  DIR's case must match existing directory's, but	*/
@@ -2905,15 +2938,15 @@ static int compare_file_versions(const void *a, const void *b)
 /*									*/
 /************************************************************************/

-static int get_version_array(char *dir, char *file)
+static int get_version_array(char *dir, char *file, FileName *varray, CurrentVArray *cache)
 {
 #ifdef DOS
-  /* DOS version-array builder */
+
  char lcased_file[MAXPATHLEN];
  char old_file[MAXPATHLEN];
  char name[MAXNAMLEN];
  char ver[VERSIONLEN];
-  int varray_index = 0;
+  FileName *svarray;
  struct find_t dirp;
  struct direct *dp;
  int rval, drive = 0, isslash = 0;
@@ -2954,12 +2987,14 @@ static int get_version_array(char *dir, char *file)

  make_old_version(old_file, lcased_file);

+  svarray = varray;
+
  TIMEOUT(res = _dos_findfirst(old_file, _A_NORMAL | _A_SUBDIR, &dirp));
  if (res == 0) {
    strcpy(name, dirp.name);
-    strcpy(VA.files[varray_index].name, name);
-    VA.files[varray_index].version_no = 0;
-    varray_index++;
+    strcpy(svarray->name, name);
+    svarray->version_no = 0;
+    svarray++;
  }

  /*******************************/
@@ -2978,48 +3013,34 @@ static int get_version_array(char *dir, char *file)
    separate_version(name, ver, 1);
    DOWNCASE(name);

-    strcpy(VA.files[varray_index].name, dirp.name);
+    strcpy(svarray->name, dirp.name);
    if (*ver == '\0') {
      /* Versionless file */
-      VA.files[varray_index].version_no = 1;
+      svarray->version_no = 1;
    } else {
      /*
-       * separate_version guarantees ver is a numeric string.
+       * separator_version guarantees ver is a numeric
+       * string.
       */
-      VA.files[varray_index].version_no = strtoul(ver, (char **)NULL, 10);
-    }
-    varray_index++;
-    if (varray_index >= VERSIONARRAYMAXLENGTH) {
-      *Lisp_errno = EIO;
-      return (0);
-    } else if (varray_index >= VA.allocated) {
-      VA.allocated += VERSIONARRAYCHUNKLENGTH;
-      VA.files = realloc(VA.files,
-                             sizeof(*VA.files) * VA.allocated);
+      svarray->version_no = strtoul(ver, (char **)NULL, 10);
    }
+    svarray++;
  }

  /*
-   * The last entry of VA.files is indicated by setting LASTVERSIONARRAY into
+   * The last entry of varray is indicated by setting LASTVERSIONARRAY into
   * version_no field.
   */
-  VA.files[varray_index].version_no = LASTVERSIONARRAY;
-  VA.lastUsed = varray_index;
+  svarray->version_no = LASTVERSIONARRAY;

  /*
-   * If any files have been stored in VA.files, we store the name
+   * If more than one files have been stored in varray, we store the name
   * without version in the last marker entry.
-   *
-   * NOTE: sorting "varray_index" entries will leave the LASTVERSIONARRAY item
-   * untouched by the sort, which is intentional.
   */
-  if (!NoFileP(VA.files)) {
-    strcpy(name, VA.files[0].name);
+  if (!NoFileP(varray)) {
+    strcpy(name, varray->name);
    separate_version(name, ver, 1);
-    strcpy(VA.files[varray_index].name, name);
-    if (varray_index > 1) {
-      qsort(VA.files, varray_index, sizeof(*VA.files), compare_file_versions);
-    }
+    strcpy(svarray->name, name);
  }

  return (1);
@@ -3029,7 +3050,7 @@ static int get_version_array(char *dir, char *file)
  char lcased_file[MAXNAMLEN];
  char name[MAXNAMLEN];
  char ver[VERSIONLEN];
-  int varray_index = 0;
+  FileName *svarray;
  DIR *dirp;
  struct dirent *dp;
  int rval;
@@ -3043,26 +3064,29 @@ static int get_version_array(char *dir, char *file)
  separate_version(lcased_file, ver, 1);
  DOWNCASE(lcased_file);

-  /* Cache for VA.files reinstated using nanosecond timestamps which many
-   * systems provide for directory modification times.
-   * POSIX defines the struct stat field containing the nanosecond resolution
-   * modification time as "st_mtim".  See "version.h" for accomodations
-   * for systems that call it something else (e.g., macOS st_mtimespec).
-   */
-
  TIMEOUT(rval = stat(dir, &sbuf));
  if (rval == -1) {
    *Lisp_errno = errno;
    return(0);
  }
-  if (0 == strcmp(lcased_file, VA.name) &&
-      sbuf.st_mtim.tv_sec == VA.lastMTime.tv_sec &&
-      sbuf.st_mtim.tv_nsec == VA.lastMTime.tv_nsec) {
-    return (1);
-  } else {
-    VA.lastMTime = sbuf.st_mtim;
-    strcpy(VA.name, lcased_file);
-  }
+
+  /*
+   * Cache mechanism was not used because of a bug in Sun OS.
+   * Sometimes just after unlinking a file on a directory, the st_mtime
+   * of the directory does not change.  This will make Maiko believe
+   * cached version array is still valid, although it is already invalid.
+   * sync(2) has no effect on such case.
+   */
+
+  /*
+   * If the cached version array is still valid, we can return immediately.
+   */
+
+#if 0
+  /* there is a (different?) problem (#1661) with the caching - disable until it's solved */
+  if ((sbuf.st_mtime == cache->mtime) && strcmp(dir, cache->path) == 0
+      && strcmp(lcased_file, cache->file) == 0) return(1);
+#endif

  errno = 0;
  TIMEOUT0(dirp = opendir(dir));
@@ -3071,13 +3095,7 @@ static int get_version_array(char *dir, char *file)
    return (0);
  }

-  /* There is no initialization call for the local file system, so we
-   * must ensure there is initial storage allocated for the version array */
-  if (VA.files == NULL) {
-    VA.files = calloc(VERSIONARRAYCHUNKLENGTH, sizeof(*VA.files));
-    VA.allocated = VERSIONARRAYCHUNKLENGTH;
-  }
-  for (S_TOUT(dp = readdir(dirp)); dp != NULL || errno == EINTR;
+  for (S_TOUT(dp = readdir(dirp)), svarray = varray; dp != NULL || errno == EINTR;
       errno = 0, S_TOUT(dp = readdir(dirp)))
    if (dp) {
      strcpy(name, dp->d_name);
@@ -3087,50 +3105,42 @@ static int get_version_array(char *dir, char *file)
        /*
         * This file can be regarded as a same file in Lisp sense.
         */
-        strcpy(VA.files[varray_index].name, dp->d_name);
+        strcpy(svarray->name, dp->d_name);
        if (*ver == '\0') {
          /* Versionless file */
-          VA.files[varray_index].version_no = 0;
+          svarray->version_no = 0;
        } else {
          /*
-           * separate_version guarantees ver is a numeric string.
+           * separator_version guarantees ver is a numeric
+           * string.
           */
-          VA.files[varray_index].version_no = strtoul(ver, (char **)NULL, 10);
-        }
-        varray_index++;
-        if (varray_index >= VERSIONARRAYMAXLENGTH) {
-          *Lisp_errno = EIO;
-          return (0);
-        } else if (varray_index >= VA.allocated) {
-          VA.allocated += VERSIONARRAYCHUNKLENGTH;
-          VA.files = realloc(VA.files,
-                                 sizeof(*VA.files) * VA.allocated);
+          svarray->version_no = strtoul(ver, (char **)NULL, 10);
        }
+        svarray++;
      }
    }
  /*
   * The last entry of varray is indicated by setting LASTVERSIONARRAY into
   * version_no field.
   */
-  VA.files[varray_index].version_no = LASTVERSIONARRAY;
-  VA.lastUsed = varray_index;
+  svarray->version_no = LASTVERSIONARRAY;

  /*
-   * If any files have been stored in VA.files, we store the name
+   * If more than one files have been stored in varray, we store the name
   * without version in the last marker entry.
-   *
-   * NOTE: sorting "varray_index" entries will leave the LASTVERSIONARRAY item
-   * untouched by the sort, which is intentional.
   */
-  if (!NoFileP(VA.files)) {
-    strcpy(name, VA.files[0].name);
+  if (!NoFileP(varray)) {
+    strcpy(name, varray->name);
    separate_version(name, ver, 1);
-    strcpy(VA.files[varray_index].name, name);
-    if (varray_index > 1) {
-      qsort(VA.files, varray_index, sizeof(*VA.files), compare_file_versions);
-    }
+    strcpy(svarray->name, name);
  }

+  /*
+   * Update cache information.
+   */
+  strcpy(cache->path, dir);
+  strcpy(cache->file, lcased_file);
+  cache->mtime = sbuf.st_mtime;
  TIMEOUT(closedir(dirp));
  return (1);
 #endif /* DOS */
@@ -3162,7 +3172,7 @@ static int get_version_array(char *dir, char *file)
 * to maintain the directory on which a file is being created.
 */

-static int maintain_version(char *file, int forcep)
+static int maintain_version(char *file, FileName *varray, int forcep)
 {
  char dir[MAXPATHLEN], fname[MAXNAMLEN], ver[VERSIONLEN];
  char old_file[MAXPATHLEN], vless[MAXPATHLEN];
@@ -3170,14 +3180,17 @@ static int maintain_version(char *file, int forcep)
  int rval, max_no;
  FileName *entry;

-  if (unpack_filename(file, dir, fname, ver, 1) == 0) return (0);
-  /*
-   * We have to make sure that dir is the existing directory.
-   */
-  if (true_name(dir) != -1) return (0);
-  if (get_version_array(dir, fname) == 0) return (0);
+  if (varray == (FileName *)NULL) {
+    if (unpack_filename(file, dir, fname, ver, 1) == 0) return (0);
+    /*
+     * We have to make sure that dir is the existing directory.
+     */
+    if (true_name(dir) != -1) return (0);
+    if (get_version_array(dir, fname, VersionArray, &VArrayInfo) == 0) return (0);
+    varray = VersionArray;
+  }

-  if (NoFileP(VA.files)) {
+  if (NoFileP(varray)) {
    /*
     * We don't need to care about such case that there is no such file
     * or an only versionless file exists.
@@ -3185,14 +3198,14 @@ static int maintain_version(char *file, int forcep)
    return (1);
  }

-  if (OnlyVersionlessP(VA.files)) {
+  if (OnlyVersionlessP(varray)) {
    if (forcep) {
 /*
 * If forcep, we link the versionless file to the version
 * 1 file.
 */
 #ifndef DOS
-      get_versionless(VA.files, vless, dir);
+      get_versionless(varray, vless, dir);
      ConcNameAndVersion(vless, "1", fname);
      TIMEOUT(rval = link(vless, fname));
      if (rval == -1) {
@@ -3209,13 +3222,13 @@ static int maintain_version(char *file, int forcep)
   * exists.  Thus, FindHighestVersion works fine from now on.
   */

-  if (get_versionless(VA.files, vless, dir) == 0) {
+  if (get_versionless(varray, vless, dir) == 0) {
    /*
     * There is not a versionless file, but at least one versioned file.
     * Thus, the thing we have to do is to link a versionless file
     * to the existing highest versioned file.
     */
-    FindHighestVersion(VA.files, entry, max_no);
+    FindHighestVersion(varray, entry, max_no);
    ConcDirAndName(dir, entry->name, old_file);
 /*
 * The versionless file should have the same case name as the old
@@ -3234,15 +3247,15 @@ static int maintain_version(char *file, int forcep)
    return (1);
  }

-  if (check_vless_link(vless, VA.files, old_file, &highest_p) == 0) return (0);
+  if (check_vless_link(vless, varray, old_file, &highest_p) == 0) return (0);

  if (*old_file == '\0') {
    /*
-     * The versionless file is not linked to any file in VA.files.
+     * The versionless file is not linked to any file in varray.
     * Thus, we have to link the versionless file to the file which
     * is versioned one higher than the existing highest version.
     */
-    FindHighestVersion(VA.files, entry, max_no);
+    FindHighestVersion(varray, entry, max_no);
    sprintf(ver, "%u", max_no + 1);
 /*
 * The old file should have the same case name as the versionless
@@ -3267,7 +3280,7 @@ static int maintain_version(char *file, int forcep)
    return (1);
  } else {
    /*
-     * Although the  versionless file is linked to a file in VA.files,
+     * Although the  versionless file is linked to a file in varray,
     * the file is not the highest versioned file.  We have to unlink
     * the wrongly linked versionless file, and link the highest versioned
     * file to a versionless file.
@@ -3277,7 +3290,7 @@ static int maintain_version(char *file, int forcep)
      *Lisp_errno = errno;
      return (0);
    }
-    FindHighestVersion(VA.files, entry, max_no);
+    FindHighestVersion(varray, entry, max_no);
    ConcDirAndName(dir, entry->name, old_file);
 /*
 * The versionless file should have the same case name as the old
--- a/src/fvar.c
+++ b/src/fvar.c
@@ -15,7 +15,6 @@
 #include "emlglob.h"
 #include "fvardefs.h"      // for N_OP_fvar_, N_OP_fvarn, N_OP_stkscan, nati...
 #include "gcdata.h"        // for GCLOOKUP, ADDREF, DELREF
-#include "gchtfinddefs.h"  // for htfind, rec_htfind
 #include "lispmap.h"       // for ATOMS_HI, STK_HI
 #include "lspglob.h"       // for Stackspace
 #include "lsptypes.h"      // for DLword, LispPTR, GETBASEWORD, state, FRAME...
--- a/src/gc.c
+++ b/src/gc.c
@@ -12,7 +12,6 @@
 #include <stdio.h>         // for printf
 #include "emlglob.h"
 #include "gcdata.h"        // for GCLOOKUPV
-#include "gchtfinddefs.h"  // for htfind, rec_htfind
 #include "gcdefs.h"        // for OP_gcref
 #include "lspglob.h"
 #include "lsptypes.h"      // for state, ByteCode, PC, TopOfStack, Get_code_...
--- a/src/gccode.c
+++ b/src/gccode.c
@@ -35,7 +35,6 @@
 #include "commondefs.h"  // for error
 #include "gccodedefs.h"  // for code_block_size, reclaimcodeblock
 #include "gcdata.h"      // for REC_GCLOOKUP, DELREF, ADDREF
-#include "gchtfinddefs.h" // for htfind, rec_htfind
 #include "lspglob.h"     // for Deleted_Implicit_Hash_Slot_word, UFNTable
 #include "lsptypes.h"    // for LispPTR, NIL, UFN, Get_code_BYTE, POINTERMASK
 #include "stack.h"       // for fnhead
--- a/src/gcfinal.c
+++ b/src/gcfinal.c
@@ -49,7 +49,6 @@
 #include "commondefs.h"   // for error
 #include "gccodedefs.h"   // for reclaimcodeblock
 #include "gcdata.h"       // for DELREF, REC_GCLOOKUP
-#include "gchtfinddefs.h" // for htfind, rec_htfind
 #include "gcfinaldefs.h"  // for arrayblockmerger, checkarrayblock, deleteblock
 #include "lispemul.h"     // for LispPTR, NIL, T, POINTERMASK, DLword, ATOM_T
 #include "llstkdefs.h"    // for decusecount68k
--- a/src/gchtfind.c
+++ b/src/gchtfind.c
@@ -253,7 +253,7 @@ void enter_big_reference_count(LispPTR ptr) {
 /*									*/
 /************************************************************************/

-void modify_big_reference_count(GCENTRY *entry, DLword casep, LispPTR ptr) {
+void modify_big_reference_count(LispPTR *entry, DLword casep, LispPTR ptr) {
  struct gc_ovfl *oventry;
  LispPTR tmp;

--- a/src/gcmain3.c
+++ b/src/gcmain3.c
@@ -39,7 +39,6 @@
 #include "commondefs.h"   // for error
 #include "emlglob.h"
 #include "gcdata.h"       // for GCENTRY, REC_GCLOOKUP, STKREF, hashentry
-#include "gchtfinddefs.h" // for htfind, rec_htfind
 #include "gcmain3defs.h"  // for gcmapscan, gcmapunscan, gcscanstack
 #include "gcrcelldefs.h"  // for gcreccell
 #include "gcscandefs.h"   // for gcscan1, gcscan2
--- a/src/gcoflow.c
+++ b/src/gcoflow.c
@@ -31,7 +31,6 @@

 #include "arith.h"        // for GetSmalldata
 #include "gcdata.h"       // for htoverflow, REC_GCLOOKUP
-#include "gchtfinddefs.h"  // for htfind, rec_htfind
 #include "gcoflowdefs.h"  // for gc_handleoverflow, gcmaptable
 #include "gcrdefs.h"      // for doreclaim
 #include "lispemul.h"     // for NIL, DLword, LispPTR
--- a/src/gcrcell.c
+++ b/src/gcrcell.c
@@ -71,7 +71,6 @@
 #include "commondefs.h"   // for error
 #include "gccodedefs.h"   // for reclaimcodeblock
 #include "gcdata.h"       // for DELREF, REC_GCLOOKUPV, ADDREF, REC_GCLOOKUP
-#include "gchtfinddefs.h" // for htfind, rec_htfind
 #include "gcfinaldefs.h"  // for reclaimarrayblock, reclaimstackp, releasing...
 #include "gcrcelldefs.h"  // for freelistcell, gcreccell
 #include "lispemul.h"     // for LispPTR, ConsCell, NIL, POINTERMASK, DLword
--- a/src/gvar2.c
+++ b/src/gvar2.c
@@ -15,7 +15,6 @@
 #include "dbprint.h"     // for DEBUGGER
 #include "emlglob.h"
 #include "gcdata.h"      // for FRPLPTR
-#include "gchtfinddefs.h"  // for htfind, rec_htfind
 #include "gvar2defs.h"   // for N_OP_gvar_, N_OP_rplptr
 #include "lispemul.h"    // for LispPTR, DLword, NEWATOM_VALUE_OFFSET, NEWAT...
 #include "lspglob.h"     // for AtomSpace
--- a/src/initsout.c
+++ b/src/initsout.c
@@ -34,7 +34,6 @@
 #include "etherdefs.h"     // for init_ifpage_ether
 #include "gcarraydefs.h"   // for get_package_atom
 #include "gcdata.h"        // for ADDREF, GCLOOKUP
-#include "gchtfinddefs.h"  // for htfind, rec_htfind
 #include "ifpage.h"        // for IFPAGE, MACHINETYPE_MAIKO
 #include "initsoutdefs.h"  // for build_lisp_map, fixp_value, init_for_bitblt
 #include "iopage.h"        // for IOPAGE
--- a/src/loopsops.c
+++ b/src/loopsops.c
@@ -25,7 +25,6 @@
 #include "commondefs.h"    // for error
 #include "gcarraydefs.h"   // for get_package_atom
 #include "gcdata.h"        // for FRPLPTR
-#include "gchtfinddefs.h"  // for htfind, rec_htfind
 #include "lispemul.h"      // for LispPTR, state, CurrentStackPTR, NIL_PTR, NIL
 #include "lispmap.h"       // for S_POSITIVE
 #include "loopsopsdefs.h"  // for lcfuncall, LCFetchMethod, LCFetchMethodOrHelp
--- a/src/main.c
+++ b/src/main.c
@@ -288,8 +288,6 @@ const char *helpstring =
 -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\
- -fg/-foreground <color>  Screen foreground color, default Black.  X color name or #RRBBGG hex\n\
- -bg/-background <color>  Screen background color, default White.  X color name or #RRBBGG hex\n\
 -sc[reen] <w>x<h>]       The Medley screen geometry\n\
 -t <title>               The window title\n\
 -title <title>           The window title\n";
@@ -318,12 +316,6 @@ const char *nethubHelpstring = "";
 extern int insnsCountdownForTimerAsyncEmulation;
 #endif

-#if defined(XWINDOW) || defined(SDL)
-char foregroundColorName[64] = {0};
-extern char foregroundColorName[64];
-char backgroundColorName[64] = {0};
-extern char backgroundColorName[64];
-#endif
 /************************************************************************/
 /*									*/
 /*		     M A I N   E N T R Y   P O I N T			*/
@@ -496,21 +488,8 @@ int main(int argc, char *argv[])
        (void)fprintf(stderr, "Missing argument after -title\n");
        exit(1);
      }
-    } else if (strcmp(argv[i], "-fg") == 0 || strcmp(argv[i], "-foreground") == 0) {
-      if (argc > ++i) {
-        strncpy(foregroundColorName, argv[i], sizeof(foregroundColorName) - 1);
-      } else {
-        (void)fprintf(stderr, "Missing argument after -fg/-foreground\n");
-        exit(1);
-      }
-    } else if (strcmp(argv[i], "-bg") == 0 || strcmp(argv[i], "-background") == 0) {
-      if (argc > ++i) {
-        strncpy(backgroundColorName, argv[i], sizeof(backgroundColorName) - 1);
-      } else {
-        (void)fprintf(stderr, "Missing argument after -bg/-background\n");
-        exit(1);
-      }
    }
+
 #endif /* SDL */
    /* Can only do this under SUNOs, for now */
    else if (!strcmp(argv[i], "-E")) { /**** ethernet info	****/
--- a/src/mkcell.c
+++ b/src/mkcell.c
@@ -32,7 +32,6 @@
 #include "commondefs.h"    // for error
 #include "emlglob.h"
 #include "gcdata.h"        // for DELREF, GCLOOKUP
-#include "gchtfinddefs.h"  // for htfind, rec_htfind
 #include "lispemul.h"      // for LispPTR, DLword, NIL, POINTERMASK, state
 #include "lispmap.h"       // for S_POSITIVE
 #include "lspglob.h"
--- a/src/rplcons.c
+++ b/src/rplcons.c
@@ -31,7 +31,6 @@
 #include "rplconsdefs.h"   // for N_OP_rplcons
 #ifndef NEWCDRCODING
 #include "gcdata.h"
-#include "gchtfinddefs.h"  // for htfind, rec_htfind
 #include "address.h"
 #endif

--- a/src/sdl.c
+++ b/src/sdl.c
--- a/src/storage.c
+++ b/src/storage.c
@@ -23,7 +23,6 @@
 #include "commondefs.h"    // for error
 #include "conspagedefs.h"  // for cons
 #include "gcdata.h"        // for ADDREF, GCLOOKUP
-#include "gchtfinddefs.h"  // for htfind, rec_htfind
 #include "gcfinaldefs.h"   // for makefreearrayblock, mergebackward
 #include "ifpage.h"        // for IFPAGE, MACHINETYPE_MAIKO
 #include "lispemul.h"      // for LispPTR, NIL, GETFPTOVP, INTSTAT, ATOM_T
--- a/src/xlspwin.c
+++ b/src/xlspwin.c
@@ -17,7 +17,6 @@
 #include <X11/Xlib.h>     // for XCreateSimpleWindow, XMapWindow, XChangeWin...
 #include <X11/Xutil.h>    // for XSizeHints, XStringListToTextProperty, XWMH...
 #include <stdio.h>        // for NULL
-#include <stdlib.h>       // for exit
 #include "commondefs.h"   // for error
 #include "dbprint.h"      // for TPRINT
 #include "devif.h"        // for (anonymous), MRegion, OUTER_SB_WIDTH, Defin...
@@ -51,7 +50,6 @@ extern int LispWindowRequestedX, LispWindowRequestedY;
 extern unsigned LispWindowRequestedWidth, LispWindowRequestedHeight;
 extern int noscroll;

-extern Colormap Colors;
 /*
 * globals defined in this module
 */
@@ -68,16 +66,9 @@ Cursor WaitCursor, DefaultCursor, VertScrollCursor, VertThumbCursor, ScrollUpCur
 /*									*/
 /*									*/
 /************************************************************************/
-static unsigned long foregroundPixel;
-static unsigned long backgroundPixel;

 void Create_LispWindow(DspInterface dsp)
 {
-  extern char foregroundColorName[];
-  extern char backgroundColorName[];
-  XColor foregroundColor_xcsd;
-  XColor backgroundColor_xcsd;
-  Status status;
  XSizeHints szhint = {0};
  XWMHints Lisp_WMhints = {0};
  XClassHint xclasshint = {0};
@@ -101,33 +92,13 @@ void Create_LispWindow(DspInterface dsp)
  Row3 = dsp->Visible.height + (OUTER_SB_WIDTH(dsp) / 2);

  screen = ScreenOfDisplay(dsp->display_id, DefaultScreen(dsp->display_id));
-  /* set up default display as black on white */
-  foregroundPixel = BlackPixelOfScreen(screen); 
-  backgroundPixel = WhitePixelOfScreen(screen);
-  /* parse and record non-default color specs for foreground and background */
-  if (foregroundColorName[0]) {
-    status = XAllocNamedColor(dsp->display_id, Colors, foregroundColorName, &foregroundColor_xcsd, &foregroundColor_xcsd);
-    if (status == 0) {
-      fprintf(stderr, "Color allocation failed for foreground color: %s\n", foregroundColorName);
-      exit(1);
-    }
-    foregroundPixel = foregroundColor_xcsd.pixel;
-  }
-  if (backgroundColorName[0]) {
-    status = XAllocNamedColor(dsp->display_id, Colors, backgroundColorName, &backgroundColor_xcsd, &backgroundColor_xcsd);
-    if (status == 0) {
-      fprintf(stderr, "Color allocation failed for background color: %s\n", backgroundColorName);
-      exit(1);
-    }
-    backgroundPixel = backgroundColor_xcsd.pixel;
-  }
  dsp->LispWindow = XCreateSimpleWindow(
      dsp->display_id, RootWindowOfScreen(screen), LispWindowRequestedX, /* Default upper left */
      LispWindowRequestedY,                                              /* Default upper left */
      dsp->Visible.width + OUTER_SB_WIDTH(dsp),                         /* Default width */
      dsp->Visible.height + OUTER_SB_WIDTH(dsp),                        /* Default height */
      0,                                                                 /* Default border */
-      foregroundPixel, backgroundPixel);
+      BlackPixelOfScreen(screen), WhitePixelOfScreen(screen));

  Lisp_SetWinAttributes.bit_gravity = dsp->BitGravity;
  Lisp_SetWinAttributes.override_redirect = False;
@@ -143,8 +114,10 @@ void Create_LispWindow(DspInterface dsp)

  /* Have to make the GC before we make the icon. */
  gcv.function = GXcopy;
-  gcv.foreground = foregroundPixel;
-  gcv.background = backgroundPixel;
+  gcv.foreground =
+      BlackPixelOfScreen(ScreenOfDisplay(dsp->display_id, DefaultScreen(dsp->display_id)));
+  gcv.background =
+      WhitePixelOfScreen(ScreenOfDisplay(dsp->display_id, DefaultScreen(dsp->display_id)));
  dsp->Copy_GC =
      XCreateGC(dsp->display_id, dsp->LispWindow, GCForeground | GCBackground | GCFunction, &gcv);

@@ -173,7 +146,7 @@ void Create_LispWindow(DspInterface dsp)

  dsp->DisplayWindow = XCreateSimpleWindow(dsp->display_id, dsp->LispWindow, 0, 0,
                                           dsp->Visible.width, dsp->Visible.height, 0,
-                                           foregroundPixel, backgroundPixel);
+                                           BlackPixelOfScreen(screen), WhitePixelOfScreen(screen));
  XChangeWindowAttributes(dsp->display_id, dsp->DisplayWindow,
                          CWBitGravity | CWOverrideRedirect | CWBackingStore,
                          &Lisp_SetWinAttributes);
@@ -186,14 +159,14 @@ void Create_LispWindow(DspInterface dsp)

  dsp->ScrollBarPixmap = XCreatePixmapFromBitmapData(
      dsp->display_id, dsp->LispWindow, (char *)check_bits, check_width, check_height,
-      foregroundPixel, backgroundPixel, (unsigned)DefaultDepthOfScreen(screen));
+      BlackPixelOfScreen(screen), WhitePixelOfScreen(screen), (unsigned)DefaultDepthOfScreen(screen));
  dsp->GravityOnPixmap = XCreatePixmapFromBitmapData(
-      dsp->display_id, dsp->LispWindow, (char *)check_bits, 16, 16, foregroundPixel,
-      backgroundPixel, (unsigned)DefaultDepthOfScreen(screen));
+      dsp->display_id, dsp->LispWindow, (char *)check_bits, 16, 16, BlackPixelOfScreen(screen),
+      WhitePixelOfScreen(screen), (unsigned)DefaultDepthOfScreen(screen));

  dsp->GravityOffPixmap = XCreatePixmapFromBitmapData(
-      dsp->display_id, dsp->LispWindow, (char *)plain_bits, 16, 16, foregroundPixel,
-      backgroundPixel, (unsigned)DefaultDepthOfScreen(screen));
+      dsp->display_id, dsp->LispWindow, (char *)plain_bits, 16, 16, BlackPixelOfScreen(screen),
+      WhitePixelOfScreen(screen), (unsigned)DefaultDepthOfScreen(screen));

  set_Xcursor(dsp, default_cursor.cuimage, (int)default_cursor.cuhotspotx,
              (int)(15 - default_cursor.cuhotspoty), &DefaultCursor, 0);
@@ -224,7 +197,7 @@ void Create_LispWindow(DspInterface dsp)
                                            0 - (int)dsp->InternalBorderWidth, /* y */
                                            dsp->ScrollBarWidth,          /* width */
                                            dsp->Visible.height, dsp->InternalBorderWidth,
-                                            foregroundPixel, backgroundPixel);
+                                            BlackPixelOfScreen(screen), WhitePixelOfScreen(screen));
    DefineCursor(dsp, dsp->VerScrollBar, &VertScrollCursor);
    XMapWindow(dsp->display_id, dsp->VerScrollBar);

@@ -232,7 +205,7 @@ void Create_LispWindow(DspInterface dsp)
                                            0 - (int)dsp->InternalBorderWidth, (int)Row2, /* y */
                                            dsp->Visible.width,                /* width */
                                            dsp->ScrollBarWidth, dsp->InternalBorderWidth,
-                                            foregroundPixel, backgroundPixel);
+                                            BlackPixelOfScreen(screen), WhitePixelOfScreen(screen));
    DefineCursor(dsp, dsp->HorScrollBar, &HorizScrollCursor);
    XChangeWindowAttributes(dsp->display_id, dsp->HorScrollBar, CWOverrideRedirect,
                            &Lisp_SetWinAttributes);
@@ -243,7 +216,7 @@ void Create_LispWindow(DspInterface dsp)
                                               (dsp->Visible.y * (int)dsp->Visible.height) / (int)dsp->Display.height, /* y */
                                               dsp->ScrollBarWidth,                                                   /* width */
                                               ((dsp->Visible.height * dsp->Visible.height) / dsp->Display.height) + 1,
-                                               dsp->InternalBorderWidth, foregroundPixel, backgroundPixel);
+                                               dsp->InternalBorderWidth, BlackPixelOfScreen(screen), WhitePixelOfScreen(screen));
    XChangeWindowAttributes(dsp->display_id, dsp->VerScrollButton, CWOverrideRedirect,
                            &Lisp_SetWinAttributes);
    XSetWindowBackgroundPixmap(dsp->display_id, dsp->VerScrollButton, dsp->ScrollBarPixmap);
@@ -255,8 +228,8 @@ void Create_LispWindow(DspInterface dsp)
                                               (dsp->Visible.x * (int)dsp->Visible.width) / (int)dsp->Display.width,
                                               0 - (int)dsp->InternalBorderWidth, /* y */
                                               ((dsp->Visible.width * dsp->Visible.width) / dsp->Display.width) + 1,
-                                               dsp->ScrollBarWidth, dsp->InternalBorderWidth, foregroundPixel,
-                                               backgroundPixel);
+                                               dsp->ScrollBarWidth, dsp->InternalBorderWidth, BlackPixelOfScreen(screen),
+                                               WhitePixelOfScreen(screen));
    XChangeWindowAttributes(dsp->display_id, dsp->HorScrollButton, CWOverrideRedirect,
                            &Lisp_SetWinAttributes);
    XSetWindowBackgroundPixmap(dsp->display_id, dsp->HorScrollButton, dsp->ScrollBarPixmap);
@@ -264,8 +237,8 @@ void Create_LispWindow(DspInterface dsp)
    XMapWindow(dsp->display_id, dsp->HorScrollButton);

    dsp->NWGrav = XCreateSimpleWindow(dsp->display_id, dsp->LispWindow, (int)Col2, (int)Row2, GravSize,
-                                      GravSize, dsp->InternalBorderWidth, foregroundPixel,
-                                      backgroundPixel);
+                                      GravSize, dsp->InternalBorderWidth, BlackPixelOfScreen(screen),
+                                      WhitePixelOfScreen(screen));
    XSetWindowBackgroundPixmap(dsp->display_id, dsp->NWGrav, dsp->GravityOnPixmap);
    DefineCursor(dsp, dsp->NWGrav, &DefaultCursor);
    XChangeWindowAttributes(dsp->display_id, dsp->NWGrav, CWOverrideRedirect, &Lisp_SetWinAttributes);
@@ -273,8 +246,8 @@ void Create_LispWindow(DspInterface dsp)
    XMapWindow(dsp->display_id, dsp->NWGrav);

    dsp->SEGrav = XCreateSimpleWindow(dsp->display_id, dsp->LispWindow, (int)Col3, (int)Row3, GravSize,
-                                      GravSize, dsp->InternalBorderWidth, foregroundPixel,
-                                      backgroundPixel);
+                                      GravSize, dsp->InternalBorderWidth, BlackPixelOfScreen(screen),
+                                      WhitePixelOfScreen(screen));
    XSetWindowBackgroundPixmap(dsp->display_id, dsp->SEGrav, dsp->GravityOffPixmap);
    DefineCursor(dsp, dsp->SEGrav, &DefaultCursor);
    XChangeWindowAttributes(dsp->display_id, dsp->SEGrav, CWOverrideRedirect, &Lisp_SetWinAttributes);
@@ -282,16 +255,16 @@ void Create_LispWindow(DspInterface dsp)
    XMapWindow(dsp->display_id, dsp->SEGrav);

    dsp->SWGrav = XCreateSimpleWindow(dsp->display_id, dsp->LispWindow, (int)Col2, (int)Row3, GravSize,
-                                      GravSize, dsp->InternalBorderWidth, foregroundPixel,
-                                      backgroundPixel);
+                                      GravSize, dsp->InternalBorderWidth, BlackPixelOfScreen(screen),
+                                      WhitePixelOfScreen(screen));
    XSetWindowBackgroundPixmap(dsp->display_id, dsp->SWGrav, dsp->GravityOffPixmap);
    DefineCursor(dsp, dsp->SWGrav, &DefaultCursor);
    XClearWindow(dsp->display_id, dsp->NWGrav);
    XMapWindow(dsp->display_id, dsp->SWGrav);

    dsp->NEGrav = XCreateSimpleWindow(dsp->display_id, dsp->LispWindow, (int)Col3, (int)Row2, GravSize,
-                                      GravSize, dsp->InternalBorderWidth, foregroundPixel,
-                                      backgroundPixel);
+                                      GravSize, dsp->InternalBorderWidth, BlackPixelOfScreen(screen),
+                                      WhitePixelOfScreen(screen));
    XSetWindowBackgroundPixmap(dsp->display_id, dsp->NEGrav, dsp->GravityOffPixmap);
    DefineCursor(dsp, dsp->NEGrav, &DefaultCursor);
    XClearWindow(dsp->display_id, dsp->NWGrav);
@@ -307,12 +280,14 @@ void Create_LispWindow(DspInterface dsp)

 void lisp_Xvideocolor(int flag)
 {
+  Screen *screen;
  XEvent event = {0};
  XGCValues gcv = {0};
  unsigned long newForeground;

  XLOCK;
-  newForeground = flag ? backgroundPixel : foregroundPixel;
+  screen = ScreenOfDisplay(currentdsp->display_id, DefaultScreen(currentdsp->display_id));
+  newForeground = flag ? WhitePixelOfScreen(screen) : BlackPixelOfScreen(screen);

  /* window -- are we making a change? */
  XGetGCValues(currentdsp->display_id, currentdsp->Copy_GC, GCForeground | GCBackground, &gcv);
--- a/src/xrdopt.c
+++ b/src/xrdopt.c
@@ -87,8 +87,6 @@ extern char Icon_Title[255];
 char Icon_Title[255];
 extern char cursorColor[255];
 char cursorColor[255] = {0};
-extern char foregroundColorName[64];
-extern char backgroundColorName[64];

 extern char sysout_name_cl[];
 extern char sysout_name_xrm[];
@@ -120,9 +118,7 @@ void print_Xusage(const char *prog)
  (void)fprintf(stderr, " [-sysout] [<sysout>]                 -path to the Medley image\n");
  (void)fprintf(stderr, " -h[elp]                              -prints this text\n");
  (void)fprintf(stderr, " -info                                -prints configuration info\n");
-  (void)fprintf(stderr, " -cursorColor X11-color-spec          -sets foreground cursor color\n");
-  (void)fprintf(stderr, " -fg|-foreground X11-color-spec       -sets foreground display color\n");
-  (void)fprintf(stderr, " -bg|-background X11-color-spec       -sets background display color\n");
+  (void)fprintf(stderr, " -cursorColor X11-color-spec	       -sets foreground cursor color\n");
  (void)fprintf(stderr, " -d[isplay] <host>:<display>.<screen>\n");
  (void)fprintf(stderr,
          " -g[eometry] <geom>                   -size & placement for the medley window on your X "
@@ -281,14 +277,6 @@ void read_Xoption(int *argc, char *argv[])
    (void)strncpy(cursorColor, value.addr, sizeof(cursorColor) - 1);
  }

-  if (XrmGetResource(rDB, "ldex.foreground", "Ldex.foreground", str_type, &value) == True) {
-    (void)strncpy(foregroundColorName, value.addr, sizeof(foregroundColorName) - 1);
-  }
-
-  if (XrmGetResource(rDB, "ldex.background", "Ldex.background", str_type, &value) == True) {
-    (void)strncpy(backgroundColorName, value.addr, sizeof(backgroundColorName) - 1);
-  }
-
  if (XrmGetResource(rDB, "ldex.NoFork", "Ldex.NoFork", str_type, &value) == True) {
    please_fork = 0;
  }
Author	SHA1	Message	Date
Nick Briggs	fd90bbf9b9	Ignore mouse motion events when the window does not have keyboard focus	2024-08-15 20:36:26 -07:00
Nick Briggs	cec93e6ae5	Set up makeright etc. to allow for easier compilation of alternate versions The makeright script and the makefile-* slices it depends are modified to allow easily specifying the RELEASE version number of the Maiko emulator to be built. The default version remains 351, but can be changed with e.g. RELEASE=201 ./makeright x The object directories and executables are NOT named with the version.	2024-08-05 17:13:01 -07:00
Nick Briggs	72e26ca033	Fix compilation for maiko version 201 Version 201 did not have NEWCDRCODING, so the implementation of N_OP_rplcons requires definitions from gcdata.h and address.h	2024-08-05 16:23:54 -07:00
Nick Briggs	f6f833c612	Fix compilation for maiko version 201 Version 201 does not have BIGVM, so SWA_FNHEAD requires swapx which is defined in byteswapdefs.h	2024-08-05 16:20:09 -07:00