← Back to branch summary

~ubuntu-branches/ubuntu/karmic/scilab/karmic

« back to all changes in this revision

Viewing changes to routines/X11/Xmu/Lookup.c

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2002-03-21 16:57:43 UTC
  • Revision ID: james.westby@ubuntu.com-20020321165743-e9mv12c1tb1plztg
Tags: upstream-2.6
Import upstream version 2.6

Show diffs side-by-side

added added

removed removed

Lines of Context:
routines/X11/Xmu/Lookup.c
 
1
/* "$XConsortium: Lookup.c,v 1.12 90/12/11 13:19:10 rws Exp $"; */
 
2
 
 
3
/* 
 
4
 * Copyright 1988, 1989 by the Massachusetts Institute of Technology
 
5
 *
 
6
 * Permission to use, copy, modify, and distribute this software and its
 
7
 * documentation for any purpose and without fee is hereby granted, provided 
 
8
 * that the above copyright notice appear in all copies and that both that 
 
9
 * copyright notice and this permission notice appear in supporting 
 
10
 * documentation, and that the name of M.I.T. not be used in advertising
 
11
 * or publicity pertaining to distribution of the software without specific, 
 
12
 * written prior permission. M.I.T. makes no representations about the 
 
13
 * suitability of this software for any purpose.  It is provided "as is"
 
14
 * without express or implied warranty.
 
15
 *
 
16
 */
 
17
 
 
18
#include <X11/Xlib.h>
 
19
#include <X11/Xutil.h>
 
20
#define XK_LATIN1
 
21
#define XK_PUBLISHING
 
22
#include <X11/keysymdef.h>
 
23
 
 
24
#if __STDC__
 
25
#define Const const
 
26
#else
 
27
#define Const /**/
 
28
#endif
 
29
 
 
30
/* bit (1<<i) means character is in codeset i */
 
31
static unsigned short Const latin1[128] =
 
32
  {0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 
33
   0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 
34
   0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 
35
   0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 
36
   0x10ee, 0x0000, 0x1000, 0x1084, 0x102e, 0x1000, 0x1080, 0x108e, /* 10 */
 
37
   0x108e, 0x1080, 0x0000, 0x1080, 0x1080, 0x10ee, 0x1000, 0x1008,
 
38
   0x108e, 0x1080, 0x1084, 0x1084, 0x108e, 0x1004, 0x1000, 0x1084, /* 11 */
 
39
   0x100e, 0x1000, 0x0000, 0x1080, 0x1000, 0x1084, 0x1000, 0x0000,
 
40
   0x0004, 0x000e, 0x000e, 0x0008, 0x000e, 0x0008, 0x0008, 0x0006, /* 12 */
 
41
   0x0004, 0x000e, 0x0004, 0x000e, 0x0004, 0x000e, 0x000e, 0x0004,
 
42
   0x0000, 0x0004, 0x0004, 0x0006, 0x000e, 0x0008, 0x000e, 0x000e, /* 13 */
 
43
   0x0008, 0x0004, 0x000e, 0x000c, 0x000e, 0x0002, 0x0000, 0x000e,
 
44
   0x0004, 0x000e, 0x000e, 0x0008, 0x000e, 0x0008, 0x0008, 0x0006, /* 14 */
 
45
   0x0004, 0x000e, 0x0004, 0x000e, 0x0004, 0x000e, 0x000e, 0x0004,
 
46
   0x0000, 0x0004, 0x0004, 0x0006, 0x000e, 0x0008, 0x000e, 0x000e, /* 15 */
 
47
   0x0008, 0x0004, 0x000e, 0x000c, 0x000e, 0x0002, 0x0000, 0x0000};
 
48
 
 
49
/* bit (1<<i) means character is in codeset i */
 
50
static unsigned short Const latin2[128] =
 
51
  {0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 
52
   0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 
53
   0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 
54
   0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 
55
   0x0000, 0x0008, 0x0004, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, /* 10 */
 
56
   0x0000, 0x0008, 0x0004, 0x0000, 0x0000, 0x0000, 0x0008, 0x0004,
 
57
   0x0000, 0x0008, 0x0008, 0x0000, 0x0000, 0x0000, 0x0000, 0x0008, /* 11 */
 
58
   0x0000, 0x0008, 0x0004, 0x0000, 0x0000, 0x0000, 0x0008, 0x0004,
 
59
   0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, /* 12 */
 
60
   0x0008, 0x0000, 0x0008, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 
61
   0x0008, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, /* 13 */
 
62
   0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 
63
   0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, /* 14 */
 
64
   0x0008, 0x0000, 0x0008, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
 
65
   0x0008, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, /* 15 */
 
66
   0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x000c};
 
