X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/869053c868a03539389422a7a28502818825a940..96dca4d4be66035dc9293a9939950c0986912977:/generate_uudmap.c

diff --git a/generate_uudmap.c b/generate_uudmap.c
index 27b142a..2c3e24a 100644
--- a/generate_uudmap.c
+++ b/generate_uudmap.c
@@ -1,3 +1,8 @@
+/* Originally this program just generated uudmap.h
+   However, when we later wanted to generate bitcount.h, it was easier to
+   refactor it and keep the same name, than either alternative - rename it,
+   or duplicate all of the Makefile logic for a second program.  */
+
 #include <stdio.h>
 #include <stdlib.h>
 /* If it turns out that we need to make this conditional on config.sh derived
@@ -45,12 +50,14 @@ typedef unsigned char U8;
 
 /* This will ensure it is all zeros.  */
 static char PL_uudmap[256];
+static char PL_bitcount[256];
 
 int main(int argc, char **argv) {
   size_t i;
+  int bits;
 
-  if (argc < 2 || argv[1][0] == '\0') {
-    fprintf(stderr, "Usage: %s uudemap.h\n", argv[0]);
+  if (argc < 3 || argv[1][0] == '\0' || argv[2][0] == '\0') {
+    fprintf(stderr, "Usage: %s uudemap.h bitcount.h\n", argv[0]);
     return 1;
   }
 
@@ -64,6 +71,19 @@ int main(int argc, char **argv) {
 
   output_block_to_file(argv[0], argv[1], PL_uudmap, sizeof(PL_uudmap));
 
+  for (bits = 1; bits < 256; bits++) {
+    if (bits & 1)	PL_bitcount[bits]++;
+    if (bits & 2)	PL_bitcount[bits]++;
+    if (bits & 4)	PL_bitcount[bits]++;
+    if (bits & 8)	PL_bitcount[bits]++;
+    if (bits & 16)	PL_bitcount[bits]++;
+    if (bits & 32)	PL_bitcount[bits]++;
+    if (bits & 64)	PL_bitcount[bits]++;
+    if (bits & 128)	PL_bitcount[bits]++;
+  }
+
+  output_block_to_file(argv[0], argv[2], PL_bitcount, sizeof(PL_bitcount));
+
   return 0;
 }