xemacs-beta: src/input-method-xlib.c comparison

comparison src/input-method-xlib.c @ 185:3d6bfa290dbd r20-3b19

Import from CVS: tag r20-3b19

author	cvs
date	Mon, 13 Aug 2007 09:55:28 +0200
parents	9ad43877534d
children	850242ba4a81

comparison

equal deleted inserted replaced

-:bcd2674570bf
+:3d6bfa290dbd
 void
 Initialize_Locale (void)
 {
 char *locale;
 XtSetLanguageProc (NULL, (XtLanguageProc) NULL, NULL);
 if ((locale = setlocale (LC_ALL, "")) == NULL)
 {
 stderr_out ("Can't set locale.\n");
 stderr_out ("Using C locale instead.\n");
 {
 stderr_out ("X Windows does not even support locale `C'!\n");
 return;
 }
 }
 if (XSetLocaleModifiers ("") == NULL)
 {
 stderr_out ("XSetLocaleModifiers(\"\") failed\n");
 stderr_out ("Check the value of the XMODIFIERS environment variable.\n");
 }
 Display *dpy = DEVICE_X_DISPLAY (d);
 char *name, *class;
 XIM xim;
 XtGetApplicationNameAndClass (dpy, &name, &class);
 DEVICE_X_XIM (d) = xim = XOpenIM (dpy, XtDatabase (dpy), name, class);
 if (xim == NULL)
 {
 stderr_out ("Warning: XOpenIM() failed...no input server available\n");
 return;
 }
 Pixel     fg;
 Pixel     bg;
 } xic_vars_t;
 xic_vars_t xic_vars;
 /* mrb: #### Fix so that background and foreground is set from
 default face, rather than foreground and background resources, or
 that the user can use set-frame-parameters to set xic attributes */
 #define res(name, class, representation, field, default_value) \
 res(XtNximForeground, XtCForeground, XtRPixel,     fg,      XtDefaultForeground),
 res(XtNximBackground, XtCBackground, XtRPixel,     bg,      XtDefaultBackground)
 };
 assert (win != 0 && w != NULL && d != NULL);
 if (!xim)
 {                   /* No input method? */
 FRAME_X_XIC (f) = NULL;
 return;
 }
 XtGetApplicationResources (w, &xic_vars,
 			     resources, XtNumber (resources),
 			     NULL, 0);
 if (!xic_vars.fontset)
 {
 stderr_out ("Can't get fontset resource for Input Method\n");
 FRAME_X_XIC (f) = NULL;
 return;
 }
 FRAME_X_XIC_STYLE (f) = style =
 best_style (&xic_vars.styles, DEVICE_X_XIM_STYLES (d));
 /* Hopefully we don't have to conditionalize the following based on
 style; the IM should ignore values it doesn't use */
 p_list = XVaCreateNestedList (0,
 XNArea,         &p_area,
 XNSpotLocation, &spot,
 XNPreeditAttributes, p_list,
 XNStatusAttributes,  s_list,
 NULL);
 XFree (p_list);
 XFree (s_list);
 if (!xic)
 {
 stderr_out ("Warning: XCreateIC failed\n");
 return;
 }
 XPoint *spot = &(FRAME_X_XIC_SPOT (f));
 spot->x = spot->y = -1;
 }
 XIM_SetGeometry (f);
 XSetICFocus (xic);
 #ifdef DEBUG_XIM
 describe_XIC (xic);
 #endif
 XIM_SetGeometry (struct frame *f)
 {
 XIC      xic   = FRAME_X_XIC (f);
 XIMStyle style = FRAME_X_XIC_STYLE (f);
 XRectangle area;
 if (!xic || !f)
 return;
 if (style & XIMStatusArea)
 {
 /* Place Status Area in bottom right corner */
 /* Negotiate geometry of status area */
 /* See O'Reilly Xlib XIM chapter (but beware, it's buggy) */
 XRectangle *needed;
 /* If input method has existing status area, use its current size */
 /* The following at least works for Sun's htt */
 area.x = area.y = area.width = area.height = 0;
 XIC_Value (Set, xic, XNStatusAttributes, XNAreaNeeded, &area);
 XIC_Value (Get, xic, XNStatusAttributes, XNAreaNeeded, &needed);
 if (needed->width == 0)   /* Use XNArea instead of XNAreaNeeded */
 XIC_Value (Get, xic, XNStatusAttributes, XNArea, &needed);
 area.width  = needed->width;
 area.height = needed->height;
 area.x = FRAME_RIGHT_BORDER_START  (f) - area.width;
 area.y = FRAME_BOTTOM_BORDER_START (f) - area.height;
 #ifdef DEBUG_XIM
 stderr_out ("Putting StatusArea in x=%d y=%d w=%d h=%d\n",
 area.x, area.y, area.width, area.height);
 #endif /* DEBUG_XIM */
 XIC_Value (Set, xic, XNStatusAttributes, XNArea, &area);
 }
 if (style & XIMPreeditPosition)
 {
 area.y      = FRAME_TOP_BORDER_START  (f);
 area.width  = FRAME_RIGHT_BORDER_END  (f) - area.x;
 area.height = FRAME_BOTTOM_BORDER_END (f) - area.y;
 XIC_Value(Set, xic, XNPreeditAttributes, XNArea, &area);
 }
 #ifdef DEBUG_XIM
 describe_XIC (xic);
 #endif
 }
 if (!xic ||
 !(FRAME_X_XIC_STYLE (f) & XIMPreeditPosition) ||
 (spot->x == (short) x &&
 spot->y == (short) y))
 return;
 spot->x = (short) x;
 spot->y = (short) y;
 /* ### FIX: Must make sure spot fits within Preedit Area */
 XIC_Value (Set, xic, XNPreeditAttributes, XNSpotLocation, spot);
 KeySym keysym;
 Status status;
 int len;
 int i;
 XClientMessageEvent new_event;
 try_again:
 len = XwcLookupString (ic, x_key_event, composed_input_buf.data,
 			 composed_input_buf.size, &keysym, &status);
 switch (status)
 {
 case XLookupChars:
 break;
 default:
 abort ();
 }
 new_event.type = ClientMessage;
 new_event.display = x_key_event->display;
 new_event.window = x_key_event->window;
 new_event.message_type = wc_atom;
 new_event.format = 32;  /* 32-bit wide data */
 STYLE_INFO (XIMPreeditNone|XIMStatusArea),
 STYLE_INFO (XIMPreeditNone|XIMStatusNothing),
 STYLE_INFO (XIMPreeditNone|XIMStatusNone)
 };
 #undef STYLE_INFO
 CONST char *s   = (char *) fromVal->addr;
 CONST char *end = s + fromVal->size;
 XIMStyles * CONST p = (XIMStyles *) toVal->addr;
 CONST char * CONST delimiter = " \t\n\r:;," ;
 CONST int  max_styles = XtNumber(emacs_XIMStyleInfo);
 #ifdef DEBUG_XIM
 stderr_out ("EmacsCvtStringToXIMStyles called with size=%d, string=\"%s\"\n",
 fromVal->size, (char *) fromVal->addr);
 #endif /* DEBUG_XIM */
 if (*num_args != 0)
 {
 XtAppContext the_app_con = XtDisplayToApplicationContext (dpy);
 XtAppWarningMsg(the_app_con, "wrongParameters", "cvtStringToXIMStyle",
 "XtToolkitError",
 assert (toVal->addr   != NULL);
 assert (toVal->size   == sizeof(XIMStyles));
 #endif /* DEBUG_XEMACS */
 p->count_styles = 0;
-p->supported_styles = xmalloc (max_styles * sizeof (XIMStyle));
+p->supported_styles = xnew_array (XIMStyle, max_styles);
 /*
 * The following routine assumes that the style name resource is
 * identical with the programmatic name of style.  For example,
 * "XIMPreeditPosition|XIMStatusArea" means the
 * style name is changed, such as "OverTheSpot|imDisplaysInClient",
 * the parsing logic below should be modified as well. */
 if ((c = strtok(s, delimiter)) == NULL)
 c = end;
 while (c < end)
 {
 for(i=0 ; i<max_styles ; i++)
 {
 struct XIMStyleInfo *rec = emacs_XIMStyleInfo + i;
 }
 if((c = strtok(NULL, delimiter)) == NULL) {
 break ;
 }
 }
 if (p->count_styles == 0)
 {   /* No valid styles? */
 char buf[1024];
 XrmValue new_from;
 XtAppContext the_app_con = XtDisplayToApplicationContext (dpy);
 sprintf(buf, "Cannot convert string \"%s\" to type XIMStyles.\n"
 "Using default string \"%s\" instead.\n",
 fromVal->addr, DefaultXIMStyles);
 XtAppWarningMsg(the_app_con, "wrongParameters", "cvtStringToXIMStyle",
 "XtToolkitError",
 new_from.addr = DefaultXIMStyles;
 new_from.size = sizeof(DefaultXIMStyles);
 return EmacsXtCvtStringToXIMStyles (dpy, args, num_args,
 &new_from, toVal, converter_data);
 }
-p->supported_styles = xrealloc (p->supported_styles,
+XREALLOC_ARRAY (p->supported_styles, XIMStyle, p->count_styles);
-p->count_styles * sizeof(XIMStyle));
 *converter_data = (char *) True;
 return True;
 }
 /* XtDestructor */
 {
 #ifdef DEBUG_XIM
 stderr_out ("Converter data: %x\n", converter_data);
 stderr_out ("EmacsFreeXIMStyles called\n");
 #endif /* DEBUG_XIM */
 if (*num_args != 0)
 {
 XtAppWarningMsg(app, "wrongParameters","freeXIMStyles","XtToolkitError",
 "Freeing an XIMStyles requires that zero arguments be passwd",
 (String *)NULL, (Cardinal *)NULL);
 return;
 }
 if (converter_data)
 {
 Boolean free_p    = (Boolean) (int) converter_data;
 XIMStyles *styles = (XIMStyles *) toVal->addr;
 if (free_p)
 static XIMStyle
 BetterStyle (XIMStyle s, XIMStyle t)
 {
 #define CHECK_XIMStyle_BIT(bit)  \
 if ((s ^ t) & bit) { return (s & bit) ? s : t; }
 CHECK_XIMStyle_BIT (XIMPreeditCallbacks);
 CHECK_XIMStyle_BIT (XIMPreeditPosition);
 CHECK_XIMStyle_BIT (XIMPreeditArea);
 CHECK_XIMStyle_BIT (XIMPreeditNothing);
 CHECK_XIMStyle_BIT (XIMStatusCallbacks);
 if (fontset == NULL)
 {
 stderr_out ("NULL\n");
 return;
 }
 count = XFontsOfFontSet (fontset, &font_struct_list, &font_name_list);
 stderr_out ( "%d font(s) available:\n", count);
 for (i=0 ; i < count ; i++)
 stderr_out ("Font: %s\n", *(font_name_list+i));
 }
 void
 describe_Status (Status status)
 {
 #define DESCRIBE_STATUS(value) \
 if (status == value) stderr_out ("Status: " #value "\n")
 DESCRIBE_STATUS (XBufferOverflow);
 DESCRIBE_STATUS (XLookupNone);
 DESCRIBE_STATUS (XLookupKeySym);
 DESCRIBE_STATUS (XLookupBoth);
 DESCRIBE_STATUS (XLookupChars);
 #undef DESCRIBE_STATUS
 }
 void
 describe_Window (Window win)
 {
 char xwincmd[64];
 sprintf (xwincmd, "xwininfo -id 0x%x >&2; xwininfo -events -id 0x%x >&2",
 (int) win, (int) win);
 system (xwincmd);
 XPoint       *p_spot = NULL;
 /* Check for valid input context and method */
 if (!xic)
 stderr_out ("Input method is NULL\n");
 if (!XIMOfIC(xic))
 stderr_out ("XIMOfIC() returns NULL\n");
 /* Print out Input Context Attributes */
 p_list = XVaCreateNestedList (0,
 XNFontSet,      &p_fontset,
 XNArea,         &p_area,
 XNAreaNeeded,   &p_needed,
 XNArea,         &s_area,
 XNAreaNeeded,   &s_needed,
 XNForeground,   &s_fg,
 XNBackground,   &s_bg,
 NULL);
 bad_arg = XGetICValues(xic,
 XNInputStyle,        &style,
 XNFilterEvents,      &filter_mask,
 XNClientWindow,      &client_win,
 XNFocusWindow,       &focus_win,
 XNPreeditAttributes, p_list,
 XNStatusAttributes,  s_list,
 NULL);
 XFree(p_list);
 XFree(s_list);
 if (bad_arg != NULL)
 stderr_out ("Couldn't get IC value: %s\n", bad_arg);
 stderr_out ("\nInput method context attributes:\n");
 stderr_out ("Style: "); describe_XIMStyle (style);
 stderr_out ("Client window: %x\n", client_win);
 stderr_out ("Focus window: %x\n",  focus_win);
 stderr_out ("Preedit:\n");
 describe_XIMStyle (XIMStyle style)
 {
 #define DESCRIBE_STYLE(bit) \
 if (bit & style)          \
 stderr_out (#bit " ");
 DESCRIBE_STYLE (XIMPreeditArea);
 DESCRIBE_STYLE (XIMPreeditCallbacks);
 DESCRIBE_STYLE (XIMPreeditPosition);
 DESCRIBE_STYLE (XIMPreeditNothing);
 DESCRIBE_STYLE (XIMPreeditNone);
 fromVal.addr = s;
 fromVal.size = strlen (s);
 toVal.addr = (XtPointer) &user_preferred_XIMStyles;
 toVal.size = sizeof (XIMStyles);
 if (XtConvertAndStore (FRAME_X_TEXT_WIDGET (f), XtRString, &fromVal,
 			 XtRXimStyles, &toVal) != False)
 {
 stderr_out ("Unit_Test: fromVal.addr=0x%x\n",fromVal.addr);
 stderr_out ("Unit_Test: fromVal.size=%d\n",  fromVal.size);
 char ** missing_charsets;
 int num_missing_charsets;
 char * default_string;
 /*  char * font_set_string = "-dt-interface user-medium-r-normal-s*-*-*-*-*-*-*-*-*";*/
 char * font_set_string = "-dt-interface user-medium-r-normal-s*-*-*-*-*-*-*-*-*, -misc-fixed-medium-r-normal--14-130-75-75-c-70-jisx0201.1976-0,-misc-fixed-medium-r-normal--14-130-75-75-c-140-jisx0208.1983-0, -misc-fixed-medium-r-normal--14-130-75-75-c-70-jisx0201.1976-0" ;
 DEVICE_X_FONTSET (d) = fontset =
 XCreateFontSet (dpy,
 		    font_set_string,
 		    &missing_charsets,
 		    &num_missing_charsets,
 stderr_out ("%s\n", missing_charsets[i]);
 }
 XFreeStringList (missing_charsets);
 stderr_out ("Default string: %s\n", default_string);
 }
 #ifdef DEBUG_XIM
 describe_XFontSet (fontset);
 #endif
 }
 #endif /* 0 */

Mercurial > hg > xemacs-beta

comparison src/input-method-xlib.c @ 185:3d6bfa290dbd r20-3b19