X-Git-Url: https://git.distorted.org.uk/u/mdw/catacomb/blobdiff_plain/702c8f086be6e11a2b93f66645a1c590b673dc70..c65df27983057ec76ed0e72bb370f9a5ae7dad28:/dsarand.c

diff --git a/dsarand.c b/dsarand.c
index 146a20f..ccb2c46 100644
--- a/dsarand.c
+++ b/dsarand.c
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: dsarand.c,v 1.2 2000/06/17 10:54:00 mdw Exp $
+ * $Id: dsarand.c,v 1.4 2004/04/08 01:36:15 mdw Exp $
  *
  * Random number generator for DSA
  *
@@ -27,17 +27,6 @@
  * MA 02111-1307, USA.
  */
 
-/*----- Revision history --------------------------------------------------* 
- *
- * $Log: dsarand.c,v $
- * Revision 1.2  2000/06/17 10:54:00  mdw
- * Typesetting fixes.  Arena support.
- *
- * Revision 1.1  1999/12/22 15:53:12  mdw
- * Random number generator for finding DSA parameters.
- *
- */
-
 /*----- Header files ------------------------------------------------------*/
 
 #include <stdarg.h>
@@ -277,6 +266,8 @@ static int gmisc(grand *r, unsigned op, ...)
 	case GRAND_SEEDBLOCK:
 	case GRAND_SEEDRAND:
 	case DSARAND_PASSES:
+	case DSARAND_SEEDSZ:
+	case DSARAND_GETSEED:
 	  rc = 1;
 	  break;
 	default:
@@ -296,6 +287,12 @@ static int gmisc(grand *r, unsigned op, ...)
     case DSARAND_PASSES:
       g->d.passes = va_arg(ap, unsigned);
       break;
+    case DSARAND_SEEDSZ:
+      rc = g->d.sz;
+      break;
+    case DSARAND_GETSEED:
+      memcpy(va_arg(ap, void *), g->d.p, g->d.sz);
+      break;
     default:
       GRAND_BADOP;
       break;