rxvt-unicode/src/defaultfont.C

/*--------------------------------*-C-*---------------------------------*;
 * File:        defaultfont.C
 *----------------------------------------------------------------------*
 * Copyright (c) 2003      Marc Lehmann rxvt@plan9.de>
 *                              - original version.
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 *---------------------------------------------------------------------*/

#include "../config.h"
#include "rxvt.h"
#include "defaultfont.h"

#define DISPLAY  R->Xdisplay
#define DRAWABLE R->TermWin.vt
#define GC       R->TermWin.gc

const struct rxvt_fallback_font {
  codeset cs;
  const char *name;
} fallback_fonts[] = {
  { CS_ISO8859_1,    "-*-*-*-r-*--*-*-*-*-c-*-iso8859-1"  },
  { CS_ISO8859_15,   "-*-*-*-r-*--*-*-*-*-c-*-iso8859-15" },
  { CS_ISO8859_15,   "-*-*-*-r-*--*-*-*-*-c-*-fcd8859-15" },

#if ENCODING_EU
  // cyrillic
  { CS_KOI8_R,        "-*-*-*-r-*--*-*-*-*-c-*-koi8-r"    },
  { CS_KOI8_U,        "-*-*-*-r-*--*-*-*-*-c-*-koi8-u"    },

  { CS_ISO8859_2,    "-*-*-*-r-*--*-*-*-*-c-*-iso8859-2"  },
  { CS_ISO8859_3,    "-*-*-*-r-*--*-*-*-*-c-*-iso8859-3"  },
  { CS_ISO8859_4,    "-*-*-*-r-*--*-*-*-*-c-*-iso8859-4"  },
  { CS_ISO8859_5,    "-*-*-*-r-*--*-*-*-*-c-*-iso8859-5"  },
  { CS_ISO8859_6,    "-*-*-*-r-*--*-*-*-*-c-*-iso8859-6"  },
  { CS_ISO8859_7,    "-*-*-*-r-*--*-*-*-*-c-*-iso8859-7"  },
  { CS_ISO8859_8,    "-*-*-*-r-*--*-*-*-*-c-*-iso8859-8"  },
  { CS_ISO8859_9,    "-*-*-*-r-*--*-*-*-*-c-*-iso8859-9"  },
  { CS_ISO8859_10,   "-*-*-*-r-*--*-*-*-*-c-*-iso8859-10" },
  { CS_ISO8859_11,   "-*-*-*-r-*--*-*-*-*-c-*-iso8859-11" },
  { CS_ISO8859_13,   "-*-*-*-r-*--*-*-*-*-c-*-iso8859-13" },
  { CS_ISO8859_14,   "-*-*-*-r-*--*-*-*-*-c-*-iso8859-14" },
  { CS_ISO8859_16,   "-*-*-*-r-*--*-*-*-*-c-*-iso8859-16" },
#endif

  // japanese
#if ENCODING_JP || ENCODING_JP_EXT
# if XFT
  // prefer xft for complex scripts
  { CS_UNICODE,        "xft:Kochi Gothic"                     },
# endif
  { CS_JIS0201_1976_0, "-*-mincho-*-r-*--*-*-*-*-c-*-jisx0201*-0" },
  { CS_JIS0208_1983_0, "-*-mincho-*-r-*--*-*-*-*-c-*-jisx0208*-0" },
  { CS_JIS0212_1990_0, "-*-mincho-*-r-*--*-*-*-*-c-*-jisx0212*-0" },
#endif

#if ENCODING_CN || ENCODING_CN_EXT
# if XFT
  { CS_BIG5_EXT,       "xft:AR PL Mingti2L Big5"              },
  { CS_BIG5_EXT,       "xft:AR PL KaitiM Big5"                },
  { CS_GB2312_1980_0,  "xft:AR PL KaitiM GB"                  },
  { CS_GB2312_1980_0,  "xft:AR PL SungtiL GB"                 },
# endif
  { CS_CNS11643_1992_1, "-*-*-*-r-*-*-*-*-*-*-c-*-cns11643.1992-1" },
  { CS_CNS11643_1992_2, "-*-*-*-r-*-*-*-*-*-*-c-*-cns11643.1992-2" },
  { CS_CNS11643_1992_3, "-*-*-*-r-*-*-*-*-*-*-c-*-cns11643.1992-3" },
  { CS_CNS11643_1992_4, "-*-*-*-r-*-*-*-*-*-*-c-*-cns11643.1992-4" },
  { CS_CNS11643_1992_5, "-*-*-*-r-*-*-*-*-*-*-c-*-cns11643.1992-5" },
  { CS_CNS11643_1992_6, "-*-*-*-r-*-*-*-*-*-*-c-*-cns11643.1992-6" },
  { CS_CNS11643_1992_7, "-*-*-*-r-*-*-*-*-*-*-c-*-cns11643.1992-7" },
  { CS_CNS11643_1992_F, "-*-*-*-r-*-*-*-*-*-*-c-*-cns11643.1992-f" },
#endif

#if XFT
  { CS_UNICODE,      "xft:Andale Mono"                        },
  { CS_UNICODE,      "xft:Arial Unicode MS"                   },
#endif
  { CS_UNICODE,      "-*-lucidatypewriter-*-r-*-*-*-*-*-*-m-*-iso10646-1" },
  { CS_UNICODE,      "-*-*-*-r-*-*-*-*-*-*-m-*-iso10646-1" },
  { CS_UNICODE,      "-*-*-*-r-*-*-*-*-*-*-m-*-iso10646-1" },
  { CS_UNICODE,      "-*-*-*-r-*-*-*-*-*-*-m-*-iso10646-1" },

  { CS_UNKNOWN, 0 }
};

/////////////////////////////////////////////////////////////////////////////

static void *enc_buf;
static uint32_t enc_len;

static inline void *
get_enc_buf (int len)
{
  if (len > enc_len)
    {
      free (enc_buf);
      enc_buf = malloc (len);
    }

  return enc_buf;
}

static const char *
enc_char (const text_t *text, int len, codeset cs, bool &zero)
{
  uint8_t *buf = (uint8_t *)get_enc_buf (len);

  while (len--)
    {
      uint32_t c = FROM_UNICODE (cs, *text++);

      if (c == NOCHAR)
        {
          c = 0;
          zero = true;
        }

      *buf++ = c;
    }

  return (const char *)enc_buf;
}

