int main(int argc, char *argv[]) {
mp_result mode, len, res = 0;
mp_size prec, radix;
mpq_t value;
char *buf;
if (argc < 5) {
fprintf(stderr, "Usage: rounding <mode> <precision> <radix> <value>\n");
return 1;
}
if ((res = mp_rat_init(&value)) != MP_OK) {
fprintf(stderr, "Error initializing: %s\n", mp_error_string(res));
return 2;
}
mode = atoi(argv[1]);
prec = atoi(argv[2]);
radix = atoi(argv[3]);
printf(
"Rounding mode: %d\n"
"Precision: %u digits\n"
"Radix: %u\n"
"Input string: \"%s\"\n",
mode, prec, radix, argv[4]);
if ((res = mp_rat_read_decimal(&value, radix, argv[4])) != MP_OK) {
fprintf(stderr, "Error reading input string: %s\n", mp_error_string(res));
goto CLEANUP;
}
len = mp_rat_decimal_len(&value, radix, prec);
buf = malloc(len);
if ((res = mp_rat_to_decimal(&value, radix, prec, mode, buf, len)) != MP_OK) {
fprintf(stderr, "Error converting output: %s\n", mp_error_string(res));
}
printf("Result string: \"%s\"\n", buf);
free(buf);
CLEANUP:
mp_rat_clear(&value);
return res;
}
void init_testing(void)
{
static int is_done = 0;
int i;
if(is_done)
return;
for(i = 0; i < NUM_REGS; ++i) {
assert(mp_int_init(g_zreg + i) == MP_OK);
assert(mp_rat_init(g_qreg + i) == MP_OK);
}
imath_errmsg = g_output;
assert(atexit(done_testing) == 0);
is_done = 1;
}
int main(int argc, char *argv[])
{
mp_size radix = 10; /* Default output radix */
mpq_t value;
mp_result res;
char *endp;
if(argc < 2) {
fprintf(stderr, "Usage: input <value> [output-base]\n");
return 1;
}
if(argc > 2) {
if((radix = atoi(argv[2])) < MP_MIN_RADIX ||
(radix > MP_MAX_RADIX)) {
fprintf(stderr, "Error: Specified radix is out of range (%d)\n",
radix);
return 1;
}
}
/* Initialize a new value, initially zero; illustrates how to check
for errors (e.g., out of memory) and display a message. */
if((res = mp_rat_init(&value)) != MP_OK) {
fprintf(stderr, "Error in mp_rat_init(): %s\n",
mp_error_string(res));
return 1;
}
/* Read value in base 10 */
if((res = mp_rat_read_ustring(&value, 0, argv[1], &endp)) != MP_OK) {
fprintf(stderr, "Error in mp_rat_read_ustring(): %s\n",
mp_error_string(res));
if(res == MP_TRUNC)
fprintf(stderr, " -- remaining input is: %s\n", endp);
mp_rat_clear(&value);
return 1;
}
printf("Here is your value in base %d\n", radix);
{
mp_result buf_size, res;
char *obuf;
if(mp_rat_is_integer(&value)) {
/* Allocate a buffer big enough to hold the given value, including
sign and zero terminator. */
buf_size = mp_int_string_len(MP_NUMER_P(&value), radix);
obuf = malloc(buf_size);
/* Convert the value to a string in the desired radix. */
if((res = mp_int_to_string(MP_NUMER_P(&value), radix,
obuf, buf_size)) != MP_OK) {
fprintf(stderr, "Converstion to base %d failed: %s\n",
radix, mp_error_string(res));
mp_rat_clear(&value);
return 1;
}
}
else {
/* Allocate a buffer big enough to hold the given value, including
sign and zero terminator. */
buf_size = mp_rat_string_len(&value, radix);
obuf = malloc(buf_size);
/* Convert the value to a string in the desired radix. */
if((res = mp_rat_to_string(&value, radix, obuf, buf_size)) != MP_OK) {
fprintf(stderr, "Conversion to base %d failed: %s\n",
radix, mp_error_string(res));
mp_rat_clear(&value);
return 1;
}
}
fputs(obuf, stdout);
fputc('\n', stdout);
free(obuf);
}
/* When you are done with a value, it must be "cleared" to release
the memory it occupies */
mp_rat_clear(&value);
return 0;
}