comparison src/macterm.c @ 58634:95d38c47c806

* keyboard.c: Don't undef SIGIO * s/darwin.h (NO_SOCK_SIGIO): Define NO_SOCK_SIGIO on carbon * Makefile.in (mac.o): Depend on blockinput.h and atimer.h. (macfns.o): Don't depend on ccl.h. * macfns.c (mac_frame_parm_handlers): Set handlers for Qleft_fringe and Qright_fringe. * macterm.c (mac_fill_rectangle_to_pixmap) (mac_draw_rectangle_to_pixmap, mac_copy_area_to_pixmap) (mac_copy_area_with_mask_to_pixmap, x_draw_image_foreground_1): Put in #if 0. (mac_scroll_area) [TARGET_API_MAC_CARBON]: Use ScrollWindowRect. (x_flush) [TARGET_API_MAC_CARBON]: Don't traverse frames. (XFlush) [TARGET_API_MAC_CARBON]: Define to an empty replacement. (x_draw_glyph_string_background, x_draw_glyph_string_foreground) [!MAC_OS8]: Added ifdef'd out code for os8. Don't use XDrawImageString. Always draw background and foreground separately. (x_draw_image_foreground): Use clipping instead of computing the intersection rectangle. (x_draw_image_glyph_string): Don't draw an image with mask to a pixmap. (x_redisplay_interface): Set flush_display_optional member to 0. (XTread_socket): Correctly reset the TEConverter object.

58633:55d668830eed

Pixmap
XCreatePixmap (display, w, width, height, depth)
     Display *display;		/* not used */
     WindowPtr w;
     unsigned int width, height;
     unsigned int depth;	/* not used */
{
  Pixmap pixmap;
  Rect r;
  QDErr err;

  PaintRect (&r); /* using foreground color of gc */
}


static void
mac_fill_rectangle_to_pixmap (display, p, gc, x, y, width, height)
     Display *display;
     Pixmap p;
     GC gc;

  PaintRect (&r); /* using foreground color of gc */
  UnlockPixels (GetGWorldPixMap (p));

  SetGWorld (old_port, old_gdh);
}


/* Mac replacement for XDrawRectangle: dest is a window.  */

static void

  FrameRect (&r); /* using foreground color of gc */
}


/* Mac replacement for XDrawRectangle: dest is a Pixmap.  */

static void
mac_draw_rectangle_to_pixmap (display, p, gc, x, y, width, height)
     Display *display;

  FrameRect (&r); /* using foreground color of gc */
  UnlockPixels (GetGWorldPixMap (p));

  SetGWorld (old_port, old_gdh);
}


static void
mac_draw_string_common (display, w, gc, x, y, buf, nchars, mode,
			bytes_per_char)

     int src_x, src_y;
     unsigned int width, height;
     int dest_x, dest_y;
{
#if TARGET_API_MAC_CARBON
  Rect gw_r, src_r, dest_r;

  SetRect (&src_r, src_x, src_y, src_x + width, src_y + height);
  SetRect (&dest_r, dest_x, dest_y, dest_x + width, dest_y + height);

  SetPortWindowPort (w);

  ForeColor (blackColor);
  BackColor (whiteColor);

  LockPortBits (GetWindowPort (w));
  {
    const BitMap *bitmap = GetPortBitMapForCopyBits (GetWindowPort (w));
    CopyBits (bitmap, bitmap, &src_r, &dest_r, srcCopy, 0);
  }
  UnlockPortBits (GetWindowPort (w));

  mac_set_colors (gc);
#else /* not TARGET_API_MAC_CARBON */
  Rect src_r, dest_r;

  SetPort (w);
#if 0

#endif
#endif /* not TARGET_API_MAC_CARBON */
}


/* Mac replacement for XCopyArea: dest must be Pixmap.  */

static void
mac_copy_area_to_pixmap (display, src, dest, gc, src_x, src_y, width, height,
                     dest_x, dest_y)

  UnlockPixels (GetGWorldPixMap (mask));
  UnlockPixels (GetGWorldPixMap (src));

  SetGWorld (old_port, old_gdh);
}


/* Mac replacement for XChangeGC.  */

static void

     void *f;
{
}