static const XChar2b *
enc_xchar2b (const text_t *text, int len, codeset cs, bool &zero)
{
  XChar2b *buf = (XChar2b *)get_enc_buf (len * sizeof (XChar2b));

  while (len--)
    {
      uint32_t c = FROM_UNICODE (cs, *text++);

      if (c == NOCHAR)
        {
          c = 0;
          zero = true;
        }

      buf->byte1 = c >> 8;
      buf->byte2 = c;
      buf++;
    }

  return (XChar2b *)enc_buf;
}

/////////////////////////////////////////////////////////////////////////////

void
rxvt_font::clear_rect (int x, int y, int w, int h, int color)
{
  if (color == Color_bg)
    XClearArea (DISPLAY, DRAWABLE, x, y, w, h, FALSE);
  else if (color >= 0)
    {
      XSetForeground (DISPLAY, GC, R->PixColors[color]);
      XFillRectangle (DISPLAY, DRAWABLE, GC, x, y, w, h);
    }
}

struct rxvt_font_default : rxvt_font {
  bool load (int maxheight)
  {
    width = 1; height = 1;
    ascent = 1; descent = 0;

    return true;
  }

  bool has_codepoint (uint32_t unicode)
  {
    if (unicode <= 0x001f
        || (unicode >= 0x80 && unicode <= 0x9f))
      return true;

    switch (unicode)
      {
        case ZERO_WIDTH_CHAR:
          return true;
      }

    return false;
  }

  void draw (int x, int y,
             const text_t *text, int len,
             int fg, int bg);
};

void
rxvt_font_default::draw (int x, int y,
                         const text_t *text, int len,
                         int fg, int bg)
{
  clear_rect (x, y, R->TermWin.fwidth * len, R->TermWin.fheight, bg);

  while (len--)
    {
      switch (*text++)
        {
          case NOCHAR:
          case ZERO_WIDTH_CHAR:
            break;
          default:
            XSetForeground (DISPLAY, GC, R->PixColors[fg]);
            XDrawRectangle (DISPLAY, DRAWABLE, GC, x + 2, y + 2, R->TermWin.fwidth - 5, R->TermWin.fheight - 5);
        }

      x += R->TermWin.fwidth;
    }
}

/////////////////////////////////////////////////////////////////////////////

struct rxvt_font_x11 : rxvt_font {
  rxvt_font_x11 () { f = 0; }

  void clear ();

  bool load (int maxheight);

  bool has_codepoint (uint32_t unicode);

  void draw (int x, int y,
             const text_t *text, int len,
             int fg, int bg);

  XFontStruct *f;
  codeset cs;
  bool enc2b, encm;

  const char *get_property (const char *property, const char *repl) const;
};

const char *
rxvt_font_x11::get_property (const char *property, const char *repl) const
{
  unsigned long value;

  if (XGetFontProperty (f, XInternAtom (DISPLAY, property, 0), &value))
    return XGetAtomName (DISPLAY, value);
  else
    return repl;
}

bool
rxvt_font_x11::load (int maxheight)
{
  clear ();

  f = XLoadQueryFont (DISPLAY, name);

  if (!f)
    return false;

  unsigned long value;

  const char *registry = get_property ("CHARSET_REGISTRY", 0);
  const char *encoding = get_property ("CHARSET_ENCODING", 0);

  if (registry && encoding)
    {
      char charset[64];
      snprintf (charset, 64, "%s-%s", registry, encoding);

      cs = codeset_from_name (charset);
    }
  else
    {
      const char *charset = get_property ("FONT", 0);

      if (!charset)
        charset = name;

      int count = 13;
      while (*charset)
        if (*charset++ == '-' && !--count)
          break;

      cs = codeset_from_name (charset);
    }

  if (cs == CS_UNICODE)
    cs = CS_UNICODE_16; // X11 can have a max. of 65536 chars per font

  encm = f->min_byte1 != 0 || f->max_byte1 != 0;
  enc2b = encm || f->max_char_or_byte2 > 255;

  ascent = f->ascent;
  descent = f->descent;
  height = ascent + descent;

  prop = false;

  if (f->min_bounds.width == f->max_bounds.width)
    width = f->min_bounds.width;
  else if (f->per_char == NULL)
    width = f->max_bounds.width;
  else
    {
      prop = true;

      int N = f->max_char_or_byte2 - f->min_char_or_byte2;

      if (encm)
        N += (f->max_byte1 - f->min_byte1)
             * (f->max_char_or_byte2 - f->min_char_or_byte2 + 1);
       
      while (N)
        {
          if (f->per_char[N].width > width)
            width = f->per_char[N].width;

          --N;
        }
    }

  if (cs == CS_UNKNOWN)
    {
      fprintf (stderr, "unable to deduce codeset, ignoring font '%s'\n", name);

      clear ();

      return false;
    }

  return true;
}

void
rxvt_font_x11::clear ()
{
  if (f)
    {
      XFreeFont (DISPLAY, f);
      f = 0;
    }
}

bool
rxvt_font_x11::has_codepoint (uint32_t unicode)
{
  uint32_t ch = FROM_UNICODE (cs, unicode);

  if (ch == NOCHAR)
    return false;

  /* check wether the character exists in _this_ font. horrible. */
  XCharStruct *xcs;

  if (encm)
    {
      int byte1 = ch >> 8;
      int byte2 = ch & 255;

      if (byte1 < f->min_byte1 || byte1 > f->max_byte1
          || byte2 < f->min_char_or_byte2 || byte2 > f->max_char_or_byte2)
        return false;

      if (!f->per_char)
        return true;

      int D = f->max_char_or_byte2 - f->min_char_or_byte2 + 1;
      int N = (byte1 - f->min_byte1) * D + byte2 - f->min_char_or_byte2;

      xcs = f->per_char + N;
    }
  else
    {
      if (ch < f->min_char_or_byte2 || ch > f->max_char_or_byte2)
        return false;

      if (!f->per_char)
        return true;

      xcs = f->per_char + (ch - f->min_char_or_byte2);
    }

  if (xcs->lbearing == 0 && xcs->rbearing == 0 && xcs->width == 0
      && xcs->ascent == 0 && xcs->descent == 0)
    return false;

  return true;
}

