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