gomp-20050608-branch/libjava/gnu/gcj/xlib/natXAnyEvent.cc

   1 /* Copyright (C) 2000  Free Software Foundation
   2
   3    This file is part of libgcj.
   4
   5 This software is copyrighted work licensed under the terms of the
   6 Libgcj License.  Please consult the file "LIBGCJ_LICENSE" for
   7 details.  */
   8
   9 #include <config.h>
  10 #include <platform.h>
  11
  12 #include <gcj/javaprims.h>
  13 #include <jvm.h>
  14
  15 #include <X11/Xlib.h>
  16
  17 #include <gcj/cni.h>
  18 #include <gnu/gcj/RawData.h>
  19
  20 #include <java/lang/RuntimeException.h>
  21
  22 #include <java/lang/System.h>
  23 #include <java/io/PrintStream.h>
  24
  25 #include <gnu/gcj/xlib/Display.h>
  26 #include <gnu/gcj/xlib/Window.h>
  27 #include <gnu/gcj/xlib/XAnyEvent.h>
  28 #include <gnu/gcj/xlib/XExposeEvent.h>
  29 #include <gnu/gcj/xlib/XException.h>
  30
  31 #include <unistd.h>
  32 #include <posix.h>
  33
  34 void gnu::gcj::xlib::XAnyEvent::init()
  35 {
  36   ::XEvent* event = new ::XEvent;
  37   int *pipes = new int[2];
  38   pipe(pipes);
  39   structure = reinterpret_cast<gnu::gcj::RawData*>(event);
  40   pipefds = reinterpret_cast<gnu::gcj::RawData*>(pipes);
  41 }
  42
  43 void gnu::gcj::xlib::XAnyEvent::finalize()
  44 {
  45   delete structure;
  46   int *pipe = reinterpret_cast<int *>(pipefds);
  47   close(pipe[0]);
  48   close(pipe[1]);
  49   delete [] pipefds;
  50   pipefds = 0;
  51   structure = 0;
  52 }
  53
  54 jboolean gnu::gcj::xlib::XAnyEvent::loadNext(jboolean block)
  55 {
  56   ::Display* dpy = (::Display*) display->display;
  57   ::XEvent* evt = (::XEvent*) structure;
  58
  59   if (XPending(dpy))
  60     {
  61       XNextEvent(dpy, evt);
  62       return true;
  63     }
  64
  65   if (!block)
  66     return false;
  67
  68   int *pipe = reinterpret_cast<int *>(pipefds);
  69   int xfd = XConnectionNumber(dpy);
  70   int pipefd = pipe[0];
  71   int n = (xfd > pipefd ? xfd : pipefd) + 1;
  72   fd_set rfds;
  73   FD_ZERO(&rfds);
  74   FD_SET(xfd, &rfds);
  75   FD_SET(pipefd, &rfds);
  76   int sel = _Jv_select (n, &rfds, NULL, NULL, NULL);
  77   if (sel > 0)
  78     {
  79       if (FD_ISSET(xfd, &rfds))
  80         {
  81           XNextEvent(dpy, evt);
  82           return true;
  83         }
  84       if (FD_ISSET(pipefd, &rfds))
  85         {
  86           char c;
  87           read(pipefd, &c, 1);
  88         }
  89     }
  90   return false;
  91 }
  92
  93 void gnu::gcj::xlib::XAnyEvent::interrupt()
  94 {
  95   int *pipe = reinterpret_cast<int *>(pipefds);
  96   write(pipe[1], "W", 1);
  97 }
  98
  99 jint gnu::gcj::xlib::XAnyEvent::getType()
 100 {
 101   ::XEvent* event = (::XEvent*) structure;
 102   return event->type;
 103 }
 104
 105 void gnu::gcj::xlib::XAnyEvent::setType(jint type)
 106 {
 107   ::XEvent* event = (::XEvent*) structure;
 108   event->type = type;
 109 }
 110
 111 gnu::gcj::xlib::Window* gnu::gcj::xlib::XAnyEvent::getWindow()
 112 {
 113   ::XEvent* event = (::XEvent*) structure;
 114   return display->getWindow(event->xany.window);
 115 }
 116
 117 void gnu::gcj::xlib::XAnyEvent::setWindow(gnu::gcj::xlib::Window* window)
 118 {
 119   ::XEvent* event = (::XEvent*) structure;
 120   event->xany.window = window->getXID();
 121 }
 122
 123 jlong gnu::gcj::xlib::XAnyEvent::getSerial()
 124 {
 125   ::XEvent* event = (::XEvent*) structure;
 126   return event->xany.serial;
 127 }
 128
 129 void gnu::gcj::xlib::XAnyEvent::send(gnu::gcj::xlib::Window* destination,
 130                                      jboolean propagate, jlong mask)
 131 {
 132   ::Display* dpy = (::Display*) display->display;
 133   ::XEvent* event = (::XEvent*) structure;
 134
 135   Status status =
 136     XSendEvent(dpy, destination->getXID(), propagate ? True : False,
 137                mask, event);
 138
 139   switch (status)
 140     {
 141     case 0:
 142       throw new XException(JvNewStringLatin1("conversion to wire "
 143                                              "protocol failed"));
 144     case BadWindow:
 145     case BadValue:
 146       throw new XException(display, status);
 147
 148     default:
 149       /* All other return values indicate success.  Ie. (status ==
 150          1) indicates success, not BadRequest. */
 151       ; // NOP
 152     }
 153 }