void
rxvt_font_x11::draw (int x, int y,
                     const text_t *text, int len,
                     int fg, int bg)
{
  // this looks like a mess /.
  // and it is a mess /.
  // yet we are trying to be perfect /.
  // but the result still isn't perfect /.

  bool slow = prop
              || width != R->TermWin.fwidth
              || height != R->TermWin.fheight;

  int base = R->TermWin.fbase;

  XGCValues v;
  v.foreground = R->PixColors[fg];
  v.background = R->PixColors[bg];
  v.font = f->fid;

  if (enc2b)
    {
      const XChar2b *xc = enc_xchar2b (text, len, cs, slow);

      if (bg == Color_bg && !slow)
        {
          XChangeGC (DISPLAY, GC, GCForeground | GCBackground | GCFont, &v);
          XDrawImageString16 (DISPLAY, DRAWABLE, GC, x, y + base, xc, len);
        }
      else
        {
          clear_rect (x, y, R->TermWin.fwidth * len, R->TermWin.fheight, bg);

          XChangeGC (DISPLAY, GC, GCForeground | GCFont, &v);
          
          if (slow)
            {
              do
                {
                  if (xc->byte1 || xc->byte2)
                    XDrawString16 (DISPLAY, DRAWABLE, GC, x, y + base, xc, 1);

                  x += R->TermWin.fwidth;
                  xc++; len--;
                }
              while (len);
            }
          else
            XDrawString16 (DISPLAY, DRAWABLE, GC, x, y + base, xc, len);
        }
    }
  else
    {
      const char *xc = enc_char (text, len, cs, slow);

      if (bg == Color_bg && !slow)
        {
          XChangeGC (DISPLAY, GC, GCForeground | GCBackground | GCFont, &v);
          XDrawImageString (DISPLAY, DRAWABLE, GC, x, y + base, xc, len);
        }
      else
        {
          clear_rect (x, y, R->TermWin.fwidth * len, R->TermWin.fheight, bg);

          XChangeGC (DISPLAY, GC, GCForeground | GCFont, &v);
          
          if (slow)
            {
              do
                {
                  if (*xc)
                    XDrawString (DISPLAY, DRAWABLE, GC, x, y + base, xc, 1);

                  x += R->TermWin.fwidth;
                  xc++; len--;
                }
              while (len);
            }
          else
            XDrawString (DISPLAY, DRAWABLE, GC, x, y + base, xc, len);
        }
    }
}

/////////////////////////////////////////////////////////////////////////////

#if XFT
#if 0
#define UNIBITS 21
//#define SWATHBITS (UNIBITS / 2 + 3) // minimum size for "full" tables
#define SWATHBITS 8
#endif

struct rxvt_font_xft : rxvt_font {
#if 0
  enum {
    SWATHCOUNT = 1 << (21 - UNIBITS),
    SWATHSIZE  = 1 << (SWATHBITS - 5)
  };
  typedef uint32_t swath[SWATHSIZE];

  swath *cvr[SWATHCOUNT];
#endif

#if 0
  void gen_coverage_swath (unsigned int page);

  bool has_char (uint32_t ch)
    {
      unsigned int page = ch >> SWATHBITS;
      unsigned int idx  = ch & ((1 << SWATHBITS) - 1);

      if (page >= SWATHCOUNT)
        return false;

      if (!cvr[page]) gen_coverage_swath (page);

      return cvr[page][idx >> 5] & (1 << (idx & 31));
    }
#endif
  rxvt_font_xft () { f = 0; d = 0; }

  void clear ();

  bool load (int maxheight);

  void draw (int x, int y,
             const text_t *text, int len,
             int fg, int bg);

  bool has_codepoint (uint32_t unicode);

protected:
  XftFont *f;
  XftDraw *d;

#if 0
  virtual void populate_coverage_swath (uint32_t lo, uint32_t hi) = 0;
  void set_swath (uint32_t ch)
    {
      cvr[ch >> SWATHBITS] |= 1 << (ch & ((1 << SWATHBITS) - 1));
    }
#endif
};

void
rxvt_font_xft::clear ()
{
  if (f)
    {
      XftFontClose (R->Xdisplay, f);
      f = 0;
    }

  if (d)
    {
      XftDrawDestroy (d);
      d = 0;
    }

#if 0
  for (int i = 0; i < SWATHCOUNT; i++)
    delete cvr[i];
#endif
}

bool
rxvt_font_xft::load (int maxheight)
{
#if 0
  for (int i = 0; i < SWATHCOUNT; i++)
    cvr[i] = 0;
#endif

  clear ();

  f = XftFontOpenName (R->Xdisplay, DefaultScreen (R->Xdisplay), name);

  if (!f)
    return false;

  FT_Face face = XftLockFace (f);

  prop = !FT_IS_FIXED_WIDTH (face);

  int ftheight = 0;

  for (;;)
    {
      XGlyphInfo g1, g2;
      FcChar8 c;

      c = 'i'; XftTextExtents8 (R->Xdisplay, f, &c, 1, &g1);
      c = 'W'; XftTextExtents8 (R->Xdisplay, f, &c, 1, &g2);

      prop = prop || g1.xOff != g2.xOff; // don't simply trust the font

      width = g2.xOff;
      ascent = (face->size->metrics.ascender + 63) >> 6;
      descent = (-face->size->metrics.descender + 63) >> 6;
      height = ascent + descent;

      if (height <= maxheight || !maxheight)
        break;

      if (ftheight)
        {
          // take smaller steps near the end
          if (height > maxheight + 1) ftheight++;
          if (height > maxheight + 2) ftheight++;
          if (height > maxheight + 3) ftheight++;

          FT_Set_Pixel_Sizes (face, 0, ftheight -= height - maxheight);
        }
      else
        FT_Set_Pixel_Sizes (face, 0, ftheight = maxheight);
    }

  XftUnlockFace (f);

  return true;
}

#if 0
void rxvt_font::gen_coverage_swath (unsigned int page)
{
  cvr[page] = new swath;

  for (int i = 0; i < SWATHSIZE; i++)
    cvr[page][i] = 0;

  populate_coverage_swath (cvr[page], page << SWATHBITS, ((page + 1) << SWATHBITS) - 1);
}
#endif

bool
rxvt_font_xft::has_codepoint (uint32_t unicode)
{
  return XftCharExists (R->Xdisplay, f, unicode);
}