/* Remove calls to XFlush by defining XFlush to an empty replacement.
   Calls to XFlush should be unnecessary because the X output buffer
   is flushed automatically as needed by calls to XPending,
   XNextEvent, or XWindowEvent according to the XFlush man page.
   XTread_socket calls XPending.  Removing XFlush improves
   performance.  */

#if TARGET_API_MAC_CARBON
#define XFlush(DISPLAY) QDFlushPortBuffer (GetQDGlobalsThePort (), NULL)
#else
#define XFlush(DISPLAY)	(void) 0
#endif

/* Flush display of frame F, or of all frames if F is null.  */

void
x_flush (f)
     struct frame *f;
{
#if TARGET_API_MAC_CARBON
  BLOCK_INPUT;
  if (f == NULL)
    {
      Lisp_Object rest, frame;
      FOR_EACH_FRAME (rest, frame)
	x_flush (XFRAME (frame));
    }
  else if (FRAME_MAC_P (f))
    XFlush (FRAME_MAC_DISPLAY (f));
  UNBLOCK_INPUT;
#endif /* TARGET_API_MAC_CARBON */
}



/* Return the struct mac_display_info corresponding to DPY.  There's
   only one.  */

  xgcv.foreground = s->gc->background;
  XFillRectangle (s->display, s->window, &xgcv, x, y, w, h);
}


/* Draw the background of glyph_string S.  If S->background_filled_p
   is non-zero don't draw it.  FORCE_P non-zero means draw the
   background even if it wouldn't be drawn normally.  This is used
   when a string preceding S draws into the background of S, or S
   contains the first component of a composition.  */

	  XSetFillStyle (s->display, s->gc, FillSolid);
	  s->background_filled_p = 1;
	}
      else
#endif
        if (FONT_HEIGHT (s->font) < s->height - 2 * box_line_width
	       || s->font_not_found_p
	       || s->extends_to_end_of_line_p
	       || force_p)
	{
	  x_clear_glyph_string_rect (s, s->x, s->y + box_line_width,
				     s->background_width,
				     s->height - 2 * box_line_width);
	  s->background_filled_p = 1;

      /* If we can use 8-bit functions, condense S->char2b.  */
      if (!s->two_byte_p)
	for (i = 0; i < s->nchars; ++i)
	  char1b[i] = s->char2b[i].byte2;

      /* Draw text with XDrawString if background has already been
	 filled.  Otherwise, use XDrawImageString.  (Note that
	 XDrawImageString is usually faster than XDrawString.)  Always
	 use XDrawImageString when drawing the cursor so that there is
	 no chance that characters under a box cursor are invisible.  */
      if (s->for_overlaps_p
	  || (s->background_filled_p && s->hl != DRAW_CURSOR))
	{
	  /* Draw characters with 16-bit or 8-bit functions.  */
	  if (s->two_byte_p)
	    XDrawString16 (s->display, s->window, s->gc, x,
			   s->ybase - boff, s->char2b, s->nchars);
	  else
	    XDrawString (s->display, s->window, s->gc, x,
			 s->ybase - boff, char1b, s->nchars);
	}
      else
	{
	  if (s->two_byte_p)
	    XDrawImageString16 (s->display, s->window, s->gc, x,
			        s->ybase - boff, s->char2b, s->nchars);
	  else
	    XDrawImageString (s->display, s->window, s->gc, x,
			      s->ybase - boff, char1b, s->nchars);
	}
    }
}

