comparison src/search.c @ 49600:23a1cea22d13

Trailing whitespace deleted.

49599:5ade352e8d1c

      s1 = ZV_BYTE - BEGV_BYTE;
      s2 = 0;
    }

  re_match_object = Qnil;
  
  i = re_match_2 (bufp, (char *) p1, s1, (char *) p2, s2,
		  PT_BYTE - BEGV_BYTE, &search_regs,
		  ZV_BYTE - BEGV_BYTE);
  immediate_quit = 0;
  
  if (i == -2)
    matcher_overflow ();

  val = (0 <= i ? Qt : Qnil);
  if (i >= 0)

			   ? DOWNCASE_TABLE : Qnil),
			  posix,
			  STRING_MULTIBYTE (string));
  immediate_quit = 1;
  re_match_object = string;
  
  val = re_search (bufp, (char *) SDATA (string),
		   SBYTES (string), pos_byte,
		   SBYTES (string) - pos_byte,
		   &search_regs);
  immediate_quit = 0;

  bufp = compile_pattern (regexp, 0, Qnil,
			  0, STRING_MULTIBYTE (string));
  immediate_quit = 1;
  re_match_object = string;
  
  val = re_search (bufp, (char *) SDATA (string),
		   SBYTES (string), 0,
		   SBYTES (string), 0);
  immediate_quit = 0;
  return val;

     int count;
     int *shortage;
     int allow_quit;
{
  struct region_cache *newline_cache;
  int direction; 

  if (count > 0)
    {
      direction = 1;
      if (! end) end = ZV;

           position after that.  */
	tem = BUFFER_CEILING_OF (start_byte);
	ceiling_byte = min (tem, ceiling_byte);

        {
          /* The termination address of the dumb loop.  */ 
          register unsigned char *ceiling_addr
	    = BYTE_POS_ADDR (ceiling_byte) + 1;
          register unsigned char *cursor
	    = BYTE_POS_ADDR (start_byte);
          unsigned char *base = cursor;

  int shortage;
  int pos = scan_buffer ('\n', from, to, cnt, &shortage, 1);

  if (shortage == 0)
    pos--;
  
  return pos;
}

/* Subroutines of Lisp buffer search functions. */

	{
	  s1 = ZV_BYTE - BEGV_BYTE;
	  s2 = 0;
	}
      re_match_object = Qnil;
  
      while (n < 0)
	{
	  int val;
	  val = re_search_2 (bufp, (char *) p1, s1, (char *) p2, s2,
			     pos_byte - BEGV_BYTE, lim_byte - pos_byte,

  int direction = ((n > 0) ? 1 : -1);
  register int dirlen;
  int infinity, limit, stride_for_teases = 0;
  register int *BM_tab;
  int *BM_tab_base;
  register unsigned char *cursor, *p_limit;  
  register int i, j;
  unsigned char *pat, *pat_end;
  int multibyte = ! NILP (current_buffer->enable_multibyte_characters);

  unsigned char simple_translate[0400];

  /* As a coding trick, an enormous stride is coded into the table for */
  /* characters that match the last character.  This allows use of only */
  /* a single test, a test for having gone past the end of the */
  /* permissible match region, to test for both possible matches (when */
  /* the stride goes past the end immediately) and failure to */
  /* match (where you get nudged past the end one stride at a time). */ 

  /* Here we make a "mickey mouse" BM table.  The stride of the search */
  /* is determined only by the last character of the putative match. */
  /* If that character does not match, we will stride the proper */
  /* distance to propose a match that superimposes it on the last */
  /* instance of a character that matches it (per trt), or misses */
  /* it entirely if there is none. */  

  dirlen = len_byte * direction;
  infinity = dirlen - (lim_byte + pos_byte + len_byte + len_byte) * direction;

  /* Record position after the end of the pattern.  */

	  if (i == infinity)
	    stride_for_teases = BM_tab[j];

	  BM_tab[j] = dirlen - i;
	  /* A translation table is accompanied by its inverse -- see */
	  /* comment following downcase_table for details */ 
	  if (this_translated)
	    {
	      int starting_ch = ch;
	      int starting_j = j;
	      while (1)

	  while (1)
	    {
	      /* This loop can be coded for space rather than */
	      /* speed because it will usually run only once. */
	      /* (the reach is at most len + 21, and typically */
	      /* does not exceed len) */    
	      while ((limit - pos_byte) * direction >= 0)
		pos_byte += BM_tab[FETCH_BYTE (pos_byte)];
	      /* now run the same tests to distinguish going off the */
	      /* end, a match or a phony match. */
	      if ((pos_byte - limit) * direction <= len_byte)

  len = SCHARS (string);

  for (i = 0, i_byte = 0; i < len; )
    {
      int c;
      
      FETCH_STRING_CHAR_ADVANCE (c, string, i, i_byte);

      if (SYNTAX (c) != Sword)
	{
	  punct_count++;

  for (i = 0, i_byte = 0; i < len; )
    {
      int c;
      int i_byte_orig = i_byte;
      
      FETCH_STRING_CHAR_ADVANCE (c, string, i, i_byte);

      if (SYNTAX (c) == Sword)
	{
	  bcopy (SDATA (string) + i_byte_orig, o,

	      FETCH_STRING_CHAR_ADVANCE (c, newtext, pos, pos_byte);

	      if (c == '\\')
		{
		  FETCH_STRING_CHAR_ADVANCE (c, newtext, pos, pos_byte);
		      
		  if (c == '&')
		    {
		      substart = search_regs.start[sub];
		      subend = search_regs.end[sub];
		    }

  else
    TEMP_SET_PT (opoint);

  /* Now move point "officially" to the start of the inserted replacement.  */
  move_if_not_intangible (newpoint);
  
  return Qnil;
}

static Lisp_Object
match_limit (num, beginningp)

Zero means the entire text matched by the whole regexp or whole string.  */)
     (subexp)
     Lisp_Object subexp;
{
  return match_limit (subexp, 0);
} 

DEFUN ("match-data", Fmatch_data, Smatch_data, 0, 2, 0,
       doc: /* Return a list containing all info on what the last search matched.
Element 2N is `(match-beginning N)'; element 2N + 1 is `(match-end N)'.
All the elements are markers or nil (nil if the Nth pair didn't match)

	      Fset_marker (data[2 * i],
			   make_number (start),
			   last_thing_searched);
	      data[2 * i + 1] = Fmake_marker ();
	      Fset_marker (data[2 * i + 1],
			   make_number (search_regs.end[i]), 
			   last_thing_searched);
	    }
	  else
	    /* last_thing_searched must always be Qt, a buffer, or Qnil.  */
	    abort ();

    save_search_regs ();

  if (!CONSP (list) && !NILP (list))
    list = wrong_type_argument (Qconsp, list);

  /* Unless we find a marker with a buffer in LIST, assume that this 
     match data came from a string.  */
  last_thing_searched = Qt;

  /* Allocate registers if they don't already exist.  */
  {

	  search_regs.end[i] = XINT (marker);
	}
      list = Fcdr (list);
    }

  return Qnil;  
}

/* If non-zero the match data have been saved in saved_search_regs
   during the execution of a sentinel or filter. */
static int search_regs_saved;

  /* Now copy the data into the new string, inserting escapes. */

  in = SDATA (string);
  end = in + SBYTES (string);
  out = temp; 

  for (; in != end; in++)
    {
      if (*in == '[' || *in == ']'
	  || *in == '*' || *in == '.' || *in == '\\'

  return make_specified_string (temp,
				SCHARS (string) + backslashes_added,
				out - temp,
				STRING_MULTIBYTE (string));
}
  
void
syms_of_search ()
{
  register int i;

49600:23a1cea22d13

      s1 = ZV_BYTE - BEGV_BYTE;
      s2 = 0;
    }

  re_match_object = Qnil;

  i = re_match_2 (bufp, (char *) p1, s1, (char *) p2, s2,
		  PT_BYTE - BEGV_BYTE, &search_regs,
		  ZV_BYTE - BEGV_BYTE);
  immediate_quit = 0;

  if (i == -2)
    matcher_overflow ();

  val = (0 <= i ? Qt : Qnil);
  if (i >= 0)

			   ? DOWNCASE_TABLE : Qnil),
			  posix,
			  STRING_MULTIBYTE (string));
  immediate_quit = 1;
  re_match_object = string;

  val = re_search (bufp, (char *) SDATA (string),
		   SBYTES (string), pos_byte,
		   SBYTES (string) - pos_byte,
		   &search_regs);
  immediate_quit = 0;

  bufp = compile_pattern (regexp, 0, Qnil,
			  0, STRING_MULTIBYTE (string));
  immediate_quit = 1;
  re_match_object = string;

  val = re_search (bufp, (char *) SDATA (string),
		   SBYTES (string), 0,
		   SBYTES (string), 0);
  immediate_quit = 0;
  return val;

     int count;
     int *shortage;
     int allow_quit;
{
  struct region_cache *newline_cache;
  int direction;

  if (count > 0)
    {
      direction = 1;
      if (! end) end = ZV;

           position after that.  */
	tem = BUFFER_CEILING_OF (start_byte);
	ceiling_byte = min (tem, ceiling_byte);

        {
          /* The termination address of the dumb loop.  */
          register unsigned char *ceiling_addr
	    = BYTE_POS_ADDR (ceiling_byte) + 1;
          register unsigned char *cursor
	    = BYTE_POS_ADDR (start_byte);
          unsigned char *base = cursor;

  int shortage;
  int pos = scan_buffer ('\n', from, to, cnt, &shortage, 1);

  if (shortage == 0)
    pos--;

  return pos;
}

/* Subroutines of Lisp buffer search functions. */

	{
	  s1 = ZV_BYTE - BEGV_BYTE;
	  s2 = 0;
	}
      re_match_object = Qnil;

      while (n < 0)
	{
	  int val;
	  val = re_search_2 (bufp, (char *) p1, s1, (char *) p2, s2,
			     pos_byte - BEGV_BYTE, lim_byte - pos_byte,

  int direction = ((n > 0) ? 1 : -1);
  register int dirlen;
  int infinity, limit, stride_for_teases = 0;
  register int *BM_tab;
  int *BM_tab_base;
  register unsigned char *cursor, *p_limit;
  register int i, j;
  unsigned char *pat, *pat_end;
  int multibyte = ! NILP (current_buffer->enable_multibyte_characters);

  unsigned char simple_translate[0400];

  /* As a coding trick, an enormous stride is coded into the table for */
  /* characters that match the last character.  This allows use of only */
  /* a single test, a test for having gone past the end of the */
  /* permissible match region, to test for both possible matches (when */
  /* the stride goes past the end immediately) and failure to */
  /* match (where you get nudged past the end one stride at a time). */

  /* Here we make a "mickey mouse" BM table.  The stride of the search */
  /* is determined only by the last character of the putative match. */
  /* If that character does not match, we will stride the proper */
  /* distance to propose a match that superimposes it on the last */
  /* instance of a character that matches it (per trt), or misses */
  /* it entirely if there is none. */

  dirlen = len_byte * direction;
  infinity = dirlen - (lim_byte + pos_byte + len_byte + len_byte) * direction;

  /* Record position after the end of the pattern.  */

	  if (i == infinity)
	    stride_for_teases = BM_tab[j];

	  BM_tab[j] = dirlen - i;
	  /* A translation table is accompanied by its inverse -- see */
	  /* comment following downcase_table for details */
	  if (this_translated)
	    {
	      int starting_ch = ch;
	      int starting_j = j;
	      while (1)

	  while (1)
	    {
	      /* This loop can be coded for space rather than */
	      /* speed because it will usually run only once. */
	      /* (the reach is at most len + 21, and typically */
	      /* does not exceed len) */
	      while ((limit - pos_byte) * direction >= 0)
		pos_byte += BM_tab[FETCH_BYTE (pos_byte)];
	      /* now run the same tests to distinguish going off the */
	      /* end, a match or a phony match. */
	      if ((pos_byte - limit) * direction <= len_byte)

  len = SCHARS (string);

  for (i = 0, i_byte = 0; i < len; )
    {
      int c;

      FETCH_STRING_CHAR_ADVANCE (c, string, i, i_byte);

      if (SYNTAX (c) != Sword)
	{
	  punct_count++;

  for (i = 0, i_byte = 0; i < len; )
    {
      int c;
      int i_byte_orig = i_byte;

      FETCH_STRING_CHAR_ADVANCE (c, string, i, i_byte);

      if (SYNTAX (c) == Sword)
	{
	  bcopy (SDATA (string) + i_byte_orig, o,

	      FETCH_STRING_CHAR_ADVANCE (c, newtext, pos, pos_byte);

	      if (c == '\\')
		{
		  FETCH_STRING_CHAR_ADVANCE (c, newtext, pos, pos_byte);

		  if (c == '&')
		    {
		      substart = search_regs.start[sub];
		      subend = search_regs.end[sub];
		    }

  else
    TEMP_SET_PT (opoint);

  /* Now move point "officially" to the start of the inserted replacement.  */
  move_if_not_intangible (newpoint);

  return Qnil;
}

static Lisp_Object
match_limit (num, beginningp)

Zero means the entire text matched by the whole regexp or whole string.  */)
     (subexp)
     Lisp_Object subexp;
{
  return match_limit (subexp, 0);
}

DEFUN ("match-data", Fmatch_data, Smatch_data, 0, 2, 0,
       doc: /* Return a list containing all info on what the last search matched.
Element 2N is `(match-beginning N)'; element 2N + 1 is `(match-end N)'.
All the elements are markers or nil (nil if the Nth pair didn't match)

	      Fset_marker (data[2 * i],
			   make_number (start),
			   last_thing_searched);
	      data[2 * i + 1] = Fmake_marker ();
	      Fset_marker (data[2 * i + 1],
			   make_number (search_regs.end[i]),
			   last_thing_searched);
	    }
	  else
	    /* last_thing_searched must always be Qt, a buffer, or Qnil.  */
	    abort ();

    save_search_regs ();

  if (!CONSP (list) && !NILP (list))
    list = wrong_type_argument (Qconsp, list);

  /* Unless we find a marker with a buffer in LIST, assume that this
     match data came from a string.  */
  last_thing_searched = Qt;

  /* Allocate registers if they don't already exist.  */
  {

	  search_regs.end[i] = XINT (marker);
	}
      list = Fcdr (list);
    }

  return Qnil;
}

/* If non-zero the match data have been saved in saved_search_regs
   during the execution of a sentinel or filter. */
static int search_regs_saved;

  /* Now copy the data into the new string, inserting escapes. */

  in = SDATA (string);
  end = in + SBYTES (string);
  out = temp;

  for (; in != end; in++)
    {
      if (*in == '[' || *in == ']'
	  || *in == '*' || *in == '.' || *in == '\\'

  return make_specified_string (temp,
				SCHARS (string) + backslashes_added,
				out - temp,
				STRING_MULTIBYTE (string));
}

void
syms_of_search ()
{
  register int i;