|
1268
|
1 /* Shared event code between X and GTK -- include file.
|
|
|
2 Copyright (C) 1991-5, 1997 Free Software Foundation, Inc.
|
|
|
3 Copyright (C) 1995 Sun Microsystems, Inc.
|
|
|
4 Copyright (C) 1996, 2001, 2002, 2003 Ben Wing.
|
|
|
5
|
|
|
6 This file is part of XEmacs.
|
|
|
7
|
|
|
8 XEmacs is free software; you can redistribute it and/or modify it
|
|
|
9 under the terms of the GNU General Public License as published by the
|
|
|
10 Free Software Foundation; either version 2, or (at your option) any
|
|
|
11 later version.
|
|
|
12
|
|
|
13 XEmacs is distributed in the hope that it will be useful, but WITHOUT
|
|
|
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
16 for more details.
|
|
|
17
|
|
|
18 You should have received a copy of the GNU General Public License
|
|
|
19 along with XEmacs; see the file COPYING. If not, write to
|
|
|
20 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
21 Boston, MA 02111-1307, USA. */
|
|
|
22
|
|
|
23 /* Synched up with: Not in FSF. */
|
|
|
24
|
|
|
25 /* For some code it's reasonable to have only one copy and conditionalize
|
|
|
26 at run-time. For other code it isn't. #### Perhaps all code should be
|
|
|
27 included here, not in event-xlike.c. However, event-xlike.c is always
|
|
|
28 X-specific, whereas the following code isn't, in the GTK case. */
|
|
|
29
|
|
|
30 static int
|
|
|
31 #ifdef THIS_IS_GTK
|
|
|
32 emacs_gtk_event_pending_p (int how_many)
|
|
|
33 #else
|
|
|
34 emacs_Xt_event_pending_p (int how_many)
|
|
|
35 #endif
|
|
|
36 {
|
|
|
37 Lisp_Object event;
|
|
|
38 int tick_count_val;
|
|
|
39
|
|
|
40 /* If `how_many' is 0, then this function returns whether there are any
|
|
|
41 X, timeout, or fd events pending (that is, whether
|
|
|
42 emacs_Xt_next_event() would return immediately without blocking).
|
|
|
43
|
|
|
44 If `how_many' is > 0, then this function returns whether there are
|
|
|
45 that many *user generated* events available (keyboard, mouse click,
|
|
|
46 etc.). This also implies that emacs_Xt_next_event() would not block.
|
|
|
47 */
|
|
|
48
|
|
|
49 /* This function used to simply check whether there were any X events (or
|
|
|
50 if user_p was 1, it iterated over all the pending X events using
|
|
|
51 XCheckIfEvent(), looking for keystrokes and button events). That
|
|
|
52 worked in the old cheesoid event loop, which didn't go through
|
|
|
53 XtAppDispatchEvent(), but it doesn't work any more -- X events may not
|
|
|
54 result in anything. For example, a button press in a blank part of
|
|
|
55 the menubar appears as an X event but will not result in any Emacs
|
|
|
56 events (a button press that activates the menubar results in an Emacs
|
|
|
57 event through the stop_next_event mechanism).
|
|
|
58
|
|
|
59 The only accurate way of determining whether these X events translate
|
|
|
60 into Emacs events is to go ahead and dispatch them until there's
|
|
|
61 something on the dispatch queue. */
|
|
|
62
|
|
|
63 if (!how_many)
|
|
|
64 {
|
|
|
65 /* We're being asked for *ALL* events, not just user events. */
|
|
|
66
|
|
|
67 /* (1) Any pending events in the dispatch queue? */
|
|
|
68 if (!NILP (dispatch_event_queue))
|
|
|
69 return 1;
|
|
|
70
|
|
|
71 /* (2) Any TTY or process input available?
|
|
|
72
|
|
|
73 Note that formerly we just checked the value of XtAppPending() to
|
|
|
74 determine if there was file-desc input. This doesn't work any
|
|
|
75 more with the signal_event_pipe; XtAppPending() will says "yes" in
|
|
|
76 this case but there isn't really any input. So instead we keep
|
|
|
77 track of the file descriptors, and call select() ourselves.
|
|
|
78 Another way of fixing this problem is for the signal_event_pipe to
|
|
|
79 generate actual input in the form of an identity eval event or
|
|
|
80 something. (#### maybe this actually happens?) */
|
|
|
81
|
|
|
82 if (poll_fds_for_input (non_fake_input_wait_mask))
|
|
|
83 return 1;
|
|
|
84
|
|
|
85 #ifndef THIS_IS_GTK
|
|
|
86 /* (3) Any timeout input available? */
|
|
|
87 if (XtAppPending (Xt_app_con) & XtIMTimer)
|
|
|
88 return 1;
|
|
|
89 #else
|
|
|
90 /* #### Is there any way to do this in Gtk? I don't think there
|
|
|
91 is a 'peek' for events */
|
|
|
92 #endif
|
|
|
93 }
|
|
|
94 else
|
|
|
95 {
|
|
|
96 /* HOW_MANY > 0 */
|
|
|
97 EVENT_CHAIN_LOOP (event, dispatch_event_queue)
|
|
|
98 {
|
|
|
99 if (command_event_p (event))
|
|
|
100 {
|
|
|
101 how_many--;
|
|
|
102 if (how_many <= 0)
|
|
|
103 return 1;
|
|
|
104 }
|
|
|
105 }
|
|
|
106 }
|
|
|
107
|
|
|
108 /* XtAppPending() can be super-slow, esp. over a network connection.
|
|
|
109 Quantify results have indicated that in some cases the call to
|
|
|
110 detect_input_pending() completely dominates the running time of
|
|
|
111 redisplay(). Fortunately, in a SIGIO world we can more quickly
|
|
|
112 determine whether there are any X events: if an event has happened
|
|
|
113 since the last time we checked, then a SIGIO will have happened. On a
|
|
|
114 machine with broken SIGIO, we'll still be in an OK state --
|
|
|
115 quit_check_signal_tick_count will get ticked at least every 1/4
|
|
|
116 second, so we'll be no more than that much behind reality. (In general
|
|
|
117 it's OK if we erroneously report no input pending when input is
|
|
|
118 actually pending() -- preemption is just a bit less efficient, that's
|
|
|
119 all. It's bad bad bad if you err the other way -- you've promised
|
|
|
120 that `next-event' won't block but it actually will, and some action
|
|
|
121 might get delayed until the next time you hit a key.)
|
|
|
122 */
|
|
|
123
|
|
|
124 if (!in_modal_loop)
|
|
|
125 {
|
|
|
126 /* quit_check_signal_tick_count is volatile so try to avoid race
|
|
|
127 conditions by using a temporary variable */
|
|
|
128 tick_count_val = quit_check_signal_tick_count;
|
|
|
129 if (last_quit_check_signal_tick_count != tick_count_val
|
|
|
130 #if !defined (THIS_IS_GTK) && (!defined (SIGIO) || defined (CYGWIN))
|
|
|
131 || (XtIMXEvent & XtAppPending (Xt_app_con))
|
|
|
132 #endif
|
|
|
133 )
|
|
|
134 {
|
|
|
135 last_quit_check_signal_tick_count = tick_count_val;
|
|
|
136
|
|
|
137 /* We need to drain the entire queue now -- if we only drain part of
|
|
|
138 it, we may later on end up with events actually pending but
|
|
|
139 detect_input_pending() returning false because there wasn't
|
|
|
140 another SIGIO. */
|
|
|
141 event_stream_drain_queue ();
|
|
|
142
|
|
|
143 if (!how_many)
|
|
|
144 return !NILP (dispatch_event_queue);
|
|
|
145
|
|
|
146 EVENT_CHAIN_LOOP (event, dispatch_event_queue)
|
|
|
147 {
|
|
|
148 if (command_event_p (event))
|
|
|
149 {
|
|
|
150 how_many--;
|
|
|
151 if (how_many <= 0)
|
|
|
152 return 1;
|
|
|
153 }
|
|
|
154 }
|
|
|
155
|
|
|
156 return 0;
|
|
|
157 }
|
|
|
158 }
|
|
|
159
|
|
|
160 return 0;
|
|
|
161 }
|
|
2828
|
162
|
|
|
163 #if defined(THIS_IS_X) || !defined(__GDK_KEYS_H__)
|
|
|
164
|
|
|
165 /* Use an appropriate map to Unicode within x_keysym_to_character. Arguments
|
|
|
166 are evaluated multiple times.
|
|
|
167
|
|
|
168 Breaks if an X11 keysym maps to zero in Unicode. */
|
|
|
169
|
|
|
170 #define USE_UNICODE_MAP(keysym, map) \
|
|
|
171 if (keysym >= FIRST_KNOWN_##map \
|
|
|
172 && (keysym < (FIRST_KNOWN_##map + countof(map))) \
|
|
|
173 && map[keysym - FIRST_KNOWN_##map ]) do \
|
|
|
174 { \
|
|
|
175 keysym -= FIRST_KNOWN_##map ; \
|
|
|
176 return Funicode_to_char(make_int(map[keysym]), Qnil); \
|
|
|
177 } while (0)
|
|
|
178
|
|
|
179 /* Maps to Unicode for X11 KeySyms, where we don't have a direct internal
|
|
|
180 mapping based on a Mule character set, or whatever. Taken from Markus
|
|
|
181 Kuhn's X11.keysyms--if you're ever comparing with that file, note the
|
|
|
182 sequences of KeySyms often leave out entries, so you'll have to fill them
|
|
|
183 in. Doesn't include support for Hangul, which it should, if the X11
|
|
|
184 Hangul keysyms have ever been used anywhere.
|
|
|
185
|
|
|
186 I'm not #ifdef'ing this based on wheter MULE is defined, because it's a
|
|
|
187 matter of 324 bytes in a stripped executable, and I want the
|
|
|
188 testing. :-P */
|
|
|
189
|
|
|
190 static UINT_16_BIT const TECHNICAL[] =
|
|
|
191 {
|
|
|
192 0x23B7, /* #x08A1 LEFT RADICAL Technical */
|
|
|
193
|
|
|
194 #define FIRST_KNOWN_TECHNICAL 0x8A1
|
|
|
195
|
|
|
196 0x0, /* #x08A2 TOP LEFT RADICAL Technical */
|
|
|
197 0x0, /* #x08A3 HORIZONTAL CONNECTOR Technical */
|
|
|
198 0x2320, /* #x08A4 TOP INTEGRAL Technical */
|
|
|
199 0x2321, /* #x08A5 BOTTOM INTEGRAL Technical */
|
|
|
200 0x0, /* #x08A6 VERTICAL CONNECTOR Technical */
|
|
|
201 0x23A1, /* #x08A7 TOP LEFT SQUARE BRACKET Technical */
|
|
|
202 0x23A3, /* #x08A8 BOTTOM LEFT SQUARE BRACKET Technical */
|
|
|
203 0x23A4, /* #x08A9 TOP RIGHT SQUARE BRACKET Technical */
|
|
|
204 0x23A6, /* #x08AA BOTTOM RIGHT SQUARE BRACKET Technical */
|
|
|
205 0x239B, /* #x08AB TOP LEFT PARENTHESIS Technical */
|
|
|
206 0x239D, /* #x08AC BOTTOM LEFT PARENTHESIS Technical */
|
|
|
207 0x239E, /* #x08AD TOP RIGHT PARENTHESIS Technical */
|
|
|
208 0x23A0, /* #x08AE BOTTOM RIGHT PARENTHESIS Technical */
|
|
|
209 0x23A8, /* #x08AF LEFT MIDDLE CURLY BRACE Technical */
|
|
|
210 0x23AC, /* #x08B0 RIGHT MIDDLE CURLY BRACE Technical */
|
|
|
211 0x0, /* #x08B1 TOP LEFT SUMMATION Technical */
|
|
|
212 0x0, /* #x08B2 BOTTOM LEFT SUMMATION Technical */
|
|
|
213 0x0, /* #x08B3 TOP VERTICAL SUMMATION CONNECTOR Technical */
|
|
|
214 0x0, /* #x08B4 BOTTOM VERTICAL SUMMATION CONNECTOR Technical */
|
|
|
215 0x0, /* #x08B5 TOP RIGHT SUMMATION Technical */
|
|
|
216 0x0, /* #x08B6 BOTTOM RIGHT SUMMATION Technical */
|
|
|
217 0x0, /* #x08B7 RIGHT MIDDLE SUMMATION Technical */
|
|
|
218 0x0, /* #x08B8 */
|
|
|
219 0x0, /* #x08B9 */
|
|
|
220 0x0, /* #x08BA */
|
|
|
221 0x0, /* #x08BB */
|
|
|
222 0x2264, /* #x08BC LESS THAN OR EQUAL SIGN Technical */
|
|
|
223 0x2260, /* #x08BD NOT EQUAL SIGN Technical */
|
|
|
224 0x2265, /* #x08BE GREATER THAN OR EQUAL SIGN Technical */
|
|
|
225 0x222B, /* #x08BF INTEGRAL Technical */
|
|
|
226 0x2234, /* #x08C0 THEREFORE Technical */
|
|
|
227 0x221D, /* #x08C1 VARIATION, PROPORTIONAL TO Technical */
|
|
|
228 0x221E, /* #x08C2 INFINITY Technical */
|
|
|
229 0x0, /* #x08C3 */
|
|
|
230 0x0, /* #x08C4 */
|
|
|
231 0x2207, /* #x08C5 NABLA, DEL Technical */
|
|
|
232 0x0, /* #x08C6 */
|
|
|
233 0x0, /* #x08C7 */
|
|
|
234 0x223C, /* #x08C8 IS APPROXIMATE TO Technical */
|
|
|
235 0x2243, /* #x08C9 SIMILAR OR EQUAL TO Technical */
|
|
|
236 0x0, /* #x08CA */
|
|
|
237 0x0, /* #x08CB */
|
|
|
238 0x0, /* #x08CC */
|
|
|
239 0x21D4, /* #x08CD IF AND ONLY IF Technical */
|
|
|
240 0x21D2, /* #x08CE IMPLIES Technical */
|
|
|
241 0x2261, /* #x08CF IDENTICAL TO Technical */
|
|
|
242 0x0, /* #x08D0 */
|
|
|
243 0x0, /* #x08D1 */
|
|
|
244 0x0, /* #x08D2 */
|
|
|
245 0x0, /* #x08D3 */
|
|
|
246 0x0, /* #x08D4 */
|
|
|
247 0x0, /* #x08D5 */
|
|
|
248 0x221A, /* #x08D6 RADICAL Technical */
|
|
|
249 0x0, /* #x08D7 */
|
|
|
250 0x0, /* #x08D8 */
|
|
|
251 0x0, /* #x08D9 */
|
|
|
252 0x2282, /* #x08DA IS INCLUDED IN Technical */
|
|
|
253 0x2283, /* #x08DB INCLUDES Technical */
|
|
|
254 0x2229, /* #x08DC INTERSECTION Technical */
|
|
|
255 0x222A, /* #x08DD UNION Technical */
|
|
|
256 0x2227, /* #x08DE LOGICAL AND Technical */
|
|
|
257 0x2228, /* #x08DF LOGICAL OR Technical */
|
|
|
258 0x0, /* #x08E0 */
|
|
|
259 0x0, /* #x08E1 */
|
|
|
260 0x0, /* #x08E2 */
|
|
|
261 0x0, /* #x08E3 */
|
|
|
262 0x0, /* #x08E4 */
|
|
|
263 0x0, /* #x08E5 */
|
|
|
264 0x0, /* #x08E6 */
|
|
|
265 0x0, /* #x08E7 */
|
|
|
266 0x0, /* #x08E8 */
|
|
|
267 0x0, /* #x08E9 */
|
|
|
268 0x0, /* #x08Ea */
|
|
|
269 0x0, /* #x08Eb */
|
|
|
270 0x0, /* #x08Ec */
|
|
|
271 0x0, /* #x08Ed */
|
|
|
272 0x0, /* #x08Ee */
|
|
|
273 0x2202, /* #x08EF PARTIAL DERIVATIVE Technical */
|
|
|
274 0x0, /* #x08F0 */
|
|
|
275 0x0, /* #x08F1 */
|
|
|
276 0x0, /* #x08F2 */
|
|
|
277 0x0, /* #x08F3 */
|
|
|
278 0x0, /* #x08F4 */
|
|
|
279 0x0, /* #x08F5 */
|
|
|
280 0x0192, /* #x08F6 FUNCTION Technical */
|
|
|
281 0x0, /* #x08F7 */
|
|
|
282 0x0, /* #x08F8 */
|
|
|
283 0x0, /* #x08F9 */
|
|
|
284 0x0, /* #x08FA */
|
|
|
285 0x2190, /* #x08FB LEFT ARROW Technical */
|
|
|
286 0x2191, /* #x08FC UPWARD ARROW Technical */
|
|
|
287 0x2192, /* #x08FD RIGHT ARROW Technical */
|
|
|
288 0x2193, /* #x08FE DOWNWARD ARROW Technical */
|
|
|
289 };
|
|
|
290
|
|
|
291 static UINT_16_BIT const SPECIAL[] =
|
|
|
292 {
|
|
|
293 0x25C6, /* #x09E0 SOLID DIAMOND Special */
|
|
|
294
|
|
|
295 #define FIRST_KNOWN_SPECIAL 0x9E0
|
|
|
296
|
|
|
297 0x2592, /* #x09E1 CHECKERBOARD Special */
|
|
|
298 0x2409, /* #x09E2 ``HT'' Special */
|
|
|
299 0x240C, /* #x09E3 ``FF'' Special */
|
|
|
300 0x240D, /* #x09E4 ``CR'' Special */
|
|
|
301 0x240A, /* #x09E5 ``LF'' Special */
|
|
|
302 0x0, /* #x09E6 */
|
|
|
303 0x0, /* #x09E7 */
|
|
|
304 0x2424, /* #x09E8 ``NL'' Special */
|
|
|
305 0x240B, /* #x09E9 ``VT'' Special */
|
|
|
306 0x2518, /* #x09EA LOWER-RIGHT CORNER Special */
|
|
|
307 0x2510, /* #x09EB UPPER-RIGHT CORNER Special */
|
|
|
308 0x250C, /* #x09EC UPPER-LEFT CORNER Special */
|
|
|
309 0x2514, /* #x09ED LOWER-LEFT CORNER Special */
|
|
|
310 0x253C, /* #x09EE CROSSING-LINES Special */
|
|
|
311 0x23BA, /* #x09EF HORIZONTAL LINE, SCAN 1 Special */
|
|
|
312 0x23BB, /* #x09F0 HORIZONTAL LINE, SCAN 3 Special */
|
|
|
313 0x2500, /* #x09F1 HORIZONTAL LINE, SCAN 5 Special */
|
|
|
314 0x23BC, /* #x09F2 HORIZONTAL LINE, SCAN 7 Special */
|
|
|
315 0x23BD, /* #x09F3 HORIZONTAL LINE, SCAN 9 Special */
|
|
|
316 0x251C, /* #x09F4 LEFT ``T'' Special */
|
|
|
317 0x2524, /* #x09F5 RIGHT ``T'' Special */
|
|
|
318 0x2534, /* #x09F6 BOTTOM ``T'' Special */
|
|
|
319 0x252C, /* #x09F7 TOP ``T'' Special */
|
|
|
320 0x2502 /* #x09F8 VERTICAL BAR Special */
|
|
|
321 };
|
|
|
322
|
|
|
323 static UINT_16_BIT const PUBLISHING[] =
|
|
|
324 {
|
|
|
325 0x2003, /* #x0AA1 EM SPACE Publish */
|
|
|
326
|
|
|
327 #define FIRST_KNOWN_PUBLISHING 0xAA1
|
|
|
328
|
|
|
329 0x2002, /* #x0AA2 EN SPACE Publish */
|
|
|
330 0x2004, /* #x0AA3 3/EM SPACE Publish */
|
|
|
331 0x2005, /* #x0AA4 4/EM SPACE Publish */
|
|
|
332 0x2007, /* #x0AA5 DIGIT SPACE Publish */
|
|
|
333 0x2008, /* #x0AA6 PUNCTUATION SPACE Publish */
|
|
|
334 0x2009, /* #x0AA7 THIN SPACE Publish */
|
|
|
335 0x200A, /* #x0AA8 HAIR SPACE Publish */
|
|
|
336 0x2014, /* #x0AA9 EM DASH Publish */
|
|
|
337 0x2013, /* #x0AAA EN DASH Publish */
|
|
|
338 0x0, /* #x0AAB */
|
|
|
339 0x0, /* #x0AAC SIGNIFICANT BLANK SYMBOL Publish */
|
|
|
340 0x0, /* #x0AAD */
|
|
|
341 0x2026, /* #x0AAE ELLIPSIS Publish */
|
|
|
342 0x2025, /* #x0AAF DOUBLE BASELINE DOT Publish */
|
|
|
343 0x2153, /* #x0AB0 VULGAR FRACTION ONE THIRD Publish */
|
|
|
344 0x2154, /* #x0AB1 VULGAR FRACTION TWO THIRDS Publish */
|
|
|
345 0x2155, /* #x0AB2 VULGAR FRACTION ONE FIFTH Publish */
|
|
|
346 0x2156, /* #x0AB3 VULGAR FRACTION TWO FIFTHS Publish */
|
|
|
347 0x2157, /* #x0AB4 VULGAR FRACTION THREE FIFTHS Publish */
|
|
|
348 0x2158, /* #x0AB5 VULGAR FRACTION FOUR FIFTHS Publish */
|
|
|
349 0x2159, /* #x0AB6 VULGAR FRACTION ONE SIXTH Publish */
|
|
|
350 0x215A, /* #x0AB7 VULGAR FRACTION FIVE SIXTHS Publish */
|
|
|
351 0x2105, /* #x0AB8 CARE OF Publish */
|
|
|
352 0x0, /* #x0AB9 */
|
|
|
353 0x0, /* #x0ABA */
|
|
|
354 0x2012, /* #x0ABB FIGURE DASH Publish */
|
|
3458
|
355 0x3008, /* #x0ABC LEFT ANGLE BRACKET Publish */
|
|
|
356 0x002E, /* #x0ABD DECIMAL POINT Publish */
|
|
|
357 0x3009, /* #x0ABE RIGHT ANGLE BRACKET Publish */
|
|
2828
|
358 0x0, /* #x0ABF MARKER Publish */
|
|
|
359 0x0, /* #x0AC0 */
|
|
|
360 0x0, /* #x0AC1 */
|
|
|
361 0x0, /* #x0AC2 */
|
|
|
362 0x215B, /* #x0AC3 VULGAR FRACTION ONE EIGHTH Publish */
|
|
|
363 0x215C, /* #x0AC4 VULGAR FRACTION THREE EIGHTHS Publish */
|
|
|
364 0x215D, /* #x0AC5 VULGAR FRACTION FIVE EIGHTHS Publish */
|
|
|
365 0x215E, /* #x0AC6 VULGAR FRACTION SEVEN EIGHTHS Publish */
|
|
|
366 0x0, /* #x0AC7 */
|
|
|
367 0x0, /* #x0AC8 */
|
|
|
368 0x2122, /* #x0AC9 TRADEMARK SIGN Publish */
|
|
|
369 0x0, /* #x0ACA SIGNATURE MARK Publish */
|
|
|
370 0x0, /* #x0ACB TRADEMARK SIGN IN CIRCLE Publish */
|
|
|
371 0x0, /* #x0ACC LEFT OPEN TRIANGLE Publish */
|
|
|
372 0x0, /* #x0ACD RIGHT OPEN TRIANGLE Publish */
|
|
|
373 0x0, /* #x0ACE EM OPEN CIRCLE Publish */
|
|
|
374 0x0, /* #x0ACF EM OPEN RECTANGLE Publish */
|
|
|
375 0x2018, /* #x0AD0 LEFT SINGLE QUOTATION MARK Publish */
|
|
|
376 0x2019, /* #x0AD1 RIGHT SINGLE QUOTATION MARK Publish */
|
|
|
377 0x201C, /* #x0AD2 LEFT DOUBLE QUOTATION MARK Publish */
|
|
|
378 0x201D, /* #x0AD3 RIGHT DOUBLE QUOTATION MARK Publish */
|
|
|
379 0x211E, /* #x0AD4 PRESCRIPTION, TAKE, RECIPE Publish */
|
|
|
380 0x0, /* #x0AD5 */
|
|
|
381 0x2032, /* #x0AD6 MINUTES Publish */
|
|
|
382 0x2033, /* #x0AD7 SECONDS Publish */
|
|
|
383 0x0, /* #x0AD8 */
|
|
|
384 0x271D, /* #x0AD9 LATIN CROSS Publish */
|
|
|
385 0x0, /* #x0ADA HEXAGRAM Publish */
|
|
|
386 0x0, /* #x0ADB FILLED RECTANGLE BULLET Publish */
|
|
|
387 0x0, /* #x0ADC FILLED LEFT TRIANGLE BULLET Publish */
|
|
|
388 0x0, /* #x0ADD FILLED RIGHT TRIANGLE BULLET Publish */
|
|
|
389 0x0, /* #x0ADE EM FILLED CIRCLE Publish */
|
|
|
390 0x0, /* #x0ADF EM FILLED RECTANGLE Publish */
|
|
|
391 0x0, /* #x0AE0 EN OPEN CIRCLE BULLET Publish */
|
|
|
392 0x0, /* #x0AE1 EN OPEN SQUARE BULLET Publish */
|
|
|
393 0x0, /* #x0AE2 OPEN RECTANGULAR BULLET Publish */
|
|
|
394 0x0, /* #x0AE3 OPEN TRIANGULAR BULLET UP Publish */
|
|
|
395 0x0, /* #x0AE4 OPEN TRIANGULAR BULLET DOWN Publish */
|
|
|
396 0x0, /* #x0AE5 OPEN STAR Publish */
|
|
|
397 0x0, /* #x0AE6 EN FILLED CIRCLE BULLET Publish */
|
|
|
398 0x0, /* #x0AE7 EN FILLED SQUARE BULLET Publish */
|
|
|
399 0x0, /* #x0AE8 FILLED TRIANGULAR BULLET UP Publish */
|
|
|
400 0x0, /* #x0AE9 FILLED TRIANGULAR BULLET DOWN Publish */
|
|
|
401 0x0, /* #x0AEA LEFT POINTER Publish */
|
|
|
402 0x0, /* #x0AEB RIGHT POINTER Publish */
|
|
|
403 0x2663, /* #x0AEC CLUB Publish */
|
|
|
404 0x2666, /* #x0AED DIAMOND Publish */
|
|
|
405 0x2665, /* #x0AEE HEART Publish */
|
|
|
406 0x0, /* #x0AEF */
|
|
|
407 0x2720, /* #x0AF0 MALTESE CROSS Publish */
|
|
|
408 0x2020, /* #x0AF1 DAGGER Publish */
|
|
|
409 0x2021, /* #x0AF2 DOUBLE DAGGER Publish */
|
|
|
410 0x2713, /* #x0AF3 CHECK MARK, TICK Publish */
|
|
|
411 0x2717, /* #x0AF4 BALLOT CROSS Publish */
|
|
|
412 0x266F, /* #x0AF5 MUSICAL SHARP Publish */
|
|
|
413 0x266D, /* #x0AF6 MUSICAL FLAT Publish */
|
|
|
414 0x2642, /* #x0AF7 MALE SYMBOL Publish */
|
|
|
415 0x2640, /* #x0AF8 FEMALE SYMBOL Publish */
|
|
|
416 0x260E, /* #x0AF9 TELEPHONE SYMBOL Publish */
|
|
|
417 0x2315, /* #x0AFA TELEPHONE RECORDER SYMBOL Publish */
|
|
|
418 0x2117, /* #x0AFB PHONOGRAPH COPYRIGHT SIGN Publish */
|
|
|
419 0x2038, /* #x0AFC CARET Publish */
|
|
|
420 0x201A, /* #x0AFD SINGLE LOW QUOTATION MARK Publish */
|
|
|
421 0x201E, /* #x0AFE DOUBLE LOW QUOTATION MARK Publish */
|
|
|
422 };
|
|
|
423
|
|
|
424 static UINT_16_BIT const APL[] =
|
|
|
425 {
|
|
|
426 0x22A5, /* #x0BC2 DOWN TACK APL */
|
|
|
427 #define FIRST_KNOWN_APL 0xBC2
|
|
|
428 0x0, /* #x0BC3 UP SHOE (CAP) APL */
|
|
|
429 0x230A, /* #x0BC4 DOWN STILE APL */
|
|
|
430 0x0, /* #x0BC5 */
|
|
|
431 0x0, /* #x0BC6 UNDERBAR APL */
|
|
|
432 0x0, /* #x0BC7 */
|
|
|
433 0x0, /* #x0BC8 */
|
|
|
434 0x0, /* #x0BC9 */
|
|
|
435 0x2218, /* #x0BCA JOT APL */
|
|
|
436 0x0, /* #x0BCB */
|
|
|
437 0x2395, /* #x0BCC QUAD APL */
|
|
|
438 0x0, /* #x0BCD */
|
|
|
439 0x22A4, /* #x0BCE UP TACK APL */
|
|
|
440 0x25CB, /* #x0BCF CIRCLE APL */
|
|
|
441 0x0, /* #x0BD0 */
|
|
|
442 0x0, /* #x0BD1 */
|
|
|
443 0x0, /* #x0BD2 */
|
|
|
444 0x2308, /* #x0BD3 UP STILE APL */
|
|
|
445 0x0, /* #x0BD4 */
|
|
|
446 0x0, /* #x0BD5 */
|
|
|
447 0x0, /* #x0BD6 DOWN SHOE (CUP) APL */
|
|
|
448 0x0, /* #x0BD7 */
|
|
|
449 0x0, /* #x0BD8 RIGHT SHOE APL */
|
|
|
450 0x0, /* #x0BD9 */
|
|
|
451 0x0, /* #x0BDA LEFT SHOE APL */
|
|
|
452 0x0, /* #x0BDB */
|
|
|
453 0x0, /* #x0BDC */
|
|
|
454 0x22A2, /* #x0BDC LEFT TACK APL */
|
|
|
455 0x0, /* #x0BDE */
|
|
|
456 0x0, /* #x0BDF */
|
|
|
457 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, /* 0x0BB0--0x0BBB */
|
|
|
458 0x0, 0x0, 0x0, 0x0,
|
|
|
459 0x22A3, /* #x0BFC RIGHT TACK APL */
|
|
|
460 };
|
|
|
461
|
|
3640
|
462 static UINT_16_BIT const CYRILLIC[] =
|
|
|
463 {
|
|
|
464 0x0452, /* #x06A1 CYRILLIC SMALL LETTER DJE */
|
|
|
465 #define FIRST_KNOWN_CYRILLIC 0x6A1
|
|
|
466 0x0453, /* #x06A2 CYRILLIC SMALL LETTER GJE */
|
|
|
467 0x0451, /* #x06A3 CYRILLIC SMALL LETTER IO */
|
|
|
468 0x0454, /* #x06A4 CYRILLIC SMALL LETTER UKRAINIAN IE */
|
|
|
469 0x0455, /* #x06A5 CYRILLIC SMALL LETTER DZE */
|
|
|
470 0x0456, /* #x06A6 CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I */
|
|
|
471 0x0457, /* #x06A7 CYRILLIC SMALL LETTER YI */
|
|
|
472 0x0458, /* #x06A8 CYRILLIC SMALL LETTER JE */
|
|
|
473 0x0459, /* #x06A9 CYRILLIC SMALL LETTER LJE */
|
|
|
474 0x045A, /* #x06AA CYRILLIC SMALL LETTER NJE */
|
|
|
475 0x045B, /* #x06AB CYRILLIC SMALL LETTER TSHE */
|
|
|
476 0x045C, /* #x06AC CYRILLIC SMALL LETTER KJE */
|
|
|
477 0x0491, /* #x06AD CYRILLIC SMALL LETTER GHE WITH UPTURN */
|
|
|
478 0x045E, /* #x06AE CYRILLIC SMALL LETTER SHORT U */
|
|
|
479 0x045F, /* #x06AF CYRILLIC SMALL LETTER DZHE */
|
|
|
480 0x2116, /* #x06B0 NUMERO SIGN */
|
|
|
481 0x0402, /* #x06B1 CYRILLIC CAPITAL LETTER DJE */
|
|
|
482 0x0403, /* #x06B2 CYRILLIC CAPITAL LETTER GJE */
|
|
|
483 0x0401, /* #x06B3 CYRILLIC CAPITAL LETTER IO */
|
|
|
484 0x0404, /* #x06B4 CYRILLIC CAPITAL LETTER UKRAINIAN IE */
|
|
|
485 0x0405, /* #x06B5 CYRILLIC CAPITAL LETTER DZE */
|
|
|
486 0x0406, /* #x06B6 CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I */
|
|
|
487 0x0407, /* #x06B7 CYRILLIC CAPITAL LETTER YI */
|
|
|
488 0x0408, /* #x06B8 CYRILLIC CAPITAL LETTER JE */
|
|
|
489 0x0409, /* #x06B9 CYRILLIC CAPITAL LETTER LJE */
|
|
|
490 0x040A, /* #x06BA CYRILLIC CAPITAL LETTER NJE */
|
|
|
491 0x040B, /* #x06BB CYRILLIC CAPITAL LETTER TSHE */
|
|
|
492 0x040C, /* #x06BC CYRILLIC CAPITAL LETTER KJE */
|
|
|
493 0x0490, /* #x06BD CYRILLIC CAPITAL LETTER GHE WITH UPTURN */
|
|
|
494 0x040E, /* #x06BE CYRILLIC CAPITAL LETTER SHORT U */
|
|
|
495 0x040F, /* #x06BF CYRILLIC CAPITAL LETTER DZHE */
|
|
|
496 0x044E, /* #x06C0 CYRILLIC SMALL LETTER YU */
|
|
|
497 0x0430, /* #x06C1 CYRILLIC SMALL LETTER A */
|
|
|
498 0x0431, /* #x06C2 CYRILLIC SMALL LETTER BE */
|
|
|
499 0x0446, /* #x06C3 CYRILLIC SMALL LETTER TSE */
|
|
|
500 0x0434, /* #x06C4 CYRILLIC SMALL LETTER DE */
|
|
|
501 0x0435, /* #x06C5 CYRILLIC SMALL LETTER IE */
|
|
|
502 0x0444, /* #x06C6 CYRILLIC SMALL LETTER EF */
|
|
|
503 0x0433, /* #x06C7 CYRILLIC SMALL LETTER GHE */
|
|
|
504 0x0445, /* #x06C8 CYRILLIC SMALL LETTER HA */
|
|
|
505 0x0438, /* #x06C9 CYRILLIC SMALL LETTER I */
|
|
|
506 0x0439, /* #x06CA CYRILLIC SMALL LETTER SHORT I */
|
|
|
507 0x043A, /* #x06CB CYRILLIC SMALL LETTER KA */
|
|
|
508 0x043B, /* #x06CC CYRILLIC SMALL LETTER EL */
|
|
|
509 0x043C, /* #x06CD CYRILLIC SMALL LETTER EM */
|
|
|
510 0x043D, /* #x06CE CYRILLIC SMALL LETTER EN */
|
|
|
511 0x043E, /* #x06CF CYRILLIC SMALL LETTER O */
|
|
|
512 0x043F, /* #x06D0 CYRILLIC SMALL LETTER PE */
|
|
|
513 0x044F, /* #x06D1 CYRILLIC SMALL LETTER YA */
|
|
|
514 0x0440, /* #x06D2 CYRILLIC SMALL LETTER ER */
|
|
|
515 0x0441, /* #x06D3 CYRILLIC SMALL LETTER ES */
|
|
|
516 0x0442, /* #x06D4 CYRILLIC SMALL LETTER TE */
|
|
|
517 0x0443, /* #x06D5 CYRILLIC SMALL LETTER U */
|
|
|
518 0x0436, /* #x06D6 CYRILLIC SMALL LETTER ZHE */
|
|
|
519 0x0432, /* #x06D7 CYRILLIC SMALL LETTER VE */
|
|
|
520 0x044C, /* #x06D8 CYRILLIC SMALL LETTER SOFT SIGN */
|
|
|
521 0x044B, /* #x06D9 CYRILLIC SMALL LETTER YERU */
|
|
|
522 0x0437, /* #x06DA CYRILLIC SMALL LETTER ZE */
|
|
|
523 0x0448, /* #x06DB CYRILLIC SMALL LETTER SHA */
|
|
|
524 0x044D, /* #x06DC CYRILLIC SMALL LETTER E */
|
|
|
525 0x0449, /* #x06DD CYRILLIC SMALL LETTER SHCHA */
|
|
|
526 0x0447, /* #x06DE CYRILLIC SMALL LETTER CHE */
|
|
|
527 0x044A, /* #x06DF CYRILLIC SMALL LETTER HARD SIGN */
|
|
|
528 0x042E, /* #x06E0 CYRILLIC CAPITAL LETTER YU */
|
|
|
529 0x0410, /* #x06E1 CYRILLIC CAPITAL LETTER A */
|
|
|
530 0x0411, /* #x06E2 CYRILLIC CAPITAL LETTER BE */
|
|
|
531 0x0426, /* #x06E3 CYRILLIC CAPITAL LETTER TSE */
|
|
|
532 0x0414, /* #x06E4 CYRILLIC CAPITAL LETTER DE */
|
|
|
533 0x0415, /* #x06E5 CYRILLIC CAPITAL LETTER IE */
|
|
|
534 0x0424, /* #x06E6 CYRILLIC CAPITAL LETTER EF */
|
|
|
535 0x0413, /* #x06E7 CYRILLIC CAPITAL LETTER GHE */
|
|
|
536 0x0425, /* #x06E8 CYRILLIC CAPITAL LETTER HA */
|
|
|
537 0x0418, /* #x06E9 CYRILLIC CAPITAL LETTER I */
|
|
|
538 0x0419, /* #x06EA CYRILLIC CAPITAL LETTER SHORT I */
|
|
|
539 0x041A, /* #x06EB CYRILLIC CAPITAL LETTER KA */
|
|
|
540 0x041B, /* #x06EC CYRILLIC CAPITAL LETTER EL */
|
|
|
541 0x041C, /* #x06ED CYRILLIC CAPITAL LETTER EM */
|
|
|
542 0x041D, /* #x06EE CYRILLIC CAPITAL LETTER EN */
|
|
|
543 0x041E, /* #x06EF CYRILLIC CAPITAL LETTER O */
|
|
|
544 0x041F, /* #x06F0 CYRILLIC CAPITAL LETTER PE */
|
|
|
545 0x042F, /* #x06F1 CYRILLIC CAPITAL LETTER YA */
|
|
|
546 0x0420, /* #x06F2 CYRILLIC CAPITAL LETTER ER */
|
|
|
547 0x0421, /* #x06F3 CYRILLIC CAPITAL LETTER ES */
|
|
|
548 0x0422, /* #x06F4 CYRILLIC CAPITAL LETTER TE */
|
|
|
549 0x0423, /* #x06F5 CYRILLIC CAPITAL LETTER U */
|
|
|
550 0x0416, /* #x06F6 CYRILLIC CAPITAL LETTER ZHE */
|
|
|
551 0x0412, /* #x06F7 CYRILLIC CAPITAL LETTER VE */
|
|
|
552 0x042C, /* #x06F8 CYRILLIC CAPITAL LETTER SOFT SIGN */
|
|
|
553 0x042B, /* #x06F9 CYRILLIC CAPITAL LETTER YERU */
|
|
|
554 0x0417, /* #x06FA CYRILLIC CAPITAL LETTER ZE */
|
|
|
555 0x0428, /* #x06FB CYRILLIC CAPITAL LETTER SHA */
|
|
|
556 0x042D, /* #x06FC CYRILLIC CAPITAL LETTER E */
|
|
|
557 0x0429, /* #x06FD CYRILLIC CAPITAL LETTER SHCHA */
|
|
|
558 0x0427, /* #x06FE CYRILLIC CAPITAL LETTER CHE */
|
|
|
559 0x042A, /* #x06FF CYRILLIC CAPITAL LETTER HARD SIGN */
|
|
|
560 };
|
|
|
561
|
|
2828
|
562 /* For every key on the keyboard that has a known character correspondence,
|
|
|
563 we define the character-of-keysym property of its XEmacs keysym, and make
|
|
|
564 the default binding for the key be self-insert-command.
|
|
|
565
|
|
|
566 The following magic is based on intimate knowledge of some of
|
|
|
567 X11/keysymdef.h. The keysym mappings defined by X11 are based on the
|
|
|
568 iso8859 standards, except for Cyrillic and Greek.
|
|
|
569
|
|
|
570 In a non-Mule world, a user can still have a multi-lingual editor, by
|
|
|
571 doing (set-face-font "...-iso8859-2" (current-buffer)) for all their
|
|
|
572 Latin-2 buffers, etc. and the X11 keysyms corresponding to characters in
|
|
|
573 those character sets will still do the right thing (because of the
|
|
|
574 make_char (code + 0x80) non-Mule case below.) Of course, X11 keysyms in
|
|
|
575 other character sets will not do the right thing, because XEmacs won't
|
|
|
576 support the right thing.
|
|
|
577
|
|
|
578 This code is also called when a command lookup is about to fail, and the
|
|
|
579 X11 platform code has worked out that it previously wasn't aware the
|
|
|
580 keysym of that command could be generated by the user's keyboard; in that
|
|
|
581 case, we bind its XEmacs keysym to self-insert-command if it has a
|
|
|
582 character correspondence we know about, and tell the general event code
|
|
|
583 that we've done so, so it can try the lookup again.
|
|
|
584
|
|
|
585 Called from the GTK code because GTK 1 has no defined way of doing the
|
|
|
586 same thing, and this works for it on X11. It should be moved back into
|
|
|
587 event-Xt.c when and if the GTK port moves to GTK 2. */
|
|
|
588
|
|
|
589 #ifndef THIS_IS_GTK
|
|
|
590 static Lisp_Object
|
|
|
591 x_keysym_to_character(KeySym keysym)
|
|
|
592 #else
|
|
|
593 Lisp_Object
|
|
|
594 gtk_keysym_to_character(guint keysym)
|
|
|
595 #endif
|
|
|
596 {
|
|
|
597 Lisp_Object charset = Qzero;
|
|
|
598 int code = 0;
|
|
|
599
|
|
|
600 /* Markus Kuhn's spec says keysyms in the range #x01000100 to #x0110FFFF
|
|
|
601 and only those should correspond directly to Unicode code points, in
|
|
|
602 the range #x100-#x10FFFF; actual implementations can have the Latin 1
|
|
|
603 code points do the same thing with keysyms
|
|
3439
|
604 #x01000000-#x01000100. */
|
|
2828
|
605
|
|
3439
|
606 if (keysym >= 0x01000000 && keysym <= 0x0110FFFF)
|
|
2828
|
607 return Funicode_to_char (make_int(keysym & 0xffffff), Qnil);
|
|
|
608
|
|
|
609 if ((keysym & 0xff) < 0xa0)
|
|
|
610 return Qnil;
|
|
|
611
|
|
|
612 switch (keysym >> 8)
|
|
|
613 {
|
|
|
614
|
|
|
615 #define USE_CHARSET(var,cs) \
|
|
|
616 ((var) = charset_by_leading_byte (LEADING_BYTE_##cs))
|
|
|
617
|
|
|
618 case 0: /* ASCII + Latin1 */
|
|
|
619 USE_CHARSET (charset, LATIN_ISO8859_1);
|
|
|
620 code = keysym & 0x7f;
|
|
|
621 break;
|
|
|
622 case 1: /* Latin2 */
|
|
|
623 USE_CHARSET (charset, LATIN_ISO8859_2);
|
|
|
624 code = keysym & 0x7f;
|
|
|
625 break;
|
|
|
626 case 2: /* Latin3 */
|
|
|
627 USE_CHARSET (charset, LATIN_ISO8859_3);
|
|
|
628 code = keysym & 0x7f;
|
|
|
629 break;
|
|
|
630 case 3: /* Latin4 */
|
|
|
631 USE_CHARSET (charset, LATIN_ISO8859_4);
|
|
|
632 code = keysym & 0x7f;
|
|
|
633 break;
|
|
|
634 case 4: /* Katakana */
|
|
|
635 USE_CHARSET (charset, KATAKANA_JISX0201);
|
|
|
636 if ((keysym & 0xff) > 0xa0)
|
|
|
637 code = keysym & 0x7f;
|
|
|
638 break;
|
|
|
639 case 5: /* Arabic */
|
|
|
640 USE_CHARSET (charset, ARABIC_ISO8859_6);
|
|
|
641 code = keysym & 0x7f;
|
|
|
642 break;
|
|
|
643 case 6: /* Cyrillic */
|
|
|
644 {
|
|
3640
|
645 USE_UNICODE_MAP(keysym, CYRILLIC);
|
|
2828
|
646 break;
|
|
|
647 }
|
|
|
648 case 7: /* Greek */
|
|
|
649 {
|
|
|
650 static UExtbyte const greek[] = /* 0x20 - 0x7f */
|
|
|
651 {0x00, 0x36, 0x38, 0x39, 0x3a, 0x5a, 0x00, 0x3c,
|
|
|
652 0x3e, 0x5b, 0x00, 0x3f, 0x00, 0x00, 0x35, 0x2f,
|
|
|
653 0x00, 0x5c, 0x5d, 0x5e, 0x5f, 0x7a, 0x40, 0x7c,
|
|
|
654 0x7d, 0x7b, 0x60, 0x7e, 0x00, 0x00, 0x00, 0x00,
|
|
|
655 0x00, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47,
|
|
|
656 0x48, 0x49, 0x4a, 0x4b, 0x4c, 0x4d, 0x4e, 0x4f,
|
|
|
657 0x50, 0x51, 0x53, 0x00, 0x54, 0x55, 0x56, 0x57,
|
|
|
658 0x58, 0x59, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
|
|
|
659 0x00, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67,
|
|
|
660 0x68, 0x69, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f,
|
|
|
661 0x70, 0x71, 0x73, 0x72, 0x74, 0x75, 0x76, 0x77,
|
|
|
662 0x78, 0x79, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
|
|
|
663 USE_CHARSET (charset, GREEK_ISO8859_7);
|
|
|
664 code = greek[(keysym & 0x7f) - 0x20];
|
|
|
665 break;
|
|
|
666 }
|
|
|
667 case 8:
|
|
|
668 USE_UNICODE_MAP(keysym, TECHNICAL);
|
|
|
669 break;
|
|
|
670 case 9:
|
|
|
671 USE_UNICODE_MAP(keysym, SPECIAL);
|
|
|
672 break;
|
|
|
673 case 10:
|
|
|
674 USE_UNICODE_MAP(keysym, PUBLISHING);
|
|
|
675 break;
|
|
|
676 case 11:
|
|
|
677 USE_UNICODE_MAP(keysym, APL);
|
|
|
678 break;
|
|
|
679 case 12: /* Hebrew */
|
|
|
680 USE_CHARSET (charset, HEBREW_ISO8859_8);
|
|
|
681 code = keysym & 0x7f;
|
|
|
682 break;
|
|
|
683 case 13: /* Thai */
|
|
|
684 /* #### This needs to deal with character composition.
|
|
|
685 Are you sure we can't leave it to the X server? */
|
|
|
686 USE_CHARSET (charset, THAI_TIS620);
|
|
|
687 code = keysym & 0x7f;
|
|
|
688 break;
|
|
|
689 case 14: /* Korean Hangul. Would like some information on whether this
|
|
|
690 is worth doing--there don't appear to be any Korean keyboard
|
|
|
691 layouts in the XKB data files. */
|
|
|
692 break;
|
|
|
693
|
|
|
694 case 19: /* Latin 9 - ISO8859-15. */
|
|
|
695 USE_CHARSET (charset, LATIN_ISO8859_15);
|
|
|
696 code = keysym & 0x7f;
|
|
|
697 break;
|
|
|
698 case 32: /* Currency. The lower sixteen bits of these keysyms happily
|
|
|
699 correspond exactly to the Unicode code points of the
|
|
|
700 associated characters */
|
|
|
701 return Funicode_to_char(make_int(keysym & 0xffff), Qnil);
|
|
|
702 break;
|
|
|
703 default:
|
|
|
704 break;
|
|
|
705 }
|
|
|
706
|
|
|
707 if (code == 0)
|
|
|
708 return Qnil;
|
|
|
709
|
|
|
710 #ifdef MULE
|
|
|
711 return make_char (make_ichar (charset, code, 0));
|
|
|
712 #else
|
|
|
713 return make_char (code + 0x80);
|
|
|
714 #endif
|
|
|
715 }
|
|
|
716
|
|
|
717 #endif /* defined(THIS_IS_X) || !defined(__GDK_KEYS_H__) */
|