void
rxvt_font_xft::draw (int x, int y,
                     const text_t *text, int len,
                     int fg, int bg)
{
  if (!d)
    d = XftDrawCreate (R->Xdisplay, DRAWABLE, XVISUAL, XCMAP);

  if (bg >= 0 && bg != Color_bg)
    XftDrawRect (d, &R->PixColors[bg].c, x, y, R->TermWin.fwidth * len, R->TermWin.fheight);
  else
    clear_rect (x, y, R->TermWin.fwidth * len, R->TermWin.fheight, bg);

  if (!prop && width == R->TermWin.fwidth)
    {
      if (sizeof (text_t) == sizeof (FcChar16))
        XftDrawString16 (d, &R->PixColors[fg].c, f, x, y + R->TermWin.fbase, (const FcChar16 *)text, len);
      else
        XftDrawString32 (d, &R->PixColors[fg].c, f, x, y + R->TermWin.fbase, (const FcChar32 *)text, len);
    }
  else
    {
      while (len)
        {
          if (*text != NOCHAR && *text != ' ')
            {
              if (sizeof (text_t) == sizeof (FcChar16))
                XftDrawString16 (d, &R->PixColors[fg].c, f, x, y + R->TermWin.fbase, (const FcChar16 *)text, 1);
              else
                XftDrawString32 (d, &R->PixColors[fg].c, f, x, y + R->TermWin.fbase, (const FcChar32 *)text, 1);
            }

          x += R->TermWin.fwidth;
          text++;
          len--;
        }
    }
}
#endif

/////////////////////////////////////////////////////////////////////////////

rxvt_fontset::rxvt_fontset (pR)
#ifdef EXPLICIT_CONTEXT
: rxvt_term(R)
#endif
{
  clear ();
}

rxvt_fontset::~rxvt_fontset ()
{
  clear ();
}

void
rxvt_fontset::clear ()
{
  for (rxvt_font **i = fonts.begin (); i != fonts.end(); i++)
    FONT_UNREF (*i);

  fonts.clear ();
  base_id = 0;
  height = 0x7fffffff;

  fallback = fallback_fonts;
}

rxvt_font *
rxvt_fontset::new_font (const char *name, codeset cs)
{
  rxvt_font *f;
  
  if (!name || !*name)
    {
      name = "";
      f = new rxvt_font_default;
    }
#if XFT
  else if (!strncmp (name, "xft:", 4))
    {
      name += 4;
      f = new rxvt_font_xft;
    }
#endif
  else if (!strncmp (name, "x:", 2))
    {
      name += 2;
      f = new rxvt_font_x11;
    }
  else
    f = new rxvt_font_x11;

  f->set_term (aR);
  f->set_name (strdup (name));

  f->cs = cs;
  f->loaded = false;

  return f;
}

/////////////////////////////////////////////////////////////////////////////

void
rxvt_fontset::add_fonts (const char *desc)
{
  if (desc)
    {
      char buf[512];
      const char *end;

      do
        {
          while (*desc <= ' ') desc++;

          if (*desc == '[')
            {
              fprintf (stderr, "extra font parameters not yet supported, skipping.\n");

              const char *extra = desc++;

              desc = strchr (desc, ']');

              if (!desc)
                {
                  fprintf (stderr, "ERROR: opening '[' without closing ']' in font specification.\n");
                  break;
                }

              desc++;
              while (*desc <= ' ') desc++;
            }

          end = strchr (desc, ',');
          if (!end)
            end = desc + strlen (desc);

          if (end - desc < 511)
            {
              strncpy (buf, desc, end - desc);
              buf[end - desc] = 0;

              fonts.push_back (new_font (buf, CS_UNICODE));
            }

          desc = end + 1;
        }
      while (*end);
    }
}

bool
rxvt_fontset::realize_font (int i)
{
  if (fonts[i]->loaded)
    return true;

  if (fonts[i]->load (height))
    return fonts[i]->loaded = true;

  delete fonts[i];
  fonts.erase (fonts.begin () + i);

  return false;
}

void
rxvt_fontset::populate (const char *desc)
{
  clear ();

  fonts.push_back (new_font (0, CS_UNICODE));
  realize_font (0);

  add_fonts (desc);

  if (!base_id)
    base_id = 1;

  // we currently need a base-font, no matter what
  if (fonts.size () <= base_id)
    {
      add_fonts ("fixed");
      base_id = 1;
    }

  if (fonts.size () <= base_id || !realize_font (base_id))
    {
      fprintf (stderr, "unable to load a base font, please provide one using -fn fontname\n");
      exit (1);
    }

  height = fonts[base_id]->height;

  /*add_fonts ("-efont-fixed-medium-r-normal-*-14-*-*-*-*-*-iso10646-1,"*/
}

int
rxvt_fontset::find_font (uint32_t unicode)
{
  for (int i = 0; i < fonts.size (); i++)
    {
      rxvt_font *f = fonts[i];

      if (!f->loaded)
        {
          if (FROM_UNICODE (f->cs, unicode) == NOCHAR)
            goto next_font;

          if (!realize_font (i))
            {
              --i;
              goto next_font;
            }

          //printf ("added font %s for %04lx\n", f->name, unicode);
        }

      if (f->has_codepoint (unicode))
        return i;

    next_font:
      if (i == fonts.size () - 1 && fallback->name)
        {
          fonts.push_back (new_font (fallback->name, fallback->cs));
          fallback++;
        }
    }

  return 0; /* we must return SOME font */
}


