comparison src/fringe.c @ 83212:f70dc61a797f

Merged in changes from CVS trunk. Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-581 Fix exec-shield autoconf test * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-582 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-583 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-584 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-585 Merge from gnus--rel--5.10 * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-586 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-587 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-588 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-589 Merge from gnus--rel--5.10 * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-590 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-591 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-592 Update from CVS * [e-mail]--gnu-2004/gnus--rel--5.10--patch-38 Update from CVS * [e-mail]--gnu-2004/gnus--rel--5.10--patch-39 Merge from emacs--cvs-trunk--0 * [e-mail]--gnu-2004/gnus--rel--5.10--patch-40 Update from CVS * [e-mail]--gnu-2004/gnus--rel--5.10--patch-41 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-252

83211:b85b19b8eb65

  { FRBITS (bar_cursor_bits),         8, 0, ALIGN_BITMAP_CENTER, 0 },
  { FRBITS (hbar_cursor_bits),        8, 0, ALIGN_BITMAP_BOTTOM, 0 },
  { FRBITS (zv_bits),                 8, 3, ALIGN_BITMAP_TOP,    0 },
};

static struct fringe_bitmap *fringe_bitmaps[MAX_FRINGE_BITMAPS];
static unsigned fringe_faces[MAX_FRINGE_BITMAPS];

static int max_used_fringe_bitmap = MAX_STANDARD_FRINGE_BITMAPS;

/* Return 1 if FRINGE_ID is a valid fringe bitmap id.  */

int
valid_fringe_bitmap_p (bitmap)
     Lisp_Object bitmap;
{
  int bn;

  if (!INTEGERP (bitmap))
    return 0;

  bn = XINT (bitmap);
  return (bn >= NO_FRINGE_BITMAP
	  && bn < max_used_fringe_bitmap
	  && (bn < MAX_STANDARD_FRINGE_BITMAPS
	      || fringe_bitmaps[bn] != NULL));
}

/* Get fringe bitmap name for bitmap number BN.

   Found by traversing Vfringe_bitmaps comparing BN to the

	return bitmap;
      bitmaps = XCDR (bitmaps);
    }

  return num;
}


/* Resolve a BITMAP parameter.

   An INTEGER, corresponding to a bitmap number.
   A STRING which is interned to a symbol.
   A SYMBOL which has a fringe property which is a bitmap number.
*/

static int
resolve_fringe_bitmap (bitmap, namep)
     Lisp_Object bitmap;
     Lisp_Object *namep;
{
  if (namep)
    *namep = Qnil;

  if (STRINGP (bitmap))
    bitmap = intern (SDATA (bitmap));

  if (SYMBOLP (bitmap))
    {
      if (namep)
	*namep = bitmap;
      bitmap = Fget (bitmap, Qfringe);
    }

  if (valid_fringe_bitmap_p (bitmap))
    {
      if (namep && NILP (*namep))
	*namep = get_fringe_bitmap_name (XINT (bitmap));
      return XINT (bitmap);
    }

  return -1;
}


/* Draw the bitmap WHICH in one of the left or right fringes of
   window W.  ROW is the glyph row for which to display the bitmap; it

	o_cols != FRAME_FRINGE_COLS (f))
      redraw_frame (f);
}


void
destroy_fringe_bitmap (n)
     int n;
{
  struct fringe_bitmap **fbp;

  fbp = &fringe_bitmaps[n];
  if (*fbp && (*fbp)->dynamic)
    {
      /* XXX Is SELECTED_FRAME OK here? */
      if (FRAME_RIF (SELECTED_FRAME ())->destroy_fringe_bitmap)
	FRAME_RIF (SELECTED_FRAME ())->destroy_fringe_bitmap (n);
      xfree (*fbp);
      *fbp = NULL;
    }

  while (max_used_fringe_bitmap > MAX_STANDARD_FRINGE_BITMAPS

If BITMAP overrides a standard fringe bitmap, the original bitmap is restored.  */)
  (bitmap)
     Lisp_Object bitmap;
{
  int n;
  Lisp_Object sym;

  n = resolve_fringe_bitmap (bitmap, &sym);
  if (n < 0)
    return Qnil;

  destroy_fringe_bitmap (n);

  if (SYMBOLP (sym))
    {
      Vfringe_bitmaps = Fdelq (sym, Vfringe_bitmaps);
      /* It would be better to remove the fringe property.  */
      Fput (sym, Qfringe, Qnil);
    }
  return Qnil;
}


