Added new math library based on TFM.

[crypto.git] / lib / silcmath / mp_gmp.c

diff --git a/lib/silcmath/mp_gmp.c b/lib/silcmath/mp_gmp.c
index 949eb5342800e395fc45a2e4181e9c2312846272..31ab229c151808c76289dac30118a21f1eb59989 100644 (file)
--- a/lib/silcmath/mp_gmp.c
+++ b/lib/silcmath/mp_gmp.c
@@ -4,7 +4,7 @@
 
   Author: Pekka Riikonen <priikone@silcnet.org>
 
-  Copyright (C) 2001 - 2005 Pekka Riikonen
+  Copyright (C) 2001 - 2008 Pekka Riikonen
 
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
@@ -20,9 +20,16 @@
 #include "silccrypto.h"
 #include <gmp.h>
 
-void silc_mp_init(SilcMPInt *mp)
+SilcBool silc_mp_init(SilcMPInt *mp)
 {
   mpz_init(mp);
+  return TRUE;
+}
+
+SilcBool silc_mp_sinit(SilcStack stack, SilcMPInt *mp)
+{
+  mpz_init(mp);
+  return TRUE;
 }
 
 void silc_mp_uninit(SilcMPInt *mp)
@@ -40,24 +47,28 @@ size_t silc_mp_sizeinbase(SilcMPInt *mp, int base)
   return mpz_sizeinbase(mp, base);
 }
 
-void silc_mp_set(SilcMPInt *dst, SilcMPInt *src)
+SilcBool silc_mp_set(SilcMPInt *dst, SilcMPInt *src)
 {
   mpz_set(dst, src);
+  return TRUE;
 }
 
-void silc_mp_set_ui(SilcMPInt *dst, SilcUInt32 ui)
+SilcBool silc_mp_set_ui(SilcMPInt *dst, SilcUInt32 ui)
 {
   mpz_set_ui(dst, ui);
+  return TRUE;
 }
 
-void silc_mp_set_si(SilcMPInt *dst, SilcInt32 si)
+SilcBool silc_mp_set_si(SilcMPInt *dst, SilcInt32 si)
 {
   mpz_set_si(dst, si);
+  return TRUE;
 }
 
-void silc_mp_set_str(SilcMPInt *dst, const char *str, int base)
+SilcBool silc_mp_set_str(SilcMPInt *dst, const char *str, int base)
 {
   mpz_set_str(dst, str, base);
+  return TRUE;
 }
 
 SilcUInt32 silc_mp_get_ui(SilcMPInt *mp)
@@ -70,57 +81,67 @@ char *silc_mp_get_str(char *str, SilcMPInt *mp, int base)
   return mpz_get_str(str, base, mp);
 }
 