67
 
 
68
/* maps Cyrillic keysyms to 8859-5 */
 
69
static unsigned char Const cyrillic[128] =
 
70
   {0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
 
71
    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
 
72
    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
 
73
    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
 
74
    0x00, 0xf2, 0xf3, 0xf1, 0xf4, 0xf5, 0xf6, 0xf7, /* 10 */
 
75
    0xf8, 0xf9, 0xfa, 0xfb, 0xfc, 0x00, 0xfe, 0xff,
 
76
    0xf0, 0xa2, 0xa3, 0xa1, 0xa4, 0xa5, 0xa6, 0xa7, /* 11 */
 
77
    0xa8, 0xa9, 0xaa, 0xab, 0xac, 0x00, 0xae, 0xaf,
 
78
    0xee, 0xd0, 0xd1, 0xe6, 0xd4, 0xd5, 0xe4, 0xd3, /* 12 */
 
79
    0xe5, 0xd8, 0xd9, 0xda, 0xdb, 0xdc, 0xdd, 0xde,
 
80
    0xdf, 0xef, 0xe0, 0xe1, 0xe2, 0xe3, 0xd6, 0xd2, /* 13 */
 
81
    0xec, 0xeb, 0xd7, 0xe8, 0xed, 0xe9, 0xe7, 0xea,
 
82
    0xce, 0xb0, 0xb1, 0xc6, 0xb4, 0xb5, 0xc4, 0xb3, /* 14 */
 
83
    0xc5, 0xb8, 0xb9, 0xba, 0xbb, 0xbc, 0xbd, 0xbe,
 
84
    0xbf, 0xcf, 0xc0, 0xc1, 0xc2, 0xc3, 0xb6, 0xb2, /* 15 */
 
85
    0xcc, 0xcb, 0xb7, 0xc8, 0xcd, 0xc9, 0xc7, 0xca};
 
86
 
 
87
/* maps Greek keysyms to 8859-7 */
 
88
static unsigned char Const greek[128] =
 