Revision:	1.1
Committed:	Mon Nov 24 17:28:08 2003 UTC (22 years, 10 months ago) by pcg
Content type:	text/plain
Branch:	MAIN
Log Message:	* empty log message *
#	User	Rev	Content
1	pcg	1.1	/---------------------------------C----------------------------------;
2			* File: defaultfont.C
3			----------------------------------------------------------------------
4			* Copyright (c) 2003 Marc Lehmann rxvt@plan9.de>
5			* - original version.
6			*
7			* This program is free software; you can redistribute it and/or modify
8			* it under the terms of the GNU General Public License as published by
9			* the Free Software Foundation; either version 2 of the License, or
10			* (at your option) any later version.
11			*
12			* This program is distributed in the hope that it will be useful,
13			* but WITHOUT ANY WARRANTY; without even the implied warranty of
14			* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15			* GNU General Public License for more details.
16			*
17			* You should have received a copy of the GNU General Public License
18			* along with this program; if not, write to the Free Software
19			* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
20			---------------------------------------------------------------------/
21
22			#include "../config.h"
23			#include "rxvt.h"
24			#include "defaultfont.h"
25
26			#define DISPLAY R->Xdisplay
27			#define DRAWABLE R->TermWin.vt
28			#define GC R->TermWin.gc
29
30			const struct rxvt_fallback_font {
31			codeset cs;
32			const char *name;
33			} fallback_fonts[] = {
34			{ CS_ISO8859_1, "----r-------c-*-iso8859-1" },
35			{ CS_ISO8859_15, "----r-------c-*-iso8859-15" },
36			{ CS_ISO8859_15, "----r-------c-*-fcd8859-15" },
37
38			#if ENCODING_EU
39			// cyrillic
40			{ CS_KOI8_R, "----r-------c-*-koi8-r" },
41			{ CS_KOI8_U, "----r-------c-*-koi8-u" },
42
43			{ CS_ISO8859_2, "----r-------c-*-iso8859-2" },
44			{ CS_ISO8859_3, "----r-------c-*-iso8859-3" },
45			{ CS_ISO8859_4, "----r-------c-*-iso8859-4" },
46			{ CS_ISO8859_5, "----r-------c-*-iso8859-5" },
47			{ CS_ISO8859_6, "----r-------c-*-iso8859-6" },
48			{ CS_ISO8859_7, "----r-------c-*-iso8859-7" },
49			{ CS_ISO8859_8, "----r-------c-*-iso8859-8" },
50			{ CS_ISO8859_9, "----r-------c-*-iso8859-9" },
51			{ CS_ISO8859_10, "----r-------c-*-iso8859-10" },
52			{ CS_ISO8859_11, "----r-------c-*-iso8859-11" },
53			{ CS_ISO8859_13, "----r-------c-*-iso8859-13" },
54			{ CS_ISO8859_14, "----r-------c-*-iso8859-14" },
55			{ CS_ISO8859_16, "----r-------c-*-iso8859-16" },
56			#endif
57
58			// japanese
59			#if ENCODING_JP \|\| ENCODING_JP_EXT
60			# if XFT
61			// prefer xft for complex scripts
62			{ CS_UNICODE, "xft:Kochi Gothic" },
63			# endif
64			{ CS_JIS0201_1976_0, "--mincho--r-------c--jisx0201*-0" },
65			{ CS_JIS0208_1983_0, "--mincho--r-------c--jisx0208*-0" },
66			{ CS_JIS0212_1990_0, "--mincho--r-------c--jisx0212*-0" },
67			#endif
68
69			#if ENCODING_CN \|\| ENCODING_CN_EXT
70			# if XFT
71			{ CS_BIG5_EXT, "xft:AR PL Mingti2L Big5" },
72			{ CS_BIG5_EXT, "xft:AR PL KaitiM Big5" },
73			{ CS_GB2312_1980_0, "xft:AR PL KaitiM GB" },
74			{ CS_GB2312_1980_0, "xft:AR PL SungtiL GB" },
75			# endif
76			{ CS_CNS11643_1992_1, "----r-------c--cns11643.1992-1" },
77			{ CS_CNS11643_1992_2, "----r-------c--cns11643.1992-2" },
78			{ CS_CNS11643_1992_3, "----r-------c--cns11643.1992-3" },
79			{ CS_CNS11643_1992_4, "----r-------c--cns11643.1992-4" },
80			{ CS_CNS11643_1992_5, "----r-------c--cns11643.1992-5" },
81			{ CS_CNS11643_1992_6, "----r-------c--cns11643.1992-6" },
82			{ CS_CNS11643_1992_7, "----r-------c--cns11643.1992-7" },
83			{ CS_CNS11643_1992_F, "----r-------c--cns11643.1992-f" },
84			#endif
85
86			#if XFT
87			{ CS_UNICODE, "xft:Andale Mono" },
88			{ CS_UNICODE, "xft:Arial Unicode MS" },
89			#endif
90			{ CS_UNICODE, "--lucidatypewriter--r-------m-*-iso10646-1" },
91			{ CS_UNICODE, "----r-------m--iso10646-1" },
92			{ CS_UNICODE, "----r-------m--iso10646-1" },
93			{ CS_UNICODE, "----r-------m--iso10646-1" },
94
95			{ CS_UNKNOWN, 0 }
96			};
97
98			/////////////////////////////////////////////////////////////////////////////
99
100			static void *enc_buf;
101			static uint32_t enc_len;
102
103			static inline void *
104			get_enc_buf (int len)
105			{
106			if (len > enc_len)
107			{
108			free (enc_buf);
109			enc_buf = malloc (len);
110			}
111
112			return enc_buf;
113			}
114
115			static const char *
116			enc_char (const text_t *text, int len, codeset cs, bool &zero)
117			{
118			uint8_t buf = (uint8_t )get_enc_buf (len);
119
120			while (len--)
121			{
122			uint32_t c = FROM_UNICODE (cs, *text++);
123
124			if (c == NOCHAR)
125			{
126			c = 0;
127			zero = true;
128			}
129
130			*buf++ = c;
131			}
132
133			return (const char *)enc_buf;
134			}
135
136			static const XChar2b *
137			enc_xchar2b (const text_t *text, int len, codeset cs, bool &zero)
138			{
139			XChar2b buf = (XChar2b )get_enc_buf (len * sizeof (XChar2b));
140
141			while (len--)
142			{
143			uint32_t c = FROM_UNICODE (cs, *text++);
144
145			if (c == NOCHAR)
146			{
147			c = 0;
148			zero = true;
149			}
150
151			buf->byte1 = c >> 8;
152			buf->byte2 = c;
153			buf++;
154			}
155
156			return (XChar2b *)enc_buf;
157			}
158
159			/////////////////////////////////////////////////////////////////////////////
160
161			void
162			rxvt_font::clear_rect (int x, int y, int w, int h, int color)
163			{
164			if (color == Color_bg)
165			XClearArea (DISPLAY, DRAWABLE, x, y, w, h, FALSE);
166			else if (color >= 0)
167			{
168			XSetForeground (DISPLAY, GC, R->PixColors[color]);
169			XFillRectangle (DISPLAY, DRAWABLE, GC, x, y, w, h);
170			}
171			}
172
173			struct rxvt_font_default : rxvt_font {
174			bool load (int maxheight)
175			{
176			width = 1; height = 1;
177			ascent = 1; descent = 0;
178
179			return true;
180			}
181
182			bool has_codepoint (uint32_t unicode)
183			{
184			if (unicode <= 0x001f
185			\|\| (unicode >= 0x80 && unicode <= 0x9f))
186			return true;
187
188			switch (unicode)
189			{
190			case ZERO_WIDTH_CHAR:
191			return true;
192			}
193
194			return false;
195			}
196
197			void draw (int x, int y,
198			const text_t *text, int len,
199			int fg, int bg);
200			};
201
202			void
203			rxvt_font_default::draw (int x, int y,
204			const text_t *text, int len,
205			int fg, int bg)
206			{
207			clear_rect (x, y, R->TermWin.fwidth * len, R->TermWin.fheight, bg);
208
209			while (len--)
210			{
211			switch (*text++)
212			{
213			case NOCHAR:
214			case ZERO_WIDTH_CHAR:
215			break;
216			default:
217			XSetForeground (DISPLAY, GC, R->PixColors[fg]);
218			XDrawRectangle (DISPLAY, DRAWABLE, GC, x + 2, y + 2, R->TermWin.fwidth - 5, R->TermWin.fheight - 5);
219			}
220
221			x += R->TermWin.fwidth;
222			}
223			}
224
225			/////////////////////////////////////////////////////////////////////////////
226
227			struct rxvt_font_x11 : rxvt_font {
228			rxvt_font_x11 () { f = 0; }
229
230			void clear ();
231
232			bool load (int maxheight);
233
234			bool has_codepoint (uint32_t unicode);
235
236			void draw (int x, int y,
237			const text_t *text, int len,
238			int fg, int bg);
239
240			XFontStruct *f;
241			codeset cs;
242			bool enc2b, encm;
243
244			const char get_property (const char property, const char *repl) const;
245			};
246
247			const char *
248			rxvt_font_x11::get_property (const char property, const char repl) const
249			{
250			unsigned long value;
251
252			if (XGetFontProperty (f, XInternAtom (DISPLAY, property, 0), &value))
253			return XGetAtomName (DISPLAY, value);
254			else
255			return repl;
256			}
257
258			bool
259			rxvt_font_x11::load (int maxheight)
260			{
261			clear ();
262
263			f = XLoadQueryFont (DISPLAY, name);
264
265			if (!f)
266			return false;
267
268			unsigned long value;
269
270			const char *registry = get_property ("CHARSET_REGISTRY", 0);
271			const char *encoding = get_property ("CHARSET_ENCODING", 0);
272
273			if (registry && encoding)
274			{
275			char charset[64];
276			snprintf (charset, 64, "%s-%s", registry, encoding);
277
278			cs = codeset_from_name (charset);
279			}
280			else
281			{
282			const char *charset = get_property ("FONT", 0);
283
284			if (!charset)
285			charset = name;
286
287			int count = 13;
288			while (*charset)
289			if (*charset++ == '-' && !--count)
290			break;
291
292			cs = codeset_from_name (charset);
293			}
294
295			if (cs == CS_UNICODE)
296			cs = CS_UNICODE_16; // X11 can have a max. of 65536 chars per font
297
298			encm = f->min_byte1 != 0 \|\| f->max_byte1 != 0;
299			enc2b = encm \|\| f->max_char_or_byte2 > 255;
300
301			ascent = f->ascent;
302			descent = f->descent;
303			height = ascent + descent;
304
305			prop = false;
306
307			if (f->min_bounds.width == f->max_bounds.width)
308			width = f->min_bounds.width;
309			else if (f->per_char == NULL)
310			width = f->max_bounds.width;
311			else
312			{
313			prop = true;
314
315			int N = f->max_char_or_byte2 - f->min_char_or_byte2;
316
317			if (encm)
318			N += (f->max_byte1 - f->min_byte1)
319			* (f->max_char_or_byte2 - f->min_char_or_byte2 + 1);
320
321			while (N)
322			{
323			if (f->per_char[N].width > width)
324			width = f->per_char[N].width;
325
326			--N;
327			}
328			}
329
330			if (cs == CS_UNKNOWN)
331			{
332			fprintf (stderr, "unable to deduce codeset, ignoring font '%s'\n", name);
333
334			clear ();
335
336			return false;
337			}
338
339			return true;
340			}
341
342			void
343			rxvt_font_x11::clear ()
344			{
345			if (f)
346			{
347			XFreeFont (DISPLAY, f);
348			f = 0;
349			}
350			}
351
352			bool
353			rxvt_font_x11::has_codepoint (uint32_t unicode)
354			{
355			uint32_t ch = FROM_UNICODE (cs, unicode);
356
357			if (ch == NOCHAR)
358			return false;
359
360			/* check wether the character exists in _this_ font. horrible. */
361			XCharStruct *xcs;
362
363			if (encm)
364			{
365			int byte1 = ch >> 8;
366			int byte2 = ch & 255;
367
368			if (byte1 < f->min_byte1 \|\| byte1 > f->max_byte1
369			\|\| byte2 < f->min_char_or_byte2 \|\| byte2 > f->max_char_or_byte2)
370			return false;
371
372			if (!f->per_char)
373			return true;
374
375			int D = f->max_char_or_byte2 - f->min_char_or_byte2 + 1;
376			int N = (byte1 - f->min_byte1) * D + byte2 - f->min_char_or_byte2;
377
378			xcs = f->per_char + N;
379			}
380			else
381			{
382			if (ch < f->min_char_or_byte2 \|\| ch > f->max_char_or_byte2)
383			return false;
384
385			if (!f->per_char)
386			return true;
387
388			xcs = f->per_char + (ch - f->min_char_or_byte2);
389			}
390
391			if (xcs->lbearing == 0 && xcs->rbearing == 0 && xcs->width == 0
392			&& xcs->ascent == 0 && xcs->descent == 0)
393			return false;
394
395			return true;
396			}
397
398			void
399			rxvt_font_x11::draw (int x, int y,
400			const text_t *text, int len,
401			int fg, int bg)
402			{
403			// this looks like a mess /.
404			// and it is a mess /.
405			// yet we are trying to be perfect /.
406			// but the result still isn't perfect /.
407
408			bool slow = prop
409			\|\| width != R->TermWin.fwidth
410			\|\| height != R->TermWin.fheight;
411
412			int base = R->TermWin.fbase;
413
414			XGCValues v;
415			v.foreground = R->PixColors[fg];
416			v.background = R->PixColors[bg];
417			v.font = f->fid;
418
419			if (enc2b)
420			{
421			const XChar2b *xc = enc_xchar2b (text, len, cs, slow);
422
423			if (bg == Color_bg && !slow)
424			{
425			XChangeGC (DISPLAY, GC, GCForeground \| GCBackground \| GCFont, &v);
426			XDrawImageString16 (DISPLAY, DRAWABLE, GC, x, y + base, xc, len);
427			}
428			else
429			{
430			clear_rect (x, y, R->TermWin.fwidth * len, R->TermWin.fheight, bg);
431
432			XChangeGC (DISPLAY, GC, GCForeground \| GCFont, &v);
433
434			if (slow)
435			{
436			do
437			{
438			if (xc->byte1 \|\| xc->byte2)
439			XDrawString16 (DISPLAY, DRAWABLE, GC, x, y + base, xc, 1);
440
441			x += R->TermWin.fwidth;
442			xc++; len--;
443			}
444			while (len);
445			}
446			else
447			XDrawString16 (DISPLAY, DRAWABLE, GC, x, y + base, xc, len);
448			}
449			}
450			else
451			{
452			const char *xc = enc_char (text, len, cs, slow);
453
454			if (bg == Color_bg && !slow)
455			{
456			XChangeGC (DISPLAY, GC, GCForeground \| GCBackground \| GCFont, &v);
457			XDrawImageString (DISPLAY, DRAWABLE, GC, x, y + base, xc, len);
458			}
459			else
460			{
461			clear_rect (x, y, R->TermWin.fwidth * len, R->TermWin.fheight, bg);
462
463			XChangeGC (DISPLAY, GC, GCForeground \| GCFont, &v);
464
465			if (slow)
466			{
467			do
468			{
469			if (*xc)
470			XDrawString (DISPLAY, DRAWABLE, GC, x, y + base, xc, 1);
471
472			x += R->TermWin.fwidth;
473			xc++; len--;
474			}
475			while (len);
476			}
477			else
478			XDrawString (DISPLAY, DRAWABLE, GC, x, y + base, xc, len);
479			}
480			}
481			}
482
483			/////////////////////////////////////////////////////////////////////////////
484
485			#if XFT
486			#if 0
487			#define UNIBITS 21
488			//#define SWATHBITS (UNIBITS / 2 + 3) // minimum size for "full" tables
489			#define SWATHBITS 8
490			#endif
491
492			struct rxvt_font_xft : rxvt_font {
493			#if 0
494			enum {
495			SWATHCOUNT = 1 << (21 - UNIBITS),
496			SWATHSIZE = 1 << (SWATHBITS - 5)
497			};
498			typedef uint32_t swath[SWATHSIZE];
499
500			swath *cvr[SWATHCOUNT];
501			#endif
502
503			#if 0
504			void gen_coverage_swath (unsigned int page);
505
506			bool has_char (uint32_t ch)
507			{
508			unsigned int page = ch >> SWATHBITS;
509			unsigned int idx = ch & ((1 << SWATHBITS) - 1);
510
511			if (page >= SWATHCOUNT)
512			return false;
513
514			if (!cvr[page]) gen_coverage_swath (page);
515
516			return cvr[page][idx >> 5] & (1 << (idx & 31));
517			}
518			#endif
519			rxvt_font_xft () { f = 0; d = 0; }
520
521			void clear ();
522
523			bool load (int maxheight);
524
525			void draw (int x, int y,
526			const text_t *text, int len,
527			int fg, int bg);
528
529			bool has_codepoint (uint32_t unicode);
530
531			protected:
532			XftFont *f;
533			XftDraw *d;
534
535			#if 0
536			virtual void populate_coverage_swath (uint32_t lo, uint32_t hi) = 0;
537			void set_swath (uint32_t ch)
538			{
539			cvr[ch >> SWATHBITS] \|= 1 << (ch & ((1 << SWATHBITS) - 1));
540			}
541			#endif
542			};
543
544			void
545			rxvt_font_xft::clear ()
546			{
547			if (f)
548			{
549			XftFontClose (R->Xdisplay, f);
550			f = 0;
551			}
552
553			if (d)
554			{
555			XftDrawDestroy (d);
556			d = 0;
557			}
558
559			#if 0
560			for (int i = 0; i < SWATHCOUNT; i++)
561			delete cvr[i];
562			#endif
563			}
564
565			bool
566			rxvt_font_xft::load (int maxheight)
567			{
568			#if 0
569			for (int i = 0; i < SWATHCOUNT; i++)
570			cvr[i] = 0;
571			#endif
572
573			clear ();
574
575			f = XftFontOpenName (R->Xdisplay, DefaultScreen (R->Xdisplay), name);
576
577			if (!f)
578			return false;
579
580			FT_Face face = XftLockFace (f);
581
582			prop = !FT_IS_FIXED_WIDTH (face);
583
584			int ftheight = 0;
585
586			for (;;)
587			{
588			XGlyphInfo g1, g2;
589			FcChar8 c;
590
591			c = 'i'; XftTextExtents8 (R->Xdisplay, f, &c, 1, &g1);
592			c = 'W'; XftTextExtents8 (R->Xdisplay, f, &c, 1, &g2);
593
594			prop = prop \|\| g1.xOff != g2.xOff; // don't simply trust the font
595
596			width = g2.xOff;
597			ascent = (face->size->metrics.ascender + 63) >> 6;
598			descent = (-face->size->metrics.descender + 63) >> 6;
599			height = ascent + descent;
600
601			if (height <= maxheight \|\| !maxheight)
602			break;
603
604			if (ftheight)
605			{
606			// take smaller steps near the end
607			if (height > maxheight + 1) ftheight++;
608			if (height > maxheight + 2) ftheight++;
609			if (height > maxheight + 3) ftheight++;
610
611			FT_Set_Pixel_Sizes (face, 0, ftheight -= height - maxheight);
612			}
613			else
614			FT_Set_Pixel_Sizes (face, 0, ftheight = maxheight);
615			}
616
617			XftUnlockFace (f);
618
619			return true;
620			}
621
622			#if 0
623			void rxvt_font::gen_coverage_swath (unsigned int page)
624			{
625			cvr[page] = new swath;
626
627			for (int i = 0; i < SWATHSIZE; i++)
628			cvr[page][i] = 0;
629
630			populate_coverage_swath (cvr[page], page << SWATHBITS, ((page + 1) << SWATHBITS) - 1);
631			}
632			#endif
633
634			bool
635			rxvt_font_xft::has_codepoint (uint32_t unicode)
636			{
637			return XftCharExists (R->Xdisplay, f, unicode);
638			}
639
640			void
641			rxvt_font_xft::draw (int x, int y,
642			const text_t *text, int len,
643			int fg, int bg)
644			{
645			if (!d)
646			d = XftDrawCreate (R->Xdisplay, DRAWABLE, XVISUAL, XCMAP);
647
648			if (bg >= 0 && bg != Color_bg)
649			XftDrawRect (d, &R->PixColors[bg].c, x, y, R->TermWin.fwidth * len, R->TermWin.fheight);
650			else
651			clear_rect (x, y, R->TermWin.fwidth * len, R->TermWin.fheight, bg);
652
653			if (!prop && width == R->TermWin.fwidth)
654			{
655			if (sizeof (text_t) == sizeof (FcChar16))
656			XftDrawString16 (d, &R->PixColors[fg].c, f, x, y + R->TermWin.fbase, (const FcChar16 *)text, len);
657			else
658			XftDrawString32 (d, &R->PixColors[fg].c, f, x, y + R->TermWin.fbase, (const FcChar32 *)text, len);
659			}
660			else
661			{
662			while (len)
663			{
664			if (text != NOCHAR && text != ' ')
665			{
666			if (sizeof (text_t) == sizeof (FcChar16))
667			XftDrawString16 (d, &R->PixColors[fg].c, f, x, y + R->TermWin.fbase, (const FcChar16 *)text, 1);
668			else
669			XftDrawString32 (d, &R->PixColors[fg].c, f, x, y + R->TermWin.fbase, (const FcChar32 *)text, 1);
670			}
671
672			x += R->TermWin.fwidth;
673			text++;
674			len--;
675			}
676			}
677			}
678			#endif
679
680			/////////////////////////////////////////////////////////////////////////////
681
682			rxvt_fontset::rxvt_fontset (pR)
683			#ifdef EXPLICIT_CONTEXT
684			: rxvt_term(R)
685			#endif
686			{
687			clear ();
688			}
689
690			rxvt_fontset::~rxvt_fontset ()
691			{
692			clear ();
693			}
694
695			void
696			rxvt_fontset::clear ()
697			{
698			for (rxvt_font **i = fonts.begin (); i != fonts.end(); i++)
699			FONT_UNREF (*i);
700
701			fonts.clear ();
702			base_id = 0;
703			height = 0x7fffffff;
704
705			fallback = fallback_fonts;
706			}
707
708			rxvt_font *
709			rxvt_fontset::new_font (const char *name, codeset cs)
710			{
711			rxvt_font *f;
712
713			if (!name \|\| !*name)
714			{
715			name = "";
716			f = new rxvt_font_default;
717			}
718			#if XFT
719			else if (!strncmp (name, "xft:", 4))
720			{
721			name += 4;
722			f = new rxvt_font_xft;
723			}
724			#endif
725			else if (!strncmp (name, "x:", 2))
726			{
727			name += 2;
728			f = new rxvt_font_x11;
729			}
730			else
731			f = new rxvt_font_x11;
732
733			f->set_term (aR);
734			f->set_name (strdup (name));
735
736			f->cs = cs;
737			f->loaded = false;
738
739			return f;
740			}
741
742			/////////////////////////////////////////////////////////////////////////////
743
744			void
745			rxvt_fontset::add_fonts (const char *desc)
746			{
747			if (desc)
748			{
749			char buf[512];
750			const char *end;
751
752			do
753			{
754			while (*desc <= ' ') desc++;
755
756			if (*desc == '[')
757			{
758			fprintf (stderr, "extra font parameters not yet supported, skipping.\n");
759
760			const char *extra = desc++;
761
762			desc = strchr (desc, ']');
763
764			if (!desc)
765			{
766			fprintf (stderr, "ERROR: opening '[' without closing ']' in font specification.\n");
767			break;
768			}
769
770			desc++;
771			while (*desc <= ' ') desc++;
772			}
773
774			end = strchr (desc, ',');
775			if (!end)
776			end = desc + strlen (desc);
777
778			if (end - desc < 511)
779			{
780			strncpy (buf, desc, end - desc);
781			buf[end - desc] = 0;
782
783			fonts.push_back (new_font (buf, CS_UNICODE));
784			}
785
786			desc = end + 1;
787			}
788			while (*end);
789			}
790			}
791
792			bool
793			rxvt_fontset::realize_font (int i)
794			{
795			if (fonts[i]->loaded)
796			return true;
797
798			if (fonts[i]->load (height))
799			return fonts[i]->loaded = true;
800
801			delete fonts[i];
802			fonts.erase (fonts.begin () + i);
803
804			return false;
805			}
806
807			void
808			rxvt_fontset::populate (const char *desc)
809			{
810			clear ();
811
812			fonts.push_back (new_font (0, CS_UNICODE));
813			realize_font (0);
814
815			add_fonts (desc);
816
817			if (!base_id)
818			base_id = 1;
819
820			// we currently need a base-font, no matter what
821			if (fonts.size () <= base_id)
822			{
823			add_fonts ("fixed");
824			base_id = 1;
825			}
826
827			if (fonts.size () <= base_id \|\| !realize_font (base_id))
828			{
829			fprintf (stderr, "unable to load a base font, please provide one using -fn fontname\n");
830			exit (1);
831			}
832
833			height = fonts[base_id]->height;
834
835			/add_fonts ("-efont-fixed-medium-r-normal--14------iso10646-1,"/
836			}
837
838			int
839			rxvt_fontset::find_font (uint32_t unicode)
840			{
841			for (int i = 0; i < fonts.size (); i++)
842			{
843			rxvt_font *f = fonts[i];
844
845			if (!f->loaded)
846			{
847			if (FROM_UNICODE (f->cs, unicode) == NOCHAR)
848			goto next_font;
849
850			if (!realize_font (i))
851			{
852			--i;
853			goto next_font;
854			}
855
856			//printf ("added font %s for %04lx\n", f->name, unicode);
857			}
858
859			if (f->has_codepoint (unicode))
860			return i;
861
862			next_font:
863			if (i == fonts.size () - 1 && fallback->name)
864			{
865			fonts.push_back (new_font (fallback->name, fallback->cs));
866			fallback++;
867			}
868			}
869
870			return 0; /* we must return SOME font */
871			}
872
873
874