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 <stdlib.h>
 113 #include <signal.h>
 114 #include <string.h>
 115
 116 #include <X11/Intrinsic.h> /* For Boolean */
 117 #include <X11/Shell.h>
 118 #include "dtscreen.h"
 119 #ifdef NEVER
 120 /* We'd like to include DtP.h, but it interferes with dtscreen.h */
 121 # include <Dt/DtP.h>
 122 #endif /* NEVER */
 123 #include <Dt/EnvControlP.h>
 124 #include <Dt/Saver.h>
 125
 126 #if !defined(NL_CAT_LOCALE)
 127 #define NL_CAT_LOCALE 0
 128 #endif
 129
 130 char       *ProgramName;        /* argv[0] */
 131 Display    *dsp = NULL;         /* server display connection */
 132 void        (*callback) () = NULL;
 133 void        (*init) () = NULL;
 134
 135 static perwindow *Win; /* perwindow information */
 136 static int  windows;            /* number of windows */
 137 static Window *winprop = NULL;  /* dtsession cover windows */
 138
 139 /* VARARGS1 */
 140 void
 141 error(s1, s2)
 142     char       *s1, *s2;
 143 {
 144     fprintf(stderr, s1, ProgramName, s2);
 145     exit(1);
 146 }
 147
 148 /*
 149  * Restore all grabs, reset screensaver, restore colormap, close connection.
 150  */
 151 static void
 152 finish()
 153 {
 154     XSync(dsp, False);
 155     if (winprop)
 156       XFree((char *)winprop);
 157     XFlush(dsp);
 158     XCloseDisplay(dsp);
 159 }
 160
 161
 162 static void
 163 justDisplay()
 164 {
 165     XEvent      event;
 166     int window;
 167
 168     for (window = 0; window < windows; window++)
 169         init(Win+window);
 170     do {
 171         while (!XPending(dsp)) {
 172             for (window = 0; window < windows; window++)
 173                 callback(Win+window);
 174             XSync(dsp, False);
 175             usleep(delay);
 176         }
 177         XNextEvent(dsp, &event);
 178
 179 #ifndef DEBUG
 180         if (event.type == VisibilityNotify)
 181             XRaiseWindow(dsp, event.xany.window);
 182 #endif
 183     } while (1);
 184 }
 185
 186
 187 long
 188 allocpixel(cmap, name, def)
 189     Colormap    cmap;
 190     char       *name;
 191     char       *def;
 192 {
 193     XColor      col;
 194     XColor      tmp;
 195     XParseColor(dsp, cmap, name, &col);
 196     if (!XAllocColor(dsp, cmap, &col)) {
 197 #ifdef MIT_R5
 198
 199         fprintf(stderr,
 200              "couldn't allocate: %s, using %s instead\n",
 201                 name, def);
 202
 203 #else
 204         fprintf(stderr, catgets(scmc_catd, 2, 35,
 205              "couldn't allocate: %s, using %s instead\n"),
 206                 name, def);
 207 #endif
 208
 209         XAllocNamedColor(dsp, cmap, def, &col, &tmp);
 210     }
 211     return col.pixel;
 212 }
 213
 214
 215 int
 216 main(argc, argv)
 217     int         argc;
 218     char       *argv[];
 219 {
 220     XSetWindowAttributes xswa;
 221     XGCValues   xgcv;
 222     XColor      nullcolor;
 223     int         nitems = 0;
 224     int         window;
 225     int i;
 226
 227    /*
 228     * So we can find the app-defaults file.
 229     */
 230     _DtEnvControl(DT_ENV_SET);
 231
 232     /* set locale to what is defined by local environment */
 233     setlocale(LC_ALL,"");
 234     scmc_catd = catopen(MF_DTSCREEN, NL_CAT_LOCALE);
 235
 236     ProgramName = strrchr(argv[0], '/');
 237     if (ProgramName)
 238         ProgramName++;
 239     else
 240         ProgramName = argv[0];
 241
 242     srandom(time((time_t *) 0));  /* random mode needs the seed set. */
 243
 244     GetResources(argc, argv);
 245
 246     CheckResources();
 247
 248    if (!create)
 249    {
 250      /* Make sure DtSvc is initialized properly. */
 251      XtAppContext appContext;
 252      Widget shellWidget;
 253      int dummyArgc = 1;
 254      char *dummyArgv[1];
 255
 256      dummyArgv[0] = ProgramName;
 257      XtToolkitInitialize();
 258      appContext = XtCreateApplicationContext();
 259      XtDisplayInitialize(appContext, dsp, ProgramName, ProgramName,
 260                          NULL, 0, &dummyArgc, dummyArgv);
 261      shellWidget = XtAppCreateShell(ProgramName, ProgramName,
 262                                     applicationShellWidgetClass,
 263                                     dsp, NULL, 0);
 264      DtAppInitialize(appContext, dsp, shellWidget,
 265                      ProgramName, ProgramName);
 266
 267      /*
 268       * Try to get array of window ids from desktop. Also returned is
 269       * a property identifier whose change will tell us when to terminate.
 270       */
 271       if (!DtSaverGetWindows(dsp, &winprop, &nitems))
 272       {
 273         fprintf(stderr, catgets(scmc_catd, 2, 40,
 274              "%s: Cannot locate window in which to draw. Using the -create\n"
 275              "option will cause %s to create its own window.\n"),
 276              ProgramName, ProgramName);
 277
 278         exit(1);
 279       }
 280
 281       Win = (perwindow *)malloc(nitems * sizeof(perwindow));
 282       windows = nitems;
 283       for (window = 0; window < windows; window++)
 284       {
 285         Win[window].w = winprop[window];
 286         Win[window].perscreen = NULL;
 287         Win[window].data = NULL;
 288       }
 289     }
 290     else
 291     {
 292       Screen     *scr = ScreenOfDisplay(dsp, 0);
 293
 294       Win = (perwindow *)malloc(sizeof(perwindow));
 295       windows = 1;
 296       xswa.override_redirect = True;
 297       xswa.background_pixel = BlackPixelOfScreen(scr);
 298       xswa.event_mask = VisibilityChangeMask;
 299
 300       Win[0].w = XCreateWindow(
 301                       dsp,
 302                       RootWindowOfScreen(scr),
 303                       0, 0,
 304                       WidthOfScreen(scr) - 100, HeightOfScreen(scr) - 100,
 305                       0, CopyFromParent, InputOutput, CopyFromParent,
 306                       CWBackPixel | CWEventMask, &xswa);
 307       Win[0].perscreen = NULL;
 308       Win[0].data = NULL;
 309       XMapWindow(dsp, Win[0].w);
 310       XRaiseWindow(dsp, Win[0].w);
 311     }
 312
 313     for (window = 0; window < windows; window++)
 314     {
 315       XWindowAttributes attr;
 316
 317       XGetWindowAttributes(dsp, Win[window].w, &attr);
 318
 319       for (i = 0; i < window; i++)
 320       {
 321         if (Win[i].perscreen && Win[i].perscreen->screen == attr.screen)
 322         {
 323           Win[window].perscreen = Win[i].perscreen;
 324           break;
 325         }
 326       }
 327
 328       if (Win[window].perscreen == NULL)
 329       {
 330         Colormap cmap;
 331         perscreen *pscreen;
 332
 333         pscreen = (perscreen *)malloc(sizeof(perscreen));
 334         Win[window].perscreen = pscreen;
 335
 336         pscreen->screen = attr.screen;
 337         cmap = DefaultColormapOfScreen(pscreen->screen);
 338
 339         pscreen->pixels[0] = allocpixel(cmap, "White", "White");
 340         pscreen->pixels[1] = allocpixel(cmap, "Black", "Black");
 341         if (mono || CellsOfScreen(pscreen->screen) == 2)
 342         {
 343           pscreen->npixels = 2;
 344         }
 345         else
 346         {
 347           int         colorcount = NUMCOLORS;
 348           u_char      red[NUMCOLORS];
 349           u_char      green[NUMCOLORS];
 350           u_char      blue[NUMCOLORS];
 351
 352           hsbramp(0.0, saturation, 1.0, 1.0, saturation, 1.0, colorcount,
 353                       red, green, blue);
 354           pscreen->npixels = 0;
 355           for (i = 0; i < colorcount; i++)
 356           {
 357             XColor      xcolor;
 358
 359             xcolor.red = red[i] << 8;
 360             xcolor.green = green[i] << 8;
 361             xcolor.blue = blue[i] << 8;
 362             xcolor.flags = DoRed | DoGreen | DoBlue;
 363
 364             if (!XAllocColor(dsp, cmap, &xcolor))
 365                 break;
 366
 367             pscreen->pixels[i] = xcolor.pixel;
 368             pscreen->npixels++;
 369           }
 370         }
 371       }
 372
 373       xgcv.foreground = WhitePixelOfScreen(Win[window].perscreen->screen);
 374       xgcv.background = BlackPixelOfScreen(Win[window].perscreen->screen);
 375       Win[window].gc = XCreateGC(dsp, Win[window].w,
 376                          GCForeground | GCBackground, &xgcv);
 377     }
 378     nice(nicelevel);
 379
 380     justDisplay();
 381
 382     finish();
 383
 384     return 0;
 385 }