/* Initialize bitmap bit.

  if (!once_p)
    {
      destroy_fringe_bitmap (which);

      /* XXX Is SELECTED_FRAME OK here? */
      if (FRAME_RIF (SELECTED_FRAME ())->define_fringe_bitmap)
	FRAME_RIF (SELECTED_FRAME ())->define_fringe_bitmap (which, fb->bits, fb->height, fb->width);

      fringe_bitmaps[which] = fb;
      if (which >= max_used_fringe_bitmap)
	max_used_fringe_bitmap = which + 1;
    }

  Lisp_Object len;
  int n, h, i, j;
  unsigned short *b;
  struct fringe_bitmap fb, *xfb;
  int fill1 = 0, fill2 = 0;
  Lisp_Object sym;

  n = resolve_fringe_bitmap (bitmap, &sym);

  if (NILP (sym) || INTEGERP (sym))
    sym = wrong_type_argument (Qsymbolp, bitmap);

  if (!STRINGP (bits) && !VECTORP (bits))
    bits = wrong_type_argument (Qstringp, bits);

  len = Flength (bits);

  else if (EQ (align, Qbottom))
    fb.align = ALIGN_BITMAP_BOTTOM;
  else if (!NILP (align) && !EQ (align, Qcenter))
    error ("Bad align argument");

  if (n < 0)
    {
      if (max_used_fringe_bitmap < MAX_FRINGE_BITMAPS)
	n = max_used_fringe_bitmap++;
      else
	{
	  for (n = MAX_STANDARD_FRINGE_BITMAPS;
	       n < MAX_FRINGE_BITMAPS;
	       n++)
	    if (fringe_bitmaps[n] == NULL)
	      break;
	  if (n == MAX_FRINGE_BITMAPS)
	    error ("Cannot define more fringe bitmaps");
	}

      Vfringe_bitmaps = Fcons (sym, Vfringe_bitmaps);
      Fput (sym, Qfringe, make_number (n));
    }

  fb.dynamic = 1;

  xfb = (struct fringe_bitmap *) xmalloc (sizeof fb

  *xfb = fb;

  init_fringe_bitmap (n, xfb, 0);

  return sym;
}

DEFUN ("set-fringe-bitmap-face", Fset_fringe_bitmap_face, Sset_fringe_bitmap_face,
       1, 2, 0,
       doc: /* Set face for fringe bitmap BITMAP to FACE.
If FACE is nil, reset face to default fringe face.  */)
  (bitmap, face)
     Lisp_Object bitmap, face;
{
  int bn;
  int face_id;

  bn = resolve_fringe_bitmap (bitmap, 0);
  if (bn < 0)
    error ("Undefined fringe bitmap");

  if (!NILP (face))
    {
      face_id = lookup_named_face (SELECTED_FRAME (), face, 'A');

	error ("No such face");
    }
  else
    face_id = FRINGE_FACE_ID;

  fringe_faces [bn] = face_id;

  return Qnil;
}

