http://ftp.x.org/contrib/applications/xscreensaver-3.10.tar.gz
[xscreensaver] / driver / xscreensaver.c
index 76f68c2eaf05b7b975be07cec23524adb87d5d15..4460c19df6125b9c358df07e4a3a179bb06f98e4 100644 (file)
@@ -1,4 +1,4 @@
-/* xscreensaver, Copyright (c) 1991-1995 Jamie Zawinski <jwz@netscape.com>
+/* xscreensaver, Copyright (c) 1991-1999 Jamie Zawinski <jwz@jwz.org>
  *
  * Permission to use, copy, modify, distribute, and sell this software and its
  * documentation for any purpose is hereby granted without fee, provided that
@@ -9,8 +9,6 @@
  * implied warranty.
  */
 
-#include "version.h"
-
 /*   ========================================================================
  *   First we wait until the keyboard and mouse become idle for the specified
  *   amount of time.  We do this in one of three different ways: periodically
  *   and a few other things.  The included "xscreensaver_command" program
  *   sends these messsages.
  *
- *   If we don't have the XIdle or MIT-SCREENSAVER extensions, then we do the
- *   XAutoLock trick: notice every window that gets created, and wait 30
- *   seconds or so until its creating process has settled down, and then
- *   select KeyPress events on those windows which already select for
- *   KeyPress events.  It's important that we not select KeyPress on windows
- *   which don't select them, because that would interfere with event
- *   propagation.  This will break if any program changes its event mask to
- *   contain KeyRelease or PointerMotion more than 30 seconds after creating
- *   the window, but that's probably pretty rare.
+ *   If we don't have the XIdle, MIT-SCREEN-SAVER, or SGI SCREEN_SAVER
+ *   extensions, then we do the XAutoLock trick: notice every window that
+ *   gets created, and wait 30 seconds or so until its creating process has
+ *   settled down, and then select KeyPress events on those windows which
+ *   already select for KeyPress events.  It's important that we not select
+ *   KeyPress on windows which don't select them, because that would
+ *   interfere with event propagation.  This will break if any program
+ *   changes its event mask to contain KeyRelease or PointerMotion more than
+ *   30 seconds after creating the window, but that's probably pretty rare.
  *   
  *   The reason that we can't select KeyPresses on windows that don't have
  *   them already is that, when dispatching a KeyPress event, X finds the
  *   one of them if the description above sounds just too flaky to live.  It
  *   is, but those are your choices.
  *
- *   A third idle-detection option could be implement (but is not): when
+ *   A third idle-detection option could be implemented (but is not): when
  *   running on the console display ($DISPLAY is `localhost`:0) and we're on a
  *   machine where /dev/tty and /dev/mouse have reasonable last-modification
- *   times, we could just stat those.  But the incremental benefit of
+ *   times, we could just stat() those.  But the incremental benefit of
  *   implementing this is really small, so forget I said anything.
  *
  *   Debugging hints:
  *     - Be careful where you set your breakpoints, you don't want this to
  *       stop under the debugger with the keyboard grabbed or the blackout
  *       window exposed.
- *     - you probably can't set breakpoints in functions that are called on
+ *     - If you run your debugger under XEmacs, try M-ESC (x-grab-keyboard)
+ *       to keep your emacs window alive even when xscreensaver has grabbed.
+ *     - Go read the code related to `debug_p'.
+ *     - You probably can't set breakpoints in functions that are called on
  *       the other side of a call to fork() -- if your clients are dying 
  *       with signal 5, Trace/BPT Trap, you're losing in this way.
- *     - If you aren't using XIdle, don't leave this stopped under the
- *       debugger for very long, or the X input buffer will get huge because
- *       of the keypress events it's selecting for.  This can make your X
- *       server wedge with "no more input buffers."
+ *     - If you aren't using a server extension, don't leave this stopped
+ *       under the debugger for very long, or the X input buffer will get
+ *       huge because of the keypress events it's selecting for.  This can
+ *       make your X server wedge with "no more input buffers."
  *       
- *   ======================================================================== */
+ * ======================================================================== */
 
-#if __STDC__
-#include <stdlib.h>
-#include <unistd.h>
+#ifdef HAVE_CONFIG_H
+# include "config.h"
 #endif
 
 #include <stdio.h>
+#include <ctype.h>
 #include <X11/Xlib.h>
 #include <X11/Xatom.h>
 #include <X11/Intrinsic.h>
+#include <X11/StringDefs.h>
+#include <X11/Shell.h>
 #include <X11/Xos.h>
-#include <X11/Xmu/Error.h>
+#include <netdb.h>     /* for gethostbyname() */
+#ifdef HAVE_XMU
+# ifndef VMS
+#  include <X11/Xmu/Error.h>
+# else  /* !VMS */
+#  include <Xmu/Error.h>
+# endif /* !VMS */
+#else  /* !HAVE_XMU */
+# include "xmu.h"
+#endif /* !HAVE_XMU */
 
 #ifdef HAVE_XIDLE_EXTENSION
-#include <X11/extensions/xidle.h>
+# include <X11/extensions/xidle.h>
 #endif /* HAVE_XIDLE_EXTENSION */
 
-#ifdef HAVE_SAVER_EXTENSION
-#include <X11/extensions/scrnsaver.h>
-#endif /* HAVE_SAVER_EXTENSION */
-
-#include "yarandom.h"
 #include "xscreensaver.h"
+#include "version.h"
+#include "yarandom.h"
+#include "resources.h"
+#include "visual.h"
+#include "usleep.h"
 
-extern char *get_string_resource P((char *, char *));
-extern Bool get_boolean_resource P((char *, char *));
-extern int get_integer_resource P((char *, char *));
-extern unsigned int get_minutes_resource P((char *, char *));
-extern unsigned int get_seconds_resource P((char *, char *));
-
-extern Visual *get_visual_resource P((Display *, char *, char *));
-extern int get_visual_depth P((Display *, Visual *));
-
-extern void notice_events_timer P((XtPointer closure, XtIntervalId *timer));
-extern void cycle_timer P((void *junk1, XtPointer junk2));
-extern void activate_lock_timer P((void *junk1, XtPointer junk2));
-extern void sleep_until_idle P((Bool until_idle_p));
-
-extern void ensure_no_screensaver_running P((void));
-extern void initialize_screensaver_window P((void));
-extern void disable_builtin_screensaver P((void));
-
-extern void hack_environment P((void));
-extern void grab_keyboard_and_mouse P((void));
-extern void ungrab_keyboard_and_mouse P((void));
-
-extern void save_argv P((int argc, char **argv));
-
-extern void initialize_stderr P((void));
-
-char *screensaver_version;
-char *progname;
-char *progclass;
-XrmDatabase db;
-
-XtAppContext app;
-
-Display *dpy;
-Screen *screen;
-Visual *visual;
-int visual_depth;
+saver_info *global_si_kludge = 0;      /* I hate C so much... */
 
-Widget toplevel_shell;
+char *progname = 0;
+char *progclass = 0;
+XrmDatabase db = 0;
 
-Time lock_timeout;
 
-extern Time timeout;
-extern Time cycle;
-#ifndef NO_LOCKING
-extern Time passwd_timeout;
-#endif
-extern Time pointer_timeout;
-extern Time notice_events_timeout;
-extern XtIntervalId lock_id, cycle_id;
-
-Bool use_xidle_extension;
-Bool use_saver_extension;
-Bool verbose_p;
-Bool lock_p, locked_p;
-
-extern char **screenhacks;
-extern int screenhacks_count;
-extern char *shell;
-extern int nice_inferior;
-extern Window screensaver_window;
-extern Cursor cursor;
-extern Colormap cmap, cmap2;
-extern Bool fade_p, unfade_p;
-extern int fade_seconds, fade_ticks;
-extern Bool install_cmap_p;
-extern Bool locking_disabled_p;
-extern char *nolock_reason;
-extern Bool demo_mode_p;
-extern Bool dbox_up_p;
-extern int next_mode_p;
-
-#ifdef HAVE_SAVER_EXTENSION
-int saver_ext_event_number = 0;
-int saver_ext_error_number = 0;
-#endif /* HAVE_SAVER_EXTENSION */
-
-static time_t initial_delay;
-
-extern Atom XA_VROOT, XA_XSETROOT_ID;
-extern Atom XA_SCREENSAVER_VERSION, XA_SCREENSAVER_ID;
-
-static Atom XA_SCREENSAVER;
+static Atom XA_SCREENSAVER_RESPONSE;
 static Atom XA_ACTIVATE, XA_DEACTIVATE, XA_CYCLE, XA_NEXT, XA_PREV;
-static Atom XA_EXIT, XA_RESTART, XA_DEMO, XA_LOCK;
+static Atom XA_EXIT, XA_RESTART, XA_LOCK, XA_SELECT;
+Atom XA_DEMO, XA_PREFS;
 
