5 Author: Pekka Riikonen <priikone@silcnet.org>
7 Copyright (C) 2005 - 2007 Pekka Riikonen
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.
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.
24 void silc_mp_init(SilcMPInt *mp)
26 (void)tma_mp_init(mp);
29 SilcBool silc_mp_sinit(SilcStack stack, SilcMPInt *mp)
36 void silc_mp_uninit(SilcMPInt *mp)
41 void silc_mp_suninit(SilcStack stack, SilcMPInt *mp)
47 size_t silc_mp_size(SilcMPInt *mp)
49 return tma_mp_unsigned_bin_size(mp);
52 size_t silc_mp_sizeinbase(SilcMPInt *mp, int base)
55 tma_mp_radix_size(mp, base, &size);
61 void silc_mp_set(SilcMPInt *dst, SilcMPInt *src)
63 (void)tma_mp_copy(src, dst);
66 void silc_mp_set_ui(SilcMPInt *dst, SilcUInt32 ui)
68 (void)tma_mp_set_int(dst, ui);
71 void silc_mp_set_si(SilcMPInt *dst, SilcInt32 si)
73 (void)tma_mp_set_int(dst, si);
76 void silc_mp_set_str(SilcMPInt *dst, const char *str, int base)
78 (void)tma_mp_read_radix(dst, str, base);
81 SilcUInt32 silc_mp_get_ui(SilcMPInt *mp)
83 return (SilcUInt32)tma_mp_get_int(mp);
86 char *silc_mp_get_str(char *str, SilcMPInt *mp, int base)
88 if (tma_mp_toradix(mp, str, base) != MP_OKAY)
93 void silc_mp_add(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
95 (void)tma_mp_add(mp1, mp2, dst);
98 void silc_mp_add_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
100 tma_mp_add_d(mp1, (tma_mp_digit)ui, dst);
103 void silc_mp_sub(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
105 (void)tma_mp_sub(mp1, mp2, dst);
108 void silc_mp_sub_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
110 (void)tma_mp_sub_d(mp1, (tma_mp_digit)ui, dst);
113 void silc_mp_mul(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
115 (void)tma_mp_mul(mp1, mp2, dst);
118 void silc_mp_mul_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
120 (void)tma_mp_mul_d(mp1, (tma_mp_digit)ui, dst);
123 void silc_mp_mul_2exp(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 exp)
125 (void)tma_mp_mul_2d(mp1, exp, dst);
128 void silc_mp_sqrt(SilcMPInt *dst, SilcMPInt *src)
130 (void)tma_mp_sqrt(src, dst);
133 void silc_mp_div(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
135 (void)tma_mp_div(mp1, mp2, dst, NULL);
138 void silc_mp_div_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
140 (void)tma_mp_div_d(mp1, (tma_mp_digit)ui, dst, NULL);
143 void silc_mp_div_qr(SilcMPInt *q, SilcMPInt *r, SilcMPInt *mp1,
146 (void)tma_mp_div(mp1, mp2, q, r);
149 void silc_mp_div_2exp(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 exp)
151 (void)tma_mp_div_2d(mp1, exp, dst, NULL);
154 void silc_mp_div_2exp_qr(SilcMPInt *q, SilcMPInt *r, SilcMPInt *mp1,
157 (void)tma_mp_div_2d(mp1, exp, q, r);
160 void silc_mp_mod(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
162 (void)tma_mp_mod(mp1, mp2, dst);
165 void silc_mp_mod_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
168 (void)tma_mp_mod_d(mp1, ui, &d);
169 silc_mp_set_ui(dst, d);
172 void silc_mp_mod_2exp(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
174 (void)tma_mp_mod_2d(mp1, ui, dst);
177 void silc_mp_pow(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *exp)
179 SILC_NOT_IMPLEMENTED("silc_mp_pow");
183 void silc_mp_pow_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 exp)
185 (void)tma_mp_expt_d(mp1, (tma_mp_digit)exp, dst);
188 void silc_mp_pow_mod(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *exp,
191 (void)tma_mp_exptmod(mp1, exp, mod, dst);
194 void silc_mp_pow_mod_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 exp,
199 silc_mp_set_ui(&tmp, exp);
200 silc_mp_pow_mod(dst, mp1, &tmp, mod);
201 silc_mp_uninit(&tmp);
204 void silc_mp_gcd(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
206 (void)tma_mp_gcd(mp1, mp2, dst);
209 void silc_mp_gcdext(SilcMPInt *g, SilcMPInt *s, SilcMPInt *t, SilcMPInt *mp1,
212 (void)tma_mp_exteuclid(mp1, mp2, s, t, g);
215 int silc_mp_cmp(SilcMPInt *mp1, SilcMPInt *mp2)
217 return tma_mp_cmp(mp1, mp2);
220 int silc_mp_cmp_si(SilcMPInt *mp1, SilcInt32 si)
222 return tma_mp_cmp_d(mp1, si);
225 int silc_mp_cmp_ui(SilcMPInt *mp1, SilcUInt32 ui)
227 return tma_mp_cmp_d(mp1, ui);
230 void silc_mp_abs(SilcMPInt *dst, SilcMPInt *src)
232 (void)tma_mp_abs(src, dst);
235 void silc_mp_neg(SilcMPInt *dst, SilcMPInt *src)
237 (void)tma_mp_neg(src, dst);
240 void silc_mp_and(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
242 (void)tma_mp_and(mp1, mp2, dst);
245 void silc_mp_or(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
247 (void)tma_mp_or(mp1, mp2, dst);
250 void silc_mp_xor(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
252 (void)tma_mp_xor(mp1, mp2, dst);