static void
check_mixed (FILE *fout)
{
int ch = 'a';
signed char sch = -1;
unsigned char uch = 1;
short sh = -1;
unsigned short ush = 1;
int i = -1;
int j = 1;
unsigned int ui = 1;
long lo = -1;
unsigned long ulo = 1;
float f = -1.25;
double d = -1.25;
long double ld = -1.25;
ptrdiff_t p = 1;
size_t sz = 1;
mpz_t mpz;
mpq_t mpq;
mpf_t mpf;
mp_rnd_t rnd = GMP_RNDN;
mp_size_t limb_size = 3;
mp_limb_t limb[3];
mpfr_t mpfr;
mpfr_prec_t prec = 53;
mpz_init (mpz);
mpz_set_ui (mpz, ulo);
mpq_init (mpq);
mpq_set_si (mpq, lo, ulo);
mpf_init (mpf);
mpf_set_q (mpf, mpq);
mpfr_init2 (mpfr, prec);
mpfr_set_f (mpfr, mpf, GMP_RNDN);
limb[0] = limb[1] = limb[2] = ~ (mp_limb_t) 0;
check_vfprintf (fout, "a. %Ra, b. %u, c. %lx%n", mpfr, ui, ulo, &j);
check_length (1, j, 22, d);
check_vfprintf (fout, "a. %c, b. %Rb, c. %u, d. %li%ln", i, mpfr, i,
lo, &ulo);
check_length (2, ulo, 36, lu);
check_vfprintf (fout, "a. %hi, b. %*f, c. %Re%hn", ush, 3, f, mpfr, &ush);
check_length (3, ush, 29, hu);
check_vfprintf (fout, "a. %hi, b. %f, c. %#.2Rf%n", sh, d, mpfr, &i);
check_length (4, i, 29, d);
check_vfprintf (fout, "a. %R*A, b. %Fe, c. %i%zn", rnd, mpfr, mpf, sz,
&sz);
check_length (5, (unsigned long) sz, 34, lu); /* no format specifier "%zu" in C89 */
check_vfprintf (fout, "a. %Pu, b. %c, c. %Zi%Zn", prec, ch, mpz, &mpz);
check_length_with_cmp (6, mpz, 17, mpz_cmp_ui (mpz, 17), Zi);
check_vfprintf (fout, "%% a. %#.0RNg, b. %Qx%Rn, c. %p", mpfr, mpq, &mpfr,
(void *) &i);
check_length_with_cmp (7, mpfr, 15, mpfr_cmp_ui (mpfr, 15), Rg);
#ifndef NPRINTF_T
check_vfprintf (fout, "%% a. %RNg, b. %Qx, c. %td%tn", mpfr, mpq, p, &p);
check_length (8, (long) p, 20, ld); /* no format specifier "%td" in C89 */
#endif
#ifndef NPRINTF_L
check_vfprintf (fout, "a. %RA, b. %Lf, c. %QX%zn", mpfr, ld, mpq, &sz);
check_length (9, (unsigned long) sz, 30, lu); /* no format specifier "%zu" in C89 */
#endif
#ifndef NPRINTF_HH
check_vfprintf (fout, "a. %hhi, b.%RA, c. %hhu%hhn", sch, mpfr, uch, &uch);
check_length (10, (unsigned int) uch, 21, u); /* no format specifier "%hhu" in C89 */
#endif
#if (__GNU_MP_VERSION * 10 + __GNU_MP_VERSION_MINOR) >= 42
/* The 'M' specifier was added in gmp 4.2.0 */
check_vfprintf (fout, "a. %Mx b. %Re%Mn", limb[0], mpfr, &limb[0]);
if (limb[0] != 14 + BITS_PER_MP_LIMB / 4 || limb[1] != ~ (mp_limb_t) 0
|| limb[2] != ~ (mp_limb_t) 0)
{
printf ("Error in test #11: mpfr_vfprintf did not print %d characters"
" as expected\n", 14 + (int) BITS_PER_MP_LIMB / 4);
exit (1);
}
limb[0] = ~ (mp_limb_t) 0;
/* we tell vfprintf that limb array is 2 cells wide
and check it doesn't go through */
check_vfprintf (fout, "a. %Re .b %Nx%Nn", mpfr, limb, limb_size, limb,
limb_size - 1);
if (limb[0] != 14 + 3 * BITS_PER_MP_LIMB / 4 || limb[1] != (mp_limb_t) 0
|| limb[2] != ~ (mp_limb_t) 0)
{
printf ("Error in test #12: mpfr_vfprintf did not print %d characters"
" as expected\n", 14 + (int) BITS_PER_MP_LIMB / 4);
exit (1);
}
#endif
#if defined(HAVE_LONG_LONG) && !defined(NPRINTF_LL)
{
long long llo = -1;
unsigned long long ullo = 1;
check_vfprintf (fout, "a. %Re, b. %llx%Qn", mpfr, ullo, &mpq);
check_length_with_cmp (21, mpq, 16, mpq_cmp_ui (mpq, 16, 1), Qu);
check_vfprintf (fout, "a. %lli, b. %Rf%Fn", llo, mpfr, &mpf);
check_length_with_cmp (22, mpf, 19, mpf_cmp_ui (mpf, 19), Fg);
}
#endif
#if defined(_MPFR_H_HAVE_INTMAX_T) && !defined(NPRINTF_J)
{
intmax_t im = -1;
uintmax_t uim = 1;
check_vfprintf (fout, "a. %*RA, b. %ji%Qn", 10, mpfr, im, &mpq);
check_length_with_cmp (31, mpq, 20, mpq_cmp_ui (mpq, 20, 1), Qu);
check_vfprintf (fout, "a. %.*Re, b. %jx%Fn", 10, mpfr, uim, &mpf);
check_length_with_cmp (32, mpf, 25, mpf_cmp_ui (mpf, 25), Fg);
}
#endif
mpfr_clear (mpfr);
mpf_clear (mpf);
mpq_clear (mpq);
mpz_clear (mpz);
}
static void
check_mixed (void)
{
int ch = 'a';
#ifndef NPRINTF_HH
signed char sch = -1;
unsigned char uch = 1;
#endif
short sh = -1;
unsigned short ush = 1;
int i = -1;
int j = 1;
unsigned int ui = 1;
long lo = -1;
unsigned long ulo = 1;
float f = -1.25;
double d = -1.25;
#if !defined(NPRINTF_T) || !defined(NPRINTF_L)
long double ld = -1.25;
#endif
#ifndef NPRINTF_T
ptrdiff_t p = 1, saved_p;
#endif
size_t sz = 1;
mpz_t mpz;
mpq_t mpq;
mpf_t mpf;
mpfr_rnd_t rnd = MPFR_RNDN;
mpfr_t mpfr;
mpfr_prec_t prec;
mpz_init (mpz);
mpz_set_ui (mpz, ulo);
mpq_init (mpq);
mpq_set_si (mpq, lo, ulo);
mpf_init (mpf);
mpf_set_q (mpf, mpq);
mpfr_init (mpfr);
mpfr_set_f (mpfr, mpf, MPFR_RNDN);
prec = mpfr_get_prec (mpfr);
check_vprintf ("a. %Ra, b. %u, c. %lx%n", mpfr, ui, ulo, &j);
check_length (1, j, 22, d);
check_vprintf ("a. %c, b. %Rb, c. %u, d. %li%ln", i, mpfr, i, lo, &ulo);
check_length (2, ulo, 36, lu);
check_vprintf ("a. %hi, b. %*f, c. %Re%hn", ush, 3, f, mpfr, &ush);
check_length (3, ush, 29, hu);
check_vprintf ("a. %hi, b. %f, c. %#.2Rf%n", sh, d, mpfr, &i);
check_length (4, i, 29, d);
check_vprintf ("a. %R*A, b. %Fe, c. %i%zn", rnd, mpfr, mpf, sz, &sz);
check_length (5, (unsigned long) sz, 34, lu); /* no format specifier '%zu' in C89 */
check_vprintf ("a. %Pu, b. %c, c. %RUG, d. %Zi%Zn", prec, ch, mpfr, mpz, &mpz);
check_length_with_cmp (6, mpz, 24, mpz_cmp_ui (mpz, 24), Zi);
check_vprintf ("%% a. %#.0RNg, b. %Qx%Rn c. %p",
mpfr, mpq, &mpfr, (void *) &i);
check_length_with_cmp (7, mpfr, 15, mpfr_cmp_ui (mpfr, 15), Rg);
#ifndef NPRINTF_T
saved_p = p;
check_vprintf ("%% a. %RNg, b. %Qx, c. %td%tn", mpfr, mpq, p, &p);
if (p != 20)
mpfr_fprintf (stderr, "Error in test 8, got '%% a. %RNg, b. %Qx, c. %td'\n", mpfr, mpq, saved_p);
check_length (8, (long) p, 20, ld); /* no format specifier '%td' in C89 */
#endif
#ifndef NPRINTF_L
check_vprintf ("a. %RA, b. %Lf, c. %QX%zn", mpfr, ld, mpq, &sz);
check_length (9, (unsigned long) sz, 30, lu); /* no format specifier '%zu' in C89 */
#endif
#ifndef NPRINTF_HH
check_vprintf ("a. %hhi, b. %Ra, c. %hhu%hhn", sch, mpfr, uch, &uch);
check_length (10, (unsigned int) uch, 22, u); /* no format specifier '%hhu' in C89 */
#endif
#if defined(HAVE_LONG_LONG) && !defined(NPRINTF_LL)
{
long long llo = -1;
unsigned long long ullo = 1;
check_vprintf ("a. %Re, b. %llx%Qn", mpfr, ullo, &mpq);
check_length_with_cmp (11, mpq, 16, mpq_cmp_ui (mpq, 16, 1), Qu);
check_vprintf ("a. %lli, b. %Rf%lln", llo, mpfr, &ullo);
check_length (12, ullo, 19, llu);
}
#endif
#if defined(_MPFR_H_HAVE_INTMAX_T) && !defined(NPRINTF_J)
{
intmax_t im = -1;
uintmax_t uim = 1;
check_vprintf ("a. %*RA, b. %ji%Fn", 10, mpfr, im, &mpf);
check_length_with_cmp (31, mpf, 20, mpf_cmp_ui (mpf, 20), Fg);
check_vprintf ("a. %.*Re, b. %jx%jn", 10, mpfr, uim, &im);
check_length (32, (long) im, 25, li); /* no format specifier "%ji" in C89 */
}
#endif
mpfr_clear (mpfr);
mpf_clear (mpf);
mpq_clear (mpq);
mpz_clear (mpz);
}
