cde/programs/dtscreen/dtscreen.c

   1 /*
   2  * CDE - Common Desktop Environment
   3  *
   4  * Copyright (c) 1993-2012, The Open Group. All rights reserved.
   5  *
   6  * These libraries and programs are free software; you can
   7  * redistribute them and/or modify them under the terms of the GNU
   8  * Lesser General Public License as published by the Free Software
   9  * Foundation; either version 2 of the License, or (at your option)
  10  * any later version.
  11  *
  12  * These libraries and programs are distributed in the hope that
  13  * they will be useful, but WITHOUT ANY WARRANTY; without even the
  14  * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  15  * PURPOSE. See the GNU Lesser General Public License for more
  16  * details.
  17  *
  18  * You should have received a copy of the GNU Lesser General Public
  19  * License along with these librararies and programs; if not, write
  20  * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
  21  * Floor, Boston, MA 02110-1301 USA
  22  */
  23 /* $TOG: dtscreen.c /main/6 1998/04/20 12:58:46 mgreess $ */
  24 /*
  25  */
  26
  27 /*-
  28  * dtscreen.c - X11 client to lock a display and show a screen saver.
  29  *
  30  * Copyright (c) 1988-91 by Patrick J. Naughton.
  31  *
  32  * Permission to use, copy, modify, and distribute this software and its
  33  * documentation for any purpose and without fee is hereby granted,
  34  * provided that the above copyright notice appear in all copies and that
  35  * both that copyright notice and this permission notice appear in
  36  * supporting documentation.
  37  *
  38  * This file is provided AS IS with no warranties of any kind.  The author
  39  * shall have no liability with respect to the infringement of copyrights,
  40  * trade secrets or any patents by this file or any part thereof.  In no
  41  * event will the author be liable for any lost revenue or profits or
  42  * other special, indirect and consequential damages.
  43  *
  44  * Comments and additions should be sent to the author:
  45  *
  46  *                     naughton@eng.sun.com
  47  *
  48  *                     Patrick J. Naughton
  49  *                     MS 21-14
  50  *                     Sun Laboritories, Inc.
  51  *                     2550 Garcia Ave
  52  *                     Mountain View, CA  94043
  53  *
  54  * Revision History:
  55  * 16-May-91: added pyro and random modes.
  56  *            ripped big comment block out of all other files.
  57  * 29-Oct-90: added cast to XFree() arg.
  58  *            added volume arg to call to XBell().
  59  * 31-Aug-90: added blank mode.
  60  *            added swarm mode.
  61  *            moved usleep() and seconds() out to usleep.c.
  62  *            added SVR4 defines to dtscreen.h
  63  * 29-Jul-90: added support for multiple screens to be locked by one dtscreen.
  64  *            moved global defines to dtscreen.h
  65  *            removed use of allowsig().
  66  * 07-Jul-90: reworked commandline args and resources to use Xrm.
  67  *            moved resource processing out to resource.c
  68  * 02-Jul-90: reworked colors to not use dynamic colormap.
  69  * 23-May-90: added autoraise when obscured.
  70  * 18-Feb-90: added SunOS3.5 fix.
  71  *            changed -mono -> -color, and -saver -> -lock.
  72  *            allow non-locking screensavers to display on remote machine.
  73  *            added -echokeys to disable echoing of '?'s on input.
  74  *            cleaned up all of the parameters and defaults.
  75  * 23-Sep-89: Added fix to allow local hostname:0 as a display.
  76  *            Put empty case for Enter/Leave events.
  77  *            Moved colormap installation later in startup.
  78  * 19-Sep-89: Added '?'s on input.
  79  * 27-Mar-89: Added -qix mode.
  80  *            Fixed GContext->GC.
  81  * 08-Mar-89: Added -nice, -mode and -display, built vector for life and hop.
  82  * 24-Feb-89: Replaced hopalong display with life display from SunView1.
  83  * 22-Feb-89: Added fix for color servers with n < 8 planes.
  84  * 16-Feb-89: Updated calling conventions for XCreateHsbColormap();
  85  *            Added -count for number of iterations per color.
  86  *            Fixed defaulting mechanism.
  87  *            Ripped out VMS hacks.
  88  *            Sent to expo for X11R3 contrib.
  89  * 19-Jan-89: Fixed monochrome gc bug.
  90  * 19-Sep-88: Changed -color to -mono. (default is color on color displays).
  91  *            Added -saver option. (just do display... don't lock.)
  92  * 01-Apr-88: Added XGrabServer/XUngrabServer for more security.
  93  * 27-Mar-88: Rotate fractal by 45 degrees clockwise.
  94  * 24-Mar-88: Added color support. [-color]
  95  *            wrote the man page.
  96  * 23-Mar-88: Added HOPALONG routines from Scientific American Sept. 86 p. 14.
  97  *            added requirement for display to be "unix:0".
  98  * 22-Mar-88: Recieved Walter Milliken's comp.windows.x posting.
  99  *
 100  */
 101
 102 /*              include file for message texts          */
 103 #include <limits.h>
 104 #include <nl_types.h>
 105 #define MF_DTSCREEN "dtscreen"
 106
 107 #include <nl_types.h>
 108 #include <locale.h>
 109 nl_catd  scmc_catd;   /* Cat descriptor for scmc conversion */
 110
 111 #include <stdio.h>
 112 #include <signal.h>
 113 #include <string.h>
 114
 115 #include <X11/Intrinsic.h> /* For Boolean */
 116 #include <X11/Shell.h>
 117 #include "dtscreen.h"
 118 #ifdef NEVER
 119 /* We'd like to include DtP.h, but it interferes with dtscreen.h */
 120 # include <Dt/DtP.h>
 121 #endif /* NEVER */
 122 #include <Dt/EnvControlP.h>
 123 #include <Dt/Saver.h>
 124
 125 #if !defined(NL_CAT_LOCALE)
 126 #define NL_CAT_LOCALE 0
 127 #endif
 128
 129 char       *ProgramName;        /* argv[0] */
 130 Display    *dsp = NULL;         /* server display connection */
 131 void        (*callback) () = NULL;
 132 void        (*init) () = NULL;
 133
 134 static perwindow *Win; /* perwindow information */
 135 static int  windows;            /* number of windows */
 136 static Window *winprop = NULL;  /* dtsession cover windows */
 137
 138 /* VARARGS1 */
 139 void
 140 error(s1, s2)
 141     char       *s1, *s2;
 142 {
 143     fprintf(stderr, s1, ProgramName, s2);
 144     exit(1);
 145 }
 146
 147 /*
 148  * Restore all grabs, reset screensaver, restore colormap, close connection.
 149  */
 150 static void
 151 finish()
 152 {
 153     XSync(dsp, False);
 154     if (winprop)
 155       XFree((char *)winprop);
 156     XFlush(dsp);
 157     XCloseDisplay(dsp);
 158 }
 159
 160
 161 static void
 162 justDisplay()
 163 {
 164     XEvent      event;
 165     int window;
 166
 167     for (window = 0; window < windows; window++)
 168         init(Win+window);
 169     do {
 170         while (!XPending(dsp)) {
 171             for (window = 0; window < windows; window++)
 172                 callback(Win+window);
 173             XSync(dsp, False);
 174             usleep(delay);
 175         }
 176         XNextEvent(dsp, &event);
 177
 178 #ifndef DEBUG
 179         if (event.type == VisibilityNotify)
 180             XRaiseWindow(dsp, event.xany.window);
 181 #endif
 182     } while (1);
 183 }
 184
 185
 186 long
 187 allocpixel(cmap, name, def)
 188     Colormap    cmap;
 189     char       *name;
 190     char       *def;
 191 {
 192     XColor      col;
 193     XColor      tmp;
 194     XParseColor(dsp, cmap, name, &col);
 195     if (!XAllocColor(dsp, cmap, &col)) {
 196 #ifdef MIT_R5
 197
 198         fprintf(stderr,
 199              "couldn't allocate: %s, using %s instead\n",
 200                 name, def);
 201
 202 #else
 203         fprintf(stderr, catgets(scmc_catd, 2, 35,
 204              "couldn't allocate: %s, using %s instead\n"),
 205                 name, def);
 206 #endif
 207
 208         XAllocNamedColor(dsp, cmap, def, &col, &tmp);
 209     }
 210     return col.pixel;
 211 }
 212
 213
 214 int
 215 main(argc, argv)
 216     int         argc;
 217     char       *argv[];
 218 {
 219     XSetWindowAttributes xswa;
 220     XGCValues   xgcv;
 221     XColor      nullcolor;
 222     int         nitems = 0;
 223     int         window;
 224     int i;
 225
 226    /*
 227     * So we can find the app-defaults file.
 228     */
 229     _DtEnvControl(DT_ENV_SET);
 230
 231     /* set locale to what is defined by local environment */
 232     setlocale(LC_ALL,"");
 233     scmc_catd = catopen(MF_DTSCREEN, NL_CAT_LOCALE);
 234
 235     ProgramName = strrchr(argv[0], '/');
 236     if (ProgramName)
 237         ProgramName++;
 238     else
 239         ProgramName = argv[0];
 240
 241     srandom(time((time_t *) 0));  /* random mode needs the seed set. */
 242
 243     GetResources(argc, argv);
 244
 245     CheckResources();
 246
 247    if (!create)
 248    {
 249      /* Make sure DtSvc is initialized properly. */
 250      XtAppContext appContext;
 251      Widget shellWidget;
 252      int dummyArgc = 1;
 253      char *dummyArgv[1];
 254
 255      dummyArgv[0] = ProgramName;
 256      XtToolkitInitialize();
 257      appContext = XtCreateApplicationContext();
 258      XtDisplayInitialize(appContext, dsp, ProgramName, ProgramName,
 259                          NULL, 0, &dummyArgc, dummyArgv);
 260      shellWidget = XtAppCreateShell(ProgramName, ProgramName,
 261                                     applicationShellWidgetClass,
 262                                     dsp, NULL, 0);
 263      DtAppInitialize(appContext, dsp, shellWidget,
 264                      ProgramName, ProgramName);
 265
 266      /*
 267       * Try to get array of window ids from desktop. Also returned is
 268       * a property identifier whose change will tell us when to terminate.
 269       */
 270       if (!DtSaverGetWindows(dsp, &winprop, &nitems))
 271       {
 272         fprintf(stderr, catgets(scmc_catd, 2, 40,
 273              "%s: Cannot locate window in which to draw. Using the -create\n"
 274              "option will cause %s to create its own window.\n"),
 275              ProgramName, ProgramName);
 276
 277         exit(1);
 278       }
 279
 280       Win = (perwindow *)malloc(nitems * sizeof(perwindow));
 281       windows = nitems;
 282       for (window = 0; window < windows; window++)
 283       {
 284         Win[window].w = winprop[window];
 285         Win[window].perscreen = NULL;
 286         Win[window].data = NULL;
 287       }
 288     }
 289     else
 290     {
 291       Screen     *scr = ScreenOfDisplay(dsp, 0);
 292
 293       Win = (perwindow *)malloc(sizeof(perwindow));
 294       windows = 1;
 295       xswa.override_redirect = True;
 296       xswa.background_pixel = BlackPixelOfScreen(scr);
 297       xswa.event_mask = VisibilityChangeMask;
 298
 299       Win[0].w = XCreateWindow(
 300                       dsp,
 301                       RootWindowOfScreen(scr),
 302                       0, 0,
 303                       WidthOfScreen(scr) - 100, HeightOfScreen(scr) - 100,
 304                       0, CopyFromParent, InputOutput, CopyFromParent,
 305                       CWBackPixel | CWEventMask, &xswa);
 306       Win[0].perscreen = NULL;
 307       Win[0].data = NULL;
 308       XMapWindow(dsp, Win[0].w);
 309       XRaiseWindow(dsp, Win[0].w);
 310     }
 311
 312     for (window = 0; window < windows; window++)
 313     {
 314       XWindowAttributes attr;
 315
 316       XGetWindowAttributes(dsp, Win[window].w, &attr);
 317
 318       for (i = 0; i < window; i++)
 319       {
 320         if (Win[i].perscreen && Win[i].perscreen->screen == attr.screen)
 321         {
 322           Win[window].perscreen = Win[i].perscreen;
 323           break;
 324         }
 325       }
 326
 327       if (Win[window].perscreen == NULL)
 328       {
 329         Colormap cmap;
 330         perscreen *pscreen;
 331
 332         pscreen = (perscreen *)malloc(sizeof(perscreen));
 333         Win[window].perscreen = pscreen;
 334
 335         pscreen->screen = attr.screen;
 336         cmap = DefaultColormapOfScreen(pscreen->screen);
 337
 338         pscreen->pixels[0] = allocpixel(cmap, "White", "White");
 339         pscreen->pixels[1] = allocpixel(cmap, "Black", "Black");
 340         if (mono || CellsOfScreen(pscreen->screen) == 2)
 341         {
 342           pscreen->npixels = 2;
 343         }
 344         else
 345         {
 346           int         colorcount = NUMCOLORS;
 347           u_char      red[NUMCOLORS];
 348           u_char      green[NUMCOLORS];
 349           u_char      blue[NUMCOLORS];
 350
 351           hsbramp(0.0, saturation, 1.0, 1.0, saturation, 1.0, colorcount,
 352                       red, green, blue);
 353           pscreen->npixels = 0;
 354           for (i = 0; i < colorcount; i++)
 355           {
 356             XColor      xcolor;
 357
 358             xcolor.red = red[i] << 8;
 359             xcolor.green = green[i] << 8;
 360             xcolor.blue = blue[i] << 8;
 361             xcolor.flags = DoRed | DoGreen | DoBlue;
 362
 363             if (!XAllocColor(dsp, cmap, &xcolor))
 364                 break;
 365
 366             pscreen->pixels[i] = xcolor.pixel;
 367             pscreen->npixels++;
 368           }
 369         }
 370       }
 371
 372       xgcv.foreground = WhitePixelOfScreen(Win[window].perscreen->screen);
 373       xgcv.background = BlackPixelOfScreen(Win[window].perscreen->screen);
 374       Win[window].gc = XCreateGC(dsp, Win[window].w,
 375                          GCForeground | GCBackground, &xgcv);
 376     }
 377     nice(nicelevel);
 378
 379     justDisplay();
 380
 381     finish();
 382
 383     return 0;
 384 }