/* Draw the foreground of composite glyph string S.  */

  if (s->slice.y == 0)
    y += s->img->vmargin;

  if (s->img->pixmap)
    {
      if (s->img->mask)
	{
	  Rect nr;
	  XRectangle clip_rect, image_rect, r;

	  get_glyph_string_clip_rect (s, &nr);
	  CONVERT_TO_XRECT (clip_rect, nr);
	  image_rect.x = x;
	  image_rect.y = y;
	  image_rect.width = s->slice.width;
	  image_rect.height = s->slice.height;
	  if (x_intersect_rectangles (&clip_rect, &image_rect, &r))
	    mac_copy_area_with_mask (s->display, s->img->pixmap, s->img->mask,
				     s->window, s->gc,
				     s->slice.x + r.x - x, s->slice.y + r.y - y,
				     r.width, r.height, r.x, r.y);
	}
      else
	{
	  Rect nr;
	  XRectangle clip_rect, image_rect, r;

	  get_glyph_string_clip_rect (s, &nr);
	  CONVERT_TO_XRECT (clip_rect, nr);
	  image_rect.x = x;
	  image_rect.y = y;
	  image_rect.width = s->slice.width;
	  image_rect.height = s->slice.height;
	  if (x_intersect_rectangles (&clip_rect, &image_rect, &r))
	    mac_copy_area (s->display, s->img->pixmap, s->window, s->gc,
			   s->slice.x + r.x - x, s->slice.y + r.y - y,
			   r.width, r.height, r.x, r.y);

	  /* When the image has a mask, we can expect that at
	     least part of a mouse highlight or a block cursor will
	     be visible.  If the image doesn't have a mask, make
	     a block cursor visible by drawing a rectangle around

		      s->slice.x + s->slice.width == s->img->width,
		      &r);
}


/* Draw the foreground of image glyph string S to PIXMAP.  */

static void
x_draw_image_foreground_1 (s, pixmap)
     struct glyph_string *s;

  else
    /* Draw a rectangle if image could not be loaded.  */
    mac_draw_rectangle_to_pixmap (s->display, pixmap, s->gc, x, y,
				  s->slice.width - 1, s->slice.height - 1);
}


/* Draw part of the background of glyph string S.  X, Y, W, and H
   give the rectangle to draw.  */

      y = s->y;
      if (s->slice.y == 0)
	y += box_line_vwidth;

      if (s->img->mask)
	{
	  /* Create a pixmap as large as the glyph string.  Fill it
	     with the background color.  Copy the image to it, using
	     its mask.  Copy the temporary pixmap to the display.  */

					    s->height);
	      XSetForeground (s->display, s->gc, xgcv.foreground);
	    }
	}
      else
	x_draw_glyph_string_bg_rect (s, x, y, s->background_width, height);

      s->background_filled_p = 1;
    }

  /* Draw the foreground.  */
  if (pixmap != 0)
    {
      x_draw_image_foreground_1 (s, pixmap);
      x_set_glyph_string_clipping (s);
      mac_copy_area (s->display, pixmap, s->window, s->gc,
		     0, 0, s->background_width, s->height, s->x, s->y);
      mac_reset_clipping (s->display, s->window);
      XFreePixmap (s->display, pixmap);
    }
  else
    x_draw_image_foreground (s);

  /* If we must draw a relief around the image, do it.  */
  if (s->img->relief
      || s->hl == DRAW_IMAGE_RAISED

#endif

static Lisp_Object Qbig5, Qcn_gb, Qsjis, Qeuc_kr;

static void
decode_mac_font_name (char *name, int size, short scriptcode)
{
  Lisp_Object coding_system;
  struct coding_system coding;
  char *buf;

  name[coding.produced] = '\0';
}


static char *
mac_to_x_fontname (char *name, int size, Style style, short scriptcode)
{
  char foundry[32], family[32], cs[32];
  char xf[256], *result, *p;

  if (sscanf (name, "%31[^-]-%31[^-]-%31s", foundry, family, cs) != 3)

      strcpy(foundry, "Apple");
      strcpy(family, name);

      switch (scriptcode)
      {
      case smTradChinese:
        strcpy(cs, "big5-0");
        break;
      case smSimpChinese:
        strcpy(cs, "gb2312.1980-0");
        break;
      case smJapanese:
        strcpy(cs, "jisx0208.1983-sjis");
        break;
      case -smJapanese:
	/* Each Apple Japanese font is entered into the font table
	   twice: once as a jisx0208.1983-sjis font and once as a

	   the ascii charset and katakana-jisx0201 charset.  A
	   negative script code signals that the name of this latter
	   font is being built.  */
	strcpy(cs, "jisx0201.1976-0");
	break;
      case smKorean:
        strcpy(cs, "ksc5601.1989-0");
        break;
      default:
        strcpy(cs, "mac-roman");
        break;
      }
    }

  sprintf(xf, "-%s-%s-%s-%c-normal--%d-%d-75-75-m-%d-%s",
          foundry, family, style & bold ? "bold" : "medium",

  else if (strcmp (cs, "jisx0208.1983-sjis") == 0
	   || strcmp (cs, "jisx0201.1976-0") == 0)
    coding_system = Qsjis;
  else if (strcmp (cs, "ksc5601.1989-0") == 0)
    coding_system = Qeuc_kr;
  else if (strcmp (cs, "mac-roman") == 0)
    strcpy (mf, family);
  else
    sprintf (mf, "%s-%s-%s", foundry, family, cs);

  if (!NILP (coding_system))

	{
	  Str255 name;
	  FMFont font;
	  FMFontStyle style;
	  FMFontSize size;
	  SInt16 sc;

	  if (FMGetFontFamilyName (ff, name) != noErr)
	    break;
	  p2cstr (name);
	  if (*name == '.')
	    continue;

	  sc = FontToScript (ff);
	  decode_mac_font_name (name, sizeof (name), sc);

	  /* Point the instance iterator at the current font family.  */
	  if (FMResetFontFamilyInstanceIterator (ff, &ffii) != noErr)
	    break;

	  while (FMGetNextFontFamilyInstance (&ffii, &font, &style, &size)

	      if (the_err == noErr)
		{
		  unsigned char ch = inev.code;
		  ByteCount actual_input_length, actual_output_length;
		  unsigned char outch;

		  convert_status = TECConvertText (converter, &ch, 1,
						   &actual_input_length,
						   &outch, 1,
						   &actual_output_length);
		  if (convert_status == noErr
		      && actual_input_length == 1
		      && actual_output_length == 1)
		    inev.code = outch;
		}
	    }

#if USE_CARBON_EVENTS
	  inev.modifiers = mac_event_to_emacs_modifiers (eventRef);
#else

  x_after_update_window_line,
  x_update_window_begin,
  x_update_window_end,
  x_cursor_to,
  x_flush,
  x_flush,
  x_clear_window_mouse_face,
  x_get_glyph_overhangs,
  x_fix_overlapping_area,
  x_draw_fringe_bitmap,
  0, /* define_fringe_bitmap */

58634:95d38c47c806

Pixmap
XCreatePixmap (display, w, width, height, depth)
     Display *display;		/* not used */
     WindowPtr w;
     unsigned int width, height;
     unsigned int depth;
{
  Pixmap pixmap;
  Rect r;
  QDErr err;

  PaintRect (&r); /* using foreground color of gc */
}


#if 0 /* TODO: figure out if we need to do this on Mac.  */
static void
mac_fill_rectangle_to_pixmap (display, p, gc, x, y, width, height)
     Display *display;
     Pixmap p;
     GC gc;

  PaintRect (&r); /* using foreground color of gc */
  UnlockPixels (GetGWorldPixMap (p));

  SetGWorld (old_port, old_gdh);
}
#endif


/* Mac replacement for XDrawRectangle: dest is a window.  */

static void

  FrameRect (&r); /* using foreground color of gc */
}


#if 0 /* TODO: figure out if we need to do this on Mac.  */
/* Mac replacement for XDrawRectangle: dest is a Pixmap.  */

static void
mac_draw_rectangle_to_pixmap (display, p, gc, x, y, width, height)
     Display *display;

  FrameRect (&r); /* using foreground color of gc */
  UnlockPixels (GetGWorldPixMap (p));

  SetGWorld (old_port, old_gdh);
}
#endif


