lib/silcmath/mp_tma.c

   1 /*
   2
   3   mp_tma.c
   4
   5   Author: Pekka Riikonen <priikone@silcnet.org>
   6
   7   Copyright (C) 2005 - 2008 Pekka Riikonen
   8
   9   This program is free software; you can redistribute it and/or modify
  10   it under the terms of the GNU General Public License as published by
  11   the Free Software Foundation; version 2 of the License.
  12
  13   This program is distributed in the hope that it will be useful,
  14   but WITHOUT ANY WARRANTY; without even the implied warranty of
  15   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16   GNU General Public License for more details.
  17
  18 */
  19
  20 #include "silccrypto.h"
  21 #include "mp_tma.h"
  22
  23 SilcBool silc_mp_init(SilcMPInt *mp)
  24 {
  25   return tma_mp_init(mp) == MP_OKAY;
  26 }
  27
  28 SilcBool silc_mp_sinit(SilcStack stack, SilcMPInt *mp)
  29 {
  30   return tma_mp_init(mp) == MP_OKAY;
  31 }
  32
  33 void silc_mp_uninit(SilcMPInt *mp)
  34 {
  35   tma_mp_clear(mp);
  36 }
  37
  38 size_t silc_mp_size(SilcMPInt *mp)
  39 {
  40   return tma_mp_unsigned_bin_size(mp);
  41 }
  42
  43 size_t silc_mp_sizeinbase(SilcMPInt *mp, int base)
  44 {
  45   int size = 0;
  46   tma_mp_radix_size(mp, base, &size);
  47   if (size > 1)
  48     size--;
  49   return size;
  50 }
  51
  52 SilcBool silc_mp_set(SilcMPInt *dst, SilcMPInt *src)
  53 {
  54   (void)tma_mp_copy(src, dst);
  55   return TRUE;
  56 }
  57
  58 SilcBool silc_mp_set_ui(SilcMPInt *dst, SilcUInt32 ui)
  59 {
  60   (void)tma_mp_set_int(dst, ui);
  61   return TRUE;
  62 }
  63
  64 SilcBool silc_mp_set_si(SilcMPInt *dst, SilcInt32 si)
  65 {
  66   (void)tma_mp_set_int(dst, si);
  67   return TRUE;
  68 }
  69
  70 SilcBool silc_mp_set_str(SilcMPInt *dst, const char *str, int base)
  71 {
  72   (void)tma_mp_read_radix(dst, str, base);
  73   return TRUE;
  74 }
  75
  76 SilcUInt32 silc_mp_get_ui(SilcMPInt *mp)
  77 {
  78   return (SilcUInt32)tma_mp_get_int(mp);
  79 }
  80
  81 char *silc_mp_get_str(char *str, SilcMPInt *mp, int base)
  82 {
  83   if (tma_mp_toradix(mp, str, base) != MP_OKAY)
  84     return NULL;
  85   return str;
  86 }
  87
  88 SilcBool silc_mp_add(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
  89 {
  90   (void)tma_mp_add(mp1, mp2, dst);
  91   return TRUE;
  92 }
  93
  94 SilcBool silc_mp_add_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
  95 {
  96   tma_mp_add_d(mp1, (tma_mp_digit)ui, dst);
  97   return TRUE;
  98 }
  99
 100 SilcBool silc_mp_sub(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
 101 {
 102   (void)tma_mp_sub(mp1, mp2, dst);
 103   return TRUE;
 104 }
 105
 106 SilcBool silc_mp_sub_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
 107 {
 108   (void)tma_mp_sub_d(mp1, (tma_mp_digit)ui, dst);
 109   return TRUE;
 110 }
 111
 112 SilcBool silc_mp_mul(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
 113 {
 114   (void)tma_mp_mul(mp1, mp2, dst);
 115   return TRUE;
 116 }
 117
 118 SilcBool silc_mp_mul_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
 119 {
 120   (void)tma_mp_mul_d(mp1, (tma_mp_digit)ui, dst);
 121   return TRUE;
 122 }
 123
 124 SilcBool silc_mp_mul_2exp(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 exp)
 125 {
 126   (void)tma_mp_mul_2d(mp1, exp, dst);
 127   return TRUE;
 128 }
 129
 130 SilcBool silc_mp_sqrt(SilcMPInt *dst, SilcMPInt *src)
 131 {
 132   (void)tma_mp_sqrt(src, dst);
 133   return TRUE;
 134 }
 135
 136 SilcBool silc_mp_div(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
 137 {
 138   (void)tma_mp_div(mp1, mp2, dst, NULL);
 139   return TRUE;
 140 }
 141
 142 SilcBool silc_mp_div_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
 143 {
 144   (void)tma_mp_div_d(mp1, (tma_mp_digit)ui, dst, NULL);
 145   return TRUE;
 146 }
 147
 148 SilcBool silc_mp_div_qr(SilcMPInt *q, SilcMPInt *r, SilcMPInt *mp1,
 149                     SilcMPInt *mp2)
 150 {
 151   (void)tma_mp_div(mp1, mp2, q, r);
 152   return TRUE;
 153 }
 154
 155 SilcBool silc_mp_div_2exp(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 exp)
 156 {
 157   (void)tma_mp_div_2d(mp1, exp, dst, NULL);
 158   return TRUE;
 159 }
 160
 161 SilcBool silc_mp_div_2exp_qr(SilcMPInt *q, SilcMPInt *r, SilcMPInt *mp1,
 162                          SilcUInt32 exp)
 163 {
 164   (void)tma_mp_div_2d(mp1, exp, q, r);
 165   return TRUE;
 166 }
 167
 168 SilcBool silc_mp_mod(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
 169 {
 170   (void)tma_mp_mod(mp1, mp2, dst);
 171   return TRUE;
 172 }
 173
 174 SilcBool silc_mp_mod_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
 175 {
 176   tma_mp_digit d;
 177   (void)tma_mp_mod_d(mp1, ui, &d);
 178   silc_mp_set_ui(dst, d);
 179   return TRUE;
 180 }
 181
 182 SilcBool silc_mp_mod_2exp(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
 183 {
 184   (void)tma_mp_mod_2d(mp1, ui, dst);
 185   return TRUE;
 186 }
 187
 188 SilcBool silc_mp_pow_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 exp)
 189 {
 190   (void)tma_mp_expt_d(mp1, (tma_mp_digit)exp, dst);
 191   return TRUE;
 192 }
 193
 194 SilcBool silc_mp_pow_mod(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *exp,
 195                      SilcMPInt *mod)
 196 {
 197   (void)tma_mp_exptmod(mp1, exp, mod, dst);
 198   return TRUE;
 199 }
 200
 201 SilcBool silc_mp_pow_mod_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 exp,
 202                         SilcMPInt *mod)
 203 {
 204   SilcMPInt tmp;
 205   silc_mp_init(&tmp);
 206   silc_mp_set_ui(&tmp, exp);
 207   silc_mp_pow_mod(dst, mp1, &tmp, mod);
 208   silc_mp_uninit(&tmp);
 209   return TRUE;
 210 }
 211
 212 SilcBool silc_mp_gcd(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
 213 {
 214   (void)tma_mp_gcd(mp1, mp2, dst);
 215   return TRUE;
 216 }
 217
 218 int silc_mp_cmp(SilcMPInt *mp1, SilcMPInt *mp2)
 219 {
 220   return tma_mp_cmp(mp1, mp2);
 221 }
 222
 223 int silc_mp_cmp_si(SilcMPInt *mp1, SilcInt32 si)
 224 {
 225   return tma_mp_cmp_d(mp1, si);
 226 }
 227
 228 int silc_mp_cmp_ui(SilcMPInt *mp1, SilcUInt32 ui)
 229 {
 230   return tma_mp_cmp_d(mp1, ui);
 231 }
 232
 233 SilcBool silc_mp_abs(SilcMPInt *dst, SilcMPInt *src)
 234 {
 235   (void)tma_mp_abs(src, dst);
 236   return TRUE;
 237 }
 238
 239 SilcBool silc_mp_neg(SilcMPInt *dst, SilcMPInt *src)
 240 {
 241   (void)tma_mp_neg(src, dst);
 242   return TRUE;
 243 }
 244
 245 SilcBool silc_mp_and(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
 246 {
 247   (void)tma_mp_and(mp1, mp2, dst);
 248   return TRUE;
 249 }
 250
 251 SilcBool silc_mp_or(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
 252 {
 253   (void)tma_mp_or(mp1, mp2, dst);
 254   return TRUE;
 255 }
 256
 257 SilcBool silc_mp_xor(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
 258 {
 259   (void)tma_mp_xor(mp1, mp2, dst);
 260   return TRUE;
 261 }