int test_qexpt(testspec_t *t, FILE *ofp) { mp_rat in[3], out[1]; mp_result res, expect; int power; if(!parse_rat_values(t, in, out, &expect)) return imath_errno = MP_BADARG, 0; if(!mp_rat_is_integer(in[1])) { fprintf(stderr, "Line %d: Second argument must be an integer (test_qexpt)\n", t->line); return imath_errno = MP_BADARG, 0; } if((res = mp_int_to_int(MP_NUMER_P(in[1]), &power)) != MP_OK) return imath_errno = res, 0; if((res = mp_rat_expt(in[0], power, in[2])) != expect) return imath_errno = res, 0; if(expect == MP_OK && mp_rat_compare(in[2], out[0]) != 0) { mp_rat_to_string(in[2], 10, g_output, OUTPUT_LIMIT); return imath_errno = OTHER_ERROR, 0; } return 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; }