tregress.c

正则表达式库

#define CASE_SET_PATTERN2 "[`-|]"
  if (re_compile_pattern (CASE_SET_PATTERN2, strlen (CASE_SET_PATTERN2), &buf)
      != NULL)
    printf ("case set2 compile failed.\n");
  if (re_match_2 (&buf, "K", 1, "", 0, 0, NULL, 1) != 1)
    printf ("case set2 match failed.\n");

  buf.translate = NULL;


  /* jimb, 27 Jun 92.  Problems with gaps in the string.  */
#define GAP_PATTERN "x.*y.*z"
  if (re_compile_pattern (GAP_PATTERN, strlen (GAP_PATTERN), &buf) != NULL)
    printf ("gap didn't compile.\n");
  if (re_match_2 (&buf, "x-", 2, "y-z-", 4, 0, NULL, 6) != 5)
    printf ("gap match failed.\n");


  /* jimb, 19 Jun 92.  Since `beginning of word' matches at the
     beginning of the string, then searching ought to find it there.
     If `re_compile_fastmap' is not called, then it works ok.  */
  buf.fastmap = fastmap;
#define BOW_BEG_PATTERN "\\<"
  if (re_compile_pattern (BOW_BEG_PATTERN, strlen (BOW_BEG_PATTERN), &buf)
      != NULL)
    printf ("begword-begstring didn't compile.\n");
  if (re_search (&buf, "foo", 3, 0, 3, NULL) != 0)
    printf ("begword-begstring search failed.\n");

  /* Same bug report, different null-matching pattern.  */
#define EMPTY_ANCHOR_PATTERN "^$"
  if (re_compile_pattern (EMPTY_ANCHOR_PATTERN, strlen (EMPTY_ANCHOR_PATTERN),
      &buf) != NULL)
    printf ("empty anchor didn't compile.\n");
  if (re_search (&buf, "foo\n\nbar", 8, 0, 8, NULL) != 4)
    printf ("empty anchor search failed.\n");

  /* [e-mail], 21 Apr 92.  After we first allocate
     registers for a particular re_pattern_buffer, we might have to
     reallocate more registers on subsequent calls -- and we should be
     reusing the same memory.  */
#define ALLOC_REG_PATTERN "\\(abc\\)"
  free (buf.fastmap);
  buf.fastmap = 0;
  if (re_compile_pattern (ALLOC_REG_PATTERN, strlen (ALLOC_REG_PATTERN), &buf)
      != NULL)
    printf ("register allocation didn't compile.\n");
  if (re_match (&buf, "abc", 3, 0, &regs) != 3)
    printf ("register allocation didn't match.\n");
  if (regs.start[1] != 0 || regs.end[1] != 3)
    printf ("register allocation reg #1 wrong.\n");

  {
    int *old_regstart = regs.start;
    int *old_regend = regs.end;

    if (re_match (&buf, "abc", 3, 0, &regs) != 3)
      printf ("register reallocation didn't match.\n");
    if (regs.start[1] != 0 || regs.end[1] != 3
        || old_regstart[1] != 0 || old_regend[1] != 3
        || regs.start != old_regstart || regs.end != old_regend)
      printf ("register reallocation registers wrong.\n");
  }

  /* [e-mail], 21 Apr 92 (string-match).  */
#define JSKUD_PATTERN "[^/]+\\(/[^/.]+\\)?/[0-9]+$"
  if (re_compile_pattern (JSKUD_PATTERN, strlen (JSKUD_PATTERN), &buf) != NULL)
    printf ("jskud test didn't compile.\n");
  if (re_search (&buf, "a/1", 3, 0, 3, &regs) != 0)
    printf ("jskud test didn't match.\n");
  if (regs.start[1] != -1 || regs.end[1] != -1)
    printf ("jskud test, reg #1 wrong.\n");

  /* jla's bug (with string-match), 5 Feb 92.  */
  TEST_SEARCH ("\\`[ \t\n]*", "jla@challenger (Joseph Arceneaux)", 0, 100);
  
  /* [e-mail], 8 March 1992 (re-search-forward).  (His is the
     second.)  These are not supposed to match.  */
#if 0
  /* This one fails quickly, because we can change the maybe_pop_jump
     from the + to a pop_failure_pop, because of the c's.  */
  TEST_SEARCH ("^\\(To\\|CC\\):\\([^c]*\\)+co",
"To: [e-mail] (Harlan Sexton)\n\
Cc: eb@thalidomide, jlm@thalidomide\n\
Subject: Re: so is this really as horrible an idea as it seems to me?\n\
In-Reply-To: Harlan Sexton's message of Sun 8-Mar-92 11:00:06 PST <[e-mail]>\n\
References: <[e-mail]>\n\
	<[e-mail]>", 0, 5000);

  /* This one takes a long, long time to complete, because we have to
     keep the failure points around because we might backtrack.  */
  TEST_SEARCH ("^\\(To\\|CC\\):\\(.*\n.*\\)+co",
               /* "X-Windows: The joke that kills.\n\
FCC:  /u/jwz/VM/inbox\n\
From: Jamie Zawinski <[e-mail]>\n\ */
"To: [e-mail] (Harlan Sexton)\n\
Cc: eb@thalidomide, jlm@thalidomide\n\
Subject: Re: so is this really as horrible an idea as it seems to me?\n\
In-Reply-To: Harlan Sexton's message of Sun 8-Mar-92 11:00:06 PST <[e-mail]>\n\
References: <[e-mail]>\n\
	<[e-mail]>", 0, 5000);
