1#include <tommath.h>
2#ifdef BN_MP_FWRITE_C
3/* LibTomMath, multiple-precision integer library -- Tom St Denis
4 *
5 * LibTomMath is a library that provides multiple-precision
6 * integer arithmetic as well as number theoretic functionality.
7 *
8 * The library was designed directly after the MPI library by
9 * Michael Fromberger but has been written from scratch with
10 * additional optimizations in place.
11 *
12 * The library is free for all purposes without any express
13 * guarantee it works.
14 *
15 * Tom St Denis, tomstdenis@gmail.com, http://libtom.org
16 */
17
18int mp_fwrite(mp_int *a, int radix, FILE *stream)
19{
20   char *buf;
21   int err, len, x;
22
23   if ((err = mp_radix_size(a, radix, &len)) != MP_OKAY) {
24      return err;
25   }
26
27   buf = OPT_CAST(char) XMALLOC (len);
28   if (buf == NULL) {
29      return MP_MEM;
30   }
31
32   if ((err = mp_toradix(a, buf, radix)) != MP_OKAY) {
33      XFREE (buf);
34      return err;
35   }
36
37   for (x = 0; x < len; x++) {
38       if (fputc(buf[x], stream) == EOF) {
39          XFREE (buf);
40          return MP_VAL;
41       }
42   }
43
44   XFREE (buf);
45   return MP_OKAY;
46}
47
48#endif
49
50/* $Source$ */
51/* $Revision$ */
52/* $Date$ */
53