comparison src/search.c @ 13237:1aa239b8d03c

(compile_pattern_1, compile_pattern, search_buffer): Case tables are char-tables now.

13236:c9af99bb26d4

static void
compile_pattern_1 (cp, pattern, translate, regp, posix)
     struct regexp_cache *cp;
     Lisp_Object pattern;
     char *translate;
     struct re_registers *regp;
     int posix;
{
  CONST char *val;
  reg_syntax_t old;

struct re_pattern_buffer *
compile_pattern (pattern, regp, translate, posix)
     Lisp_Object pattern;
     struct re_registers *regp;
     char *translate;
     int posix;
{
  struct regexp_cache *cp, **cpp;

  for (cpp = &searchbuf_head; ; cpp = &cp->next)

	lim = BEGV;
    }

  np = search_buffer (string, point, lim, n, RE,
		      (!NILP (current_buffer->case_fold_search)
		       ? XSTRING (current_buffer->case_canon_table)->data : 0),
		      (!NILP (current_buffer->case_fold_search)
		       ? XSTRING (current_buffer->case_eqv_table)->data : 0),
		      posix);
  if (np <= 0)
    {
      if (NILP (noerror))
	return signal_failure (string);

     Lisp_Object string;
     int pos;
     int lim;
     int n;
     int RE;
     register unsigned char *trt;
     register unsigned char *inverse_trt;
     int posix;
{
  int len = XSTRING (string)->size;
  unsigned char *base_pat = XSTRING (string)->data;
  register int *BM_tab;

  if (RE && !trivial_regexp_p (string))
    {
      struct re_pattern_buffer *bufp;

      bufp = compile_pattern (string, &search_regs, (char *) trt, posix);

      immediate_quit = 1;	/* Quit immediately if user types ^G,
				   because letting this function finish
				   can take too long. */
      QUIT;			/* Do a pending quit right away,

	      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 */ 
	      while ((j = inverse_trt[j]) != k)
		BM_tab[j] = dirlen - i;
	    }
	  else
	    {
	      if (i == infinity)

13237:1aa239b8d03c

static void
compile_pattern_1 (cp, pattern, translate, regp, posix)
     struct regexp_cache *cp;
     Lisp_Object pattern;
     Lisp_Object *translate;
     struct re_registers *regp;
     int posix;
{
  CONST char *val;
  reg_syntax_t old;

struct re_pattern_buffer *
compile_pattern (pattern, regp, translate, posix)
     Lisp_Object pattern;
     struct re_registers *regp;
     Lisp_Object *translate;
     int posix;
{
  struct regexp_cache *cp, **cpp;

  for (cpp = &searchbuf_head; ; cpp = &cp->next)

	lim = BEGV;
    }

  np = search_buffer (string, point, lim, n, RE,
		      (!NILP (current_buffer->case_fold_search)
		       ? XCHAR_TABLE (current_buffer->case_canon_table)->contents
		       : 0),
		      (!NILP (current_buffer->case_fold_search)
		       ? XCHAR_TABLE (current_buffer->case_eqv_table)->contents
		       : 0),
		      posix);
  if (np <= 0)
    {
      if (NILP (noerror))
	return signal_failure (string);

     Lisp_Object string;
     int pos;
     int lim;
     int n;
     int RE;
     Lisp_Object *trt;
     Lisp_Object *inverse_trt;
     int posix;
{
  int len = XSTRING (string)->size;
  unsigned char *base_pat = XSTRING (string)->data;
  register int *BM_tab;

  if (RE && !trivial_regexp_p (string))
    {
      struct re_pattern_buffer *bufp;

      bufp = compile_pattern (string, &search_regs, trt, posix);

      immediate_quit = 1;	/* Quit immediately if user types ^G,
				   because letting this function finish
				   can take too long. */
      QUIT;			/* Do a pending quit right away,

	      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 */ 
	      while ((j = (unsigned char) inverse_trt[j]) != k)
		BM_tab[j] = dirlen - i;
	    }
	  else
	    {
	      if (i == infinity)