libs/libtommath/bn_mp_fwrite.c

   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://math.libtomcrypt.com
  16  */
  17
  18 int 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: /cvs/libtom/libtommath/bn_mp_fwrite.c,v $ */
  51 /* $Revision: 1.3 $ */
  52 /* $Date: 2006/03/31 14:18:44 $ */