#endif /* 0 [failed searches] */

  
  /* macrakis' bugs.  */
  buf.translate = upcase; /* message of 24 Jan 91 */
  if (re_compile_pattern ("[!-`]", 5, &buf) != NULL)
    printf ("Range test didn't compile.\n");
  if (re_match (&buf, "A", 1, 0, NULL) != 1)
    printf ("Range test #1 didn't match.\n");
  if (re_match (&buf, "a", 1, 0, NULL) != 1)
    printf ("Range test #2 didn't match.\n");

  buf.translate = 0;
#define FAO_PATTERN "\\(f\\(.\\)o\\)+"
  if (re_compile_pattern (FAO_PATTERN, strlen (FAO_PATTERN), &buf) != NULL)
    printf ("faofdx test didn't compile.\n");
  if (re_search (&buf, "faofdx", 6, 0, 6, &regs) != 0)
    printf ("faofdx test didn't match.\n");
  if (regs.start[1] != 0 || regs.end[1] != 3)
    printf ("faofdx test, reg #1 wrong.\n");
  if (regs.start[2] != 1 || regs.end[2] != 2)
    printf ("faofdx test, reg #2 wrong.\n");
  
  TEST_REGISTERS ("\\(a\\)*a", "aaa", 0, 3, 1, 2, -1, -1);
  test_fastmap ("^\\([^ \n]+:\n\\)+\\([^ \n]+:\\)", " \n", 1, 0);

  /* 40 lines, 48 a's in each line.  */
  test_match ("^\\([^ \n]+:\n\\)+\\([^ \n]+:\\)",
	      "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:\n\
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:");

   /* 640 a's followed by one b, twice.  */
   test_match ("\\(.*\\)\\1", "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaab");

   /* 640 a's followed by two b's, twice.  */
   test_match ("\\(.*\\)\\1", "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabbaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabb");


  /* Dave G. bug: Reference to a subexpression which didn't match.
     Should fail. */
  re_set_syntax (RE_NO_BK_PARENS | RE_NO_BK_VBAR);
  test_match ("(ooooooooooone())-annnnnnnnnnnd-(twooooooooooo\\2)", 
               "ooooooooooone-annnnnnnnnnnd-twooooooooooo");
  test_match ("(o|t)", "o");
  test_match ("(o()|t)", "o");
  test_match ("(o|t)", "o");
  test_match ("(ooooooooooooooo|tttttttttttttttt())", "ooooooooooooooo");
  test_match ("(o|t())", "o");
  test_match ("(o()|t())", "o");
  test_match ("(ooooooooooooooooooooooooone()|twooooooooooooooooooooooooo())", "ooooooooooooooooooooooooone");
  test_match ("(o()|t())-a-(t\\2|f\\3)", "o-a-t");
  test_match ("(o()|t())-a-(t\\2|f\\3)", "t-a-f");

  test_should_match = 0; 
  test_match ("(foo(bar)|second)\\2", "second");
  test_match ("(o()|t())-a-(t\\2|f\\3)", "t-a-t");
  test_match ("(o()|t())-a-(t\\2|f\\3)", "o-a-f");

  re_set_syntax (RE_SYNTAX_EMACS);
  test_match ("\\(foo\\(bar\\)\\|second\\)\\2", "secondbar");
  test_match ("\\(one\\(\\)\\|two\\(\\)\\)-and-\\(three\\2\\|four\\3\\)", 
	      "one-and-four");
  test_match ("\\(one\\(\\)\\|two\\(\\)\\)-and-\\(three\\2\\|four\\3\\)", 
	      "two-and-three");
  
  test_should_match = 1;
  re_set_syntax (RE_SYNTAX_EMACS);
  test_match ("\\(one\\(\\)\\|two\\(\\)\\)-and-\\(three\\2\\|four\\3\\)", 
	      "one-and-three");
  test_match ("\\(one\\(\\)\\|two\\(\\)\\)-and-\\(three\\2\\|four\\3\\)", 
	      "two-and-four");

  TEST_REGISTERS (":\\(.*\\)", ":/", 0, 2, 1, 2, -1, -1);

  /* Bug with `upcase' translation table, from Nico Josuttis
     <[e-mail]> */
  test_should_match = 1;
  test_case_fold ("[a-a]", "a");

  printf ("\nFinished regression tests.\n");
}



/*
Local variables:
make-backup-files: t
version-control: t
trim-versions-without-asking: nil
End:
*/