More readable regexp debug output

* src/regex-emacs.c (debug_putchar): New.
(print_fastmap, print_partial_compiled_pattern, print_double_string)
(regex_compile): Use debug_putchar.
(re_match_2_internal): Add newline.

1 files changed, 22 insertions, 10 deletions

diff --git a/src/regex-emacs.c b/src/regex-emacs.c
index 47ee6647482..c353a78fb4f 100644
--- a/src/regex-emacs.c
+++ b/src/regex-emacs.c
@@ -449,6 +449,14 @@ static int regex_emacs_debug = -100000;
 # define DEBUG_PRINT_DOUBLE_STRING(w, s1, sz1, s2, sz2)                 \
   if (regex_emacs_debug > 0) print_double_string (w, s1, sz1, s2, sz2)
 
+static void
+debug_putchar (int c)
+{
+  if (c >= 32 && c <= 126)
+    fputc (c, stderr);
+  else
+    fprintf (stderr, "{%02x}", c);
+}
 
 /* Print the fastmap in human-readable form.  */
 
@@ -463,7 +471,7 @@ print_fastmap (char *fastmap)
       if (fastmap[i++])
         {
           was_a_range = false;
-          fputc (i - 1, stderr);
+          debug_putchar (i - 1);
           while (i < (1 << BYTEWIDTH)  &&  fastmap[i])
             {
               was_a_range = true;
@@ -472,7 +480,7 @@ print_fastmap (char *fastmap)
           if (was_a_range)
             {
               fprintf (stderr, "-");
-              fputc (i - 1, stderr);
+              debug_putchar (i - 1);
             }
         }
     }
@@ -516,7 +524,8 @@ print_partial_compiled_pattern (re_char *start, re_char *end)
           fprintf (stderr, "/exactn/%d", mcnt);
           do
             {
-              fprintf (stderr, "/%c", *p++);
+              fprintf (stderr, "/");
+              debug_putchar (*p++);
             }
           while (--mcnt);
           break;
@@ -564,18 +573,18 @@ print_partial_compiled_pattern (re_char *start, re_char *end)
                   /* Have we broken a range?  */
                   else if (last + 1 != c && in_range)
                     {
-                      fprintf (stderr, "%c", last);
+                      debug_putchar (last);
                       in_range = false;
                     }
 
                   if (! in_range)
-                    fprintf (stderr, "%c", c);
+                    debug_putchar (c);
 
                   last = c;
               }
 
             if (in_range)
-              fprintf (stderr, "%c", last);
+              debug_putchar (last);
 
             fprintf (stderr, "]");
 
@@ -759,13 +768,16 @@ print_double_string (re_char *where, re_char *string1, ptrdiff_t size1,
     fprintf (stderr, "(null)");
   else
     {
+      int i;
       if (FIRST_STRING_P (where))
         {
-          fwrite_unlocked (where, 1, string1 + size1 - where, stderr);
+          for (i = 0; i < string1 + size1 - where; i++)
+            debug_putchar (where[i]);
           where = string2;
         }
 
-      fwrite_unlocked (where, 1, string2 + size2 - where, stderr);
+      for (i = 0; i < string2 + size2 - where; i++)
+        debug_putchar (where[i]);
     }
 }
 
@@ -1735,7 +1747,7 @@ regex_compile (re_char *pattern, ptrdiff_t size,
   if (regex_emacs_debug > 0)
     {
       for (ptrdiff_t debug_count = 0; debug_count < size; debug_count++)
-        fputc (pattern[debug_count], stderr);
+        debug_putchar (pattern[debug_count]);
       fputc ('\n', stderr);
     }
 #endif
@@ -3997,7 +4009,7 @@ re_match_2_internal (struct re_pattern_buffer *bufp,
       dend = end_match_1;
     }
 
-  DEBUG_PRINT ("The compiled pattern is: ");
+  DEBUG_PRINT ("The compiled pattern is:\n");
   DEBUG_PRINT_COMPILED_PATTERN (bufp, p, pend);
   DEBUG_PRINT ("The string to match is: \"");
   DEBUG_PRINT_DOUBLE_STRING (d, string1, size1, string2, size2);