117 lines
3.4 KiB
C
117 lines
3.4 KiB
C
/*
|
|
Name: basecvt.c
|
|
Purpose: Convert integers and rationals from one base to another.
|
|
Author: M. J. Fromberger
|
|
|
|
Copyright (C) 2004-2008 Michael J. Fromberger, All Rights Reserved.
|
|
|
|
Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
of this software and associated documentation files (the "Software"), to deal
|
|
in the Software without restriction, including without limitation the rights
|
|
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
copies of the Software, and to permit persons to whom the Software is
|
|
furnished to do so, subject to the following conditions:
|
|
|
|
The above copyright notice and this permission notice shall be included in
|
|
all copies or substantial portions of the Software.
|
|
|
|
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
|
SOFTWARE.
|
|
*/
|
|
|
|
#include <errno.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
#include "imath.h"
|
|
#include "imrat.h"
|
|
|
|
int main(int argc, char *argv[]) {
|
|
mp_size in_rdx, out_rdx;
|
|
mpq_t value;
|
|
mp_result res;
|
|
int ix;
|
|
|
|
if (argc < 4) {
|
|
fprintf(stderr, "Usage: basecvt <ibase> <obase> <values>+\n");
|
|
return 1;
|
|
}
|
|
|
|
in_rdx = atoi(argv[1]);
|
|
out_rdx = atoi(argv[2]);
|
|
|
|
if (in_rdx < MP_MIN_RADIX || in_rdx > MP_MAX_RADIX) {
|
|
fprintf(stderr,
|
|
"basecvt: input radix %u not allowed (minimum %u, maximum %u)\n",
|
|
in_rdx, MP_MIN_RADIX, MP_MAX_RADIX);
|
|
return 3;
|
|
}
|
|
if (out_rdx < MP_MIN_RADIX || out_rdx > MP_MAX_RADIX) {
|
|
fprintf(stderr,
|
|
"basecvt: output radix %u not allowed (minimum %u, maximum %u)\n",
|
|
out_rdx, MP_MIN_RADIX, MP_MAX_RADIX);
|
|
return 3;
|
|
}
|
|
|
|
if ((res = mp_rat_init(&value)) != MP_OK) {
|
|
fprintf(stderr, "basecvt: out of memory\n");
|
|
return 2;
|
|
}
|
|
|
|
for (ix = 3; ix < argc; ++ix) {
|
|
char *buf, *endp = NULL;
|
|
mp_result len;
|
|
int is_int;
|
|
|
|
res = mp_rat_read_ustring(&value, in_rdx, argv[ix], &endp);
|
|
if (res != MP_OK && res != MP_TRUNC) {
|
|
fprintf(stderr, "basecvt: error reading argument %d: %s\n", ix,
|
|
mp_error_string(res));
|
|
break;
|
|
} else if (*endp != '\0') {
|
|
fprintf(stderr, "basecvt: argument %d contains '%s' not in base %u\n",
|
|
ix, endp, in_rdx);
|
|
continue;
|
|
}
|
|
|
|
is_int = mp_rat_is_integer(&value);
|
|
if (is_int) {
|
|
len = mp_int_string_len(MP_NUMER_P(&value), out_rdx);
|
|
} else {
|
|
len = mp_rat_string_len(&value, out_rdx);
|
|
}
|
|
|
|
if ((buf = malloc(len)) == NULL) {
|
|
fprintf(stderr, "basecvt: out of memory\n");
|
|
break;
|
|
}
|
|
|
|
if (is_int) {
|
|
res = mp_int_to_string(MP_NUMER_P(&value), out_rdx, buf, len);
|
|
} else {
|
|
res = mp_rat_to_string(&value, out_rdx, buf, len);
|
|
}
|
|
|
|
if (res != MP_OK) {
|
|
fprintf(stderr, "basecvt: error converting argument %d: %s\n", ix,
|
|
mp_error_string(res));
|
|
free(buf);
|
|
break;
|
|
}
|
|
|
|
printf("%s\n", buf);
|
|
free(buf);
|
|
}
|
|
|
|
mp_rat_clear(&value);
|
|
|
|
return (res != MP_OK);
|
|
}
|
|
|
|
/* Here there be dragons */
|