General cleanup for generated configs. 1) Sort included config.in's, 2) capitalize first letter of generated menu sections.

1 files changed, 24 insertions, 19 deletions

diff --git a/scripts/makecfg.pl b/scripts/makecfg.pl
index d7dc41e..de9d71a 100755
--- a/scripts/makecfg.pl
+++ b/scripts/makecfg.pl
@@ -13,8 +13,7 @@ close(FILE);
 my ($dirname,$dir,$file,@files,$filename,$tagname,$name,$caps,$pre,$post,$sources,@dupecheck,$basedir);
+my @founddirs;
 $file = shift || die;
 $basedir = shift;
-push(@files, $file);
 
-foreach(@files){
-my $cfg=$_;
+my $cfg=$file;
 ($dirname=$cfg)=~s,(.*)/(.*),$1,;
@@ -40,2 +39,7 @@ if(-e "$dirname/config.in.in"){
 } else {
+        my ($firstletter, $rest);
+        $firstletter = substr($tagname, 0, 1);
+        $rest = substr($tagname, 1);
+        $firstletter =~ tr/a-z/A-Z/;
+        $tagname = $firstletter . $rest;
         $pre = "menu \"$tagname\"\n";
@@ -49,2 +53,18 @@ print $pre;
 File::Find::find({wanted => \&wanted}, $dirname);
+@::founddirs=sort(@::founddirs);
+foreach (@::founddirs) {
+        if(grep(/^$_\/config.in$/, @dupecheck)){
+                next;
+        }
+        my $nslashes = $_ =~ tr!/!!;
+        my $dirnslashes = $dirname =~ tr!/!!;
+        $dirnslashes++;
+        if($dirnslashes != $nslashes){next;}
+        my $reldir;
+        if (defined($basedir)) {
+                ($reldir=$_)=~s,^$basedir/,,;
+        }
+        print "  source " . $reldir . "/config.in\n";
+        push(@dupecheck, $_ . "/config.in");
+}
 print $post;
@@ -52,3 +72,2 @@ select(STDOUT);
 close(CFG);
-}
 exit;
@@ -62,17 +81,3 @@ sub wanted {
         if( /config.in$/s ) {
-                if(grep(/^$File::Find::dir\/config.in$/, @dupecheck)){
-                        return;
-                }
-                my $nslashes = $File::Find::dir =~ tr!/!!;
-                my $dirnslashes = $dirname =~ tr!/!!;
-                $dirnslashes++;
-        #       print STDERR "dirnslashes is $dirnslashes\n";
-        #       print STDERR "nslashes is $nslashes\n";
-                if($dirnslashes != $nslashes){return;}
-                my $reldir;
-                if (defined($basedir)) {
-                        ($reldir=$File::Find::dir)=~s,^$basedir/,,;
-                }
-                print "  source " . $reldir . "/config.in\n";
-                push(@dupecheck, $File::Find::dir . "/config.in");
+                push(@::founddirs,$File::Find::dir);
         }