Changes to m4/m4/input.c,v

[Eric Blake]

CVSROOT:        /sources/m4
Module name:    m4
Changes by:     Eric Blake <ericb>      07/10/23 14:17:55

Index: m4/input.c
===================================================================
RCS file: /sources/m4/m4/m4/input.c,v
retrieving revision 1.70
retrieving revision 1.71
diff -u -b -r1.70 -r1.71
--- m4/input.c  12 Sep 2007 01:14:48 -0000      1.70
+++ m4/input.c  23 Oct 2007 14:17:54 -0000      1.71
@@ -1019,7 +1019,7 @@
     if (ch == CHAR_EOF)                        /* EOF */
       {
 #ifdef DEBUG_INPUT
-       fprintf (stderr, "next_token -> EOF\n");
+       xfprintf (stderr, "next_token -> EOF\n");
 #endif
        next_char (context, true);
        return M4_TOKEN_EOF;
@@ -1249,42 +1249,42 @@
 int
 m4_print_token (const char *s, m4__token_type type, m4_symbol_value *token)
 {
-  fprintf (stderr, "%s: ", s ? s : "m4input");
+  xfprintf (stderr, "%s: ", s ? s : "m4input");
   switch (type)
     {                          /* TOKSW */
     case M4_TOKEN_EOF:
-      fprintf (stderr, "eof\n");
+      xfprintf (stderr, "eof\n");
       break;
     case M4_TOKEN_NONE:
-      fprintf (stderr, "none\n");
+      xfprintf (stderr, "none\n");
       break;
     case M4_TOKEN_STRING:
-      fprintf (stderr, "string\t\"%s\"\n", m4_get_symbol_value_text (token));
+      xfprintf (stderr, "string\t\"%s\"\n", m4_get_symbol_value_text (token));
       break;
     case M4_TOKEN_SPACE:
-      fprintf (stderr, "space\t\"%s\"\n", m4_get_symbol_value_text (token));
+      xfprintf (stderr, "space\t\"%s\"\n", m4_get_symbol_value_text (token));
       break;
     case M4_TOKEN_WORD:
-      fprintf (stderr, "word\t\"%s\"\n", m4_get_symbol_value_text (token));
+      xfprintf (stderr, "word\t\"%s\"\n", m4_get_symbol_value_text (token));
       break;
     case M4_TOKEN_OPEN:
-      fprintf (stderr, "open\t\"%s\"\n", m4_get_symbol_value_text (token));
+      xfprintf (stderr, "open\t\"%s\"\n", m4_get_symbol_value_text (token));
       break;
     case M4_TOKEN_COMMA:
-      fprintf (stderr, "comma\t\"%s\"\n", m4_get_symbol_value_text (token));
+      xfprintf (stderr, "comma\t\"%s\"\n", m4_get_symbol_value_text (token));
       break;
     case M4_TOKEN_CLOSE:
-      fprintf (stderr, "close\t\"%s\"\n", m4_get_symbol_value_text (token));
+      xfprintf (stderr, "close\t\"%s\"\n", m4_get_symbol_value_text (token));
       break;
     case M4_TOKEN_SIMPLE:
-      fprintf (stderr, "simple\t\"%s\"\n", m4_get_symbol_value_text (token));
+      xfprintf (stderr, "simple\t\"%s\"\n", m4_get_symbol_value_text (token));
       break;
     case M4_TOKEN_MACDEF:
       {
        const m4_builtin *bp;
        bp = m4_builtin_find_by_func (NULL, m4_get_symbol_value_func (token));
        assert (bp);
-       fprintf (stderr, "builtin\t<%s>{%s}\n", bp->name,
+       xfprintf (stderr, "builtin\t<%s>{%s}\n", bp->name,
                 m4_get_module_name (VALUE_MODULE (token)));
       }
       break;