src/Tools/Metis/src/Useful.sig

--- a/src/Tools/Metis/src/Useful.sig	Wed Jul 08 16:35:23 2020 +0200
+++ b/src/Tools/Metis/src/Useful.sig	Thu Jul 09 11:39:16 2020 +0200
@@ -1,6 +1,6 @@
 (* ========================================================================= *)
 (* ML UTILITY FUNCTIONS                                                      *)
-(* Copyright (c) 2001 Joe Hurd, distributed under the BSD License            *)
+(* Copyright (c) 2001 Joe Leslie-Hurd, distributed under the BSD License     *)
 (* ========================================================================= *)
 
 signature Useful =
@@ -203,6 +203,20 @@
 
 val gcd : int -> int -> int
 
+(* Primes *)
+
+type sieve
+
+val initSieve : sieve
+
+val maxSieve : sieve -> int
+
+val primesSieve : sieve -> int list
+
+val incSieve : sieve -> bool * sieve
+
+val nextSieve : sieve -> int * sieve
+
 val primes : int -> int list
 
 val primesUpTo : int -> int list