(read_from_c_string): New function.
[chise/xemacs-chise.git.1] / src / input-method-motif.c
1 /* Various functions for X11R5+ input methods, using the Motif XmIm* functions.
2    input-method-xlib.c provides a lower-level implementation.
3    Copyright (C) 1996 Sun Microsystems.
4
5 This file is part of XEmacs.
6
7 XEmacs is free software; you can redistribute it and/or modify it
8 under the terms of the GNU General Public License as published by the
9 Free Software Foundation; either version 2, or (at your option) any
10 later version.
11
12 XEmacs is distributed in the hope that it will be useful, but WITHOUT
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
15 for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with XEmacs; see the file COPYING.  If not, write to
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA.  */
21
22 /* Synched up with: Not in FSF. */
23
24 /* Written by Martin Buchholz. */
25
26 #include <config.h>
27 #include <X11/Xlocale.h>        /* More portable than <locale.h> ? */
28 #include "lisp.h"
29 #include "console-x.h"
30 #include "device.h"
31 #include "frame.h"
32 #include "EmacsFrame.h"
33 #include <Xm/Xm.h>
34
35 #ifndef XIM_MOTIF
36 #error  XIM_MOTIF is not defined??
37 #endif
38
39 void
40 Initialize_Locale (void)
41 {
42   char *locale;
43
44   /* dverna - Nov. 98: #### DON'T DO THIS !!! The default XtLanguageProc
45      routine calls setlocale(LC_ALL, lang) which fucks up our lower-level
46      locale management, and especially the value of LC_NUMERIC. Anyway, since
47      at this point, we don't know yet whether we're gonna need an X11 frame,
48      we should really do it manually and not use Xlib's dumb default routine */
49   /*XtSetLanguageProc (NULL, (XtLanguageProc) NULL, NULL);*/
50   if ((locale = setlocale (LC_ALL, "")) == NULL)
51     {
52       stderr_out ("Can't set locale.\n");
53       stderr_out ("Using C locale instead.\n");
54       putenv ("LANG=C");
55       putenv ("LC_ALL=C");
56       if ((locale = setlocale (LC_ALL, "C")) == NULL)
57         {
58           stderr_out ("Can't even set locale to `C'!\n");
59           return;
60         }
61     }
62
63   if (!XSupportsLocale ())
64     {
65       stderr_out ("X Windows does not support locale `%s'\n", locale);
66       stderr_out ("Using C Locale instead\n");
67       putenv ("LANG=C");
68       putenv ("LC_ALL=C");
69       if ((locale = setlocale (LC_ALL, "C")) == NULL)
70         {
71           stderr_out ("Can't even set locale to `C'!\n");
72           return;
73         }
74       if (!XSupportsLocale ())
75         {
76           stderr_out ("X Windows does not even support locale `C'!\n");
77           return;
78         }
79     }
80
81   setlocale(LC_NUMERIC, "C");
82
83   if (XSetLocaleModifiers ("") == NULL)
84     {
85       stderr_out ("XSetLocaleModifiers(\"\") failed\n");
86       stderr_out ("Check the value of the XMODIFIERS environment variable.\n");
87     }
88 }
89
90 /* Create X input method for device */
91 void
92 XIM_init_device (struct device *d)
93 {
94   /* Nothing to do */
95 }
96
97 /* Callback for the deleting frame. */
98 static void
99 XIM_delete_frame (Widget w, XtPointer client_data, XtPointer call_data)
100 {
101   XmImUnregister ((Widget) client_data);
102 }
103
104 void
105 XIM_init_frame (struct frame *f)
106 {
107   Widget w = FRAME_X_TEXT_WIDGET (f);
108   XPoint spot = {0,0};
109   XmFontList fontlist;
110   XmFontListEntry fontlistEntry;
111
112   typedef struct
113     {
114       XFontSet  fontset;
115       Pixel     fg;
116       Pixel     bg;
117     } xim_resources_t;
118
119   xim_resources_t xim_resources;
120
121   /* mrb: #### Fix so that background and foreground is set from
122      default face, rather than foreground and background resources, or
123      that the user can use set-frame-parameters to set xic attributes */
124
125 #define res(name, class, representation, field, default_value)  \
126   { name, class, representation, sizeof(xim_resources.field),   \
127     XtOffsetOf(xim_resources_t, field),                         \
128     XtRString, (XtPointer) (default_value) }
129
130   static XtResource resources[] =
131   {
132     /*  name              class          represent'n field    default value */
133     res(XtNfontSet,       XtCFontSet,    XtRFontSet, fontset, XtDefaultFontSet),
134     res(XtNximForeground, XtCForeground, XtRPixel,   fg,      XtDefaultForeground),
135     res(XtNximBackground, XtCBackground, XtRPixel,   bg,      XtDefaultBackground)
136   };
137
138   XtGetApplicationResources (w, &xim_resources,
139                              resources, XtNumber (resources),
140                              NULL, 0);
141
142   if (! xim_resources.fontset)
143     {
144       stderr_out ("Can't get fontset resource for Input Method\n");
145       return;
146     }
147
148   fontlistEntry = XmFontListEntryCreate(XmFONTLIST_DEFAULT_TAG,
149                                         XmFONT_IS_FONTSET,
150                                         (XtPointer) xim_resources.fontset);
151   fontlist = XmFontListAppendEntry (NULL, fontlistEntry);
152   XmImRegister (w, 0);
153   XmImVaSetValues (w,
154                    XmNfontList,     fontlist,
155                    XmNforeground,   xim_resources.fg,
156                    XmNbackground,   xim_resources.bg,
157                    XmNspotLocation, &spot,
158                    /*   XmNlineSpace, 0, */
159                    NULL);
160
161   XmFontListEntryFree (&fontlistEntry);
162
163   XtAddCallback (w, XmNdestroyCallback, XIM_delete_frame, (XtPointer) w);
164 }
165
166 void
167 XIM_SetGeometry (struct frame *f)
168 {
169 }
170
171 void
172 XIM_SetSpotLocation (struct frame *f, int x, int y)
173 {
174   /* #### FIX: Must make sure spot fits within Preedit Area */
175   XPoint *spot = &(FRAME_X_XIC_SPOT (f));
176   if (spot->x == (short) x &&
177       spot->y == (short) y)
178     return;
179
180   spot->x = (short) x;
181   spot->y = (short) y;
182
183   XmImVaSetValues (FRAME_X_TEXT_WIDGET (f), XmNspotLocation, spot, NULL);
184 }
185
186 void
187 XIM_focus_event (struct frame *f, int in_p)
188 {
189   if (in_p)
190     XmImVaSetFocusValues (FRAME_X_TEXT_WIDGET (f), NULL);
191   else
192     XmImUnsetFocus (FRAME_X_TEXT_WIDGET (f));
193 }
194
195 void
196 vars_of_input_method_motif (void)
197 {
198   Fprovide (intern ("xim"));
199 }