From: Jim Meyering <jim@meyering.net>
Date: Tue, 6 Feb 2001 09:34:18 +0000 (+0000)
Subject: emit a comment, print numbers one per line
X-Git-Tag: FILEUTILS-4_0_39~11
X-Git-Url: http://git.ipfire.org/gitweb/index.cgi?a=commitdiff_plain;h=eeae6e79ddd70e582cba2074fb7edf890d11e176;p=thirdparty%2Fcoreutils.git

emit a comment, print numbers one per line
---

diff --git a/src/wheel-gen.pl b/src/wheel-gen.pl
index 757c60e9b9..90e6801e29 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;
 }