comparison src/font.c @ 90549:5dab62a4573c

(font_unparse_fcname): Fix typo (swidth->width). (font_list_entities): Check driver_list->on. (register_font_driver): Initalize `on' member to 0. (font_update_drivers): New function. (Fclear_font_cache): Check driver_list->on.

90548:7cc05972a79e

  int point_size;
  int dpi, spacing, scalable;
  int i, len = 1;
  char *p;
  Lisp_Object styles[3];
  char *style_names[3] = { "weight", "slant", "swidth" };

  val = AREF (font, FONT_FAMILY_INDEX);
  if (SYMBOLP (val) && ! NILP (val))
    len += SBYTES (SYMBOL_NAME (val));

  xassert (ASIZE (spec) == FONT_SPEC_MAX);
  ftype = AREF (spec, FONT_TYPE_INDEX);
  
  for (i = 0; driver_list; driver_list = driver_list->next)
    if (NILP (ftype) || EQ (driver_list->driver->type, ftype))
      {
	Lisp_Object cache = driver_list->driver->get_cache (frame);
	Lisp_Object tail = alternate_familes;
	Lisp_Object val;

}


/* Register font-driver DRIVER.  This function is used in two ways.

   The first is with frame F non-NULL.  In this case, DRIVER is
   registered to be used for drawing characters on F.  All frame
   creaters (e.g. Fx_create_frame) must call this function at least
   once with an available font-driver.

   The second is with frame F NULL.  In this case, DRIVER is globally
   registered in the variable `font_driver_list'.  All font-driver
   implementations must call this function in its syms_of_XXXX
   (e.g. syms_of_xfont).  */

  for (prev = NULL, list = root; list; prev = list, list = list->next)
    if (list->driver->type == driver->type)
      error ("Duplicated font driver: %s", SDATA (SYMBOL_NAME (driver->type)));

  list = malloc (sizeof (struct font_driver_list));
  list->driver = driver;
  list->next = NULL;
  if (prev)
    prev->next = list;
  else if (f)

      free (f->font_driver_list);
      f->font_driver_list = next;
    }
}

Lisp_Object
font_at (c, pos, face, w, object)
     int c;
     EMACS_INT pos;

    {
      FRAME_PTR f = XFRAME (frame);
      struct font_driver_list *driver_list = f->font_driver_list;

      for (; driver_list; driver_list = driver_list->next)
	{
	  Lisp_Object cache = driver_list->driver->get_cache (frame);
	  Lisp_Object tail, elt;
	    
	  for (tail = XCDR (cache); CONSP (tail); tail = XCDR (tail))
	    {
	      elt = XCAR (tail);
	      if (CONSP (elt) && FONT_SPEC_P (XCAR (elt)))
		{
		  Lisp_Object vec = XCDR (elt);
		  int i;

		  for (i = 0; i < ASIZE (vec); i++)
		    {
		      Lisp_Object entity = AREF (vec, i);
		      Lisp_Object objlist = AREF (entity, FONT_OBJLIST_INDEX);

		      for (; CONSP (objlist); objlist = XCDR (objlist))
			{
			  Lisp_Object val = XCAR (objlist);
			  struct Lisp_Save_Value *p = XSAVE_VALUE (val);
			  struct font *font = p->pointer;

			  xassert (font
				   && driver_list->driver == font->driver);
			  driver_list->driver->close (f, font);
			  p->pointer = NULL;
			  p->integer = 0;
			}
		      if (driver_list->driver->free_entity)
			driver_list->driver->free_entity (entity);
		    }
		}
	    }
	  XSETCDR (cache, Qnil);
	}
    }

  return Qnil;
}

90549:5dab62a4573c

  int point_size;
  int dpi, spacing, scalable;
  int i, len = 1;
  char *p;
  Lisp_Object styles[3];
  char *style_names[3] = { "weight", "slant", "width" };

  val = AREF (font, FONT_FAMILY_INDEX);
  if (SYMBOLP (val) && ! NILP (val))
    len += SBYTES (SYMBOL_NAME (val));

  xassert (ASIZE (spec) == FONT_SPEC_MAX);
  ftype = AREF (spec, FONT_TYPE_INDEX);
  
  for (i = 0; driver_list; driver_list = driver_list->next)
    if (driver_list->on
	&& (NILP (ftype) || EQ (driver_list->driver->type, ftype)))
      {
	Lisp_Object cache = driver_list->driver->get_cache (frame);
	Lisp_Object tail = alternate_familes;
	Lisp_Object val;

}