static void
mac_draw_string_common (display, w, gc, x, y, buf, nchars, mode,
			bytes_per_char)

     int src_x, src_y;
     unsigned int width, height;
     int dest_x, dest_y;
{
#if TARGET_API_MAC_CARBON
  Rect src_r;
  RgnHandle dummy = NewRgn ();	/* For avoiding update events.  */

  SetRect (&src_r, src_x, src_y, src_x + width, src_y + height);
  ScrollWindowRect (w, &src_r, dest_x - src_x, dest_y - src_y,
		    kScrollWindowNoOptions, dummy);
  DisposeRgn (dummy);
#else /* not TARGET_API_MAC_CARBON */
  Rect src_r, dest_r;

  SetPort (w);
#if 0

#endif
#endif /* not TARGET_API_MAC_CARBON */
}


#if 0 /* TODO: figure out if we need to do this on Mac.  */
/* Mac replacement for XCopyArea: dest must be Pixmap.  */

static void
mac_copy_area_to_pixmap (display, src, dest, gc, src_x, src_y, width, height,
                     dest_x, dest_y)

  UnlockPixels (GetGWorldPixMap (mask));
  UnlockPixels (GetGWorldPixMap (src));

  SetGWorld (old_port, old_gdh);
}
#endif


/* Mac replacement for XChangeGC.  */