-#ifdef NO_MOTIF /* kludge */
-Bool demo_mode_p = 0;
-Bool dbox_up_p = 0;
-#endif
-
-\f
-#ifdef NO_DEMO_MODE
-# define demo_mode() abort()
-#else
-extern void demo_mode P((void));
-#endif
 \f
 static XrmOptionDescRec options [] = {
   { "-timeout",                   ".timeout",          XrmoptionSepArg, 0 },
   { "-cycle",             ".cycle",            XrmoptionSepArg, 0 },
-  { "-idelay",            ".initialDelay",     XrmoptionSepArg, 0 },
-  { "-nice",              ".nice",             XrmoptionSepArg, 0 },
-  { "-visual",            ".visualID",         XrmoptionSepArg, 0 },
+  { "-lock-mode",         ".lock",             XrmoptionNoArg, "on" },
+  { "-no-lock-mode",      ".lock",             XrmoptionNoArg, "off" },
+  { "-no-lock",                   ".lock",             XrmoptionNoArg, "off" },
   { "-lock-timeout",      ".lockTimeout",      XrmoptionSepArg, 0 },
+  { "-lock-vts",          ".lockVTs",          XrmoptionNoArg, "on" },
+  { "-no-lock-vts",       ".lockVTs",          XrmoptionNoArg, "off" },
+  { "-visual",            ".visualID",         XrmoptionSepArg, 0 },
   { "-install",                   ".installColormap",  XrmoptionNoArg, "on" },
   { "-no-install",        ".installColormap",  XrmoptionNoArg, "off" },
   { "-verbose",                   ".verbose",          XrmoptionNoArg, "on" },
   { "-silent",            ".verbose",          XrmoptionNoArg, "off" },
+  { "-timestamp",         ".timestamp",        XrmoptionNoArg, "on" },
+  { "-capture-stderr",    ".captureStderr",    XrmoptionNoArg, "on" },
+  { "-no-capture-stderr",  ".captureStderr",   XrmoptionNoArg, "off" },
   { "-xidle-extension",           ".xidleExtension",   XrmoptionNoArg, "on" },
   { "-no-xidle-extension", ".xidleExtension",  XrmoptionNoArg, "off" },
-  { "-ss-extension",      ".saverExtension",   XrmoptionNoArg, "on" },
-  { "-no-ss-extension",           ".saverExtension",   XrmoptionNoArg, "off" },
-  { "-lock",              ".lock",             XrmoptionNoArg, "on" },
-  { "-no-lock",                   ".lock",             XrmoptionNoArg, "off" }
+  { "-mit-extension",     ".mitSaverExtension",XrmoptionNoArg, "on" },
+  { "-no-mit-extension",   ".mitSaverExtension",XrmoptionNoArg, "off" },
+  { "-sgi-extension",     ".sgiSaverExtension",XrmoptionNoArg, "on" },
+  { "-no-sgi-extension",   ".sgiSaverExtension",XrmoptionNoArg, "off" },
+  { "-proc-interrupts",           ".procInterrupts",   XrmoptionNoArg, "on" },
+  { "-no-proc-interrupts", ".procInterrupts",  XrmoptionNoArg, "off" },
+  { "-splash",            ".splash",           XrmoptionNoArg, "on" },
+  { "-no-splash",         ".splash",           XrmoptionNoArg, "off" },
+  { "-nosplash",          ".splash",           XrmoptionNoArg, "off" },
+  { "-idelay",            ".initialDelay",     XrmoptionSepArg, 0 },
+  { "-nice",              ".nice",             XrmoptionSepArg, 0 },
+
+  /* Actually these are built in to Xt, but just to be sure... */
+  { "-synchronous",       ".synchronous",      XrmoptionNoArg, "on" },
+  { "-xrm",               NULL,                XrmoptionResArg, NULL }
 };
 
 static char *defaults[] = {
-#include "XScreenSaver.ad.h"
+#include "XScreenSaver_ad.h"
  0
 };
 
+#ifdef _VROOT_H_
+ERROR!  You must not include vroot.h in this file.
+#endif
+
 static void
-do_help P((void))
+do_help (saver_info *si)
 {
-  printf ("\
-xscreensaver %s, copyright (c) 1991-1995 by Jamie Zawinski <jwz@netscape.com>.\n\
+  fflush (stdout);
+  fflush (stderr);
+  fprintf (stdout, "\
+xscreensaver %s, copyright (c) 1991-1999 by Jamie Zawinski <jwz@jwz.org>\n\
 The standard Xt command-line options are accepted; other options include:\n\
 \n\
-    -timeout <minutes>         When the screensaver should activate.\n\
-    -cycle <minutes>           How long to let each hack run.\n\
-    -idelay <seconds>          How long to sleep before startup.\n\
-    -visual <id-or-class>      Which X visual to run on.\n\
-    -demo                      Enter interactive demo mode on startup.\n\
-    -install                   Install a private colormap.\n\
-    -no-install                Don't.\n\
-    -verbose                   Be loud.\n\
-    -silent                    Don't.\n\
-    -xidle-extension           Use the R5 XIdle server extension.\n\
-    -no-xidle-extension        Don't.\n\
-    -ss-extension              Use the R6 MIT-SCREEN-SAVER server extension.\n\
-    -no-ss-extension           Don't.\n\
-    -lock                      Require a password before deactivating.\n\
-    -no-lock                   Don't.\n\
-    -lock-timeout <minutes>    Grace period before locking; default 0.\n\
-    -help                      This message.\n\
+    -timeout <minutes>       When the screensaver should activate.\n\
+    -cycle <minutes>         How long to let each hack run before switching.\n\
+    -lock-mode               Require a password before deactivating.\n\
+    -lock-timeout <minutes>  Grace period before locking; default 0.\n\
+    -visual <id-or-class>    Which X visual to run on.\n\
+    -install                 Install a private colormap.\n\
+    -verbose                 Be loud.\n\
+    -no-splash               Don't display a splash-screen at startup.\n\
+    -help                    This message.\n\
 \n\
-Use the `xscreensaver-command' program to control a running screensaver.\n\
+See the manual for other options and X resources.\n\
 \n\
-The *programs, *colorPrograms, and *monoPrograms resources control which\n\
-graphics demos will be launched by the screensaver.  See the man page for\n\
-more details.\n\n",
-         screensaver_version);
-
-#ifdef NO_LOCKING
-  printf ("Support for locking was not enabled at compile-time.\n");
-#endif
-#ifdef NO_DEMO_MODE
-  printf ("Support for demo mode was not enabled at compile-time.\n");
-#endif
-#if !defined(HAVE_XIDLE_EXTENSION) && !defined(HAVE_SAVER_EXTENSION)
-  printf ("Support for the XIDLE and MIT-SCREEN-SAVER server extensions\
- was not\nenabled at compile-time.\n");
-#endif /* !HAVE_XIDLE_EXTENSION && !HAVE_SAVER_EXTENSION */
-
+The `xscreensaver' program should be left running in the background.\n\
+Use the `xscreensaver-demo' and `xscreensaver-command' programs to\n\
+manipulate a running xscreensaver.\n\
+\n\
+The `*programs' resource controls which graphics demos will be launched by\n\
+the screensaver.  See `man xscreensaver' or the web page for more details.\n\
+\n\
+Just getting started?  Try this:\n\
+\n\
+        xscreensaver &\n\
+        xscreensaver-demo\n\
+\n\
+For updates, check http://www.jwz.org/xscreensaver/\n\
+\n",
+         si->version);
   fflush (stdout);
+  fflush (stderr);
   exit (1);
 }
 
 
-static void
-get_screenhacks P((void))
+char *
+timestring (void)
 {
-  char *data[3];
-  int i, hacks_size = 10;
-
-  data[0] = get_string_resource ("programs", "Programs");
-  data[1] = ((CellsOfScreen (screen) <= 2)
-            ? get_string_resource ("monoPrograms", "MonoPrograms")
-            : get_string_resource ("colorPrograms", "ColorPrograms"));
-  data[2] = 0;
-  if (! data[0]) data[0] = data[1], data[1] = 0;
+  time_t now = time ((time_t *) 0);
+  char *str = (char *) ctime (&now);
+  char *nl = (char *) strchr (str, '\n');
+  if (nl) *nl = 0; /* take off that dang newline */
+  return str;
+}
 
-  screenhacks = (char **) malloc (sizeof (char *) * hacks_size);
-  screenhacks_count = 0;
+static Bool blurb_timestamp_p = False;   /* kludge */
 
-  for (i = 0; data[i]; i++)
+const char *
+blurb (void)
+{
+  if (!blurb_timestamp_p)
+    return progname;
+  else
     {
-      int j = 0;
-      char *d = data [i];
-      int size = strlen (d);
-      while (j < size)
-       {
-         int end, start = j;
-         if (d[j] == ' ' || d[j] == '\t' || d[j] == '\n' || d[j] == 0)
-           {
-             j++;
-             continue;
-           }
-         if (hacks_size <= screenhacks_count)
-           screenhacks = (char **) realloc (screenhacks,
-                                            (hacks_size = hacks_size * 2) *
-                                            sizeof (char *));
-         screenhacks [screenhacks_count++] = d + j;
-         while (d[j] != 0 && d[j] != '\n')
-           j++;
-         end = j;
-         while (j > start && (d[j-1] == ' ' || d[j-1] == '\t'))
-           j--;
-         d[j] = 0;
-         j = end + 1;
-       }
+      static char buf[255];
+      char *ct = timestring();
+      int n = strlen(progname);
+      if (n > 100) n = 99;
+      strncpy(buf, progname, n);
+      buf[n++] = ':';
+      buf[n++] = ' ';
+      strncpy(buf+n, ct+11, 8);
+      strcpy(buf+n+9, ": ");
+      return buf;
     }
+}
 
-  /* shrink all whitespace to one space, for the benefit of the "demo"
-     mode display.  We only do this when we can easily tell that the
-     whitespace is not significant (no shell metachars).
-   */
-  for (i = 0; i < screenhacks_count; i++)
+
+int
+saver_ehandler (Display *dpy, XErrorEvent *error)
+{
+  saver_info *si = global_si_kludge;   /* I hate C so much... */
+
+  if (!real_stderr) real_stderr = stderr;
+
+  fprintf (real_stderr, "\n"
+          "#######################################"
+          "#######################################\n\n"
+          "%s: X Error!  PLEASE REPORT THIS BUG.\n\n"
+          "#######################################"
+          "#######################################\n\n",
+          blurb());
+  if (XmuPrintDefaultErrorMessage (dpy, error, real_stderr))
     {
-      char *s = screenhacks [i];
-      char *s2;
-      int L = strlen (s);
-      int j, k;
-      for (j = 0; j < L; j++)
+      fprintf (real_stderr, "\n");
+      if (si->prefs.xsync_p)
        {
-         switch (s[j])
-           {
-           case '\'': case '"': case '`': case '\\':
-             goto DONE;
-           case '\t':
-             s[j] = ' ';
-           case ' ':
-             k = 0;
-             for (s2 = s+j+1; *s2 == ' ' || *s2 == '\t'; s2++)
-               k++;
-             if (k > 0)
-               for (s2 = s + j + 1; *s2; s2++)
-                 s2 [0] = s2 [k];
-             break;
-           }
+         saver_exit (si, -1, "because of synchronous X Error");
+       }
+      else
+       {
+          fprintf (real_stderr,
+                   "#######################################"
+                   "#######################################\n\n");
+          fprintf (real_stderr,
+   "    If at all possible, please re-run xscreensaver with the command line\n"
+   "    arguments `-sync -verbose', and reproduce this bug.  That will cause\n"
+   "    xscreensaver to dump a `core' file to the current directory.  Please\n"
+   "    include the stack trace from that core file in your bug report.\n"
+   "\n"
+   "    http://www.jwz.org/xscreensaver/bugs.html explains how to create the\n"
+   "    most useful bug reports, and how to examine core files.\n"
+   "\n"
+   "    The more information you can provide, the better.  But please report\n"
+   "    report this bug, regardless!\n"
+   "\n");
+          fprintf (real_stderr,
+                   "#######################################"
+                   "#######################################\n\n");
+
+         saver_exit (si, -1, 0);
        }
-    DONE:
-      ;
-    }
-
-  if (screenhacks_count)
-    {
-      /* Shrink down the screenhacks array to be only as big as it needs to.
-        This doesn't really matter at all. */
-      screenhacks = (char **)
-       realloc (screenhacks, ((screenhacks_count + 1) * sizeof(char *)));
-      screenhacks [screenhacks_count] = 0;
     }
   else
-    {
-      free (screenhacks);
-      screenhacks = 0;
-    }
+    fprintf (real_stderr, " (nonfatal.)\n");
+  return 0;
 }
 
 