-void silc_mp_add(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
+SilcBool silc_mp_add(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
 {
   mpz_add(dst, mp1, mp2);
+  return TRUE;
 }
 
-void silc_mp_add_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
+SilcBool silc_mp_add_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
 {
   mpz_add_ui(dst, mp1, ui);
+  return TRUE;
 }
 
-void silc_mp_sub(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
+SilcBool silc_mp_sub(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
 {
   mpz_sub(dst, mp1, mp2);
+  return TRUE;
 }
 
-void silc_mp_sub_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
+SilcBool silc_mp_sub_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
 {
   mpz_sub_ui(dst, mp1, ui);
+  return TRUE;
 }
 
-void silc_mp_mul(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
+SilcBool silc_mp_mul(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
 {
   mpz_mul(dst, mp1, mp2);
+  return TRUE;
 }
 
-void silc_mp_mul_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
+SilcBool silc_mp_mul_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
 {
   mpz_mul_ui(dst, mp1, ui);
+  return TRUE;
 }
 
-void silc_mp_mul_2exp(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 exp)
+SilcBool silc_mp_mul_2exp(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 exp)
 {
   mpz_mul_2exp(dst, mp1, exp);
+  return TRUE;
 }
 
-void silc_mp_sqrt(SilcMPInt *dst, SilcMPInt *src)
+SilcBool silc_mp_sqrt(SilcMPInt *dst, SilcMPInt *src)
 {
   mpz_sqrt(dst, src);
+  return TRUE;
 }
 
-void silc_mp_div(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
+SilcBool silc_mp_div(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
 {
   mpz_div(dst, mp1, mp2);
+  return TRUE;
 }
 
-void silc_mp_div_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
+SilcBool silc_mp_div_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
 {
   mpz_div_ui(dst, mp1, ui);
+  return TRUE;
 }
 
-void silc_mp_div_qr(SilcMPInt *q, SilcMPInt *r, SilcMPInt *mp1,
+SilcBool silc_mp_div_qr(SilcMPInt *q, SilcMPInt *r, SilcMPInt *mp1,
                    SilcMPInt *mp2)
 {
   if (q && r)
@@ -129,69 +150,67 @@ void silc_mp_div_qr(SilcMPInt *q, SilcMPInt *r, SilcMPInt *mp1,
     mpz_div(q, mp1, mp2);
   if (!q && r)
     mpz_mod(r, mp1, mp2);
+  return TRUE;
 }
 
-void silc_mp_div_2exp(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 exp)
+SilcBool silc_mp_div_2exp(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 exp)
 {
   mpz_fdiv_q_2exp(dst, mp1, exp);
+  return TRUE;
 }
 
-void silc_mp_div_2exp_qr(SilcMPInt *q, SilcMPInt *r, SilcMPInt *mp1,
+SilcBool silc_mp_div_2exp_qr(SilcMPInt *q, SilcMPInt *r, SilcMPInt *mp1,
                         SilcUInt32 exp)
 {
   if (q)
     mpz_fdiv_q_2exp(q, mp1, exp);
   if (r)
     mpz_fdiv_r_2exp(r, mp1, exp);
+  return TRUE;
 }
 
-void silc_mp_mod(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
+SilcBool silc_mp_mod(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
 {
   mpz_mod(dst, mp1, mp2);
+  return TRUE;
 }
 
-void silc_mp_mod_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
+SilcBool silc_mp_mod_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
 {
   mpz_mod_ui(dst, mp1, ui);
+  return TRUE;
 }
 
-void silc_mp_mod_2exp(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
+SilcBool silc_mp_mod_2exp(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 ui)
 {
   mpz_mod_2exp(dst, mp1, ui);
+  return TRUE;
 }
 
-void silc_mp_pow(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *exp)
-{
-  SilcUInt32 uiexp = mpz_get_ui(exp);
-  mpz_pow_ui(dst, mp1, uiexp);
-}
-
-void silc_mp_pow_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 exp)
+SilcBool silc_mp_pow_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 exp)
 {
   mpz_pow_ui(dst, mp1, exp);
+  return TRUE;
 }
 
-void silc_mp_pow_mod(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *exp,
+SilcBool silc_mp_pow_mod(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *exp,
                     SilcMPInt *mod)
 {
   mpz_powm(dst, mp1, exp, mod);
+  return TRUE;
 }
 
-void silc_mp_pow_mod_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 exp,
+SilcBool silc_mp_pow_mod_ui(SilcMPInt *dst, SilcMPInt *mp1, SilcUInt32 exp,
                        SilcMPInt *mod)
 {
   mpz_powm_ui(dst, mp1, exp, mod);
+  return TRUE;
 }
 
-void silc_mp_gcd(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
+SilcBool silc_mp_gcd(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
 {
   mpz_gcd(dst, mp1, mp2);
-}
-
-void silc_mp_gcdext(SilcMPInt *g, SilcMPInt *s, SilcMPInt *t, SilcMPInt *mp1,
-                   SilcMPInt *mp2)
-{
-  mpz_gcdext(g, s, t, mp1, mp2);
+  return TRUE;
 }
 
 int silc_mp_cmp(SilcMPInt *mp1, SilcMPInt *mp2)
@@ -209,27 +228,32 @@ int silc_mp_cmp_ui(SilcMPInt *mp1, SilcUInt32 ui)
   return mpz_cmp_ui(mp1, ui);
 }
 
-void silc_mp_abs(SilcMPInt *dst, SilcMPInt *src)
+SilcBool silc_mp_abs(SilcMPInt *dst, SilcMPInt *src)
 {
   mpz_abs(dst, src);
+  return TRUE;
 }
 
-void silc_mp_neg(SilcMPInt *dst, SilcMPInt *src)
+SilcBool silc_mp_neg(SilcMPInt *dst, SilcMPInt *src)
 {
   mpz_neg(dst, src);
+  return TRUE;
 }
 
-void silc_mp_and(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
+SilcBool silc_mp_and(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
 {
   mpz_and(dst, mp1, mp2);
+  return TRUE;
 }
 
-void silc_mp_or(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
+SilcBool silc_mp_or(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
 {
   mpz_ior(dst, mp1, mp2);
+  return TRUE;
 }
 
-void silc_mp_xor(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
+SilcBool silc_mp_xor(SilcMPInt *dst, SilcMPInt *mp1, SilcMPInt *mp2)
 {
   mpz_xor(dst, mp1, mp2);
+  return TRUE;
 }