static void

     void *f;
{
}


/* Flush display of frame F, or of all frames if F is null.  */

static void
x_flush (f)
     struct frame *f;
{
#if TARGET_API_MAC_CARBON
  BLOCK_INPUT;
  if (f)
    QDFlushPortBuffer (GetWindowPort (FRAME_MAC_WINDOW (f)), NULL);
  else
    QDFlushPortBuffer (GetQDGlobalsThePort (), NULL);
  UNBLOCK_INPUT;
#endif
}


/* Remove calls to XFlush by defining XFlush to an empty replacement.
   Calls to XFlush should be unnecessary because the X output buffer
   is flushed automatically as needed by calls to XPending,
   XNextEvent, or XWindowEvent according to the XFlush man page.
   XTread_socket calls XPending.  Removing XFlush improves
   performance.  */

#define XFlush(DISPLAY)	(void) 0


/* Return the struct mac_display_info corresponding to DPY.  There's
   only one.  */

  xgcv.foreground = s->gc->background;
  XFillRectangle (s->display, s->window, &xgcv, x, y, w, h);
}


/* We prefer not to use XDrawImageString (srcCopy text transfer mode)
   on Mac OS X because:
   - Screen is double-buffered.  (In srcCopy mode, a text is drawn
     into an offscreen graphics world first.  So performance gain
     cannot be expected.)
   - It lowers rendering quality.
   - Some fonts leave garbage on cursor movement.  */

/* Draw the background of glyph_string S.  If S->background_filled_p
   is non-zero don't draw it.  FORCE_P non-zero means draw the
   background even if it wouldn't be drawn normally.  This is used
   when a string preceding S draws into the background of S, or S
   contains the first component of a composition.  */

	  XSetFillStyle (s->display, s->gc, FillSolid);
	  s->background_filled_p = 1;
	}
      else
#endif
#if 0 /* defined(MAC_OS8)*/
        if (FONT_HEIGHT (s->font) < s->height - 2 * box_line_width
	       || s->font_not_found_p
	       || s->extends_to_end_of_line_p
	       || force_p)
#endif
	{
	  x_clear_glyph_string_rect (s, s->x, s->y + box_line_width,
				     s->background_width,
				     s->height - 2 * box_line_width);
	  s->background_filled_p = 1;

      /* If we can use 8-bit functions, condense S->char2b.  */
      if (!s->two_byte_p)
	for (i = 0; i < s->nchars; ++i)
	  char1b[i] = s->char2b[i].byte2;

#if 0 /* defined(MAC_OS8) */
      /* Draw text with XDrawString if background has already been
	 filled.  Otherwise, use XDrawImageString.  (Note that
	 XDrawImageString is usually faster than XDrawString.)  Always
	 use XDrawImageString when drawing the cursor so that there is
	 no chance that characters under a box cursor are invisible.  */
      if (s->for_overlaps_p
	  || (s->background_filled_p && s->hl != DRAW_CURSOR))
#endif
	{
	  /* Draw characters with 16-bit or 8-bit functions.  */
	  if (s->two_byte_p)
	    XDrawString16 (s->display, s->window, s->gc, x,
			   s->ybase - boff, s->char2b, s->nchars);
	  else
	    XDrawString (s->display, s->window, s->gc, x,
			 s->ybase - boff, char1b, s->nchars);
	}
#if 0 /* defined(MAC_OS8)*/
      else
	{
	  if (s->two_byte_p)
	    XDrawImageString16 (s->display, s->window, s->gc, x,
			        s->ybase - boff, s->char2b, s->nchars);
	  else
	    XDrawImageString (s->display, s->window, s->gc, x,
			      s->ybase - boff, char1b, s->nchars);
	}
#endif
    }
}

