summaryrefslogtreecommitdiff
path: root/scripts/makecfg.pl
Side-by-side diff
Diffstat (limited to 'scripts/makecfg.pl') (more/less context) (ignore whitespace changes)
-rwxr-xr-xscripts/makecfg.pl43
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
@@ -10,14 +10,13 @@ open(FILE, "<./packages");
while(<FILE>){$packages.=$_;}
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,;
($filename=$cfg)=~s,(.*/)(.*),$2,;
($tagname=$dirname)=~s,.*/,,;
($caps=$tagname)=~tr/[a-z]/[A-Z]/;
@@ -37,8 +36,13 @@ if(-e "$dirname/config.in.in"){
} else {
$pre = $contents;
}
} 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";
$post = "endmenu\n";
}
@@ -46,12 +50,27 @@ open(CFG, ">$cfg") || die "Unable to open $cfg for writing\n";
select(CFG);
print $pre;
@dupecheck=();
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;
select(STDOUT);
close(CFG);
-}
exit;
use vars qw/*name *dir *prune/;
*name = *File::Find::name;
@@ -59,21 +78,7 @@ use vars qw/*name *dir *prune/;
*prune = *File::Find::prune;
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);
}
}