-static void
-get_resources P((void))
+/* This error handler is used only while the X connection is being set up;
+   after we've got a connection, we don't use this handler again.  The only
+   reason for having this is so that we can present a more idiot-proof error
+   message than "cannot open display."
+ */
+static void 
+startup_ehandler (String name, String type, String class,
+                  String defalt,  /* one can't even spel properly
+                                     in this joke of a language */
+                  String *av, Cardinal *ac)
 {
-  /* Note: we can't use the resource ".visual" because Xt is SO FUCKED. */
-  visual         = get_visual_resource (dpy, "visualID", "VisualID");
-  timeout         = 1000 * get_minutes_resource ("timeout", "Time");
-  cycle           = 1000 * get_minutes_resource ("cycle",   "Time");
-  lock_timeout   = 1000 * get_minutes_resource ("lockTimeout", "Time");
-  nice_inferior   = get_integer_resource ("nice", "Nice");
-  verbose_p       = get_boolean_resource ("verbose", "Boolean");
-  lock_p          = get_boolean_resource ("lock", "Boolean");
-  install_cmap_p  = get_boolean_resource ("installColormap", "Boolean");
-  fade_p         = get_boolean_resource ("fade", "Boolean");
-  unfade_p       = get_boolean_resource ("unfade", "Boolean");
-  fade_seconds   = get_seconds_resource ("fadeSeconds", "Time");
-  fade_ticks     = get_integer_resource ("fadeTicks", "Integer");
-  shell           = get_string_resource ("bourneShell", "BourneShell");
-  initial_delay   = get_seconds_resource ("initialDelay", "Time");
-  pointer_timeout = 1000 * get_seconds_resource ("pointerPollTime", "Time");
-  notice_events_timeout = 1000 * get_seconds_resource ("windowCreationTimeout",
-                                                      "Time");
-#ifndef NO_LOCKING
-  passwd_timeout  = 1000 * get_seconds_resource ("passwdTimeout", "Time");
-  if (passwd_timeout == 0) passwd_timeout = 30000;
-#endif
-  if (timeout < 10000) timeout = 10000;
-  if (cycle != 0 && cycle < 2000) cycle = 2000;
-  if (pointer_timeout == 0) pointer_timeout = 5000;
-  if (notice_events_timeout == 0) notice_events_timeout = 10000;
-  if (fade_seconds == 0 || fade_ticks == 0) fade_p = False;
-  if (! fade_p) unfade_p = False;
+  char fmt[512];
+  String p[10];
+  saver_info *si = global_si_kludge;   /* I hate C so much... */
+  XrmDatabase *db = XtAppGetErrorDatabase(si->app);
+  *fmt = 0;
+  XtAppGetErrorDatabaseText(si->app, name, type, class, defalt,
+                            fmt, sizeof(fmt)-1, *db);
+
+  fprintf (stderr, "%s: ", blurb());
+
+  memset (p, 0, sizeof(p));
+  if (*ac > countof (p)) *ac = countof (p);
+  memcpy ((char *) p, (char *) av, (*ac) * sizeof(*av));
+  fprintf (stderr, fmt,                /* Did I mention that I hate C? */
+           p[0], p[1], p[2], p[3], p[4], p[5], p[6], p[7], p[8], p[9]);
+  fprintf (stderr, "\n");
+
+  describe_uids (si, stderr);
+  fprintf (stderr, "\n"
+           "%s: Errors at startup are usually authorization problems.\n"
+           "              Did you read the manual?  Specifically, the parts\n"
+           "              that talk about XAUTH, XDM, and root logins?\n"
+           "\n"
+           "              http://www.jwz.org/xscreensaver/man.html\n"
+           "\n",
+           blurb());
+
+  fflush (stderr);
+  fflush (stdout);
+  exit (1);
+}
 
-  visual_depth = get_visual_depth (dpy, visual);
+\f
+/* The zillions of initializations.
+ */
 
-  if (visual_depth <= 1 || CellsOfScreen (screen) <= 2)
-    install_cmap_p = False;
+/* Set progname, version, etc.  This is done very early.
+ */
+static void
+set_version_string (saver_info *si, int *argc, char **argv)
+{
+  progclass = "XScreenSaver";
 
-#ifdef NO_LOCKING
-  locking_disabled_p = True;
-  nolock_reason = "not compiled with locking support";
-  if (lock_p)
-    {
-      lock_p = False;
-      fprintf (stderr, "%s: %snot compiled with support for locking.\n",
-              progname, (verbose_p ? "## " : ""));
-    }
-#else  /* ! NO_LOCKING */
-  if (lock_p && locking_disabled_p)
-    {
-      fprintf (stderr, "%s: %slocking is disabled (%s).\n", progname,
-              (verbose_p ? "## " : ""), nolock_reason);
-      lock_p = False;
-    }
-#endif /* ! NO_LOCKING */
+  /* progname is reset later, after we connect to X. */
+  progname = strrchr(argv[0], '/');
+  if (progname) progname++;
+  else progname = argv[0];
 
-  /* don't set use_xidle_extension unless it is explicitly specified */
-  if (get_string_resource ("xidleExtension", "Boolean"))
-    use_xidle_extension = get_boolean_resource ("xidleExtension", "Boolean");
-  else
-#ifdef HAVE_XIDLE_EXTENSION    /* pick a default */
-    use_xidle_extension = True;
-#else  /* !HAVE_XIDLE_EXTENSION */
-    use_xidle_extension = False;
-#endif /* !HAVE_XIDLE_EXTENSION */
-
-  /* don't set use_saver_extension unless it is explicitly specified */
-  if (get_string_resource ("saverExtension", "Boolean"))
-    use_saver_extension = get_boolean_resource ("saverExtension", "Boolean");
-  else
-#ifdef HAVE_SAVER_EXTENSION    /* pick a default */
-    use_saver_extension = True;
-#else  /* !HAVE_SAVER_EXTENSION */
-    use_saver_extension = False;
-#endif /* !HAVE_SAVER_EXTENSION */
+  if (strlen(progname) > 100)  /* keep it short. */
+    progname[99] = 0;
 
+  /* The X resource database blows up if argv[0] has a "." in it. */
+  {
+    char *s = argv[0];
+    while ((s = strchr (s, '.')))
+      *s = '_';
+  }
 
-  get_screenhacks ();
+  si->version = (char *) malloc (5);
+  memcpy (si->version, screensaver_id + 17, 4);
+  si->version [4] = 0;
 }
 
-char *
-timestring P((void))
+
+/* Initializations that potentially take place as a priveleged user:
+   If the xscreensaver executable is setuid root, then these initializations
+   are run as root, before discarding privileges.
+ */
+static void
+privileged_initialization (saver_info *si, int *argc, char **argv)
 {
-  long now = time ((time_t *) 0);
-  char *str = (char *) ctime (&now);
-  char *nl = (char *) strchr (str, '\n');
-  if (nl) *nl = 0; /* take off that dang newline */
-  return str;
-}
+#ifndef NO_LOCKING
+  /* before hack_uid() for proper permissions */
+  lock_priv_init (*argc, argv, si->prefs.verbose_p);
+#endif /* NO_LOCKING */
 
-#ifdef NO_SETUID
-# define hack_uid()
-# define hack_uid_warn()
-#else /* !NO_SETUID */
-extern void hack_uid P((void));
-extern void hack_uid_warn P((void));
+#ifndef NO_SETUID
+  hack_uid (si);
 #endif /* NO_SETUID */
