comparison src/xterm.c @ 21548:5d1f1ba38043

(x_find_ccl_program): New function.

21547:b2295127eff0

  for (i = 0; i < dpyinfo->n_fonts; i++)
    if (!strcmp (dpyinfo->font_table[i].name, fontname)
	|| !strcmp (dpyinfo->font_table[i].full_name, fontname))
      return (dpyinfo->font_table + i);
  return NULL;
}


/* Initialization.  */

21548:5d1f1ba38043

  for (i = 0; i < dpyinfo->n_fonts; i++)
    if (!strcmp (dpyinfo->font_table[i].name, fontname)
	|| !strcmp (dpyinfo->font_table[i].full_name, fontname))
      return (dpyinfo->font_table + i);
  return NULL;
}

/* Find a CCL program for a font specified by FONTP, and set the memer
 `encoder' of the structure.  */

void
x_find_ccl_program (fontp)
     struct font_info *fontp;
{
  extern Lisp_Object Vfont_ccl_encoder_alist, Vccl_program_table;
  extern Lisp_Object Qccl_program_idx;
  extern Lisp_Object resolve_symbol_ccl_program ();
  Lisp_Object list, elt, ccl_prog, ccl_id;

  for (list = Vfont_ccl_encoder_alist; CONSP (list); list = XCONS (list)->cdr)
    {
      elt = XCONS (list)->car;
      if (CONSP (elt)
	  && STRINGP (XCONS (elt)->car)
	  && (fast_c_string_match_ignore_case (XCONS (elt)->car, fontp->name)
	      >= 0))
	{
	  if (SYMBOLP (XCONS (elt)->cdr) &&
	      (!NILP (ccl_id = Fget (XCONS (elt)->cdr, Qccl_program_idx))))
	    {
	      ccl_prog = XVECTOR (Vccl_program_table)->contents[XUINT (ccl_id)];
	      if (!CONSP (ccl_prog)) continue;
	      ccl_prog = XCONS (ccl_prog)->cdr;
	    }
	  else
	    {
	      ccl_prog = XCONS (elt)->cdr;
	      if (!VECTORP (ccl_prog)) continue;
	    }
	    
	  fontp->font_encoder
	    = (struct ccl_program *) xmalloc (sizeof (struct ccl_program));
	  setup_ccl_program (fontp->font_encoder,
			     resolve_symbol_ccl_program (ccl_prog));
	  break;
	}
    }
}


/* Initialization.  */