From 73927fe1c095507ce7fdd310917521fcd305b7e5 Mon Sep 17 00:00:00 2001 From: kergoth Date: Thu, 16 Jan 2003 04:01:29 +0000 Subject: Use paths relative to OPIEDIR in generated configs. --- diff --git a/Rules.make b/Rules.make index f85779c..817c2bc 100644 --- a/Rules.make +++ b/Rules.make @@ -86,5 +86,5 @@ define makefilegen endef define makecfg - $(TOPDIR)/scripts/makecfg.pl $1 + $(TOPDIR)/scripts/makecfg.pl $1 $(OPIEDIR) endef diff --git a/scripts/makecfg.pl b/scripts/makecfg.pl index 5dd66a4..d7dc41e 100755 --- a/scripts/makecfg.pl +++ b/scripts/makecfg.pl @@ -10,8 +10,9 @@ open(FILE, "<./packages"); while(){$packages.=$_;} close(FILE); -my ($dirname,$dir,$file,@files,$filename,$tagname,$name,$caps,$pre,$post,$sources,@dupecheck); +my ($dirname,$dir,$file,@files,$filename,$tagname,$name,$caps,$pre,$post,$sources,@dupecheck,$basedir); $file = shift || die; +$basedir = shift; push(@files, $file); foreach(@files){ @@ -52,34 +53,6 @@ close(CFG); } exit; -open(FILE,">$dir/config.in"); -select(FILE); -print "menu \"$name\"\n"; -print "\n"; -my @subdirs=(); -my @dirs; -foreach(grep(/^$dir/, @dirs)){ - chomp; - /^$dir\/$name.pro$/ && next; - my $localdir=$_; - if($dir=~m,^$localdir$,){ - next; - } -#($locadir=$_)~s,/[^/]+$,,g; - if($localdir=~/^\.$/){next;} - if(grep(/^$localdir$/, @subdirs)){next;} - my $nslashes = $localdir =~ tr!/!!; - my $dirnslashes = $dir =~ tr!/!!; - $dirnslashes++; - if($dirnslashes != $nslashes ){next;} - print STDERR "$localdir/config.in\n"; - print " source $localdir/config.in\n"; - push(@subdirs, $localdir); - print "endmenu\n"; - select(STDOUT); - close(FILE); -} - use vars qw/*name *dir *prune/; *name = *File::Find::name; *dir = *File::Find::dir; @@ -96,7 +69,11 @@ sub wanted { # print STDERR "dirnslashes is $dirnslashes\n"; # print STDERR "nslashes is $nslashes\n"; if($dirnslashes != $nslashes){return;} - print " source " . $File::Find::dir . "/config.in\n"; + my $reldir; + if (defined($basedir)) { + ($reldir=$File::Find::dir)=~s,^$basedir/,,; + } + print " source " . $reldir . "/config.in\n"; push(@dupecheck, $File::Find::dir . "/config.in"); } } -- cgit v0.9.0.2