Changes to m4/modules/gnu.c,v

[Eric Blake]

CVSROOT:        /sources/m4
Module name:    m4
Changes by:     Eric Blake <ericb>      06/10/06 15:24:10

Index: modules/gnu.c
===================================================================
RCS file: /sources/m4/m4/modules/gnu.c,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -b -r1.61 -r1.62
--- modules/gnu.c       4 Oct 2006 03:57:01 -0000       1.61
+++ modules/gnu.c       6 Oct 2006 15:24:10 -0000       1.62
@@ -49,8 +49,9 @@
   BUILTIN (builtin,    false,  true,   false,  1,      -1 )    \
   BUILTIN (changeresyntax,false,true,  false,  1,      1  )    \
   BUILTIN (changesyntax,false, true,   false,  1,      -1 )    \
-  BUILTIN (debugmode,  false,  false,  false,  0,      1  )    \
   BUILTIN (debugfile,  false,  false,  false,  0,      1  )    \
+  BUILTIN (debuglen,   false,  true,   false,  1,      1  )    \
+  BUILTIN (debugmode,  false,  false,  false,  0,      1  )    \
   BUILTIN (esyscmd,    false,  true,   true,   1,      1  )    \
   BUILTIN (format,     false,  true,   false,  1,      -1 )    \
   BUILTIN (indir,      false,  true,   false,  1,      -1 )    \
@@ -419,6 +420,22 @@
 }
 
 
+/* On-the-fly control of debug length.  It takes one integer
+   argument.  */
+
+/**
+ * debuglen(LEN)
+ **/
+M4BUILTIN_HANDLER (debuglen)
+{
+  int i;
+  if (!m4_numeric_arg (context, argc, argv, 1, &i))
+    return;
+  /* FIXME - make m4_numeric_arg more powerful - we want to accept
+     suffixes, and limit the result to size_t.  */
+  m4_set_max_debug_arg_length_opt (context, i);
+}
+
 /* On-the-fly control of the format of the tracing output.  It takes one
    argument, which is a character string like given to the -d option, or
    none in which case the debug_level is zeroed.  */