From 488905a239a25ad63b2c3d4f78aadd79dd3a14f7 Mon Sep 17 00:00:00 2001
From: Paul Eggert <eggert@cs.ucla.edu>
Date: Wed, 28 Jul 2004 23:59:11 +0000
Subject: Remove comments, trailing white space, and empty lines from the
 output strings, to save space. Use a narrower type like 'unsigned char' for
 line lengths, if that will do. Make the output variables static, not extern.

---
 src/dcgen | 32 +++++++++++++++++++++++++++-----
 1 file changed, 27 insertions(+), 5 deletions(-)

(limited to 'src')

diff --git a/src/dcgen b/src/dcgen
index 8f45b364b..3cb146221 100755
--- a/src/dcgen
+++ b/src/dcgen
@@ -5,7 +5,7 @@ eval 'exec /p/bin/perl -S $0 ${1+"$@"}'
     if 0;
 
 # dcgen -- generate C declarations of arrays of lines and line lengths
-# Copyright (C) 1996, 1998 Free Software Foundation, Inc.
+# Copyright (C) 1996, 1998, 2004 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -38,16 +38,38 @@ local @line;
 while (<>)
   {
     chop;
-    push (@line, $_);
+    s/[[:blank:]]*#.*//;
+    if ($_)
+      {
+	push (@line, $_);
+      }
   }
 
 local $n = @line;
 print "#define ${prefix}N_LINES $n\n\n";
 
 local $indent = '  ';
-print "const size_t ${prefix}line_length[${prefix}N_LINES] =\n{\n$indent";
-local $ind = $indent;
 local $i;
+
+local $max_line_length = 0;
+for ($i = 0; $i < @line; $i++)
+  {
+    local $len = length ($line[$i]);
+    $max_line_length = $len if $max_line_length < $len;
+  }
+
+local $line_length_type = 'unsigned char';
+if ((1 << 8) <= $max_line_length)
+  {
+    $line_length_type = 'unsigned short int';
+    if ((1 << 16) <= $max_line_length)
+      {
+        $line_length_type = 'unsigned int';
+      }
+  }
+
+print "static $line_length_type const ${prefix}line_length[${prefix}N_LINES] =\n{\n$indent";
+local $ind = $indent;
 for ($i = 0; $i < @line; $i++)
   {
     local $comma = ($i < @line - 1 ? ',' : '');
@@ -57,7 +79,7 @@ for ($i = 0; $i < @line; $i++)
   }
 print "};\n\n";
 
-print "const char *const ${prefix}line[${prefix}N_LINES] =\n{\n";
+print "static char const *const ${prefix}line[${prefix}N_LINES] =\n{\n";
 while (1)
   {
     $_ = shift (@line);
-- 
cgit v1.2.3-70-g09d2