From eeae6e79ddd70e582cba2074fb7edf890d11e176 Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Tue, 6 Feb 2001 09:34:18 +0000
Subject: emit a comment, print numbers one per line

---
 src/wheel-gen.pl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/wheel-gen.pl b/src/wheel-gen.pl
index 757c60e9b..90e6801e2 100755
--- a/src/wheel-gen.pl
+++ b/src/wheel-gen.pl
@@ -56,6 +56,14 @@ sub is_prime ($)
 	}
     }
 
+  my $ws_m1 = $wheel_size - 1;
+  print <<EOF;
+/* The first $ws_m1 elements correspond to the incremental offsets of the
+   first $wheel_size primes (@primes).  The $wheel_size(th) element is the
+   difference between that last prime and the next largest integer that is
+   not a multiple of those primes.  */
+EOF
+
   my @increments;
   my $prev = 2;
   for (my $i = 3; ; $i += 2)
@@ -78,7 +86,7 @@ sub is_prime ($)
 	}
     }
 
-  print "@increments\n";
+  print join (",\n", @increments), "\n";
 
   exit 0;
 }
-- 
cgit v1.2.3-54-g00ecf