small fix
[xscreensaver] / xscreensaver / hacks / screenhack.c
1 /* xscreensaver, Copyright (c) 1992-2010 Jamie Zawinski <jwz@jwz.org>
2  *
3  * Permission to use, copy, modify, distribute, and sell this software and its
4  * documentation for any purpose is hereby granted without fee, provided that
5  * the above copyright notice appear in all copies and that both that
6  * copyright notice and this permission notice appear in supporting
7  * documentation.  No representations are made about the suitability of this
8  * software for any purpose.  It is provided "as is" without express or 
9  * implied warranty.
10  *
11  * And remember: X Windows is to graphics hacking as roman numerals are to
12  * the square root of pi.
13  */
14
15 /* This file contains simple code to open a window or draw on the root.
16    The idea being that, when writing a graphics hack, you can just link
17    with this .o to get all of the uninteresting junk out of the way.
18
19    Create a few static global procedures and variables:
20
21       static void *YOURNAME_init (Display *, Window);
22
23           Return an opaque structure representing your drawing state.
24
25       static unsigned long YOURNAME_draw (Display *, Window, void *closure);
26
27           Draw one frame.
28           The `closure' arg is your drawing state, that you created in `init'.
29           Return the number of microseconds to wait until the next frame.
30
31           This should return in some small fraction of a second. 
32           Do not call `usleep' or loop excessively.  For long loops, use a
33           finite state machine.
34
35       static void YOURNAME_reshape (Display *, Window, void *closure,
36                                     unsigned int width, unsigned int height);
37
38           Called when the size of the window changes with the new size.
39
40       static Bool YOURNAME_event (Display *, Window, void *closure,
41                                   XEvent *event);
42
43           Called when a keyboard or mouse event arrives.
44           Return True if you handle it in some way, False otherwise.
45
46       static void YOURNAME_free (Display *, Window, void *closure);
47
48            Called when you are done: free everything you've allocated,
49            including your private `state' structure.  
50
51            NOTE: this is called in windowed-mode when the user typed
52            'q' or clicks on the window's close box; but when
53            xscreensaver terminates this screenhack, it does so by
54            killing the process with SIGSTOP.  So this callback is
55            mostly useless.
56
57       static char YOURNAME_defaults [] = { "...", "...", ... , 0 };
58
59            This variable is an array of strings, your default resources.
60            Null-terminate the list.
61
62       static XrmOptionDescRec YOURNAME_options[] = { { ... }, ... { 0,0,0,0 } }
63
64            This variable describes your command-line options.
65            Null-terminate the list.
66
67       Finally , invoke the XSCREENSAVER_MODULE() macro to tie it all together.
68
69    Additional caveats:
70
71       - Make sure that all functions in your module are static (check this
72         by running "nm -g" on the .o file).
73
74       - Do not use global variables: all such info must be stored in the
75         private `state' structure.
76
77       - Do not use static function-local variables, either.  Put it in `state'.
78
79         Assume that there are N independent runs of this code going in the
80         same address space at the same time: they must not affect each other.
81
82       - Don't forget to write an XML file to describe the user interface
83         of your screen saver module.  See .../hacks/config/README for details.
84  */
85
86 #define DEBUG_PAIR
87
88 #include <stdio.h>
89 #include <X11/Intrinsic.h>
90 #include <X11/IntrinsicP.h>
91 #include <X11/CoreP.h>
92 #include <X11/Shell.h>
93 #include <X11/StringDefs.h>
94 #include <X11/keysym.h>
95 /* #include <libosso.h> */
96 #include <dbus/dbus.h>
97 /* #include <dbus/dbus-glib.h>  */
98
99 #ifdef __sgi
100 # include <X11/SGIScheme.h>     /* for SgiUseSchemes() */
101 #endif /* __sgi */
102
103 #ifdef HAVE_XMU
104 # ifndef VMS
105 #  include <X11/Xmu/Error.h>
106 # else /* VMS */
107 #  include <Xmu/Error.h>
108 # endif
109 #else
110 # include "xmu.h"
111 #endif
112
113 #include "screenhackI.h"
114 #include "version.h"
115 #include "vroot.h"
116 #include "fps.h"
117
118 #ifndef _XSCREENSAVER_VROOT_H_
119 # error Error!  You have an old version of vroot.h!  Check -I args.
120 #endif /* _XSCREENSAVER_VROOT_H_ */
121
122 #ifndef isupper
123 # define isupper(c)  ((c) >= 'A' && (c) <= 'Z')
124 #endif
125 #ifndef _tolower
126 # define _tolower(c)  ((c) - 'A' + 'a')
127 #endif
128
129
130 /* This is defined by the SCREENHACK_MAIN() macro via screenhack.h.
131  */
132 extern struct xscreensaver_function_table *xscreensaver_function_table;
133
134
135 const char *progname;   /* used by hacks in error messages */
136 const char *progclass;  /* used by ../utils/resources.c */
137 Bool mono_p;            /* used by hacks */
138
139
140 static XrmOptionDescRec default_options [] = {
141   { "-root",    ".root",                XrmoptionNoArg, "True" },
142   { "-window",  ".root",                XrmoptionNoArg, "False" },
143   { "-mono",    ".mono",                XrmoptionNoArg, "True" },
144   { "-install", ".installColormap",     XrmoptionNoArg, "True" },
145   { "-noinstall",".installColormap",    XrmoptionNoArg, "False" },
146   { "-visual",  ".visualID",            XrmoptionSepArg, 0 },
147   { "-window-id", ".windowID",          XrmoptionSepArg, 0 },
148   { "-fps",     ".doFPS",               XrmoptionNoArg, "True" },
149   { "-no-fps",  ".doFPS",               XrmoptionNoArg, "False" },
150   { "-view",  ".view",                  XrmoptionSepArg, 1 },
151
152 # ifdef DEBUG_PAIR
153   { "-pair",    ".pair",                XrmoptionNoArg, "True" },
154 # endif /* DEBUG_PAIR */
155   { 0, 0, 0, 0 }
156 };
157
158 static char *default_defaults[] = {
159   ".root:               false",
160   "*geometry:           600x480", /* this should be .geometry, but nooooo... */
161   "*mono:               false",
162   "*installColormap:    false",
163   "*doFPS:              false",
164   "*visualID:           default",
165   "*windowID:           ",
166   "*desktopGrabber:     xscreensaver-getimage %s",
167   0
168 };
169
170 static XrmOptionDescRec *merged_options;
171 static int merged_options_size;
172 static char **merged_defaults;
173
174
175 static void
176 merge_options (void)
177 {
178   struct xscreensaver_function_table *ft = xscreensaver_function_table;
179
180   const XrmOptionDescRec *options = ft->options;
181   const char * const *defaults    = ft->defaults;
182   const char *progclass           = ft->progclass;
183
184   int def_opts_size, opts_size;
185   int def_defaults_size, defaults_size;
186
187   for (def_opts_size = 0; default_options[def_opts_size].option;
188        def_opts_size++)
189     ;
190   for (opts_size = 0; options[opts_size].option; opts_size++)
191     ;
192
193   merged_options_size = def_opts_size + opts_size;
194   merged_options = (XrmOptionDescRec *)
195     malloc ((merged_options_size + 1) * sizeof(*default_options));
196   memcpy (merged_options, default_options,
197           (def_opts_size * sizeof(*default_options)));
198   memcpy (merged_options + def_opts_size, options,
199           ((opts_size + 1) * sizeof(*default_options)));
200
201   for (def_defaults_size = 0; default_defaults[def_defaults_size];
202        def_defaults_size++)
203     ;
204   for (defaults_size = 0; defaults[defaults_size]; defaults_size++)
205     ;
206   merged_defaults = (char **)
207     malloc ((def_defaults_size + defaults_size + 1) * sizeof (*defaults));;
208   memcpy (merged_defaults, default_defaults,
209           def_defaults_size * sizeof(*defaults));
210   memcpy (merged_defaults + def_defaults_size, defaults,
211           (defaults_size + 1) * sizeof(*defaults));
212
213   /* This totally sucks.  Xt should behave like this by default.
214      If the string in `defaults' looks like ".foo", change that
215      to "Progclass.foo".
216    */
217   {
218     char **s;
219     for (s = merged_defaults; *s; s++)
220       if (**s == '.')
221         {
222           const char *oldr = *s;
223           char *newr = (char *) malloc(strlen(oldr) + strlen(progclass) + 3);
224           strcpy (newr, progclass);
225           strcat (newr, oldr);
226           *s = newr;
227         }
228       else
229         *s = strdup (*s);
230   }
231 }
232
233 \f
234 /* Make the X errors print out the name of this program, so we have some
235    clue which one has a bug when they die under the screensaver.
236  */
237
238 static int
239 screenhack_ehandler (Display *dpy, XErrorEvent *error)
240 {
241   fprintf (stderr, "\nX error in %s:\n", progname);
242   if (XmuPrintDefaultErrorMessage (dpy, error, stderr))
243     exit (-1);
244   else
245     fprintf (stderr, " (nonfatal.)\n");
246   return 0;
247 }
248
249 static Bool
250 MapNotify_event_p (Display *dpy, XEvent *event, XPointer window)
251 {
252   return (event->xany.type == MapNotify &&
253           event->xvisibility.window == (Window) window);
254 }
255
256
257 static Atom XA_WM_PROTOCOLS, XA_WM_DELETE_WINDOW;
258
259 /* Dead-trivial event handling: exits if "q" or "ESC" are typed.
260    Exit if the WM_PROTOCOLS WM_DELETE_WINDOW ClientMessage is received.
261    Returns False if the screen saver should now terminate.
262  */
263 static Bool
264 screenhack_handle_event_1 (Display *dpy, XEvent *event)
265 {
266   switch (event->xany.type)
267     {
268     case KeyPress:
269       {
270         KeySym keysym;
271         char c = 0;
272         XLookupString (&event->xkey, &c, 1, &keysym, 0);
273         if (c == 'q' ||
274             c == 'Q' ||
275             c == 3 ||   /* ^C */
276             c == 27)    /* ESC */
277           return False;  /* exit */
278         else if (! (keysym >= XK_Shift_L && keysym <= XK_Hyper_R))
279           XBell (dpy, 0);  /* beep for non-chord keys */
280       }
281       break;
282     case ButtonPress:
283       XBell (dpy, 0);
284       break;
285     case ClientMessage:
286       {
287         if (event->xclient.message_type != XA_WM_PROTOCOLS)
288           {
289             char *s = XGetAtomName(dpy, event->xclient.message_type);
290             if (!s) s = "(null)";
291             fprintf (stderr, "%s: unknown ClientMessage %s received!\n",
292                      progname, s);
293           }
294         else if (event->xclient.data.l[0] != XA_WM_DELETE_WINDOW)
295           {
296             char *s1 = XGetAtomName(dpy, event->xclient.message_type);
297             char *s2 = XGetAtomName(dpy, event->xclient.data.l[0]);
298             if (!s1) s1 = "(null)";
299             if (!s2) s2 = "(null)";
300             fprintf (stderr, "%s: unknown ClientMessage %s[%s] received!\n",
301                      progname, s1, s2);
302           }
303         else
304           {
305             return False;  /* exit */
306           }
307       }
308       break;
309     }
310   return True;
311 }
312
313
314 static Visual *
315 pick_visual (Screen *screen)
316 {
317   struct xscreensaver_function_table *ft = xscreensaver_function_table;
318
319   if (ft->pick_visual_hook)
320     {
321       Visual *v = ft->pick_visual_hook (screen);
322       if (v) return v;
323     }
324
325   return get_visual_resource (screen, "visualID", "VisualID", False);
326 }
327
328
329 /* Notice when the user has requested a different visual or colormap
330    on a pre-existing window (e.g., "-root -visual truecolor" or
331    "-window-id 0x2c00001 -install") and complain, since when drawing
332    on an existing window, we have no choice about these things.
333  */
334 static void
335 visual_warning (Screen *screen, Window window, Visual *visual, Colormap cmap,
336                 Bool window_p)
337 {
338   struct xscreensaver_function_table *ft = xscreensaver_function_table;
339
340   char *visual_string = get_string_resource (DisplayOfScreen (screen),
341                                              "visualID", "VisualID");
342   Visual *desired_visual = pick_visual (screen);
343   char win[100];
344   char why[100];
345
346   if (window == RootWindowOfScreen (screen))
347     strcpy (win, "root window");
348   else
349     sprintf (win, "window 0x%lx", (unsigned long) window);
350
351   if (window_p)
352     sprintf (why, "-window-id 0x%lx", (unsigned long) window);
353   else
354     strcpy (why, "-root");
355
356   if (visual_string && *visual_string)
357     {
358       char *s;
359       for (s = visual_string; *s; s++)
360         if (isupper (*s)) *s = _tolower (*s);
361
362       if (!strcmp (visual_string, "default") ||
363           !strcmp (visual_string, "default") ||
364           !strcmp (visual_string, "best"))
365         /* don't warn about these, just silently DWIM. */
366         ;
367       else if (visual != desired_visual)
368         {
369           fprintf (stderr, "%s: ignoring `-visual %s' because of `%s'.\n",
370                    progname, visual_string, why);
371           fprintf (stderr, "%s: using %s's visual 0x%lx.\n",
372                    progname, win, XVisualIDFromVisual (visual));
373         }
374       free (visual_string);
375     }
376
377   if (visual == DefaultVisualOfScreen (screen) &&
378       has_writable_cells (screen, visual) &&
379       get_boolean_resource (DisplayOfScreen (screen),
380                             "installColormap", "InstallColormap"))
381     {
382       fprintf (stderr, "%s: ignoring `-install' because of `%s'.\n",
383                progname, why);
384       fprintf (stderr, "%s: using %s's colormap 0x%lx.\n",
385                progname, win, (unsigned long) cmap);
386     }
387
388   if (ft->validate_visual_hook)
389     {
390       if (! ft->validate_visual_hook (screen, win, visual))
391         exit (1);
392     }
393 }
394
395
396 static void
397 fix_fds (void)
398 {
399   /* Bad Things Happen if stdin, stdout, and stderr have been closed
400      (as by the `sh incantation "attraction >&- 2>&-").  When you do
401      that, the X connection gets allocated to one of these fds, and
402      then some random library writes to stderr, and random bits get
403      stuffed down the X pipe, causing "Xlib: sequence lost" errors.
404      So, we cause the first three file descriptors to be open to
405      /dev/null if they aren't open to something else already.  This
406      must be done before any other files are opened (or the closing
407      of that other file will again free up one of the "magic" first
408      three FDs.)
409
410      We do this by opening /dev/null three times, and then closing
411      those fds, *unless* any of them got allocated as #0, #1, or #2,
412      in which case we leave them open.  Gag.
413
414      Really, this crap is technically required of *every* X program,
415      if you want it to be robust in the face of "2>&-".
416    */
417   int fd0 = open ("/dev/null", O_RDWR);
418   int fd1 = open ("/dev/null", O_RDWR);
419   int fd2 = open ("/dev/null", O_RDWR);
420   if (fd0 > 2) close (fd0);
421   if (fd1 > 2) close (fd1);
422   if (fd2 > 2) close (fd2);
423 }
424
425
426 static Boolean
427 screenhack_table_handle_events (Display *dpy,
428                                 const struct xscreensaver_function_table *ft,
429                                 Window window, void *closure
430 #ifdef DEBUG_PAIR
431                                 , Window window2, void *closure2
432 #endif
433                                 )
434 {
435   XtAppContext app = XtDisplayToApplicationContext (dpy);
436
437   if (XtAppPending (app) & (XtIMTimer|XtIMAlternateInput))
438     XtAppProcessEvent (app, XtIMTimer|XtIMAlternateInput);
439
440   while (XPending (dpy))
441     {
442       XEvent event;
443       XNextEvent (dpy, &event);
444
445       if (event.xany.type == ConfigureNotify)
446         {
447           if (event.xany.window == window)
448             ft->reshape_cb (dpy, window, closure,
449                             event.xconfigure.width, event.xconfigure.height);
450 #ifdef DEBUG_PAIR
451           if (event.xany.window == window2)
452             ft->reshape_cb (dpy, window2, closure2,
453                             event.xconfigure.width, event.xconfigure.height);
454 #endif
455         }
456       else if (event.xany.type == ClientMessage ||
457                (! (event.xany.window == window
458                    ? ft->event_cb (dpy, window, closure, &event)
459 #ifdef DEBUG_PAIR
460                    : event.xany.window == window2
461                    ? ft->event_cb (dpy, window2, closure2, &event)
462 #endif
463                    : 0)))
464         if (! screenhack_handle_event_1 (dpy, &event))
465           return False;
466
467       if (XtAppPending (app) & (XtIMTimer|XtIMAlternateInput))
468         XtAppProcessEvent (app, XtIMTimer|XtIMAlternateInput);
469     }
470   return True;
471 }
472
473
474 static Boolean
475 usleep_and_process_events (Display *dpy,
476                            const struct xscreensaver_function_table *ft,
477                            Window window, fps_state *fpst, void *closure,
478                            unsigned long delay
479 #ifdef DEBUG_PAIR
480                          , Window window2, fps_state *fpst2, void *closure2,
481                            unsigned long delay2
482 #endif
483                            )
484 {
485   do {
486     unsigned long quantum = 100000;  /* 1/10th second */
487     if (quantum > delay) 
488       quantum = delay;
489     delay -= quantum;
490
491     XSync (dpy, False);
492     if (quantum > 0)
493       {
494         usleep (quantum);
495         if (fpst) fps_slept (fpst, quantum);
496 #ifdef DEBUG_PAIR
497         if (fpst2) fps_slept (fpst2, quantum);
498 #endif
499       }
500
501     if (! screenhack_table_handle_events (dpy, ft, window, closure
502 #ifdef DEBUG_PAIR
503                                           , window2, closure2
504 #endif
505                                           ))
506       return False;
507   } while (delay > 0);
508
509   return True;
510 }
511
512
513 static void
514 screenhack_do_fps (Display *dpy, Window w, fps_state *fpst, void *closure)
515 {
516   fps_compute (fpst, 0);
517   fps_draw (fpst);
518 }
519
520
521 static void
522 run_screenhack_table (Display *dpy, 
523                       Window window,
524 # ifdef DEBUG_PAIR
525                       Window window2,
526 # endif
527                       const struct xscreensaver_function_table *ft,
528                       int view)
529 {
530 #define LIVEWP_SIGNAL_INTERFACE "org.maemo.livewp"
531 #define LIVEWP_PAUSE_LIVEBG_ON_VIEW1 "pause_livebg_on_view1"                                                                                                 
532 #define LIVEWP_PAUSE_LIVEBG_ON_VIEW2 "pause_livebg_on_view2"                                                                                                 
533 #define LIVEWP_PAUSE_LIVEBG_ON_VIEW3 "pause_livebg_on_view3"                                                                                                 
534 #define LIVEWP_PAUSE_LIVEBG_ON_VIEW4 "pause_livebg_on_view4"
535 #define LIVEWP_PAUSE_LIVEBG_ON_VIEW "pause_livebg_on_view"
536 #define LIVEWP_PLAY_LIVEBG_ON_VIEW1 "play_livebg_on_view1"                                                                                                   
537 #define LIVEWP_PLAY_LIVEBG_ON_VIEW2 "play_livebg_on_view2"                                                                                                   
538 #define LIVEWP_PLAY_LIVEBG_ON_VIEW3 "play_livebg_on_view3"                                                                                                   
539 #define LIVEWP_PLAY_LIVEBG_ON_VIEW4 "play_livebg_on_view4" 
540 #define LIVEWP_PLAY_LIVEBG_ON_VIEW "play_livebg_on_view" 
541    DBusMessage* msg;
542    DBusConnection* conn;
543    DBusError err;
544    DBusMessageIter args;
545    int ret;
546    char pause = 0;
547    int param = 0;
548    int start_frame = 200;
549
550   /* Kludge: even though the init_cb functions are declared to take 2 args,
551      actually call them with 3, for the benefit of xlockmore_init() and
552      xlockmore_setup().
553    */
554   void *(*init_cb) (Display *, Window, void *) = 
555     (void *(*) (Display *, Window, void *)) ft->init_cb;
556
557   void (*fps_cb) (Display *, Window, fps_state *, void *) = ft->fps_cb;
558
559   void *closure = init_cb (dpy, window, ft->setup_arg);
560   fps_state *fpst = fps_init (dpy, window);
561
562 #ifdef DEBUG_PAIR
563   void *closure2 = 0;
564   fps_state *fpst2 = 0;
565   if (window2) closure2 = init_cb (dpy, window2, ft->setup_arg);
566   if (window2) fpst2 = fps_init (dpy, window2);
567 #endif
568
569   if (! closure)  /* if it returns nothing, it can't possibly be re-entrant. */
570     abort();
571
572   if (! fps_cb) fps_cb = screenhack_do_fps;
573   /* DBUS */
574   /* initialise the error */
575   dbus_error_init(&err);
576   conn = dbus_bus_get(DBUS_BUS_SESSION, &err);
577   if (dbus_error_is_set(&err)) { 
578          fprintf(stderr, "Connection Error (%s)\n", err.message); 
579          dbus_error_free(&err); 
580   }
581   if (NULL == conn) {
582          fprintf(stderr, "Connection Null\n"); 
583          exit(1); 
584   }
585
586   dbus_bus_add_match (conn, "type='signal', interface='org.maemo.livewp'", &err);
587   dbus_connection_flush(conn);
588   if (dbus_error_is_set(&err)){
589      fprintf(stderr,"dbus_bus_add_match failed: %s", err.message);
590      dbus_error_free(&err);
591      exit (1);
592   }
593
594   while (1)
595     {
596       if (pause == 0){
597         unsigned long delay = ft->draw_cb (dpy, window, closure);
598 #ifdef DEBUG_PAIR
599         unsigned long delay2 = 0;
600         if (window2) delay2 = ft->draw_cb (dpy, window2, closure2);
601 #endif
602
603      
604         if (fpst) fps_cb (dpy, window, fpst, closure);
605 #ifdef DEBUG_PAIR
606         if (fpst2) fps_cb (dpy, window, fpst2, closure);
607 #endif
608       if (! usleep_and_process_events (dpy, ft,
609                                        window, fpst, closure, delay
610 #ifdef DEBUG_PAIR
611                                        , window2, fpst2, closure2, delay2
612 #endif
613                                        ))
614         break;
615
616       }
617       if (start_frame > 0) {
618           start_frame--;
619           continue;
620         }
621       if (pause == 0)
622       /* non blocking read of the next available message */
623         dbus_connection_read_write(conn, 0);
624       else
625       /* blocking read of the next available message */
626         dbus_connection_read_write(conn, -1);
627         /*fprintf(stderr, "111111\n");*/
628       msg = dbus_connection_borrow_message(conn);
629       /*msg = dbus_connection_pop_message(conn);*/
630
631         /*fprintf(stderr, "2222222\n");*/
632       if (NULL == msg){  
633
634         /*fprintf(stderr, "333333\n");*/
635           continue; 
636       }
637         dbus_connection_steal_borrowed_message(conn, msg);
638      /* fprintf (stderr, "APPLICATION PATH11111111111111111111 %s %s %s\n",   dbus_message_get_path(msg),   dbus_message_get_interface (msg), dbus_message_get_member (msg));*/
639         /*dbus_connection_return_message(conn, msg);*/
640       if (dbus_message_is_signal(msg, LIVEWP_SIGNAL_INTERFACE, LIVEWP_PAUSE_LIVEBG_ON_VIEW) || 
641           dbus_message_is_signal(msg, LIVEWP_SIGNAL_INTERFACE, LIVEWP_PLAY_LIVEBG_ON_VIEW)){
642           if (!dbus_message_iter_init(msg, &args))
643               fprintf(stderr, "dbus message has no param\n");
644           else if (DBUS_TYPE_INT32 != dbus_message_iter_get_arg_type(&args))             
645               fprintf(stderr, "dbus message param is not int \n");
646           else{ 
647               dbus_message_iter_get_basic(&args, &param);
648               fprintf(stderr, "dbus param = %i\n", param);
649           }
650           if (param == view){
651               if (dbus_message_is_signal(msg, LIVEWP_SIGNAL_INTERFACE, LIVEWP_PAUSE_LIVEBG_ON_VIEW)){
652                  fprintf(stderr, "dbus  Pause scene visible %i\n", param); 
653                      pause = 1;
654               }
655               if (dbus_message_is_signal(msg, LIVEWP_SIGNAL_INTERFACE, LIVEWP_PLAY_LIVEBG_ON_VIEW)){
656                  fprintf(stderr, "dbus   Play scene visible %i\n", param); 
657                      pause = 0;
658               }
659               /*msg = dbus_connection_pop_message(conn);*/
660               fprintf(stderr, "dbus  steal message\n"); 
661               /*dbus_connection_steal_borrowed_message(conn, msg);*/
662           }else{ 
663               fprintf(stderr, "dbus  return message\n"); 
664               /*dbus_connection_return_message(conn, msg);*/
665           }
666       }    
667       
668       /* check this is a method call for the right interface & method */
669       /*
670       if ((view == 1 && dbus_message_is_signal(msg, LIVEWP_SIGNAL_INTERFACE, LIVEWP_PAUSE_LIVEBG_ON_VIEW1))||
671           (view == 2 && dbus_message_is_signal(msg, LIVEWP_SIGNAL_INTERFACE, LIVEWP_PAUSE_LIVEBG_ON_VIEW2))||
672           (view == 3 && dbus_message_is_signal(msg, LIVEWP_SIGNAL_INTERFACE, LIVEWP_PAUSE_LIVEBG_ON_VIEW3))||
673           (view == 4 && dbus_message_is_signal(msg, LIVEWP_SIGNAL_INTERFACE, LIVEWP_PAUSE_LIVEBG_ON_VIEW4))){
674            fprintf(stderr, "Pause scene visible %i\n", view); 
675            pause = 1;
676            dbus_message_unref (msg); 
677            continue;
678       }
679       if ((view == 1 && dbus_message_is_signal(msg, LIVEWP_SIGNAL_INTERFACE, LIVEWP_PLAY_LIVEBG_ON_VIEW1))||
680           (view == 2 && dbus_message_is_signal(msg, LIVEWP_SIGNAL_INTERFACE, LIVEWP_PLAY_LIVEBG_ON_VIEW2))||
681           (view == 3 && dbus_message_is_signal(msg, LIVEWP_SIGNAL_INTERFACE, LIVEWP_PLAY_LIVEBG_ON_VIEW3))||
682           (view == 4 && dbus_message_is_signal(msg, LIVEWP_SIGNAL_INTERFACE, LIVEWP_PLAY_LIVEBG_ON_VIEW4))){
683            fprintf(stderr, "Play scene visible %i\n", view); 
684            pause = 0;
685            dbus_message_unref (msg); 
686            continue;
687       }
688 */
689       /*dbus_message_unref (msg);*/
690     }
691
692   ft->free_cb (dpy, window, closure);
693   if (fpst) fps_free (fpst);
694
695 #ifdef DEBUG_PAIR
696   if (window2) ft->free_cb (dpy, window2, closure2);
697   if (window2) fps_free (fpst2);
698 #endif
699   /* close the connection */
700   dbus_connection_close(conn);
701 }
702
703
704 static Widget
705 make_shell (Screen *screen, Widget toplevel, int width, int height)
706 {
707   Display *dpy = DisplayOfScreen (screen);
708   Visual *visual = pick_visual (screen);
709   Boolean def_visual_p = (toplevel && 
710                           visual == DefaultVisualOfScreen (screen));
711
712   if (width  <= 0) width  = 600;
713   if (height <= 0) height = 480;
714
715   if (def_visual_p)
716     {
717       Window window;
718       XtVaSetValues (toplevel,
719                      XtNmappedWhenManaged, False,
720                      XtNwidth, width,
721                      XtNheight, height,
722                      XtNinput, True,  /* for WM_HINTS */
723                      NULL);
724       XtRealizeWidget (toplevel);
725       window = XtWindow (toplevel);
726
727       if (get_boolean_resource (dpy, "installColormap", "InstallColormap"))
728         {
729           Colormap cmap = 
730             XCreateColormap (dpy, window, DefaultVisualOfScreen (screen),
731                              AllocNone);
732           XSetWindowColormap (dpy, window, cmap);
733         }
734     }
735   else
736     {
737       unsigned int bg, bd;
738       Widget new;
739       Colormap cmap = XCreateColormap (dpy, VirtualRootWindowOfScreen(screen),
740                                        visual, AllocNone);
741       bg = get_pixel_resource (dpy, cmap, "background", "Background");
742       bd = get_pixel_resource (dpy, cmap, "borderColor", "Foreground");
743
744       new = XtVaAppCreateShell (progname, progclass,
745                                 topLevelShellWidgetClass, dpy,
746                                 XtNmappedWhenManaged, False,
747                                 XtNvisual, visual,
748                                 XtNdepth, visual_depth (screen, visual),
749                                 XtNwidth, width,
750                                 XtNheight, height,
751                                 XtNcolormap, cmap,
752                                 XtNbackground, (Pixel) bg,
753                                 XtNborderColor, (Pixel) bd,
754                                 XtNinput, True,  /* for WM_HINTS */
755                                 NULL);
756
757       if (!toplevel)  /* kludge for the second window in -pair mode... */
758         XtVaSetValues (new, XtNx, 0, XtNy, 550, NULL);
759
760       XtRealizeWidget (new);
761       toplevel = new;
762     }
763
764   return toplevel;
765 }
766
767 static void
768 init_window (Display *dpy, Widget toplevel, const char *title)
769 {
770   Window window;
771   XWindowAttributes xgwa;
772   XtPopup (toplevel, XtGrabNone);
773   XtVaSetValues (toplevel, XtNtitle, title, NULL);
774
775   /* Select KeyPress, and announce that we accept WM_DELETE_WINDOW.
776    */
777   window = XtWindow (toplevel);
778   XGetWindowAttributes (dpy, window, &xgwa);
779   XSelectInput (dpy, window,
780                 (xgwa.your_event_mask | KeyPressMask | KeyReleaseMask |
781                  ButtonPressMask | ButtonReleaseMask));
782   XChangeProperty (dpy, window, XA_WM_PROTOCOLS, XA_ATOM, 32,
783                    PropModeReplace,
784                    (unsigned char *) &XA_WM_DELETE_WINDOW, 1);
785 }
786
787
788 int
789 main (int argc, char **argv)
790 {
791   struct xscreensaver_function_table *ft = xscreensaver_function_table;
792
793 /*  osso_context_t  *osso; */
794
795   XWindowAttributes xgwa;
796   Widget toplevel;
797   Display *dpy;
798   Window window;
799 # ifdef DEBUG_PAIR
800   Window window2 = 0;
801   Widget toplevel2 = 0;
802 # endif
803   XtAppContext app;
804   Bool root_p;
805   Window on_window = 0;
806   XEvent event;
807   Boolean dont_clear;
808   char version[255];
809   int view;
810
811   fix_fds();
812
813   progname = argv[0];   /* reset later */
814   progclass = ft->progclass;
815
816   if (ft->setup_cb)
817     ft->setup_cb (ft, ft->setup_arg);
818
819   merge_options ();
820
821 #ifdef __sgi
822   /* We have to do this on SGI to prevent the background color from being
823      overridden by the current desktop color scheme (we'd like our backgrounds
824      to be black, thanks.)  This should be the same as setting the
825      "*useSchemes: none" resource, but it's not -- if that resource is
826      present in the `default_defaults' above, it doesn't work, though it
827      does work when passed as an -xrm arg on the command line.  So screw it,
828      turn them off from C instead.
829    */
830   SgiUseSchemes ("none"); 
831 #endif /* __sgi */
832
833   toplevel = XtAppInitialize (&app, progclass, merged_options,
834                               merged_options_size, &argc, argv,
835                               merged_defaults, 0, 0);
836
837   dpy = XtDisplay (toplevel);
838
839   XtGetApplicationNameAndClass (dpy,
840                                 (char **) &progname,
841                                 (char **) &progclass);
842
843   /* half-assed way of avoiding buffer-overrun attacks. */
844   if (strlen (progname) >= 100) ((char *) progname)[100] = 0;
845
846   XSetErrorHandler (screenhack_ehandler);
847
848   XA_WM_PROTOCOLS = XInternAtom (dpy, "WM_PROTOCOLS", False);
849   XA_WM_DELETE_WINDOW = XInternAtom (dpy, "WM_DELETE_WINDOW", False);
850
851   {
852     char *v = (char *) strdup(strchr(screensaver_id, ' '));
853     char *s1, *s2, *s3, *s4;
854     s1 = (char *) strchr(v,  ' '); s1++;
855     s2 = (char *) strchr(s1, ' ');
856     s3 = (char *) strchr(v,  '('); s3++;
857     s4 = (char *) strchr(s3, ')');
858     *s2 = 0;
859     *s4 = 0;
860     sprintf (version, "%s: from the XScreenSaver %s distribution (%s.)",
861              progclass, s1, s3);
862     free(v);
863   }
864
865   if (argc > 1)
866     {
867       const char *s;
868       int i;
869       int x = 18;
870       int end = 78;
871       Bool help_p = (!strcmp(argv[1], "-help") ||
872                      !strcmp(argv[1], "--help"));
873       fprintf (stderr, "%s\n", version);
874       for (s = progclass; *s; s++) fprintf(stderr, " ");
875       fprintf (stderr, "  http://www.jwz.org/xscreensaver/\n\n");
876
877       if (!help_p)
878         fprintf(stderr, "Unrecognised option: %s\n", argv[1]);
879       fprintf (stderr, "Options include: ");
880       for (i = 0; i < merged_options_size; i++)
881         {
882           char *sw = merged_options [i].option;
883           Bool argp = (merged_options [i].argKind == XrmoptionSepArg);
884           int size = strlen (sw) + (argp ? 6 : 0) + 2;
885           if (x + size >= end)
886             {
887               fprintf (stderr, "\n\t\t ");
888               x = 18;
889             }
890           x += size;
891           fprintf (stderr, "%s", sw);
892           if (argp) fprintf (stderr, " <arg>");
893           if (i != merged_options_size - 1) fprintf (stderr, ", ");
894         }
895
896       fprintf (stderr, ".\n");
897
898 #if 0
899       if (help_p)
900         {
901           fprintf (stderr, "\nResources:\n\n");
902           for (i = 0; i < merged_options_size; i++)
903             {
904               const char *opt = merged_options [i].option;
905               const char *res = merged_options [i].specifier + 1;
906               const char *val = merged_options [i].value;
907               char *s = get_string_resource (dpy, (char *) res, (char *) res);
908
909               if (s)
910                 {
911                   int L = strlen(s);
912                 while (L > 0 && (s[L-1] == ' ' || s[L-1] == '\t'))
913                   s[--L] = 0;
914                 }
915
916               fprintf (stderr, "    %-16s %-18s ", opt, res);
917               if (merged_options [i].argKind == XrmoptionSepArg)
918                 {
919                   fprintf (stderr, "[%s]", (s ? s : "?"));
920                 }
921               else
922                 {
923                   fprintf (stderr, "%s", (val ? val : "(null)"));
924                   if (val && s && !strcasecmp (val, s))
925                     fprintf (stderr, " [default]");
926                 }
927               fprintf (stderr, "\n");
928             }
929           fprintf (stderr, "\n");
930         }
931 #endif
932
933       exit (help_p ? 0 : 1);
934     }
935
936   {
937     char **s;
938     for (s = merged_defaults; *s; s++)
939       free(*s);
940   }
941
942   free (merged_options);
943   free (merged_defaults);
944   merged_options = 0;
945   merged_defaults = 0;
946
947   dont_clear = get_boolean_resource (dpy, "dontClearRoot", "Boolean");
948   mono_p = get_boolean_resource (dpy, "mono", "Boolean");
949   if (CellsOfScreen (DefaultScreenOfDisplay (dpy)) <= 2)
950     mono_p = True;
951
952   root_p = get_boolean_resource (dpy, "root", "Boolean");
953
954   {
955     char *s = get_string_resource (dpy, "windowID", "WindowID");
956     if (s && *s)
957       on_window = get_integer_resource (dpy, "windowID", "WindowID");
958     if (s) free (s);
959   }
960
961   view = get_integer_resource (dpy, "view", "view");
962   fprintf(stderr, "View %i\n", view);
963   if (on_window)
964     {
965       window = (Window) on_window;
966       XtDestroyWidget (toplevel);
967       XGetWindowAttributes (dpy, window, &xgwa);
968       visual_warning (xgwa.screen, window, xgwa.visual, xgwa.colormap, True);
969
970       /* Select KeyPress and resize events on the external window.
971        */
972       xgwa.your_event_mask |= KeyPressMask | StructureNotifyMask;
973       XSelectInput (dpy, window, xgwa.your_event_mask);
974
975       /* Select ButtonPress and ButtonRelease events on the external window,
976          if no other app has already selected them (only one app can select
977          ButtonPress at a time: BadAccess results.)
978        */
979       if (! (xgwa.all_event_masks & (ButtonPressMask | ButtonReleaseMask)))
980         XSelectInput (dpy, window,
981                       (xgwa.your_event_mask |
982                        ButtonPressMask | ButtonReleaseMask));
983     }
984   else if (root_p)
985     {
986       window = VirtualRootWindowOfScreen (XtScreen (toplevel));
987       XtDestroyWidget (toplevel);
988       XGetWindowAttributes (dpy, window, &xgwa);
989       /* With RANDR, the root window can resize! */
990       XSelectInput (dpy, window, xgwa.your_event_mask | StructureNotifyMask);
991       visual_warning (xgwa.screen, window, xgwa.visual, xgwa.colormap, False);
992     }
993   else
994     {
995       Widget new = make_shell (XtScreen (toplevel), toplevel,
996                                toplevel->core.width,
997                                toplevel->core.height);
998       if (new != toplevel)
999         {
1000           XtDestroyWidget (toplevel);
1001           toplevel = new;
1002         }
1003
1004       init_window (dpy, toplevel, version);
1005       window = XtWindow (toplevel);
1006       XGetWindowAttributes (dpy, window, &xgwa);
1007
1008 # ifdef DEBUG_PAIR
1009       if (get_boolean_resource (dpy, "pair", "Boolean"))
1010         {
1011           toplevel2 = make_shell (xgwa.screen, 0,
1012                                   toplevel->core.width,
1013                                   toplevel->core.height);
1014           init_window (dpy, toplevel2, version);
1015           window2 = XtWindow (toplevel2);
1016         }
1017 # endif /* DEBUG_PAIR */
1018     }
1019
1020   if (!dont_clear)
1021     {
1022       unsigned int bg = get_pixel_resource (dpy, xgwa.colormap,
1023                                             "background", "Background");
1024       XSetWindowBackground (dpy, window, bg);
1025       XClearWindow (dpy, window);
1026 # ifdef DEBUG_PAIR
1027       if (window2)
1028         {
1029           XSetWindowBackground (dpy, window2, bg);
1030           XClearWindow (dpy, window2);
1031         }
1032 # endif
1033     }
1034
1035   if (!root_p && !on_window)
1036     /* wait for it to be mapped */
1037     XIfEvent (dpy, &event, MapNotify_event_p, (XPointer) window);
1038
1039   XSync (dpy, False);
1040
1041   /* This is the one and only place that the random-number generator is
1042      seeded in any screenhack.  You do not need to seed the RNG again,
1043      it is done for you before your code is invoked. */
1044 # undef ya_rand_init
1045   ya_rand_init (0);
1046
1047   run_screenhack_table (dpy, window, 
1048 # ifdef DEBUG_PAIR
1049                         window2,
1050 # endif
1051                         ft, view);
1052
1053   XtDestroyWidget (toplevel);
1054   XtDestroyApplicationContext (app);
1055
1056   return 0;
1057 }