/* Draw the foreground of composite glyph string S.  */

  if (s->slice.y == 0)
    y += s->img->vmargin;

  if (s->img->pixmap)
    {
      x_set_glyph_string_clipping (s);

      if (s->img->mask)
	mac_copy_area_with_mask (s->display, s->img->pixmap, s->img->mask,
				 s->window, s->gc, s->slice.x, s->slice.y,
				 s->slice.width, s->slice.height, x, y);
      else
	{
	  mac_copy_area (s->display, s->img->pixmap,
			 s->window, s->gc, s->slice.x, s->slice.y,
			 s->slice.width, s->slice.height, x, y);

	  /* When the image has a mask, we can expect that at
	     least part of a mouse highlight or a block cursor will
	     be visible.  If the image doesn't have a mask, make
	     a block cursor visible by drawing a rectangle around

		      s->slice.x + s->slice.width == s->img->width,
		      &r);
}


#if 0 /* TODO: figure out if we need to do this on Mac.  */
/* Draw the foreground of image glyph string S to PIXMAP.  */

static void
x_draw_image_foreground_1 (s, pixmap)
     struct glyph_string *s;

  else
    /* Draw a rectangle if image could not be loaded.  */
    mac_draw_rectangle_to_pixmap (s->display, pixmap, s->gc, x, y,
				  s->slice.width - 1, s->slice.height - 1);
}
#endif


/* Draw part of the background of glyph string S.  X, Y, W, and H
   give the rectangle to draw.  */

      y = s->y;
      if (s->slice.y == 0)
	y += box_line_vwidth;

#if 0 /* TODO: figure out if we need to do this on Mac.  */
      if (s->img->mask)
	{
	  /* Create a pixmap as large as the glyph string.  Fill it
	     with the background color.  Copy the image to it, using
	     its mask.  Copy the temporary pixmap to the display.  */

					    s->height);
	      XSetForeground (s->display, s->gc, xgcv.foreground);
	    }
	}
      else
#endif
	x_draw_glyph_string_bg_rect (s, x, y, s->background_width, height);

      s->background_filled_p = 1;
    }

  /* Draw the foreground.  */
#if 0 /* TODO: figure out if we need to do this on Mac.  */
  if (pixmap != 0)
    {
      x_draw_image_foreground_1 (s, pixmap);
      x_set_glyph_string_clipping (s);
      mac_copy_area (s->display, pixmap, s->window, s->gc,
		     0, 0, s->background_width, s->height, s->x, s->y);
      mac_reset_clipping (s->display, s->window);
      XFreePixmap (s->display, pixmap);
    }
  else
