1 files changed, 107 insertions, 0 deletions
diff --git a/tests/print_parameter.c b/tests/print_parameter.c
new file mode 100644
index 0000000..7d59309
--- /dev/null
+++ b/tests/print_parameter.c
@@ -0,0 +1,107 @@
+/* print_parameter.c -- Helper function for parameter printing.
+
+Copyright (C) 2012, 2013 INRIA
+
+This file is part of GNU MPC.
+
+GNU MPC is free software; you can redistribute it and/or modify it under
+the terms of the GNU Lesser General Public License as published by the
+Free Software Foundation; either version 3 of the License, or (at your
+option) any later version.
+
+GNU MPC is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for
+more details.
+
+You should have received a copy of the GNU Lesser General Public License
+along with this program. If not, see http://www.gnu.org/licenses/ .
+*/
+
+#include "mpc-tests.h"
+
+static const char *mpfr_rnd_mode [] =
+  { "MPFR_RNDN", "MPFR_RNDZ", "MPFR_RNDU", "MPFR_RNDD" };
+
+extern const char *mpc_rnd_mode[];
+
+#define MPFR_INEX_STR(inex)                     \
+  (inex) == TERNARY_NOT_CHECKED ? "?"           \
+    : (inex) == +1 ? "+1"                       \
+    : (inex) == -1 ? "-1" : "0"
+
+void
+print_parameter (mpc_fun_param_t* params, int index)
+{
+  switch (params->T[index])
+    {
+    case NATIVE_INT:
+      printf ("= %d\n", params->P[index].i);
+      break;
+
+    case NATIVE_UL:
+      printf ("= %lu\n", params->P[index].ui);
+      break;
+
+    case NATIVE_L:
+      printf ("= %ld\n", params->P[index].si);
+      break;
+
+    case NATIVE_D:
+      printf ("= %e\n", params->P[index].d);
+      break;
+
+    case GMP_Z:
+      gmp_printf ("= %Zd\n", params->P[index].mpz);
+      break;
+    case GMP_Q:
+      gmp_printf ("= %Qd\n", params->P[index].mpq);
+      break;
+    case GMP_F:
+      gmp_printf ("= %Fe\n", params->P[index].mpf);
+      break;
+
+    case MPFR_INEX:
+      printf (" ternary value = %s\n",
+              MPFR_INEX_STR (params->P[index].mpfr_inex));
+      break;
+
+    case MPFR:
+      printf ("[%lu]=",
+              (unsigned long int) mpfr_get_prec (params->P[index].mpfr));
+      mpfr_out_str (stdout, 2, 0, params->P[index].mpfr, GMP_RNDN);
+      printf ("\n");
+      break;
+
+    case MPC_INEX:
+      if (index >= params->nbout + params->nbin)
+        printf (" ternary value = (%s, %s)\n",
+                MPFR_INEX_STR (params->P[index].mpc_inex_data.real),
+                MPFR_INEX_STR (params->P[index].mpc_inex_data.imag));
+      else
+        printf (" ternary value = %s\n", MPC_INEX_STR (params->P[index].mpc_inex));
+      break;
+
+    case MPC:
+      printf ("[%lu,%lu]=",
+              (unsigned long int) MPC_PREC_RE (params->P[index].mpc),
+              (unsigned long int) MPC_PREC_IM (params->P[index].mpc));
+      mpc_out_str (stdout, 2, 0, params->P[index].mpc, MPC_RNDNN);
+      printf ("\n");
+      break;
+
+    case MPFR_RND:
+      printf ("(rounding mode): %s\n",
+              mpfr_rnd_mode[params->P[index].mpfr_rnd]);
+      break;
+
+    case MPC_RND:
+      printf ("(rounding mode): %s\n",
+              mpc_rnd_mode[params->P[index].mpc_rnd]);
+      break;
+
+    default:
+      fprintf (stderr, "print_parameter: unsupported type.\n");
+      exit (1);
+    }
+}