Add -c option to preserve comments from GENERIC in the output.

1 files changed, 12 insertions, 4 deletions

diff --git a/tools/tools/genericize/genericize.pl b/tools/tools/genericize/genericize.pl
index 3cef7b1..9a14543 100755
--- a/tools/tools/genericize/genericize.pl
+++ b/tools/tools/genericize/genericize.pl
@@ -30,8 +30,12 @@
 #
 
 use strict;
+use Getopt::Std;
 
 MAIN:{
+    my %opts;
+    getopts('c', \%opts);
+
     my %config;
     my $machine;
     my $ident;
@@ -62,6 +66,14 @@ MAIN:{
     while (<GENERIC>) {
 	my $line = $_;
 	chomp();
+	if ($opts{'c'} && m/^\#/) {
+	    if ($blank) {
+		print "\n";
+		$blank = 0;
+	    }
+	    print $line;
+	    next;
+	}
 	++$blank unless $_;
 	s/\s*(\#.*)?$//;
 	next unless $_;
@@ -69,10 +81,6 @@ MAIN:{
 	if ($keyword eq 'machine') {
 	    die("$generic is for $value, not $machine\n")
 		unless ($value eq $machine);
-	    if ($blank) {
-		print "\n";
-		$blank = 0;
-	    }
 	} elsif ($keyword eq 'ident') {
 	    $line =~ s/$value/$ident/;
 	} elsif ($config{$keyword}->{$value}) {