src/w32xfns.c

   1 /* Functions taken directly from X sources for use with the Microsoft Windows API.
   2    Copyright (C) 1989, 1992-1995, 1999, 2001-2015 Free Software
   3    Foundation, Inc.
   4
   5 This file is part of GNU Emacs.
   6
   7 GNU Emacs is free software: you can redistribute it and/or modify
   8 it under the terms of the GNU General Public License as published by
   9 the Free Software Foundation, either version 3 of the License, or
  10 (at your option) any later version.
  11
  12 GNU Emacs is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
  19
  20 #include <config.h>
  21 #include <signal.h>
  22 #include <stdio.h>
  23
  24 #include "lisp.h"
  25 #include "keyboard.h"
  26 #include "frame.h"
  27 #include "window.h"
  28 #include "charset.h"
  29 #include "fontset.h"
  30 #include "blockinput.h"
  31 #include "w32term.h"
  32 #include "windowsx.h"
  33
  34 #define myalloc(cb) GlobalAllocPtr (GPTR, cb)
  35 #define myfree(lp) GlobalFreePtr (lp)
  36
  37 CRITICAL_SECTION critsect;
  38
  39 #ifdef WINDOWSNT
  40 extern HANDLE keyboard_handle;
  41 #endif /* WINDOWSNT */
  42
  43 HANDLE input_available = NULL;
  44 HANDLE interrupt_handle = NULL;
  45
  46 void
  47 init_crit (void)
  48 {
  49   InitializeCriticalSection (&critsect);
  50
  51   /* For safety, input_available should only be reset by get_next_msg
  52      when the input queue is empty, so make it a manual reset event. */
  53   input_available = CreateEvent (NULL, TRUE, FALSE, NULL);
  54
  55 #ifdef WINDOWSNT
  56   keyboard_handle = input_available;
  57 #endif /* WINDOWSNT */
  58
  59   /* interrupt_handle is signaled when quit (C-g) is detected, so that
  60      blocking system calls can be interrupted.  We make it a manual
  61      reset event, so that if we should ever have multiple threads
  62      performing system calls, they will all be interrupted (I'm guessing
  63      that would the right response).  Note that we use PulseEvent to
  64      signal this event, so that it never remains signaled.  */
  65   interrupt_handle = CreateEvent (NULL, TRUE, FALSE, NULL);
  66 }
  67
  68 void
  69 delete_crit (void)
  70 {
  71   DeleteCriticalSection (&critsect);
  72
  73   if (input_available)
  74     {
  75       CloseHandle (input_available);
  76       input_available = NULL;
  77     }
  78   if (interrupt_handle)
  79     {
  80       CloseHandle (interrupt_handle);
  81       interrupt_handle = NULL;
  82     }
  83 }
  84
  85 void
  86 signal_quit (void)
  87 {
  88   /* Make sure this event never remains signaled; if the main thread
  89      isn't in a blocking call, then this should do nothing.  */
  90   PulseEvent (interrupt_handle);
  91 }
  92
  93 void
  94 select_palette (struct frame *f, HDC hdc)
  95 {
  96   struct w32_display_info *display_info = FRAME_DISPLAY_INFO (f);
  97
  98   if (!display_info->has_palette)
  99     return;
 100
 101   if (display_info->palette == 0)
 102     return;
 103
 104   if (!NILP (Vw32_enable_palette))
 105     f->output_data.w32->old_palette =
 106       SelectPalette (hdc, display_info->palette, FALSE);
 107   else
 108     f->output_data.w32->old_palette = NULL;
 109
 110   if (RealizePalette (hdc) != GDI_ERROR)
 111   {
 112     Lisp_Object frame, framelist;
 113     FOR_EACH_FRAME (framelist, frame)
 114     {
 115       SET_FRAME_GARBAGED (XFRAME (frame));
 116     }
 117   }
 118 }
 119
 120 void
 121 deselect_palette (struct frame *f, HDC hdc)
 122 {
 123   if (f->output_data.w32->old_palette)
 124     SelectPalette (hdc, f->output_data.w32->old_palette, FALSE);
 125 }
 126
 127 /* Get a DC for frame and select palette for drawing; force an update of
 128    all frames if palette's mapping changes.  */
 129 HDC
 130 get_frame_dc (struct frame *f)
 131 {
 132   HDC hdc;
 133
 134   if (f->output_method != output_w32)
 135     emacs_abort ();
 136
 137   enter_crit ();
 138
 139   hdc = GetDC (f->output_data.w32->window_desc);
 140
 141   /* If this gets called during startup before the frame is valid,
 142      there is a chance of corrupting random data or crashing. */
 143   if (hdc)
 144     select_palette (f, hdc);
 145
 146   return hdc;
 147 }
 148
 149 int
 150 release_frame_dc (struct frame *f, HDC hdc)
 151 {
 152   int ret;
 153
 154   deselect_palette (f, hdc);
 155   ret = ReleaseDC (f->output_data.w32->window_desc, hdc);
 156
 157   leave_crit ();
 158
 159   return ret;
 160 }
 161
 162 typedef struct int_msg
 163 {
 164   W32Msg w32msg;
 165   struct int_msg *lpNext;
 166 } int_msg;
 167
 168 int_msg *lpHead = NULL;
 169 int_msg *lpTail = NULL;
 170 int nQueue = 0;
 171
 172 BOOL
 173 get_next_msg (W32Msg * lpmsg, BOOL bWait)
 174 {
 175   BOOL bRet = FALSE;
 176
 177   enter_crit ();
 178
 179   /* The while loop takes care of multiple sets */
 180
 181   while (!nQueue && bWait)
 182     {
 183       leave_crit ();
 184       WaitForSingleObject (input_available, INFINITE);
 185       enter_crit ();
 186     }
 187
 188   if (nQueue)
 189     {
 190       memcpy (lpmsg, &lpHead->w32msg, sizeof (W32Msg));
 191
 192       {
 193         int_msg * lpCur = lpHead;
 194
 195         lpHead = lpHead->lpNext;
 196
 197         myfree (lpCur);
 198       }
 199
 200       nQueue--;
 201       /* Consolidate WM_PAINT messages to optimize redrawing.  */
 202       if (lpmsg->msg.message == WM_PAINT && nQueue)
 203         {
 204           int_msg * lpCur = lpHead;
 205           int_msg * lpPrev = NULL;
 206           int_msg * lpNext = NULL;
 207
 208           while (lpCur && nQueue)
 209             {
 210               lpNext = lpCur->lpNext;
 211               if (lpCur->w32msg.msg.message == WM_PAINT)
 212                 {
 213                   /* Remove this message from the queue.  */
 214                   if (lpPrev)
 215                     lpPrev->lpNext = lpNext;
 216                   else
 217                     lpHead = lpNext;
 218
 219                   if (lpCur == lpTail)
 220                     lpTail = lpPrev;
 221
 222                   /* Adjust clip rectangle to cover both.  */
 223                   if (!UnionRect (&(lpmsg->rect), &(lpmsg->rect),
 224                                   &(lpCur->w32msg.rect)))
 225                     {
 226                       SetRectEmpty (&(lpmsg->rect));
 227                     }
 228
 229                   myfree (lpCur);
 230
 231                   nQueue--;
 232
 233                   lpCur = lpNext;
 234                 }
 235               else
 236                 {
 237                   lpPrev = lpCur;
 238                   lpCur = lpNext;
 239                 }
 240             }
 241         }
 242
 243       bRet = TRUE;
 244     }
 245
 246   if (nQueue == 0)
 247     ResetEvent (input_available);
 248
 249   leave_crit ();
 250
 251   return (bRet);
 252 }
 253
 254 extern char * w32_strerror (int error_no);
 255
 256 /* Tell the main thread that we have input available; if the main
 257    thread is blocked in select(), we wake it up here.  */
 258 static void
 259 notify_msg_ready (void)
 260 {
 261   SetEvent (input_available);
 262
 263 #ifdef CYGWIN
 264   /* Wakes up the main thread, which is blocked select()ing for /dev/windows,
 265      among other files.  */
 266   (void) PostThreadMessage (dwMainThreadId, WM_EMACS_INPUT_READY, 0, 0);
 267 #endif /* CYGWIN */
 268 }
 269
 270 BOOL
 271 post_msg (W32Msg * lpmsg)
 272 {
 273   int_msg * lpNew = (int_msg *) myalloc (sizeof (int_msg));
 274
 275   if (!lpNew)
 276     return (FALSE);
 277
 278   memcpy (&lpNew->w32msg, lpmsg, sizeof (W32Msg));
 279   lpNew->lpNext = NULL;
 280
 281   enter_crit ();
 282
 283   if (nQueue++)
 284     {
 285       lpTail->lpNext = lpNew;
 286     }
 287   else
 288     {
 289       lpHead = lpNew;
 290     }
 291
 292   lpTail = lpNew;
 293   notify_msg_ready ();
 294   leave_crit ();
 295
 296   return (TRUE);
 297 }
 298
 299 BOOL
 300 prepend_msg (W32Msg *lpmsg)
 301 {
 302   int_msg * lpNew = (int_msg *) myalloc (sizeof (int_msg));
 303
 304   if (!lpNew)
 305     return (FALSE);
 306
 307   memcpy (&lpNew->w32msg, lpmsg, sizeof (W32Msg));
 308
 309   enter_crit ();
 310
 311   nQueue++;
 312   lpNew->lpNext = lpHead;
 313   lpHead = lpNew;
 314   notify_msg_ready ();
 315   leave_crit ();
 316
 317   return (TRUE);
 318 }
 319
 320 /* Process all messages in the current thread's queue.  Value is 1 if
 321    one of these messages was WM_EMACS_FILENOTIFY, zero otherwise.  */
 322 int
 323 drain_message_queue (void)
 324 {
 325   MSG msg;
 326   int retval = 0;
 327
 328   while (PeekMessage (&msg, NULL, 0, 0, PM_REMOVE))
 329     {
 330       if (msg.message == WM_EMACS_FILENOTIFY)
 331         retval = 1;
 332       TranslateMessage (&msg);
 333       DispatchMessage (&msg);
 334     }
 335   return retval;
 336 }