#endif
    x_draw_image_foreground (s);

  /* If we must draw a relief around the image, do it.  */
  if (s->img->relief
      || s->hl == DRAW_IMAGE_RAISED

#endif

static Lisp_Object Qbig5, Qcn_gb, Qsjis, Qeuc_kr;

static void
decode_mac_font_name (name, size, scriptcode)
     char *name;
     int size;
#if TARGET_API_MAC_CARBON
     int scriptcode;
#else
     short scriptcode;
#endif
{
  Lisp_Object coding_system;
  struct coding_system coding;
  char *buf;

  name[coding.produced] = '\0';
}


static char *
mac_to_x_fontname (name, size, style, scriptcode, encoding_base)
     char *name;
     int size;
     Style style;
#if TARGET_API_MAC_CARBON
     int scriptcode;
#else
     short scriptcode;
#endif
{
  char foundry[32], family[32], cs[32];
  char xf[256], *result, *p;

  if (sscanf (name, "%31[^-]-%31[^-]-%31s", foundry, family, cs) != 3)

      strcpy(foundry, "Apple");
      strcpy(family, name);

      switch (scriptcode)
      {
      case smTradChinese:	/* == kTextEncodingMacChineseTrad */
        strcpy(cs, "big5-0");
        break;
      case smSimpChinese:	/* == kTextEncodingMacChineseSimp */
        strcpy(cs, "gb2312.1980-0");
        break;
      case smJapanese:		/* == kTextEncodingMacJapanese */
        strcpy(cs, "jisx0208.1983-sjis");
        break;
      case -smJapanese:
	/* Each Apple Japanese font is entered into the font table
	   twice: once as a jisx0208.1983-sjis font and once as a

	   the ascii charset and katakana-jisx0201 charset.  A
	   negative script code signals that the name of this latter
	   font is being built.  */
	strcpy(cs, "jisx0201.1976-0");
	break;
      case smKorean:		/* == kTextEncodingMacKorean */
        strcpy(cs, "ksc5601.1989-0");
        break;
#if TARGET_API_MAC_CARBON
      case kTextEncodingMacCyrillic:
	strcpy(cs, "mac-cyrillic");
	break;
      case kTextEncodingMacCentralEurRoman:
	strcpy(cs, "mac-centraleuropean");
	break;
      case kTextEncodingMacSymbol:
      case kTextEncodingMacDingbats:
	strcpy(cs, "adobe-fontspecific");
	break;
#endif
      default:
	strcpy(cs, "mac-roman");
	break;
      }
    }

  sprintf(xf, "-%s-%s-%s-%c-normal--%d-%d-75-75-m-%d-%s",
          foundry, family, style & bold ? "bold" : "medium",

  else if (strcmp (cs, "jisx0208.1983-sjis") == 0
	   || strcmp (cs, "jisx0201.1976-0") == 0)
    coding_system = Qsjis;
  else if (strcmp (cs, "ksc5601.1989-0") == 0)
    coding_system = Qeuc_kr;
  else if (strcmp (cs, "mac-roman") == 0
	   || strcmp (cs, "mac-cyrillic") == 0
	   || strcmp (cs, "mac-centraleuropean") == 0
	   || strcmp (cs, "adobe-fontspecific") == 0)
    strcpy (mf, family);
  else
    sprintf (mf, "%s-%s-%s", foundry, family, cs);

  if (!NILP (coding_system))

	{
	  Str255 name;
	  FMFont font;
	  FMFontStyle style;
	  FMFontSize size;
	  TextEncoding encoding;
	  TextEncodingBase sc;

	  if (FMGetFontFamilyName (ff, name) != noErr)
	    break;
	  p2cstr (name);
	  if (*name == '.')
	    continue;

	  if (FMGetFontFamilyTextEncoding (ff, &encoding) != noErr)
	    break;
	  sc = GetTextEncodingBase (encoding);
	  decode_mac_font_name (name, sizeof (name), sc);
				       
	  /* Point the instance iterator at the current font family.  */
	  if (FMResetFontFamilyInstanceIterator (ff, &ffii) != noErr)
	    break;

	  while (FMGetNextFontFamilyInstance (&ffii, &font, &style, &size)

	      if (the_err == noErr)
		{
		  unsigned char ch = inev.code;
		  ByteCount actual_input_length, actual_output_length;
		  unsigned char outbuf[32];
		  
                  convert_status = TECConvertText (converter, &ch, 1,
                                                   &actual_input_length,
						   outbuf, 1,
                                                   &actual_output_length);
                  if (convert_status == noErr
                      && actual_input_length == 1
                      && actual_output_length == 1)
		    inev.code = *outbuf;
		  
		  /* Reset internal states of the converter object.
                   If it fails, create another one. */
		  convert_status = TECFlushText (converter, outbuf,
						 sizeof (outbuf),
                                               &actual_output_length);
		  if (convert_status != noErr)
		    {
		      TECDisposeConverter (converter);
		      TECCreateConverter (&converter,
					  kTextEncodingMacRoman,
					  mac_keyboard_text_encoding);
		    }
                }
	    }

#if USE_CARBON_EVENTS
	  inev.modifiers = mac_event_to_emacs_modifiers (eventRef);
#else

  x_after_update_window_line,
  x_update_window_begin,
  x_update_window_end,
  x_cursor_to,
  x_flush,
  0, /* flush_display_optional */
  x_clear_window_mouse_face,
  x_get_glyph_overhangs,
  x_fix_overlapping_area,
  x_draw_fringe_bitmap,
  0, /* define_fringe_bitmap */