git.hungrycats.org Git - xscreensaver/blob - utils/xshm.c

   1 /* xscreensaver, Copyright (c) 1993, 1994, 1995, 1996, 1997, 1998
   2  *  by Jamie Zawinski <jwz@jwz.org>
   3  *
   4  * Permission to use, copy, modify, distribute, and sell this software and its
   5  * documentation for any purpose is hereby granted without fee, provided that
   6  * the above copyright notice appear in all copies and that both that
   7  * copyright notice and this permission notice appear in supporting
   8  * documentation.  No representations are made about the suitability of this
   9  * software for any purpose.  It is provided "as is" without express or
  10  * implied warranty.
  11  */
  12
  13 /* The MIT-SHM (Shared Memory) extension is pretty tricky to use.
  14    This file contains the common boiler-plate for creating a shared
  15    XImage structure, and for making sure that the shared memory segments
  16    get allocated and shut down cleanly.
  17
  18    This code currently deals only with shared XImages, not with shared Pixmaps.
  19    It also doesn't use "completion events", but so far that doesn't seem to
  20    be a problem (and I'm not entirely clear on when they would actually be
  21    needed, anyway.)
  22
  23    If you don't have man pages for this extension, see
  24    http://www.physik.uni-regensburg.de/~scs22156/sofie-0.2/mit-shm.html
  25    or in the R6 sources as "xc/doc/specs/Xext/mit-shm.ms", for example,
  26    ftp://ftp.x.org/pub/R6.4/xc/doc/specs/Xext/mit-shm.ms
  27
  28    (This document seems not to ever remain available on the web in one place
  29    for very long; you can search for it by the title, "MIT-SHM -- The MIT
  30    Shared Memory Extension".)
  31
  32    To monitor the system's shared memory segments, run "ipcs -m".
  33   */
  34
  35 #include "utils.h"
  36
  37 #ifdef HAVE_XSHM_EXTENSION      /* whole file */
  38
  39 /* #define DEBUG */
  40
  41 #include <errno.h>              /* for perror() */
  42 #include <X11/Xutil.h>          /* for XDestroyImage() */
  43
  44 #include "xshm.h"
  45 #include "resources.h"          /* for get_string_resource() */
  46
  47 #ifdef DEBUG
  48 # include <X11/Xmu/Error.h>
  49 #endif
  50
  51 extern char *progname;
  52
  53
  54 /* The documentation for the XSHM extension implies that if the server
  55    supports XSHM but is not the local machine, the XShm calls will return
  56    False; but this turns out not to be the case.  Instead, the server
  57    throws a BadAccess error.  So, we need to catch X errors around all
  58    of our XSHM calls, sigh.
  59  */
  60
  61 static Bool shm_got_x_error = False;
  62 XErrorHandler old_handler = 0;
  63 static int
  64 shm_ehandler (Display *dpy, XErrorEvent *error)
  65 {
  66   shm_got_x_error = True;
  67
  68 #ifdef DEBUG
  69   fprintf (stderr, "\n%s: ignoring X error from XSHM:\n", progname);
  70   XmuPrintDefaultErrorMessage (dpy, error, stderr);
  71   fprintf (stderr, "\n");
  72 #endif
  73
  74   return 0;
  75 }
  76
  77
  78 #define CATCH_X_ERROR(DPY) do {                         \
  79   XSync((DPY), False);                                  \
  80   shm_got_x_error = False;                              \
  81   if (old_handler != shm_ehandler)                      \
  82     old_handler = XSetErrorHandler (shm_ehandler);      \
  83 } while(0)
  84
  85 #define UNCATCH_X_ERROR(DPY) do {                       \
  86   XSync((DPY), False);                                  \
  87   if (old_handler)                                      \
  88     XSetErrorHandler (old_handler);                     \
  89     old_handler = 0;                                    \
  90 } while(0)
  91
  92
  93 XImage *
  94 create_xshm_image (Display *dpy, Visual *visual,
  95                    unsigned int depth,
  96                    int format, char *data,
  97                    XShmSegmentInfo *shm_info,
  98                    unsigned int width, unsigned int height)
  99 {
 100   Status status;
 101   XImage *image = 0;
 102   if (!get_boolean_resource("useSHM", "Boolean"))
 103     return 0;
 104
 105   if (!XShmQueryExtension (dpy))
 106     return 0;
 107
 108   CATCH_X_ERROR(dpy);
 109   image = XShmCreateImage(dpy, visual, depth,
 110                           format, data, shm_info, width, height);
 111   UNCATCH_X_ERROR(dpy);
 112   if (shm_got_x_error)
 113     return 0;
 114
 115 #ifdef DEBUG
 116   fprintf(stderr, "\n%s: XShmCreateImage(... %d, %d)\n", progname,
 117           width, height);
 118 #endif
 119
 120   shm_info->shmid = shmget(IPC_PRIVATE,
 121                            image->bytes_per_line * image->height,
 122                            IPC_CREAT | 0777);
 123 #ifdef DEBUG
 124   fprintf(stderr, "%s: shmget(IPC_PRIVATE, %d, IPC_CREAT | 0777) ==> %d\n",
 125           progname, image->bytes_per_line * image->height, shm_info->shmid);
 126 #endif
 127
 128   if (shm_info->shmid == -1)
 129     {
 130       char buf[1024];
 131       sprintf (buf, "%s: shmget failed", progname);
 132       perror(buf);
 133       XDestroyImage (image);
 134       image = 0;
 135       XSync(dpy, False);
 136     }
 137   else
 138     {
 139       shm_info->readOnly = False;
 140       image->data = shm_info->shmaddr = shmat(shm_info->shmid, 0, 0);
 141
 142 #ifdef DEBUG
 143       fprintf(stderr, "%s: shmat(%d, 0, 0) ==> %d\n", progname,
 144               shm_info->shmid, (int) image->data);
 145 #endif
 146
 147       CATCH_X_ERROR(dpy);
 148       status = XShmAttach(dpy, shm_info);
 149       UNCATCH_X_ERROR(dpy);
 150       if (shm_got_x_error)
 151         status = False;
 152
 153       if (!status)
 154         {
 155           fprintf (stderr, "%s: XShmAttach failed!\n", progname);
 156           XDestroyImage (image);
 157           XSync(dpy, False);
 158           shmdt (shm_info->shmaddr);
 159           image = 0;
 160         }
 161 #ifdef DEBUG
 162       else
 163         fprintf(stderr, "%s: XShmAttach(dpy, shm_info) ==> True\n", progname);
 164 #endif
 165
 166       XSync(dpy, False);
 167
 168       /* Delete the shared segment right now; the segment won't actually
 169          go away until both the client and server have deleted it.  The
 170          server will delete it as soon as the client disconnects, so we
 171          should delete our side early in case of abnormal termination.
 172          (And note that, in the context of xscreensaver, abnormal
 173          termination is the rule rather than the exception, so this would
 174          leak like a sieve if we didn't do this...)
 175
 176          #### Are we leaking anyway?  Perhaps because of the window of
 177          opportunity between here and the XShmAttach call above, during
 178          which we might be killed?  Do we need to establish a signal
 179          handler for this case?
 180        */
 181       shmctl (shm_info->shmid, IPC_RMID, 0);
 182
 183 #ifdef DEBUG
 184       fprintf(stderr, "%s: shmctl(%d, IPC_RMID, 0)\n\n", progname,
 185               shm_info->shmid);
 186 #endif
 187     }
 188
 189   return image;
 190 }
 191
 192 #endif /* HAVE_XSHM_EXTENSION */