add-mpi-toradix-with-case patch

* mpi/mpi.c (mp_toradix_case): New function based on mp_toradix. Takes
an argument whether to use lower case digits.
(mp_toradix): Reduced to wrapper for mp_toradix_case.

* mpi/mpi.h (mp_toradix_case): Declared.

1 files changed, 9 insertions, 4 deletions

diff --git a/mpi/mpi.c b/mpi/mpi.c
index 48c7203f..3c09d0d2 100644
--- a/mpi/mpi.c
+++ b/mpi/mpi.c
@@ -2626,9 +2626,9 @@ int    mp_value_radix_size(int num, int qty, int radix)
 
 /* }}} */
 
-/* {{{ mp_toradix(mp, str, radix) */
+/* {{{ mp_toradix_case(mp, str, radix, low) */
 
-mp_err mp_toradix(mp_int *mp, unsigned char *str, int radix)
+mp_err mp_toradix_case(mp_int *mp, unsigned char *str, int radix, int low)
 {
   int  ix, pos = 0;
 
@@ -2659,7 +2659,7 @@ mp_err mp_toradix(mp_int *mp, unsigned char *str, int radix)
       }
 
       /* Generate digits, use capital letters */
-      ch = s_mp_todigit(rem, radix, 0);
+      ch = s_mp_todigit(rem, radix, low);
 
       str[pos++] = ch;
     }
@@ -2687,10 +2687,15 @@ mp_err mp_toradix(mp_int *mp, unsigned char *str, int radix)
 
   return MP_OKAY;
 
-} /* end mp_toradix() */
+} /* end mp_toradix_case() */
 
 /* }}} */
 
+mp_err mp_toradix(mp_int *mp, unsigned char *str, int radix)
+{
+  return mp_toradix_case(mp, str, radix, 0);
+}
+
 /* {{{ mp_char2value(ch, r) */
 
 int    mp_char2value(char ch, int r)