89
   {0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
 
90
    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
 
91
    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
 
92
    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
 
93
    0x00, 0xb6, 0xb8, 0xb9, 0xba, 0xda, 0x00, 0xbc, /* 10 */
 
94
    0xbe, 0xdb, 0x00, 0xbf, 0x00, 0x00, 0xb5, 0xaf,
 
95
    0x00, 0xdc, 0xdd, 0xde, 0xdf, 0xfa, 0xc0, 0xfc, /* 11 */
 
96
    0xfd, 0xfb, 0xe0, 0xfe, 0x00, 0x00, 0x00, 0x00,
 
97
    0x00, 0xc1, 0xc2, 0xc3, 0xc4, 0xc5, 0xc6, 0xc7, /* 12 */
 
98
    0xc8, 0xc9, 0xca, 0xcb, 0xcc, 0xcd, 0xce, 0xcf,
 
99
    0xd0, 0xd1, 0xd3, 0x00, 0xd4, 0xd5, 0xd6, 0xd7, /* 13 */
 
100
    0xd8, 0xd9, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
 
101
    0x00, 0xe1, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6, 0xe7, /* 14 */
 
102
    0xe8, 0xe9, 0xea, 0xeb, 0xec, 0xed, 0xee, 0xef,
 
103
    0xf0, 0xf1, 0xf3, 0xf2, 0xf4, 0xf5, 0xf6, 0xf7, /* 15 */
 
104
    0xf8, 0xf9, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
 
105
 
 
106
#define sLatin1         0
 
107
#define sLatin2         1
 
108
#define sLatin3         2
 
109
#define sLatin4         3
 
110
#define sKana           4
 
111
#define sX0201          0x01000004
 
112
#define sArabic         5
 
113
#define sCyrillic       6
 
114
#define sGreek          7
 
115
#define sAPL            11
 
116
#define sHebrew         12
 
117
 
 
118
int XmuLookupString (event, buffer, nbytes, keysym, status, keysymSet)
 
119
    register XKeyEvent *event;
 
120
    char *buffer;
 
121
    int nbytes;
 
122
    KeySym *keysym;
 
123
    XComposeStatus *status;
 
124
    unsigned long keysymSet;
 
125
{
 
126
    int count;
 
127
    KeySym symbol;
 
128
    unsigned long kset;
 
129
 
 
130
    kset = keysymSet & 0xffffff;
 
131
    count = XLookupString(event, buffer, nbytes, &symbol, status);
 
132
    if (keysym) *keysym = symbol;
 
133
    if ((nbytes == 0) || (symbol == NoSymbol)) {
 
134
        /* nothing */
 
135
    } else if ((count == 0) && ((symbol >> 8) == kset)) {
 
136
        count = 1;
 
137
        switch (keysymSet) {
 
138
        case sKana:
 
139
            buffer[0] = (symbol & 0xff);
 
140
            if (buffer[0] == 0x7e)
 
141
                count = 0;
 
142
            break;
 
143
        case sCyrillic:
 
144
            buffer[0] = cyrillic[symbol & 0x7f];
 
145
            break;
 
146
        case sGreek:
 
147
            buffer[0] = greek[symbol & 0x7f];
 
148
            if (!buffer[0])
 
149
                count = 0;
 
150
            break;
 
151
        default:
 
152
            buffer[0] = (symbol & 0xff);
 
153
            break;
 
154
        }
 
155
    } else if ((keysymSet != 0) && (count == 1) &&
 
156
               (((unsigned char *)buffer)[0] == symbol) &&
 
157
               (symbol & 0x80) &&
 
158
               !(latin1[symbol & 0x7f] & (1 << kset))) {
 
159
        if ((keysymSet == sHebrew) && (symbol == XK_multiply))
 
160
            buffer[0] = 0xaa;
 
161
        else if ((keysymSet == sHebrew) && (symbol == XK_division))
 
162
            buffer[0] = 0xba;
 
163
        else if ((keysymSet == sCyrillic) && (symbol == XK_section))
 
164
            buffer[0] = 0xfd;
 
165
        else if ((keysymSet == sX0201) && (symbol == XK_yen))
 
166
            buffer[0] = 0x5c;
 
167
        else
 
168
            count = 0;
 
169
    } else if (count != 0) {
 
170
        if ((keysymSet == sX0201) &&
 
171
            ((symbol == XK_backslash) || (symbol == XK_asciitilde)))
 
172
            count = 0;
 
173
    } else if (((symbol >> 8) == sLatin2) &&
 
174
               (symbol & 0x80) && (latin2[symbol & 0x7f] & (1 << kset))) {
 
175
        buffer[0] = (symbol & 0xff);
 
176
        count = 1;
 
177
    } else if ((keysymSet == sGreek) &&
 
178
               ((symbol == XK_leftsinglequotemark) ||
 
179
                (symbol == XK_rightsinglequotemark))) {
 
180
        buffer[0] = symbol - (XK_leftsinglequotemark - 0xa1);
 
181
        count = 1;
 
182
    }
 
183
    return count;
 
184
}
 
185
 
 
186
/* produces ISO 8859-1 encoding plus ASCII control */
 
187
int XmuLookupLatin1 (event, buffer, nbytes, keysym, status)
 
188
    register XKeyEvent *event;
 
189
    char *buffer;
 
190
    int nbytes;
 
191
    KeySym *keysym;
 
192
    XComposeStatus *status;
 
193
{
 
194
    return XLookupString(event, buffer, nbytes, keysym, status);
 
195
}
 
196
 
 
197
/* produces ISO 8859-2 encoding plus ASCII control */
 
198
int XmuLookupLatin2 (event, buffer, nbytes, keysym, status)
 
199
    register XKeyEvent *event;
 
200
    char *buffer;
 
201
    int nbytes;
 
202
    KeySym *keysym;
 
203
    XComposeStatus *status;
 
204
{
 
205
    return XmuLookupString(event, buffer, nbytes, keysym, status, sLatin2);
 
206
}
 
207
 
 
208
/* produces ISO 8859-3 encoding plus ASCII control */
 
209
int XmuLookupLatin3 (event, buffer, nbytes, keysym, status)
 
210
    register XKeyEvent *event;
 
211
    char *buffer;
 
212
    int nbytes;
 
213
    KeySym *keysym;
 
214
    XComposeStatus *status;
 
215
{
 
216
    return XmuLookupString(event, buffer, nbytes, keysym, status, sLatin3);
 
217
}
 
218
 
 
219
/* produces ISO 8859-4 encoding plus ASCII control */
 
220
int XmuLookupLatin4 (event, buffer, nbytes, keysym, status)
 
221
    register XKeyEvent *event;
 
222
    char *buffer;
 
223
    int nbytes;
 
224
    KeySym *keysym;
 
225
    XComposeStatus *status;
 
226
{
 
227
    return XmuLookupString(event, buffer, nbytes, keysym, status, sLatin4);
 
228
}
 
229
 
 
230
/* produces ISO 8859-1 GL plus Katakana plus ASCII control */
 
231
int XmuLookupKana (event, buffer, nbytes, keysym, status)
 
232
    register XKeyEvent *event;
 
233
    char *buffer;
 
234
    int nbytes;
 
235
    KeySym *keysym;
 
236
    XComposeStatus *status;
 
237
{
 
238
    return XmuLookupString(event, buffer, nbytes, keysym, status, sKana);
 
239
}
 
240
 
 
241
/* produces JIS X0201-1976 (8-bit) */
 
242
int XmuLookupJISX0201 (event, buffer, nbytes, keysym, status)
 
243
    register XKeyEvent *event;
 
244
    char *buffer;
 
245
    int nbytes;
 
246
    KeySym *keysym;
 
247
    XComposeStatus *status;
 
248
{
 
249
    return XmuLookupString(event, buffer, nbytes, keysym, status, sX0201);
 
250
}
 
251
 
 
252
/* produces ISO 8859-6 encoding plus ASCII control */
 
253
int XmuLookupArabic (event, buffer, nbytes, keysym, status)
 
254
    register XKeyEvent *event;
 
255
    char *buffer;
 
256
    int nbytes;
 
257
    KeySym *keysym;
 
258
    XComposeStatus *status;
 
259
{
 
260
    return XmuLookupString(event, buffer, nbytes, keysym, status, sArabic);
 
261
}
 
262
 
 
263
/* produces ISO/IEC 8859-5 encoding plus ASCII control */
 
264
int XmuLookupCyrillic (event, buffer, nbytes, keysym, status)
 
265
    register XKeyEvent *event;
 
266
    char *buffer;
 
267
    int nbytes;
 
268
    KeySym *keysym;
 
269
    XComposeStatus *status;
 
270
{
 
271
    return XmuLookupString(event, buffer, nbytes, keysym, status, sCyrillic);
 
272
}
 
273
 
 
274
/* produces ISO 8859-7 encoding plus ASCII control */
 
275
int XmuLookupGreek (event, buffer, nbytes, keysym, status)
 
276
    register XKeyEvent *event;
 
277
    char *buffer;
 
278
    int nbytes;
 
279
    KeySym *keysym;
 
280
    XComposeStatus *status;
 
281
{
 
282
    return XmuLookupString(event, buffer, nbytes, keysym, status, sGreek);
 
283
}
 
284
 
 
285
/* XXX this character set needs work */
 
286
 
 
287
int XmuLookupAPL (event, buffer, nbytes, keysym, status)
 
288
    register XKeyEvent *event;
 
289
    char *buffer;
 
290
    int nbytes;
 
291
    KeySym *keysym;
 
292
    XComposeStatus *status;
 
293
{
 
294
    return XmuLookupString(event, buffer, nbytes, keysym, status, sAPL);
 
295
}
 
296
 
 
297
/* produces ISO 8859-8 encoding plus ASCII control */
 
298
int XmuLookupHebrew (event, buffer, nbytes, keysym, status)
 
299
    register XKeyEvent *event;
 
300
    char *buffer;
 
301
    int nbytes;
 
302
    KeySym *keysym;
 
303
    XComposeStatus *status;
 
304
{
 
305
    return XmuLookupString(event, buffer, nbytes, keysym, status, sHebrew);
 
306
}