Commit a69d56cc authored by Niels Möller's avatar Niels Möller

(nettle_mpz_set_sexp): New file, and new function.

Moved from sexp2rsa.c:get_value.

Rev: src/nettle/bignum.h:1.5
Rev: src/nettle/sexp2bignum.c:1.1
parent 1cbc329f
......@@ -60,4 +60,10 @@ nettle_mpz_random(mpz_t x,
void *ctx, nettle_random_func random,
const mpz_t n);
struct sexp_iterator;
/* If LIMIT is non-zero, the number must be at most LIMIT bits. */
int
nettle_mpz_set_sexp(mpz_t x, unsigned limit, const struct sexp_iterator *i);
#endif /* NETTLE_BIGNUM_H_INCLUDED */
/* sexp2bignum.c
*
*/
/* nettle, low-level cryptographics library
*
* Copyright (C) 2002 Niels Mller
*
* The nettle library is free software; you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License as published by
* the Free Software Foundation; either version 2.1 of the License, or (at your
* option) any later version.
*
* The nettle library is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
* or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
* License for more details.
*
* You should have received a copy of the GNU Lesser General Public License
* along with the nettle library; see the file COPYING.LIB. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
* MA 02111-1307, USA.
*/
#if HAVE_CONFIG_H
#include "config.h"
#endif
#if HAVE_LIBGMP
#include "sexp.h"
#include "bignum.h"
int
nettle_mpz_set_sexp(mpz_t x, unsigned limit, const struct sexp_iterator *i)
{
if (i->type == SEXP_ATOM
&& !i->display)
{
if (limit && (8 * i->atom_length > limit))
return 0;
nettle_mpz_set_str_256(x, i->atom_length, i->atom);
return !limit || mpz_sizeinbase(x, 2) <= limit;
}
else
return 0;
}
#endif /* HAVE_LIBGMP */
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment