-/*----- Safe prime functions ----------------------------------------------*/
-
-/* --- @pgen_safestep@ --- *
- *
- * Steps two numbers, %$q$% and %$p = 2q + 1$%, such that neither has any
- * small factors. %$p$% is put in the event block.
- */
-
-typedef struct pgen_safestepctx {
- pfilt q, p;
-} pgen_safestepctx;
-
-extern pgen_proc pgen_safestep;
-
-/* --- @pgen_safejump@ --- *
- *
- * Jumps two numbers, %$q$% and %$p = 2q + 1$% such that neither has any
- * small factors.
- */
-
-typedef struct pgen_safejumpctx {
- pfilt q, jq;
- pfilt p, jp;
-} pgen_safejumpctx;
-
-extern pgen_proc pgen_safejump;
-
-/* --- @pgen_safetest@ --- *
- *
- * Applies Rabin-Miller tests to %$p$% and %$(p - 1)/2$%.
- */
-
-typedef struct pgen_safetestctx {
- pgen_safestepctx c;
- rabin q, p;
-} pgen_safetestctx;
-
-extern pgen_proc pgen_safetest;
-