658eb9e142
Building a source distribution using autotools adds GPL-licenced files into the the sources. Although redistribution of theses files is explicitly allowed with an exception, these are not used by Polly which uses a CMake replacement. Use the direct source checkout instead (replacing the output of 'make dist'). Some m4 scripts with the same licence are also included in isl/ppcg repository. Removing them renders the autotools-based build scipts inoperable, so remove the autotools build system altogether.
117 lines
3.8 KiB
C
117 lines
3.8 KiB
C
/*
|
|
Name: input.c
|
|
Purpose: Basic I/O demo for IMath.
|
|
Author: Michael J. Fromberger
|
|
|
|
This program demonstrates how to read and write arbitrary precision integers
|
|
using IMath.
|
|
|
|
Copyright (C) 2003-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 <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
#include "imrat.h"
|
|
|
|
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. */
|
|
res = mp_int_to_string(MP_NUMER_P(&value), radix, obuf, buf_size);
|
|
if (res != 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. */
|
|
res = mp_rat_to_string(&value, radix, obuf, buf_size);
|
|
if (res != 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;
|
|
}
|
|
|
|
/* Here there be dragons */
|