C-x 5 1
[emacs.git] / src / w32xfns.c
blobdf3984eb4b4c3b735a55eb8b75152677d58bc69a
1 /* Functions taken directly from X sources for use with the Microsoft W32 API.
2 Copyright (C) 1989, 1992, 1993, 1994, 1995, 1999 Free Software Foundation.
4 This file is part of GNU Emacs.
6 GNU Emacs is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
9 any later version.
11 GNU Emacs is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs; see the file COPYING. If not, write to
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
21 #include <config.h>
22 #include <signal.h>
23 #include <stdio.h>
24 #include "lisp.h"
25 #include "frame.h"
26 #include "charset.h"
27 #include "fontset.h"
28 #include "blockinput.h"
29 #include "w32term.h"
30 #include "windowsx.h"
32 #define myalloc(cb) GlobalAllocPtr (GPTR, cb)
33 #define myfree(lp) GlobalFreePtr (lp)
35 CRITICAL_SECTION critsect;
36 extern HANDLE keyboard_handle;
37 HANDLE input_available = NULL;
38 HANDLE interrupt_handle = NULL;
40 void
41 init_crit ()
43 InitializeCriticalSection (&critsect);
45 /* For safety, input_available should only be reset by get_next_msg
46 when the input queue is empty, so make it a manual reset event. */
47 keyboard_handle = input_available = CreateEvent (NULL, TRUE, FALSE, NULL);
49 /* interrupt_handle is signalled when quit (C-g) is detected, so that
50 blocking system calls can be interrupted. We make it a manual
51 reset event, so that if we should ever have multiple threads
52 performing system calls, they will all be interrupted (I'm guessing
53 that would the right response). Note that we use PulseEvent to
54 signal this event, so that it never remains signalled. */
55 interrupt_handle = CreateEvent (NULL, TRUE, FALSE, NULL);
58 void
59 delete_crit ()
61 DeleteCriticalSection (&critsect);
63 if (input_available)
65 CloseHandle (input_available);
66 input_available = NULL;
68 if (interrupt_handle)
70 CloseHandle (interrupt_handle);
71 interrupt_handle = NULL;
75 void
76 signal_quit ()
78 /* Make sure this event never remains signalled; if the main thread
79 isn't in a blocking call, then this should do nothing. */
80 PulseEvent (interrupt_handle);
83 void
84 select_palette (FRAME_PTR f, HDC hdc)
86 if (!NILP (Vw32_enable_palette))
87 f->output_data.w32->old_palette =
88 SelectPalette (hdc, one_w32_display_info.palette, FALSE);
89 else
90 f->output_data.w32->old_palette = NULL;
92 if (RealizePalette (hdc))
94 Lisp_Object frame, framelist;
95 FOR_EACH_FRAME (framelist, frame)
97 SET_FRAME_GARBAGED (XFRAME (frame));
102 void
103 deselect_palette (FRAME_PTR f, HDC hdc)
105 if (f->output_data.w32->old_palette)
106 SelectPalette (hdc, f->output_data.w32->old_palette, FALSE);
109 /* Get a DC for frame and select palette for drawing; force an update of
110 all frames if palette's mapping changes. */
112 get_frame_dc (FRAME_PTR f)
114 HDC hdc;
116 enter_crit ();
118 hdc = GetDC (f->output_data.w32->window_desc);
119 select_palette (f, hdc);
121 return hdc;
125 release_frame_dc (FRAME_PTR f, HDC hdc)
127 int ret;
129 deselect_palette (f, hdc);
130 ret = ReleaseDC (f->output_data.w32->window_desc, hdc);
132 leave_crit ();
134 return ret;
137 typedef struct int_msg
139 W32Msg w32msg;
140 struct int_msg *lpNext;
141 } int_msg;
143 int_msg *lpHead = NULL;
144 int_msg *lpTail = NULL;
145 int nQueue = 0;
147 BOOL
148 get_next_msg (lpmsg, bWait)
149 W32Msg * lpmsg;
150 BOOL bWait;
152 BOOL bRet = FALSE;
154 enter_crit ();
156 /* The while loop takes care of multiple sets */
158 while (!nQueue && bWait)
160 leave_crit ();
161 WaitForSingleObject (input_available, INFINITE);
162 enter_crit ();
165 if (nQueue)
167 bcopy (&(lpHead->w32msg), lpmsg, sizeof (W32Msg));
170 int_msg * lpCur = lpHead;
172 lpHead = lpHead->lpNext;
174 myfree (lpCur);
177 nQueue--;
179 bRet = TRUE;
182 if (nQueue == 0)
183 ResetEvent (input_available);
185 leave_crit ();
187 return (bRet);
190 BOOL
191 post_msg (lpmsg)
192 W32Msg * lpmsg;
194 int_msg * lpNew = (int_msg *) myalloc (sizeof (int_msg));
196 if (!lpNew)
197 return (FALSE);
199 bcopy (lpmsg, &(lpNew->w32msg), sizeof (W32Msg));
200 lpNew->lpNext = NULL;
202 enter_crit ();
204 if (nQueue++)
206 lpTail->lpNext = lpNew;
208 else
210 lpHead = lpNew;
213 lpTail = lpNew;
214 SetEvent (input_available);
216 leave_crit ();
218 return (TRUE);
221 BOOL
222 prepend_msg (W32Msg *lpmsg)
224 int_msg * lpNew = (int_msg *) myalloc (sizeof (int_msg));
226 if (!lpNew)
227 return (FALSE);
229 bcopy (lpmsg, &(lpNew->w32msg), sizeof (W32Msg));
231 enter_crit ();
233 nQueue++;
234 lpNew->lpNext = lpHead;
235 lpHead = lpNew;
237 leave_crit ();
239 return (TRUE);
242 /* Process all messages in the current thread's queue. */
243 void
244 drain_message_queue ()
246 MSG msg;
247 while (PeekMessage (&msg, NULL, 0, 0, PM_REMOVE))
249 TranslateMessage (&msg);
250 DispatchMessage (&msg);
256 * XParseGeometry parses strings of the form
257 * "=<width>x<height>{+-}<xoffset>{+-}<yoffset>", where
258 * width, height, xoffset, and yoffset are unsigned integers.
259 * Example: "=80x24+300-49"
260 * The equal sign is optional.
261 * It returns a bitmask that indicates which of the four values
262 * were actually found in the string. For each value found,
263 * the corresponding argument is updated; for each value
264 * not found, the corresponding argument is left unchanged.
267 static int
268 read_integer (string, NextString)
269 register char *string;
270 char **NextString;
272 register int Result = 0;
273 int Sign = 1;
275 if (*string == '+')
276 string++;
277 else if (*string == '-')
279 string++;
280 Sign = -1;
282 for (; (*string >= '0') && (*string <= '9'); string++)
284 Result = (Result * 10) + (*string - '0');
286 *NextString = string;
287 if (Sign >= 0)
288 return (Result);
289 else
290 return (-Result);
293 int
294 XParseGeometry (string, x, y, width, height)
295 char *string;
296 int *x, *y;
297 unsigned int *width, *height; /* RETURN */
299 int mask = NoValue;
300 register char *strind;
301 unsigned int tempWidth, tempHeight;
302 int tempX, tempY;
303 char *nextCharacter;
305 if ((string == NULL) || (*string == '\0')) return (mask);
306 if (*string == '=')
307 string++; /* ignore possible '=' at beg of geometry spec */
309 strind = (char *)string;
310 if (*strind != '+' && *strind != '-' && *strind != 'x')
312 tempWidth = read_integer (strind, &nextCharacter);
313 if (strind == nextCharacter)
314 return (0);
315 strind = nextCharacter;
316 mask |= WidthValue;
319 if (*strind == 'x' || *strind == 'X')
321 strind++;
322 tempHeight = read_integer (strind, &nextCharacter);
323 if (strind == nextCharacter)
324 return (0);
325 strind = nextCharacter;
326 mask |= HeightValue;
329 if ((*strind == '+') || (*strind == '-'))
331 if (*strind == '-')
333 strind++;
334 tempX = -read_integer (strind, &nextCharacter);
335 if (strind == nextCharacter)
336 return (0);
337 strind = nextCharacter;
338 mask |= XNegative;
341 else
343 strind++;
344 tempX = read_integer (strind, &nextCharacter);
345 if (strind == nextCharacter)
346 return (0);
347 strind = nextCharacter;
349 mask |= XValue;
350 if ((*strind == '+') || (*strind == '-'))
352 if (*strind == '-')
354 strind++;
355 tempY = -read_integer (strind, &nextCharacter);
356 if (strind == nextCharacter)
357 return (0);
358 strind = nextCharacter;
359 mask |= YNegative;
362 else
364 strind++;
365 tempY = read_integer (strind, &nextCharacter);
366 if (strind == nextCharacter)
367 return (0);
368 strind = nextCharacter;
370 mask |= YValue;
374 /* If strind isn't at the end of the string the it's an invalid
375 geometry specification. */
377 if (*strind != '\0') return (0);
379 if (mask & XValue)
380 *x = tempX;
381 if (mask & YValue)
382 *y = tempY;
383 if (mask & WidthValue)
384 *width = tempWidth;
385 if (mask & HeightValue)
386 *height = tempHeight;
387 return (mask);
390 /* x_sync is a no-op on W32. */
391 void
392 x_sync (f)
393 void *f;