/* Register font-driver DRIVER.  This function is used in two ways.

   The first is with frame F non-NULL.  In this case, make DRIVER
   available (but not yet activated) on F.  All frame creaters
   (e.g. Fx_create_frame) must call this function at least once with
   an available font-driver.

   The second is with frame F NULL.  In this case, DRIVER is globally
   registered in the variable `font_driver_list'.  All font-driver
   implementations must call this function in its syms_of_XXXX
   (e.g. syms_of_xfont).  */

  for (prev = NULL, list = root; list; prev = list, list = list->next)
    if (list->driver->type == driver->type)
      error ("Duplicated font driver: %s", SDATA (SYMBOL_NAME (driver->type)));

  list = malloc (sizeof (struct font_driver_list));
  list->on = 0;
  list->driver = driver;
  list->next = NULL;
  if (prev)
    prev->next = list;
  else if (f)

      free (f->font_driver_list);
      f->font_driver_list = next;
    }
}

/* Make all font drivers listed in NEW_DRIVERS be used on F.  If
   NEW_DRIVERS is nil, make all available font drivers be used.
   FONT is the current default font of F, it may be NULL.  */

void
font_update_drivers (f, new_drivers, font)
     FRAME_PTR f;
     Lisp_Object new_drivers;
     struct font *font;
{
  Lisp_Object active_drivers = Qnil;
  Lisp_Object old_spec;
  struct font_driver_list *list;

  if (font)
    {
      old_spec = font_get_spec (font_find_object (font));
      free_all_realized_faces (Qnil);
      Fclear_font_cache ();
    }

  for (list = f->font_driver_list; list; list = list->next)
    {
      if (NILP (new_drivers)
	  || ! NILP (Fmemq (list->driver->type, new_drivers)))
	{
	  list->on = 1;
	  active_drivers = Fcons (list->driver->type, active_drivers);
	}
      else
	list->on = 0;
    }

  store_frame_param (f, Qfont_backend, active_drivers);

  if (font)
    {
      Lisp_Object frame;

      XSETFRAME (frame, f);
      x_set_font (f, Fframe_parameter (frame, Qfont), Qnil);
      ++face_change_count;
      ++windows_or_buffers_changed;
    }
}


Lisp_Object
font_at (c, pos, face, w, object)
     int c;
     EMACS_INT pos;

    {
      FRAME_PTR f = XFRAME (frame);
      struct font_driver_list *driver_list = f->font_driver_list;

      for (; driver_list; driver_list = driver_list->next)
	if (driver_list->on)
	  {
	    Lisp_Object cache = driver_list->driver->get_cache (frame);
	    Lisp_Object tail, elt;
	    
	    for (tail = XCDR (cache); CONSP (tail); tail = XCDR (tail))
	      {
		elt = XCAR (tail);
		if (CONSP (elt) && FONT_SPEC_P (XCAR (elt)))
		  {
		    Lisp_Object vec = XCDR (elt);
		    int i;

		    for (i = 0; i < ASIZE (vec); i++)
		      {
			Lisp_Object entity = AREF (vec, i);

			if (EQ (driver_list->driver->type,
				AREF (entity, FONT_TYPE_INDEX)))
			  {
			    Lisp_Object objlist
			      = AREF (entity, FONT_OBJLIST_INDEX);

			    for (; CONSP (objlist); objlist = XCDR (objlist))
			      {
				Lisp_Object val = XCAR (objlist);
				struct Lisp_Save_Value *p = XSAVE_VALUE (val);
				struct font *font = p->pointer;

				xassert (font && (driver_list->driver
						  == font->driver));
				driver_list->driver->close (f, font);
				p->pointer = NULL;
				p->integer = 0;
			      }
			    if (driver_list->driver->free_entity)
			      driver_list->driver->free_entity (entity);
			  }
		      }
		  }
	      }
	    XSETCDR (cache, Qnil);
	  }
    }

  return Qnil;
}