Convenience macros for producing debugging output containing MP

integers.

diff --git a/mptext.h b/mptext.h
index 93cbf50..c6e8275 100644 (file)
--- a/mptext.h
+++ b/mptext.h
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: mptext.h,v 1.3 1999/12/22 15:56:30 mdw Exp $
+ * $Id: mptext.h,v 1.4 2000/06/17 11:46:58 mdw Exp $
  *
  * Textual representation of multiprecision numbers
  *
@@ -30,6 +30,10 @@
 /*----- Revision history --------------------------------------------------* 
  *
  * $Log: mptext.h,v $
+ * Revision 1.4  2000/06/17 11:46:58  mdw
+ * Convenience macros for producing debugging output containing MP
+ * integers.
+ *
  * Revision 1.3  1999/12/22 15:56:30  mdw
  * Make the buffer passed to `put' op constant.
  *
@@ -116,6 +120,23 @@ extern const mptext_ops mptext_fileops;
 extern mp *mp_readfile(mp */*m*/, FILE */*fp*/, int /*radix*/);
 extern int mp_writefile(mp */*m*/, FILE */*fp*/, int /*radix*/);
 
+#define MP_DOFPRINTFR(fp, args, m, r) do {                             \
+  fprintf args;                                                                \
+  mp_writefile(m, fp, r);                                              \
+  fputc('\n', fp);                                                     \
+} while (0)
+
+#define MP_DOFPRINTR(fp, name, m, r)                                   \
+  MP_DOFPRINTFR(fp, (fp, "%s = ", name), m, r)
+
+#define MP_PRINT(name, m) MP_DOFPRINTR(stdout, name, m, 10)
+#define MP_EPRINT(name, m) MP_DOFPRINTR(stderr, name, m, 10)
+#define MP_PRINTX(name, m) MP_DOFPRINTR(stdout, name, m, 16)
+#define MP_EPRINTX(name, m) MP_DOFPRINTR(stderr, name, m, 16)
+
+#define MP_FPRINTF(fp, args, m) MP_DOFPRINTFR(fp, args, m, 10)
+#define MP_FPRINTFX(fp, args, m) MP_DOFPRINTFR(fp, args, m, 16)
+
 /*----- String I/O --------------------------------------------------------*/
 
 /* --- Context format --- */