DEFUN ("fringe-bitmaps-at-pos", Ffringe_bitmaps_at_pos, Sfringe_bitmaps_at_pos,

void
init_fringe ()
{
  int i;

  bzero (fringe_bitmaps, sizeof fringe_bitmaps);
  for (i = 0; i < MAX_FRINGE_BITMAPS; i++)
    fringe_faces[i] = FRINGE_FACE_ID;
}

#ifdef HAVE_NTGUI

void
w32_init_fringe ()
{
  enum fringe_bitmap_type bt;

  for (bt = NO_FRINGE_BITMAP + 1; bt < MAX_STANDARD_FRINGE_BITMAPS; bt++)
    {
      struct fringe_bitmap *fb = &standard_bitmaps[bt];
      rif->define_fringe_bitmap (bt, fb->bits, fb->height, fb->width);
    }

w32_reset_fringes ()
{
  /* Destroy row bitmaps.  */
  int bt;

  for (bt = NO_FRINGE_BITMAP + 1; bt < max_used_fringe_bitmap; bt++)
    rif->destroy_fringe_bitmap (bt);
}

#endif /* HAVE_NTGUI */

83212:f70dc61a797f

  { FRBITS (bar_cursor_bits),         8, 0, ALIGN_BITMAP_CENTER, 0 },
  { FRBITS (hbar_cursor_bits),        8, 0, ALIGN_BITMAP_BOTTOM, 0 },
  { FRBITS (zv_bits),                 8, 3, ALIGN_BITMAP_TOP,    0 },
};

static struct fringe_bitmap **fringe_bitmaps;
static unsigned *fringe_faces;
static int max_fringe_bitmaps;

static int max_used_fringe_bitmap = MAX_STANDARD_FRINGE_BITMAPS;


/* Lookup bitmap number for symbol BITMAP.
   Return 0 if not a bitmap.  */

int
lookup_fringe_bitmap (bitmap)
     Lisp_Object bitmap;
{
  int bn;

  bitmap = Fget (bitmap, Qfringe);
  if (!INTEGERP (bitmap))
    return 0;

  bn = XINT (bitmap);
  if (bn > NO_FRINGE_BITMAP
      && bn < max_used_fringe_bitmap
      && (bn < MAX_STANDARD_FRINGE_BITMAPS
	  || fringe_bitmaps[bn] != NULL))
    return bn;

  return 0;
}

/* Get fringe bitmap name for bitmap number BN.

   Found by traversing Vfringe_bitmaps comparing BN to the

	return bitmap;
      bitmaps = XCDR (bitmaps);
    }

  return num;
}


/* Draw the bitmap WHICH in one of the left or right fringes of
   window W.  ROW is the glyph row for which to display the bitmap; it

	o_cols != FRAME_FRINGE_COLS (f))
      redraw_frame (f);
}


/* Free resources used by a user-defined bitmap.  */

int
destroy_fringe_bitmap (n)
     int n;
{
  struct fringe_bitmap **fbp;

  fbp = &fringe_bitmaps[n];
  if (*fbp && (*fbp)->dynamic)
    {
      /* XXX Is SELECTED_FRAME OK here? */
      struct redisplay_interface *rif = FRAME_RIF (SELECTED_FRAME ());
      if (rif && rif->destroy_fringe_bitmap)
	rif->destroy_fringe_bitmap (n);
      xfree (*fbp);
      *fbp = NULL;
    }

  while (max_used_fringe_bitmap > MAX_STANDARD_FRINGE_BITMAPS

If BITMAP overrides a standard fringe bitmap, the original bitmap is restored.  */)
  (bitmap)
     Lisp_Object bitmap;
{
  int n;

  CHECK_SYMBOL (bitmap);
  n = lookup_fringe_bitmap (bitmap);
  if (!n)
    return Qnil;

  destroy_fringe_bitmap (n);

  if (n >= MAX_STANDARD_FRINGE_BITMAPS)
    {
      Vfringe_bitmaps = Fdelq (bitmap, Vfringe_bitmaps);
      /* It would be better to remove the fringe property.  */
      Fput (bitmap, Qfringe, Qnil);
    }

  return Qnil;
}


/* Initialize bitmap bit.

  if (!once_p)
    {
      destroy_fringe_bitmap (which);

      /* XXX Is SELECTED_FRAME OK here? */
      struct redisplay_interface *rif = FRAME_RIF (SELECTED_FRAME ());
      if (rif && rif->define_fringe_bitmap)
	rif->define_fringe_bitmap (which, fb->bits, fb->height, fb->width);

      fringe_bitmaps[which] = fb;
      if (which >= max_used_fringe_bitmap)
	max_used_fringe_bitmap = which + 1;
    }

  Lisp_Object len;
  int n, h, i, j;
  unsigned short *b;
  struct fringe_bitmap fb, *xfb;
  int fill1 = 0, fill2 = 0;

  CHECK_SYMBOL (bitmap);

  if (!STRINGP (bits) && !VECTORP (bits))
    bits = wrong_type_argument (Qstringp, bits);

  len = Flength (bits);

  else if (EQ (align, Qbottom))
    fb.align = ALIGN_BITMAP_BOTTOM;
  else if (!NILP (align) && !EQ (align, Qcenter))
    error ("Bad align argument");

  n = lookup_fringe_bitmap (bitmap);
  if (!n)
    {
      if (max_used_fringe_bitmap < max_fringe_bitmaps)
	n = max_used_fringe_bitmap++;
      else
	{
	  for (n = MAX_STANDARD_FRINGE_BITMAPS;
	       n < max_fringe_bitmaps;
	       n++)
	    if (fringe_bitmaps[n] == NULL)
	      break;

	  if (n == max_fringe_bitmaps)
	    {
	      if ((max_fringe_bitmaps + 20) > MAX_FRINGE_BITMAPS)
		error ("No free fringe bitmap slots");

	      i = max_fringe_bitmaps;
	      max_fringe_bitmaps += 20;
	      fringe_bitmaps
		= ((struct fringe_bitmap **)
		   xrealloc (fringe_bitmaps, max_fringe_bitmaps * sizeof (struct fringe_bitmap *)));
	      fringe_faces
		= (unsigned *) xrealloc (fringe_faces, max_fringe_bitmaps * sizeof (unsigned));

	      for (; i < max_fringe_bitmaps; i++)
		{
		  fringe_bitmaps[i] = NULL;
		  fringe_faces[i] = FRINGE_FACE_ID;
		}
	    }
	}

      Vfringe_bitmaps = Fcons (bitmap, Vfringe_bitmaps);
      Fput (bitmap, Qfringe, make_number (n));
    }

  fb.dynamic = 1;

  xfb = (struct fringe_bitmap *) xmalloc (sizeof fb

  *xfb = fb;

  init_fringe_bitmap (n, xfb, 0);

  return bitmap;
}

DEFUN ("set-fringe-bitmap-face", Fset_fringe_bitmap_face, Sset_fringe_bitmap_face,
       1, 2, 0,
       doc: /* Set face for fringe bitmap BITMAP to FACE.
If FACE is nil, reset face to default fringe face.  */)
  (bitmap, face)
     Lisp_Object bitmap, face;
{
  int n;
  int face_id;

  CHECK_SYMBOL (bitmap);
  n = lookup_fringe_bitmap (bitmap);
  if (!n)
    error ("Undefined fringe bitmap");

  if (!NILP (face))
    {
      face_id = lookup_named_face (SELECTED_FRAME (), face, 'A');

	error ("No such face");
    }
  else
    face_id = FRINGE_FACE_ID;

  fringe_faces[n] = face_id;

  return Qnil;
}

DEFUN ("fringe-bitmaps-at-pos", Ffringe_bitmaps_at_pos, Sfringe_bitmaps_at_pos,

void
init_fringe ()
{
  int i;

  max_fringe_bitmaps = MAX_STANDARD_FRINGE_BITMAPS + 20;

  fringe_bitmaps
    = (struct fringe_bitmap **) xmalloc (max_fringe_bitmaps * sizeof (struct fringe_bitmap *));
  fringe_faces
    = (unsigned *) xmalloc (max_fringe_bitmaps * sizeof (unsigned));

  for (i = 0; i < max_fringe_bitmaps; i++)
    {
      fringe_bitmaps[i] = NULL;
      fringe_faces[i] = FRINGE_FACE_ID;
    }
}

#ifdef HAVE_NTGUI

void
w32_init_fringe ()
{
  enum fringe_bitmap_type bt;

  if (!rif)
    return;

  for (bt = NO_FRINGE_BITMAP + 1; bt < MAX_STANDARD_FRINGE_BITMAPS; bt++)
    {
      struct fringe_bitmap *fb = &standard_bitmaps[bt];
      rif->define_fringe_bitmap (bt, fb->bits, fb->height, fb->width);
    }

w32_reset_fringes ()
{
  /* Destroy row bitmaps.  */
  int bt;

  if (!rif)
    return;

  for (bt = NO_FRINGE_BITMAP + 1; bt < max_used_fringe_bitmap; bt++)
    rif->destroy_fringe_bitmap (bt);
}

#endif /* HAVE_NTGUI */