/* -*-c-*-
*
- * $Id: bbs-gen.c,v 1.5 2000/07/01 11:20:36 mdw Exp $
+ * $Id: bbs-gen.c,v 1.6 2004/04/08 01:36:15 mdw Exp $
*
* Generate Blum integers
*
* MA 02111-1307, USA.
*/
-/*----- Revision history --------------------------------------------------*
- *
- * $Log: bbs-gen.c,v $
- * Revision 1.5 2000/07/01 11:20:36 mdw
- * Remove bad type name `bbs_param'.
- *
- * Revision 1.4 2000/06/17 10:43:57 mdw
- * Move GCD filter to separate file. Handle failures from pgen_jump.
- *
- * Revision 1.3 2000/02/12 18:21:02 mdw
- * Overhaul of key management (again).
- *
- * Revision 1.2 1999/12/22 15:52:28 mdw
- * Reworking for new prime-search system.
- *
- * Revision 1.1 1999/12/10 23:14:59 mdw
- * Blum-Blum-Shub generator, and Blum-Goldwasser encryption.
- *
- */
-
/*----- Header files ------------------------------------------------------*/
#include <stdio.h>
pgen_proc *event, void *ectx)
{
rabin rb;
- pgen_safejumpctx j;
+ pfilt jp;
+ pgen_jumpctx j;
pgen_gcdstepctx g;
unsigned nb = nbits/2;
mp *x = MP_NEW;
/* --- Generate @p@ --- */
again:
- if ((x = strongprime_setup("p", x, &j.jq, nb, r, n, event, ectx)) == 0)
+ if ((x = strongprime_setup("p", x, &jp, nb, r, n, event, ectx)) == 0)
goto fail_x;
- bp->p = pgen("p", MP_NEW, x, event, ectx, n, pgen_safejump, &j,
+ j.j = &jp;
+ bp->p = pgen("p", MP_NEW, x, event, ectx, n, pgen_jump, &j,
rabin_iters(nb), pgen_test, &rb);
- pfilt_destroy(&j.jq);
+ pfilt_destroy(&jp);
if (!bp->p) {
if (n)
goto fail_p;