+}
 
 
-#ifndef NO_LOCKING
-extern Bool unlock_p P((Widget));
-extern Bool lock_init P((void));
-#endif
+/* Figure out what locking mechanisms are supported.
+ */
+static void
+lock_initialization (saver_info *si, int *argc, char **argv)
+{
+#ifdef NO_LOCKING
+  si->locking_disabled_p = True;
+  si->nolock_reason = "not compiled with locking support";
+#else /* !NO_LOCKING */
+  si->locking_disabled_p = False;
 
-static void initialize P((int argc, char **argv));
-static void main_loop P((void));
+  /* Finish initializing locking, now that we're out of privileged code. */
+  if (! lock_init (*argc, argv, si->prefs.verbose_p))
+    {
+      si->locking_disabled_p = True;
+      si->nolock_reason = "error getting password";
+    }
+#endif /* NO_LOCKING */
 
-void
-main (argc, argv)
-     int argc;
-     char **argv;
-{
-  initialize (argc, argv);
-  main_loop ();
+#ifndef NO_SETUID
+  hack_uid (si);
+#endif /* NO_SETUID */
 }
 
 
-static int
-saver_ehandler (dpy, error)
-     Display *dpy;
-     XErrorEvent *error;
+/* Open the connection to the X server, and intern our Atoms.
+ */
+static Widget
+connect_to_server (saver_info *si, int *argc, char **argv)
 {
-  fprintf (real_stderr, "\nX error in %s:\n", progname);
-  if (XmuPrintDefaultErrorMessage (dpy, error, real_stderr))
-    exit (-1);
-  else
-    fprintf (real_stderr, " (nonfatal.)\n");
-  return 0;
+  Widget toplevel_shell;
+
+  XSetErrorHandler (saver_ehandler);
+
+  XtAppSetErrorMsgHandler (si->app, startup_ehandler);
+  toplevel_shell = XtAppInitialize (&si->app, progclass,
+                                   options, XtNumber (options),
+                                   argc, argv, defaults, 0, 0);
+  XtAppSetErrorMsgHandler (si->app, 0);
+
+  si->dpy = XtDisplay (toplevel_shell);
+  si->prefs.db = XtDatabase (si->dpy);
+  XtGetApplicationNameAndClass (si->dpy, &progname, &progclass);
+
+  if(strlen(progname) > 100)   /* keep it short. */
+    progname [99] = 0;
+
+  db = si->prefs.db;   /* resources.c needs this */
+
+  XA_VROOT = XInternAtom (si->dpy, "__SWM_VROOT", False);
+  XA_SCREENSAVER = XInternAtom (si->dpy, "SCREENSAVER", False);
+  XA_SCREENSAVER_VERSION = XInternAtom (si->dpy, "_SCREENSAVER_VERSION",False);
+  XA_SCREENSAVER_ID = XInternAtom (si->dpy, "_SCREENSAVER_ID", False);
+  XA_SCREENSAVER_TIME = XInternAtom (si->dpy, "_SCREENSAVER_TIME", False);
+  XA_SCREENSAVER_RESPONSE = XInternAtom (si->dpy, "_SCREENSAVER_RESPONSE",
+                                        False);
+  XA_XSETROOT_ID = XInternAtom (si->dpy, "_XSETROOT_ID", False);
+  XA_ACTIVATE = XInternAtom (si->dpy, "ACTIVATE", False);
+  XA_DEACTIVATE = XInternAtom (si->dpy, "DEACTIVATE", False);
+  XA_RESTART = XInternAtom (si->dpy, "RESTART", False);
+  XA_CYCLE = XInternAtom (si->dpy, "CYCLE", False);
+  XA_NEXT = XInternAtom (si->dpy, "NEXT", False);
+  XA_PREV = XInternAtom (si->dpy, "PREV", False);
+  XA_SELECT = XInternAtom (si->dpy, "SELECT", False);
+  XA_EXIT = XInternAtom (si->dpy, "EXIT", False);
+  XA_DEMO = XInternAtom (si->dpy, "DEMO", False);
+  XA_PREFS = XInternAtom (si->dpy, "PREFS", False);
+  XA_LOCK = XInternAtom (si->dpy, "LOCK", False);
+
+  return toplevel_shell;
 }
 
+
+/* Handle the command-line arguments that were not handled for us by Xt.
+   Issue an error message and exit if there are unknown options.
+ */
 static void
-#if __STDC__
-initialize_connection (int argc, char **argv)
-#else
-initialize_connection (argc, argv)
-     int argc;
-     char **argv;
-#endif
+process_command_line (saver_info *si, int *argc, char **argv)
 {
-  toplevel_shell = XtAppInitialize (&app, progclass,
-                                   options, XtNumber (options),
-                                   &argc, argv, defaults, 0, 0);
+  int i;
+  for (i = 1; i < *argc; i++)
+    {
+      if (!strcmp (argv[i], "-debug"))
+       /* no resource for this one, out of paranoia. */
+       si->prefs.debug_p = True;
 
-  dpy = XtDisplay (toplevel_shell);
-  screen = XtScreen (toplevel_shell);
-  db = XtDatabase (dpy);
-  XtGetApplicationNameAndClass (dpy, &progname, &progclass);
+      else if (!strcmp (argv[i], "-h") ||
+              !strcmp (argv[i], "-help") ||
+              !strcmp (argv[i], "--help"))
+       do_help (si);
 
-  if (argc == 2 && !strcmp (argv[1], "-help"))
-    do_help ();
-  else if (argc > 1)
-    {
-      fprintf (stderr, "%s: unknown option %s\n", progname, argv [1]);
-      exit (1);
+      else
+       {
+         const char *s = argv[i];
+         fprintf (stderr, "%s: unknown option \"%s\".  Try \"-help\".\n",
+                  blurb(), s);
+
+         if (s[0] == '-' && s[1] == '-') s++;
+         if (!strcmp (s, "-activate") ||
+             !strcmp (s, "-deactivate") ||
+             !strcmp (s, "-cycle") ||
+             !strcmp (s, "-next") ||
+             !strcmp (s, "-prev") ||
+             !strcmp (s, "-exit") ||
+             !strcmp (s, "-restart") ||
+             !strcmp (s, "-demo") ||
+             !strcmp (s, "-prefs") ||
+             !strcmp (s, "-preferences") ||
+             !strcmp (s, "-lock") ||
+             !strcmp (s, "-version") ||
+             !strcmp (s, "-time"))
+           {
+
+             if (!strcmp (s, "-demo") || !strcmp (s, "-prefs"))
+               fprintf (stderr, "\n\
+    Perhaps you meant to run the `xscreensaver-demo' program instead?\n");
+             else
+               fprintf (stderr, "\n\
+    However, `%s' is an option to the `xscreensaver-command' program.\n", s);
+
+             fprintf (stderr, "\
+    The `xscreensaver' program is a daemon that runs in the background.\n\
+    You control a running xscreensaver process by sending it messages\n\
+    with `xscreensaver-demo' or `xscreensaver-command'.\n\
+.   See the man pages for details, or check the web page:\n\
+    http://www.jwz.org/xscreensaver/\n\n");
+
+             /* Since version 1.21 renamed the "-lock" option to "-lock-mode",
+                suggest that explicitly. */
+             if (!strcmp (s, "-lock"))
+               fprintf (stderr, "\
+    Or perhaps you meant either the \"-lock-mode\" or the\n\
+    \"-lock-timeout <minutes>\" options to xscreensaver?\n\n");
+           }
+
+         exit (1);
+       }
     }
-  get_resources ();
-  hack_uid_warn ();
-  hack_environment ();
-  XA_VROOT = XInternAtom (dpy, "__SWM_VROOT", False);
-  XA_SCREENSAVER = XInternAtom (dpy, "SCREENSAVER", False);
-  XA_SCREENSAVER_VERSION = XInternAtom (dpy, "_SCREENSAVER_VERSION", False);
-  XA_SCREENSAVER_ID = XInternAtom (dpy, "_SCREENSAVER_ID", False);
-  XA_XSETROOT_ID = XInternAtom (dpy, "_XSETROOT_ID", False);
-  XA_ACTIVATE = XInternAtom (dpy, "ACTIVATE", False);
-  XA_DEACTIVATE = XInternAtom (dpy, "DEACTIVATE", False);
-  XA_RESTART = XInternAtom (dpy, "RESTART", False);
-  XA_CYCLE = XInternAtom (dpy, "CYCLE", False);
-  XA_NEXT = XInternAtom (dpy, "NEXT", False);
-  XA_PREV = XInternAtom (dpy, "PREV", False);
-  XA_EXIT = XInternAtom (dpy, "EXIT", False);
-  XA_DEMO = XInternAtom (dpy, "DEMO", False);
-  XA_LOCK = XInternAtom (dpy, "LOCK", False);
 }
 
-#ifdef HAVE_SAVER_EXTENSION
 
-static int
-ignore_all_errors_ehandler (dpy, error)
-     Display *dpy;
-     XErrorEvent *error;
+/* Print out the xscreensaver banner to the tty if applicable;
+   Issue any other warnings that are called for at this point.
+ */
+static void
+print_banner (saver_info *si)
 {
-  return 0;
+  saver_preferences *p = &si->prefs;
+
+  /* This resource gets set some time before the others, so that we know
+     whether to print the banner (and so that the banner gets printed before
+     any resource-database-related error messages.)
+   */
+  p->verbose_p = (p->debug_p || get_boolean_resource ("verbose", "Boolean"));
+
+  /* Ditto, for the locking_disabled_p message. */
+  p->lock_p = get_boolean_resource ("lock", "Boolean");
+
+  if (p->verbose_p)
+    fprintf (stderr,
+            "%s %s, copyright (c) 1991-1999 "
+            "by Jamie Zawinski <jwz@jwz.org>.\n",
+            progname, si->version);
+
+  if (p->debug_p)
+    fprintf (stderr, "\n"
+            "%s: Warning: running in DEBUG MODE.  Be afraid.\n"
+            "\n"
+            "\tNote that in debug mode, the xscreensaver window will only\n"
+            "\tcover the left half of the screen.  (The idea is that you\n"
+            "\tcan still see debugging output in a shell, if you position\n"
+            "\tit on the right side of the screen.)\n"
+            "\n"
+            "\tDebug mode is NOT SECURE.  Do not run with -debug in\n"
+            "\tuntrusted environments.\n"
+            "\n",
+            blurb());
+
+  if (p->verbose_p)
+    {
+      if (!si->uid_message || !*si->uid_message)
+       describe_uids (si, stderr);
+      else
+       {
+         if (si->orig_uid && *si->orig_uid)
+           fprintf (stderr, "%s: initial effective uid/gid was %s.\n",
+                    blurb(), si->orig_uid);
+         fprintf (stderr, "%s: %s\n", blurb(), si->uid_message);
+       }
+
+      fprintf (stderr, "%s: in process %lu.\n", blurb(),
+              (unsigned long) getpid());
+    }
+
+  /* If locking was not able to be initalized for some reason, explain why.
+     (This has to be done after we've read the lock_p resource.)
+   */
+  if (p->lock_p && si->locking_disabled_p)
+    {
+      p->lock_p = False;
+      fprintf (stderr, "%s: locking is disabled (%s).\n", blurb(),
+              si->nolock_reason);
+      if (strstr (si->nolock_reason, "passw"))
+       fprintf (stderr, "%s: does xscreensaver need to be setuid?  "
+                "consult the manual.\n", blurb());
+      else if (strstr (si->nolock_reason, "running as "))
+       fprintf (stderr, 
+                "%s: locking only works when xscreensaver is launched\n"
+                "\t by a normal, non-privileged user (e.g., not \"root\".)\n"
+                "\t See the manual for details.\n",
+                blurb());
+    }
 }
 
+
+/* Examine all of the display's screens, and populate the `saver_screen_info'
+   structures.
+ */
 static void
-init_saver_extension ()
+initialize_per_screen_info (saver_info *si, Widget toplevel_shell)
 {
-  XID kill_id;
-  Atom kill_type;
-  Window root = RootWindowOfScreen (screen);
-  XScreenSaverInfo *info;
-  Pixmap blank_pix = XCreatePixmap (dpy, root, 1, 1, 1);
-
-  /* Kill off the old MIT-SCREEN-SAVER client if there is one.
-     This tends to generate X errors, though (possibly due to a bug
-     in the server extension itself?) so just ignore errors here. */
-  if (XScreenSaverGetRegistered (dpy, XScreenNumberOfScreen (screen),
-                                &kill_id, &kill_type)
-      && kill_id != blank_pix)
-    {
-      int (*old_handler) ();
-      old_handler = XSetErrorHandler (ignore_all_errors_ehandler);
-      XKillClient (dpy, kill_id);
-      XSync (dpy, False);
-      XSetErrorHandler (old_handler);
-    }
+  Bool found_any_writable_cells = False;
+  int i;
 
-  XScreenSaverSelectInput (dpy, root, ScreenSaverNotifyMask);
+  si->nscreens = ScreenCount(si->dpy);
+  si->screens = (saver_screen_info *)
+    calloc(sizeof(saver_screen_info), si->nscreens);
 
-  XScreenSaverRegister (dpy, XScreenNumberOfScreen (screen),
-                       (XID) blank_pix, XA_PIXMAP);
-  info = XScreenSaverAllocInfo ();
+  si->default_screen = &si->screens[DefaultScreen(si->dpy)];
 
-#if 0
-  /* #### I think this is noticing that the saver is on, and replacing it
-     without turning it off first. */
-  saver = info->window;
-  if (info->state == ScreenSaverOn)
+  for (i = 0; i < si->nscreens; i++)
     {
-      if (info->kind != ScreenSaverExternal) 
+      saver_screen_info *ssi = &si->screens[i];
+      ssi->global = si;
+      ssi->screen = ScreenOfDisplay (si->dpy, i);
+
+      /* Note: we can't use the resource ".visual" because Xt is SO FUCKED. */
+      ssi->default_visual =
+       get_visual_resource (ssi->screen, "visualID", "VisualID", False);
+
+      ssi->current_visual = ssi->default_visual;
+      ssi->current_depth = visual_depth (ssi->screen, ssi->current_visual);
+
+      if (ssi == si->default_screen)
+       /* Since this is the default screen, use the one already created. */
+       ssi->toplevel_shell = toplevel_shell;
+      else
+       /* Otherwise, each screen must have its own unmapped root widget. */
+       ssi->toplevel_shell =
+         XtVaAppCreateShell (progname, progclass, applicationShellWidgetClass,
+                             si->dpy,
+                             XtNscreen, ssi->screen,
+                             XtNvisual, ssi->current_visual,
+                             XtNdepth,  visual_depth (ssi->screen,
+                                                      ssi->current_visual),
+                             0);
+
+      if (! found_any_writable_cells)
        {
-         XResetScreenSaver (display);
-         XActivateScreenSaver (display);
+         /* Check to see whether fading is ever possible -- if any of the
+            screens on the display has a PseudoColor visual, then fading can
+            work (on at least some screens.)  If no screen has a PseudoColor
+            visual, then don't bother ever trying to fade, because it will
+            just cause a delay without causing any visible effect.
+         */
+         if (has_writable_cells (ssi->screen, ssi->current_visual) ||
+             get_visual (ssi->screen, "PseudoColor", True, False) ||
+             get_visual (ssi->screen, "GrayScale", True, False))
+           found_any_writable_cells = True;
        }
-      StartSaver ();
     }
-#endif
-}
-#endif /* HAVE_SAVER_EXTENSION */
 
+  si->prefs.fading_possible_p = found_any_writable_cells;
+}
 
-extern void init_sigchld P((void));
 
+/* If any server extensions have been requested, try and initialize them.
+   Issue warnings if requests can't be honored.
+ */
 static void
-initialize (argc, argv)
-     int argc;
-     char **argv;
+initialize_server_extensions (saver_info *si)
 {
-  Bool initial_demo_mode_p = False;
-  screensaver_version = (char *) malloc (5);
-  memcpy (screensaver_version, screensaver_id + 17, 4);
-  screensaver_version [4] = 0;
-  progname = argv[0]; /* reset later; this is for the benefit of lock_init() */
+  saver_preferences *p = &si->prefs;
 
-#ifdef NO_LOCKING
-  locking_disabled_p = True;
-  nolock_reason = "not compiled with locking support";
-#else
-  locking_disabled_p = False;
+  Bool server_has_xidle_extension_p = False;
+  Bool server_has_sgi_saver_extension_p = False;
+  Bool server_has_mit_saver_extension_p = False;
+  Bool system_has_proc_interrupts_p = False;
+  const char *piwhy = 0;
 
-#ifdef SCO
-  set_auth_parameters(argc, argv);
+  si->using_xidle_extension = p->use_xidle_extension;
+  si->using_sgi_saver_extension = p->use_sgi_saver_extension;
+  si->using_mit_saver_extension = p->use_mit_saver_extension;
+  si->using_proc_interrupts = p->use_proc_interrupts;
+
+#ifdef HAVE_XIDLE_EXTENSION
+  server_has_xidle_extension_p = query_xidle_extension (si);
+#endif
+#ifdef HAVE_SGI_SAVER_EXTENSION
+  server_has_sgi_saver_extension_p = query_sgi_saver_extension (si);
+#endif
+#ifdef HAVE_MIT_SAVER_EXTENSION
+  server_has_mit_saver_extension_p = query_mit_saver_extension (si);
+#endif
+#ifdef HAVE_PROC_INTERRUPTS
+  system_has_proc_interrupts_p = query_proc_interrupts_available (si, &piwhy);
 #endif
 
-  if (! lock_init ())  /* before hack_uid() for proper permissions */
+  if (!server_has_xidle_extension_p)
+    si->using_xidle_extension = False;
+  else if (p->verbose_p)
     {
-      locking_disabled_p = True;
-      nolock_reason = "error getting password";
+      if (si->using_xidle_extension)
+       fprintf (stderr, "%s: using XIDLE extension.\n", blurb());
+      else
+       fprintf (stderr, "%s: not using server's XIDLE extension.\n", blurb());
     }
-#endif
 
-  hack_uid ();
-  progclass = "XScreenSaver";
+  if (!server_has_sgi_saver_extension_p)
+    si->using_sgi_saver_extension = False;
+  else if (p->verbose_p)
+    {
+      if (si->using_sgi_saver_extension)
+       fprintf (stderr, "%s: using SGI SCREEN_SAVER extension.\n", blurb());
+      else
+       fprintf (stderr,
+                "%s: not using server's SGI SCREEN_SAVER extension.\n",
+                blurb());
+    }
 
-  /* remove -demo switch before saving argv */
-  {
-    int i;
-    for (i = 1; i < argc; i++)
-      while (!strcmp ("-demo", argv [i]))
-       {
-         int j;
-         initial_demo_mode_p = True;
-         for (j = i; j < argc; j++)
-           argv [j] = argv [j+1];
-         argv [j] = 0;
-         argc--;
-         if (argc <= i) break;
-       }
-  }
-  save_argv (argc, argv);
-  initialize_connection (argc, argv);
-  ensure_no_screensaver_running ();
-
-  if (verbose_p)
-    printf ("\
-%s %s, copyright (c) 1991-1995 by Jamie Zawinski <jwz@netscape.com>.\n\
- pid = %d.\n", progname, screensaver_version, getpid ());
-  ensure_no_screensaver_running ();
-
-  demo_mode_p = initial_demo_mode_p;
-  screensaver_window = 0;
-  cursor = 0;
-  initialize_screensaver_window ();
-  srandom ((int) time ((time_t *) 0));
-  cycle_id = 0;
-  lock_id = 0;
-  locked_p = False;
+  if (!server_has_mit_saver_extension_p)
+    si->using_mit_saver_extension = False;
+  else if (p->verbose_p)
+    {
+      if (si->using_mit_saver_extension)
+       fprintf (stderr, "%s: using lame MIT-SCREEN-SAVER extension.\n",
+                blurb());
+      else
+       fprintf (stderr,
+                "%s: not using server's lame MIT-SCREEN-SAVER extension.\n",
+                blurb());
+    }
 
-  if (use_saver_extension)
+  if (!system_has_proc_interrupts_p)
     {
-#ifdef HAVE_SAVER_EXTENSION
-      if (! XScreenSaverQueryExtension (dpy,
-                                       &saver_ext_event_number,
-                                       &saver_ext_error_number))
-       {
-         fprintf (stderr,
-        "%s: %sdisplay %s does not support the MIT-SCREEN-SAVER extension.\n",
-                  progname, (verbose_p ? "## " : ""), DisplayString (dpy));
-         use_saver_extension = False;
-       }
-      else if (use_xidle_extension)
-       {
-         fprintf (stderr,
-        "%s: %sMIT-SCREEN-SAVER extension used instead of XIDLE extension.\n",
-                  progname, (verbose_p ? "## " : ""));
-         use_xidle_extension = False;
-       }
-#else  /* !HAVE_SAVER_EXTENSION */
-      fprintf (stderr,
-       "%s: %snot compiled with support for the MIT-SCREEN-SAVER extension.\n",
-              progname, (verbose_p ? "## " : ""));
-      use_saver_extension = False;
-#endif /* !HAVE_SAVER_EXTENSION */
+      si->using_proc_interrupts = False;
+      if (p->verbose_p && piwhy)
+       fprintf (stderr, "%s: not using /proc/interrupts: %s.\n", blurb(),
+                 piwhy);
+    }
+  else if (p->verbose_p)
+    {
+      if (si->using_proc_interrupts)
+       fprintf (stderr,
+                 "%s: consulting /proc/interrupts for keyboard activity.\n",
+                blurb());
+      else
+       fprintf (stderr,
+                "%s: not consulting /proc/interrupts for keyboard activity.\n",
+                blurb());
     }
+}
+
+
+/* For the case where we aren't using an server extensions, select user events
+   on all the existing windows, and launch timers to select events on
+   newly-created windows as well.
+
+   If a server extension is being used, this does nothing.
+ */
+static void
+select_events (saver_info *si)
+{
+  saver_preferences *p = &si->prefs;
+  int i;
+
+  if (si->using_xidle_extension ||
+      si->using_mit_saver_extension ||
+      si->using_sgi_saver_extension)
+    return;
 
-  if (use_xidle_extension)
+  if (p->initial_delay)
     {
-#ifdef HAVE_XIDLE_EXTENSION
-      int first_event, first_error;
-      if (! XidleQueryExtension (dpy, &first_event, &first_error))
+      if (p->verbose_p)
        {
-         fprintf (stderr,
-                  "%s: %sdisplay %s does not support the XIdle extension.\n",
-                  progname, (verbose_p ? "## " : ""), DisplayString (dpy));
-         use_xidle_extension = False;
+         fprintf (stderr, "%s: waiting for %d second%s...", blurb(),
+                  (int) p->initial_delay/1000,
+                  (p->initial_delay == 1000 ? "" : "s"));
+         fflush (stderr);
+         fflush (stdout);
        }
-#else  /* !HAVE_XIDLE_EXTENSION */
-      fprintf (stderr, "%s: %snot compiled with support for XIdle.\n",
-              progname, (verbose_p ? "## " : ""));
-      use_xidle_extension = False;
-#endif /* !HAVE_XIDLE_EXTENSION */
+      usleep (p->initial_delay);
+      if (p->verbose_p)
+       fprintf (stderr, " done.\n");
     }
 
-  init_sigchld ();
+  if (p->verbose_p)
+    {
+      fprintf (stderr, "%s: selecting events on extant windows...", blurb());
+      fflush (stderr);
+      fflush (stdout);
+    }
 
-  disable_builtin_screensaver ();
+  /* Select events on the root windows of every screen.  This also selects
+     for window creation events, so that new subwindows will be noticed.
+   */
+  for (i = 0; i < si->nscreens; i++)
+    start_notice_events_timer (si, RootWindowOfScreen (si->screens[i].screen),
+                               False);
 
-#ifdef HAVE_SAVER_EXTENSION
-  if (use_saver_extension)
-    init_saver_extension ();
-#endif /* HAVE_SAVER_EXTENSION */
+  if (p->verbose_p)
+    fprintf (stderr, " done.\n");
+}
 
-  if (verbose_p && use_saver_extension)
-    fprintf (stderr, "%s: using MIT-SCREEN-SAVER server extension.\n",
-            progname);
-  if (verbose_p && use_xidle_extension)
-    fprintf (stderr, "%s: using XIdle server extension.\n",
-            progname);
 
-  initialize_stderr ();
-  XSetErrorHandler (saver_ehandler);
+void
+maybe_reload_init_file (saver_info *si)
+{
+  saver_preferences *p = &si->prefs;
+  if (init_file_changed_p (p))
+    {
+      if (p->verbose_p)
+       fprintf (stderr, "%s: file \"%s\" has changed, reloading.\n",
+                blurb(), init_file_name());
 
-  if (initial_demo_mode_p)
-    /* If the user wants demo mode, don't wait around before doing it. */
-    initial_delay = 0;
+      load_init_file (p);
 
-  if (!use_xidle_extension && !use_saver_extension)
-    {
-      if (initial_delay)
-       {
-         if (verbose_p)
-           {
-             printf ("%s: waiting for %d second%s...", progname,
-                     (int) initial_delay, (initial_delay == 1 ? "" : "s"));
-             fflush (stdout);
-           }
-         sleep (initial_delay);
-         if (verbose_p)
-           printf (" done.\n");
-       }
-      if (verbose_p)
-       {
-         printf ("%s: selecting events on extant windows...", progname);
-         fflush (stdout);
-       }
-      notice_events_timer ((XtPointer)
-                          RootWindowOfScreen (XtScreen (toplevel_shell)),
-                          0);
-      if (verbose_p)
-       printf (" done.\n");
+      /* If a server extension is in use, and p->timeout has changed,
+        we need to inform the server of the new timeout. */
+      disable_builtin_screensaver (si, False);
     }
 }
 
 
-extern void suspend_screenhack P((Bool suspend_p));
+/* Loop forever:
+
+       - wait until the user is idle;
+       - blank the screen;
+       - wait until the user is active;
+       - unblank the screen;
+       - repeat.
 
+ */
 static void
-main_loop ()
+main_loop (saver_info *si)
 {
+  saver_preferences *p = &si->prefs;
+  Bool ok_to_unblank;
+
   while (1)
     {
-      if (! demo_mode_p)
-       sleep_until_idle (True);
+      sleep_until_idle (si, True);
 
-      if (demo_mode_p)
-       demo_mode ();
-      else
+      if (p->verbose_p)
        {
-         if (verbose_p)
-           printf ("%s: user is idle; waking up at %s.\n", progname,
-                   timestring());
-         blank_screen ();
-         spawn_screenhack (True);
-         if (cycle)
-           cycle_id = XtAppAddTimeOut (app, cycle,
-                                       (XtTimerCallbackProc)cycle_timer, 0);
+         if (si->demoing_p)
+           fprintf (stderr, "%s: demoing %d at %s.\n", blurb(),
+                    si->selection_mode, timestring());
+         else
+           if (p->verbose_p)
+             fprintf (stderr, "%s: blanking screen at %s.\n", blurb(),
+                      timestring());
+       }
 
-#ifndef NO_LOCKING
-         if (lock_p && lock_timeout == 0)
-           locked_p = True;
-         if (lock_p && !locked_p)
-           /* locked_p might be true already because of ClientMessage */
-           lock_id = XtAppAddTimeOut (app,lock_timeout,
-                                      (XtTimerCallbackProc)
-                                      activate_lock_timer,0);
-#endif
+      maybe_reload_init_file (si);
+
+      if (! blank_screen (si))
+        {
+          /* We were unable to grab either the keyboard or mouse.
+             This means we did not (and must not) blank the screen.
+             If we were to blank the screen while some other program
+             is holding both the mouse and keyboard grabbed, then
+             we would never be able to un-blank it!  We would never
+             see any events, and the display would be wedged.
+
+             So, just go around the loop again and wait for the
+             next bout of idleness.
+          */
 
-       PASSWD_INVALID:
+          fprintf (stderr,
+                  "%s: unable to grab keyboard or mouse!  Blanking aborted.\n",
+                   blurb());
+          continue;
+        }
+
+      kill_screenhack (si);
+      spawn_screenhack (si, True);
+
+      /* Don't start the cycle timer in demo mode. */
+      if (!si->demoing_p && p->cycle)
+       si->cycle_id = XtAppAddTimeOut (si->app, p->cycle, cycle_timer,
+                                       (XtPointer) si);
 
-         sleep_until_idle (False); /* until not idle */
 
 #ifndef NO_LOCKING
-         if (locked_p)
-           {
-             Bool val;
-             if (locking_disabled_p) abort ();
-             dbox_up_p = True;
-
-             /* We used to ungrab the keyboard here, before calling unlock_p()
-                to pop up the dialog box.  This left the keyboard ungrabbed
-                for a small window, during an insecure state.  Bennett Todd
-                was seeing the bahavior that, when the load was high, he could
-                actually get characters through to a shell under the saver
-                window (he accidentally typed his password there...)
-
-                So the ungrab has been moved down into pop_passwd_dialog()
-                just after the server is grabbed, closing this window
-                entirely.
-              */
-             /* ungrab_keyboard_and_mouse (); */
-
-             suspend_screenhack (True);
-             XUndefineCursor (dpy, screensaver_window);
-             if (verbose_p)
-               printf ("%s: prompting for password.\n", progname);
-             val = unlock_p (toplevel_shell);
-             if (verbose_p && val == False)
-               printf ("%s: password incorrect!\n", progname);
-             dbox_up_p = False;
-             XDefineCursor (dpy, screensaver_window, cursor);
-             suspend_screenhack (False);
-
-             /* I think this grab is now redundant, but it shouldn't hurt. */
-             grab_keyboard_and_mouse ();
-
-             if (! val)
-               goto PASSWD_INVALID;
-             locked_p = False;
-           }
-#endif
-         unblank_screen ();
-         kill_screenhack ();
-         if (cycle_id)
-           {
-             XtRemoveTimeOut (cycle_id);
-             cycle_id = 0;
-           }
+      if (!si->demoing_p &&            /* if not going into demo mode */
+         p->lock_p &&                  /* and locking is enabled */
+         !si->locking_disabled_p &&    /* and locking is possible */
+         p->lock_timeout == 0)         /* and locking is not timer-deferred */
+       si->locked_p = True;            /* then lock right now. */
+
+      /* locked_p might be true already because of the above, or because of
+        the LOCK ClientMessage.  But if not, and if we're supposed to lock
+        after some time, set up a timer to do so.
+       */
+      if (p->lock_p &&
+         !si->locked_p &&
+         p->lock_timeout > 0)
+       si->lock_id = XtAppAddTimeOut (si->app, p->lock_timeout,
+                                      activate_lock_timer,
+                                      (XtPointer) si);
+#endif /* !NO_LOCKING */
+
+
+      ok_to_unblank = True;
+      do {
+
+       sleep_until_idle (si, False);           /* until not idle */
+       maybe_reload_init_file (si);
+
 #ifndef NO_LOCKING
-         if (lock_id)
-           {
-             XtRemoveTimeOut (lock_id);
-             lock_id = 0;
-           }
-#endif
-         if (verbose_p)
-           printf ("%s: user is active; going to sleep at %s.\n", progname,
-                   timestring ());
+       if (si->locked_p)
+         {
+           saver_screen_info *ssi = si->default_screen;
+           if (si->locking_disabled_p) abort ();
+
+           si->dbox_up_p = True;
+           suspend_screenhack (si, True);
+           XUndefineCursor (si->dpy, ssi->screensaver_window);
+
+           ok_to_unblank = unlock_p (si);
+
+           si->dbox_up_p = False;
+           XDefineCursor (si->dpy, ssi->screensaver_window, ssi->cursor);
+           suspend_screenhack (si, False);     /* resume */
+         }
+#endif /* !NO_LOCKING */
+
+       } while (!ok_to_unblank);
+
+
+      if (p->verbose_p)
+       fprintf (stderr, "%s: unblanking screen at %s.\n",
+                blurb(), timestring ());
+
+      /* Kill before unblanking, to stop drawing as soon as possible. */
+      kill_screenhack (si);
+      unblank_screen (si);
+
+      si->locked_p = False;
+      si->demoing_p = 0;
+      si->selection_mode = 0;
+
+      if (si->cycle_id)
+       {
+         XtRemoveTimeOut (si->cycle_id);
+         si->cycle_id = 0;
        }
+
+      if (si->lock_id)
+       {
+         XtRemoveTimeOut (si->lock_id);
+         si->lock_id = 0;
+       }
+
+      if (p->verbose_p)
+       fprintf (stderr, "%s: awaiting idleness.\n", blurb());
     }
 }
 
+static void analyze_display (saver_info *si);
+
+int
+main (int argc, char **argv)
+{
+  Widget shell;
+  saver_info the_si;
+  saver_info *si = &the_si;
+  saver_preferences *p = &si->prefs;
+  int i;
+
+  memset(si, 0, sizeof(*si));
+  global_si_kludge = si;       /* I hate C so much... */
+
+  srandom ((int) time ((time_t *) 0));
+
+  save_argv (argc, argv);
+  set_version_string (si, &argc, argv);
+  privileged_initialization (si, &argc, argv);
+  hack_environment (si);
+
+  shell = connect_to_server (si, &argc, argv);
+  process_command_line (si, &argc, argv);
+  print_banner (si);
+
+  initialize_per_screen_info (si, shell);  /* also sets p->fading_possible_p */
+
+  for (i = 0; i < si->nscreens; i++)
+    if (ensure_no_screensaver_running (si->dpy, si->screens[i].screen))
+      exit (1);
+
+  load_init_file (p);
+  lock_initialization (si, &argc, argv);
+
+  if (p->xsync_p) XSynchronize (si->dpy, True);
+  blurb_timestamp_p = p->timestamp_p;  /* kludge */
+
+  if (p->verbose_p) analyze_display (si);
+  initialize_server_extensions (si);
+  initialize_screensaver_window (si);
+  select_events (si);
+  init_sigchld ();
+  disable_builtin_screensaver (si, True);
+  initialize_stderr (si);
+
+  make_splash_dialog (si);
+
+  main_loop (si);              /* doesn't return */
+  return 0;
+}
+
 \f
+/* Processing ClientMessage events.
+ */
+
+static void
+clientmessage_response (saver_info *si, Window w, Bool error,
+                       const char *stderr_msg,
+                       const char *protocol_msg)
+{
+  char *proto;
+  int L;
+  saver_preferences *p = &si->prefs;
+  if (error || p->verbose_p)
+    fprintf (stderr, "%s: %s\n", blurb(), stderr_msg);
+
+  L = strlen(protocol_msg);
+  proto = (char *) malloc (L + 2);
+  proto[0] = (error ? '-' : '+');
+  strcpy (proto+1, protocol_msg);
+  L++;
+
+  XChangeProperty (si->dpy, w, XA_SCREENSAVER_RESPONSE, XA_STRING, 8,
+                  PropModeReplace, (unsigned char *) proto, L);
+  XSync (si->dpy, False);
+  free (proto);
+}
 
 Bool
-handle_clientmessage (event, until_idle_p)
-     XEvent *event;
-     Bool until_idle_p;
+handle_clientmessage (saver_info *si, XEvent *event, Bool until_idle_p)
 {
   Atom type = 0;
+  Window window = event->xclient.window;
+
+  /* Preferences might affect our handling of client messages. */
+  maybe_reload_init_file (si);
+
   if (event->xclient.message_type != XA_SCREENSAVER)
     {
       char *str;
-      str = XGetAtomName (dpy, event->xclient.message_type);
-      fprintf (stderr, "%s: %sunrecognised ClientMessage type %s received\n",
-              progname, (verbose_p ? "## " : ""),
-              (str ? str : "(null)"));
+      str = XGetAtomName (si->dpy, event->xclient.message_type);
+      fprintf (stderr, "%s: unrecognised ClientMessage type %s received\n",
+              blurb(), (str ? str : "(null)"));
       if (str) XFree (str);
       return False;
     }
   if (event->xclient.format != 32)
     {
-      fprintf (stderr, "%s: %sClientMessage of format %d received, not 32\n",
-              progname, (verbose_p ? "## " : ""), event->xclient.format);
+      fprintf (stderr, "%s: ClientMessage of format %d received, not 32\n",
+              blurb(), event->xclient.format);
       return False;
     }
+
   type = event->xclient.data.l[0];
   if (type == XA_ACTIVATE)
     {
       if (until_idle_p)
        {
-         if (verbose_p)
-           printf ("%s: ACTIVATE ClientMessage received.\n", progname);
-         if (use_saver_extension)
+         clientmessage_response(si, window, False,
+                                "ACTIVATE ClientMessage received.",
+                                "activating.");
+         si->selection_mode = 0;
+         si->demoing_p = False;
+         if (si->using_mit_saver_extension || si->using_sgi_saver_extension)
            {
-             XForceScreenSaver (dpy, ScreenSaverActive);
+             XForceScreenSaver (si->dpy, ScreenSaverActive);
              return False;
            }
          else
@@ -934,19 +1123,20 @@ handle_clientmessage (event, until_idle_p)
              return True;
            }
        }
-      fprintf (stderr,
-              "%s: %sClientMessage ACTIVATE received while already active.\n",
-              progname, (verbose_p ? "## " : ""));
+      clientmessage_response(si, window, True,
+                      "ClientMessage ACTIVATE received while already active.",
+                            "already active.");
     }
   else if (type == XA_DEACTIVATE)
     {
       if (! until_idle_p)
        {
-         if (verbose_p)
-           printf ("%s: DEACTIVATE ClientMessage received.\n", progname);
-         if (use_saver_extension)
+         clientmessage_response(si, window, False,
+                                "DEACTIVATE ClientMessage received.",
+                                "deactivating.");
+         if (si->using_mit_saver_extension || si->using_sgi_saver_extension)
            {
-             XForceScreenSaver (dpy, ScreenSaverReset);
+             XForceScreenSaver (si->dpy, ScreenSaverReset);
              return False;
            }
          else
@@ -954,39 +1144,69 @@ handle_clientmessage (event, until_idle_p)
              return True;
            }
        }
-      fprintf (stderr,
-              "%s: %sClientMessage DEACTIVATE received while inactive.\n",
-              progname, (verbose_p ? "## " : ""));
+      clientmessage_response(si, window, True,
+                          "ClientMessage DEACTIVATE received while inactive.",
+                            "not active.");
     }
   else if (type == XA_CYCLE)
     {
       if (! until_idle_p)
        {
-         if (verbose_p)
-           printf ("%s: CYCLE ClientMessage received.\n", progname);
-         if (cycle_id)
-           XtRemoveTimeOut (cycle_id);
-         cycle_id = 0;
-         cycle_timer (0, 0);
+         clientmessage_response(si, window, False,
+                                "CYCLE ClientMessage received.",
+                                "cycling.");
+         si->selection_mode = 0;       /* 0 means randomize when its time. */
+         si->demoing_p = False;
+         if (si->cycle_id)
+           XtRemoveTimeOut (si->cycle_id);
+         si->cycle_id = 0;
+         cycle_timer ((XtPointer) si, 0);
          return False;
        }
-      fprintf (stderr,
-              "%s: %sClientMessage CYCLE received while inactive.\n",
-              progname, (verbose_p ? "## " : ""));
+      clientmessage_response(si, window, True,
+                            "ClientMessage CYCLE received while inactive.",
+                            "not active.");
     }
   else if (type == XA_NEXT || type == XA_PREV)
     {
-      if (verbose_p)
-       printf ("%s: %s ClientMessage received.\n", progname,
-               (type == XA_NEXT ? "NEXT" : "PREV"));
-      next_mode_p = 1 + (type == XA_PREV);
+      clientmessage_response(si, window, False,
+                            (type == XA_NEXT
+                             ? "NEXT ClientMessage received."
+                             : "PREV ClientMessage received."),
+                            "cycling.");
+      si->selection_mode = (type == XA_NEXT ? -1 : -2);
+      si->demoing_p = False;
 
       if (! until_idle_p)
        {
-         if (cycle_id)
-           XtRemoveTimeOut (cycle_id);
-         cycle_id = 0;
-         cycle_timer (0, 0);
+         if (si->cycle_id)
+           XtRemoveTimeOut (si->cycle_id);
+         si->cycle_id = 0;
+         cycle_timer ((XtPointer) si, 0);
+       }
+      else
+       return True;
+    }
+  else if (type == XA_SELECT)
+    {
+      char buf [255];
+      char buf2 [255];
+      long which = event->xclient.data.l[1];
+
+      sprintf (buf, "SELECT %ld ClientMessage received.", which);
+      sprintf (buf2, "activating (%ld).", which);
+      clientmessage_response (si, window, False, buf, buf2);
+
+      if (which < 0) which = 0;                /* 0 == "random" */
+      si->selection_mode = which;
+      si->demoing_p = False;
+
+      if (! until_idle_p)
+       {
+         if (si->cycle_id)
+           XtRemoveTimeOut (si->cycle_id);
+         si->cycle_id = 0;
+         cycle_timer ((XtPointer) si, 0);
        }
       else
        return True;
@@ -994,94 +1214,133 @@ handle_clientmessage (event, until_idle_p)
   else if (type == XA_EXIT)
     {
       /* Ignore EXIT message if the screen is locked. */
-      if (until_idle_p || !locked_p)
+      if (until_idle_p || !si->locked_p)
        {
-         if (verbose_p)
-           printf ("%s: EXIT ClientMessage received.\n", progname);
+         clientmessage_response (si, window, False,
+                                 "EXIT ClientMessage received.",
+                                 "exiting.");
          if (! until_idle_p)
            {
-             unblank_screen ();
-             kill_screenhack ();
-             XSync (dpy, False);
+             unblank_screen (si);
+             kill_screenhack (si);
+             XSync (si->dpy, False);
            }
-         exit (0);
+         saver_exit (si, 0, 0);
        }
       else
-       fprintf (stderr, "%s: %sEXIT ClientMessage received while locked.\n",
-                progname, (verbose_p ? "## " : ""));
+       clientmessage_response (si, window, True,
+                               "EXIT ClientMessage received while locked.",
+                               "screen is locked.");
     }
   else if (type == XA_RESTART)
     {
       /* The RESTART message works whether the screensaver is active or not,
         unless the screen is locked, in which case it doesn't work.
        */
-      if (until_idle_p || !locked_p)
+      if (until_idle_p || !si->locked_p)
        {
-         if (verbose_p)
-           printf ("%s: RESTART ClientMessage received.\n", progname);
+         clientmessage_response (si, window, False,
+                                 "RESTART ClientMessage received.",
+                                 "restarting.");
          if (! until_idle_p)
            {
-             unblank_screen ();
-             kill_screenhack ();
-             XSync (dpy, False);
+             unblank_screen (si);
+             kill_screenhack (si);
+             XSync (si->dpy, False);
            }
-         restart_process ();
+
+         /* make sure error message shows up before exit. */
+         if (real_stderr && stderr != real_stderr)
+           dup2 (fileno(real_stderr), fileno(stderr));
+
+         restart_process (si);
+         exit (1);     /* shouldn't get here; but if restarting didn't work,
+                          make this command be the same as EXIT. */
        }
       else
-       fprintf(stderr, "%s: %sRESTART ClientMessage received while locked.\n",
-               progname, (verbose_p ? "## " : ""));
+       clientmessage_response (si, window, True,
+                               "RESTART ClientMessage received while locked.",
+                               "screen is locked.");
     }
   else if (type == XA_DEMO)
     {
-#ifdef NO_DEMO_MODE
-      fprintf (stderr,
-              "%s: %snot compiled with support for DEMO mode\n",
-              progname, (verbose_p ? "## " : ""));
-#else
-      if (until_idle_p)
+      long arg = event->xclient.data.l[1];
+      Bool demo_one_hack_p = (arg == 300);
+
+      if (demo_one_hack_p)
        {
-         if (verbose_p)
-           printf ("%s: DEMO ClientMessage received.\n", progname);
-         demo_mode_p = True;
-         return True;
+         if (until_idle_p)
+           {
+             long which = event->xclient.data.l[2];
+             char buf [255];
+             char buf2 [255];
+             sprintf (buf, "DEMO %ld ClientMessage received.", which);
+             sprintf (buf2, "demoing (%ld).", which);
+             clientmessage_response (si, window, False, buf, buf2);
+
+             if (which < 0) which = 0;         /* 0 == "random" */
+             si->selection_mode = which;
+             si->demoing_p = True;
+
+             return True;
+           }
+
+         clientmessage_response (si, window, True,
+                                 "DEMO ClientMessage received while active.",
+                                 "already active.");
        }
-      fprintf (stderr,
-              "%s: %sDEMO ClientMessage received while active.\n",
-              progname, (verbose_p ? "## " : ""));
-#endif
+      else
+       {
+         clientmessage_response (si, window, True,
+                                 "obsolete form of DEMO ClientMessage.",
+                                 "obsolete form of DEMO ClientMessage.");
+       }
+    }
+  else if (type == XA_PREFS)
+    {
+      clientmessage_response (si, window, True,
+                             "the PREFS client-message is obsolete.",
+                             "the PREFS client-message is obsolete.");
     }
   else if (type == XA_LOCK)
     {
 #ifdef NO_LOCKING
-      fprintf (stderr, "%s: %snot compiled with support for LOCK mode\n",
-              progname, (verbose_p ? "## " : ""));
-#else
-      if (locking_disabled_p)
-       fprintf (stderr,
-              "%s: %sLOCK ClientMessage received, but locking is disabled.\n",
-                progname, (verbose_p ? "## " : ""));
-      else if (locked_p)
-       fprintf (stderr,
-              "%s: %sLOCK ClientMessage received while already locked.\n",
-                progname, (verbose_p ? "## " : ""));
+      clientmessage_response (si, window, True,
+                             "not compiled with support for locking.",
+                             "locking not enabled.");
+#else /* !NO_LOCKING */
+      if (si->locking_disabled_p)
+       clientmessage_response (si, window, True,
+                     "LOCK ClientMessage received, but locking is disabled.",
+                             "locking not enabled.");
+      else if (si->locked_p)
+       clientmessage_response (si, window, True,
+                          "LOCK ClientMessage received while already locked.",
+                               "already locked.");
       else
        {
-         locked_p = True;
-         if (verbose_p) 
-           printf ("%s: LOCK ClientMessage received;%s locking.\n",
-                   progname, until_idle_p ? " activating and" : "");
-
-         if (lock_id)  /* we're doing it now, so lose the timeout */
+         char buf [255];
+         char *response = (until_idle_p
+                           ? "activating and locking."
+                           : "locking.");
+         si->locked_p = True;
+         si->selection_mode = 0;
+         si->demoing_p = False;
+         sprintf (buf, "LOCK ClientMessage received; %s", response);
+         clientmessage_response (si, window, False, buf, response);
+
+         if (si->lock_id)      /* we're doing it now, so lose the timeout */
            {
-             XtRemoveTimeOut (lock_id);
-             lock_id = 0;
+             XtRemoveTimeOut (si->lock_id);
+             si->lock_id = 0;
            }
 
          if (until_idle_p)
            {
-             if (use_saver_extension)
+             if (si->using_mit_saver_extension ||
+                  si->using_sgi_saver_extension)
                {
-                 XForceScreenSaver (dpy, ScreenSaverActive);
+                 XForceScreenSaver (si->dpy, ScreenSaverActive);
                  return False;
                }
              else
@@ -1090,22 +1349,146 @@ handle_clientmessage (event, until_idle_p)
                }
            }
        }
-#endif
+#endif /* !NO_LOCKING */
     }
   else
     {
+      char buf [1024];
       char *str;
-      str = (type ? XGetAtomName(dpy, type) : 0);
+      str = (type ? XGetAtomName(si->dpy, type) : 0);
+
       if (str)
-       fprintf (stderr,
-                "%s: %sunrecognised screensaver ClientMessage %s received\n",
-                progname, (verbose_p ? "## " : ""), str);
+       {
+         if (strlen (str) > 80)
+           strcpy (str+70, "...");
+         sprintf (buf, "unrecognised screensaver ClientMessage %s received.",
+                  str);
+         free (str);
+       }
       else
-       fprintf (stderr,
-               "%s: %sunrecognised screensaver ClientMessage 0x%x received\n",
-                progname, (verbose_p ? "## " : ""),
-                (unsigned int) event->xclient.data.l[0]);
-      if (str) XFree (str);
+       {
+         sprintf (buf,
+                  "unrecognised screensaver ClientMessage 0x%x received.",
+                  (unsigned int) event->xclient.data.l[0]);
+       }
+
+      clientmessage_response (si, window, True, buf, buf);
     }
   return False;
 }
+
+\f
+/* Some random diagnostics printed in -verbose mode.
+ */
+
+static void
+analyze_display (saver_info *si)
+{
+  int i, j;
+  static const char *exts[][2] = {
+    { "SCREEN_SAVER",     "SGI Screen-Saver" },
+    { "SCREEN-SAVER",     "SGI Screen-Saver" },
+    { "MIT-SCREEN-SAVER",  "MIT Screen-Saver" },
+    { "XIDLE",            "XIdle" },
+    { "SGI-VIDEO-CONTROL", "SGI Video-Control" },
+    { "READDISPLAY",      "SGI Read-Display" },
+    { "MIT-SHM",          "Shared Memory" },
+    { "DOUBLE-BUFFER",    "Double-Buffering" },
+    { "DPMS",             "Power Management" },
+    { "GLX",              "GLX" }
+  };
+
+  fprintf (stderr, "%s: running on display \"%s\"\n", blurb(),
+          DisplayString(si->dpy));
+  fprintf (stderr, "%s: vendor is %s, %d\n", blurb(),
+          ServerVendor(si->dpy), VendorRelease(si->dpy));
+
+  fprintf (stderr, "%s: useful extensions:\n", blurb());
+  for (i = 0; i < countof(exts); i++)
+    {
+      int op = 0, event = 0, error = 0;
+      if (XQueryExtension (si->dpy, exts[i][0], &op, &event, &error))
+       fprintf (stderr, "%s:   %s\n", blurb(), exts[i][1]);
+    }
+
+  for (i = 0; i < si->nscreens; i++)
+    {
+      unsigned long colormapped_depths = 0;
+      unsigned long non_mapped_depths = 0;
+      XVisualInfo vi_in, *vi_out;
+      int out_count;
+      vi_in.screen = i;
+      vi_out = XGetVisualInfo (si->dpy, VisualScreenMask, &vi_in, &out_count);
+      if (!vi_out) continue;
+      for (j = 0; j < out_count; j++)
+       if (vi_out[j].class == PseudoColor)
+         colormapped_depths |= (1 << vi_out[j].depth);
+       else
+         non_mapped_depths  |= (1 << vi_out[j].depth);
+      XFree ((char *) vi_out);
+
+      if (colormapped_depths)
+       {
+         fprintf (stderr, "%s: screen %d colormapped depths:", blurb(), i);
+         for (j = 0; j < 32; j++)
+           if (colormapped_depths & (1 << j))
+             fprintf (stderr, " %d", j);
+         fprintf (stderr, "\n");
+       }
+      if (non_mapped_depths)
+       {
+         fprintf (stderr, "%s: screen %d non-mapped depths:", blurb(), i);
+         for (j = 0; j < 32; j++)
+           if (non_mapped_depths & (1 << j))
+             fprintf (stderr, " %d", j);
+         fprintf (stderr, "\n");
+       }
+    }
+}
+
+Bool
+display_is_on_console_p (saver_info *si)
+{
+  Bool not_on_console = True;
+  char *dpystr = DisplayString (si->dpy);
+  char *tail = (char *) strchr (dpystr, ':');
+  if (! tail || strncmp (tail, ":0", 2))
+    not_on_console = True;
+  else
+    {
+      char dpyname[255], localname[255];
+      strncpy (dpyname, dpystr, tail-dpystr);
+      dpyname [tail-dpystr] = 0;
+      if (!*dpyname ||
+         !strcmp(dpyname, "unix") ||
+         !strcmp(dpyname, "localhost"))
+       not_on_console = False;
+      else if (gethostname (localname, sizeof (localname)))
+       not_on_console = True;  /* can't find hostname? */
+      else
+       {
+         /* We have to call gethostbyname() on the result of gethostname()
+            because the two aren't guarenteed to be the same name for the
+            same host: on some losing systems, one is a FQDN and the other
+            is not.  Here in the wide wonderful world of Unix it's rocket
+            science to obtain the local hostname in a portable fashion.
+            
+            And don't forget, gethostbyname() reuses the structure it
+            returns, so we have to copy the fucker before calling it again.
+            Thank you master, may I have another.
+          */
+         struct hostent *h = gethostbyname (dpyname);
+         if (!h)
+           not_on_console = True;
+         else
+           {
+             char hn [255];
+             struct hostent *l;
+             strcpy (hn, h->h_name);
+             l = gethostbyname (localname);
+             not_on_console = (!l || !!(strcmp (l->h_name, hn)));
+           }
+       }
+    }
+  return !not_on_console;
+}