summaryrefslogtreecommitdiff
authorkergoth <kergoth>2002-11-05 16:33:50 (UTC)
committer kergoth <kergoth>2002-11-05 16:33:50 (UTC)
commitd590a056fde3eb4ad37ecd202ea024a9ad110106 (patch) (unidiff)
tree4ab78078234f70d786e172a9408b208582e175a5
parent6561744765fdc099767c285e95ab9eb09d6087cb (diff)
downloadopie-d590a056fde3eb4ad37ecd202ea024a9ad110106.zip
opie-d590a056fde3eb4ad37ecd202ea024a9ad110106.tar.gz
opie-d590a056fde3eb4ad37ecd202ea024a9ad110106.tar.bz2
tweaks
Diffstat (more/less context) (ignore whitespace changes)
-rwxr-xr-xscripts/makecfg.pl12
1 files changed, 8 insertions, 4 deletions
diff --git a/scripts/makecfg.pl b/scripts/makecfg.pl
index 20c23f5..5dd66a4 100755
--- a/scripts/makecfg.pl
+++ b/scripts/makecfg.pl
@@ -1,26 +1,30 @@
1#!/usr/bin/perl -w 1#!/usr/bin/perl -w
2eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' 2eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
3if 0; #$running_under_some_shell 3if 0; #$running_under_some_shell
4 4
5use strict; 5use strict;
6use File::Find; 6use File::Find;
7 7
8my $packages=""; 8my $packages="";
9open(FILE, "<./packages"); 9open(FILE, "<./packages");
10while(<FILE>){$packages.=$_;} 10while(<FILE>){$packages.=$_;}
11close(FILE); 11close(FILE);
12 12
13my ($dirname,$dir,$cfg,$filename,$tagname,$name,$caps,$pre,$post,$sources,@dupecheck); 13my ($dirname,$dir,$file,@files,$filename,$tagname,$name,$caps,$pre,$post,$sources,@dupecheck);
14$cfg = shift || die; 14$file = shift || die;
15push(@files, $file);
16
17foreach(@files){
18my $cfg=$_;
15($dirname=$cfg)=~s,(.*)/(.*),$1,; 19($dirname=$cfg)=~s,(.*)/(.*),$1,;
16($filename=$cfg)=~s,(.*/)(.*),$2,; 20($filename=$cfg)=~s,(.*/)(.*),$2,;
17($tagname=$dirname)=~s,.*/,,; 21($tagname=$dirname)=~s,.*/,,;
18($caps=$tagname)=~tr/[a-z]/[A-Z]/; 22($caps=$tagname)=~tr/[a-z]/[A-Z]/;
19#print "cfg is $cfg\n"; 23#print "cfg is $cfg\n";
20#print "dir is $dirname\n"; 24#print "dir is $dirname\n";
21#print "filename is $filename\n"; 25#print "filename is $filename\n";
22sub wanted; 26sub wanted;
23 27
24if(-e "$dirname/config.in.in"){ 28if(-e "$dirname/config.in.in"){
25 my $contents; 29 my $contents;
26 open(FILE, "<$dirname/config.in.in"); 30 open(FILE, "<$dirname/config.in.in");
@@ -36,25 +40,25 @@ if(-e "$dirname/config.in.in"){
36 $pre = "menu \"$tagname\"\n"; 40 $pre = "menu \"$tagname\"\n";
37 $post = "endmenu\n"; 41 $post = "endmenu\n";
38} 42}
39 43
40open(CFG, ">$cfg") || die "Unable to open $cfg for writing\n"; 44open(CFG, ">$cfg") || die "Unable to open $cfg for writing\n";
41select(CFG); 45select(CFG);
42print $pre; 46print $pre;
43@dupecheck=(); 47@dupecheck=();
44File::Find::find({wanted => \&wanted}, $dirname); 48File::Find::find({wanted => \&wanted}, $dirname);
45print $post; 49print $post;
46select(STDOUT); 50select(STDOUT);
47close(CFG); 51close(CFG);
48 52}
49exit; 53exit;
50 54
51open(FILE,">$dir/config.in"); 55open(FILE,">$dir/config.in");
52select(FILE); 56select(FILE);
53print "menu \"$name\"\n"; 57print "menu \"$name\"\n";
54print "\n"; 58print "\n";
55my @subdirs=(); 59my @subdirs=();
56my @dirs; 60my @dirs;
57foreach(grep(/^$dir/, @dirs)){ 61foreach(grep(/^$dir/, @dirs)){
58 chomp; 62 chomp;
59 /^$dir\/$name.pro$/ && next; 63 /^$dir\/$name.pro$/ && next;
60 my $localdir=$_; 64 my $localdir=$_;
@@ -73,25 +77,25 @@ foreach(grep(/^$dir/, @dirs)){
73 push(@subdirs, $localdir); 77 push(@subdirs, $localdir);
74 print "endmenu\n"; 78 print "endmenu\n";
75 select(STDOUT); 79 select(STDOUT);
76 close(FILE); 80 close(FILE);
77} 81}
78 82
79use vars qw/*name *dir *prune/; 83use vars qw/*name *dir *prune/;
80*name = *File::Find::name; 84*name = *File::Find::name;
81*dir = *File::Find::dir; 85*dir = *File::Find::dir;
82*prune = *File::Find::prune; 86*prune = *File::Find::prune;
83 87
84sub wanted { 88sub wanted {
85 if( /config.in/s ) { 89 if( /config.in$/s ) {
86 if(grep(/^$File::Find::dir\/config.in$/, @dupecheck)){ 90 if(grep(/^$File::Find::dir\/config.in$/, @dupecheck)){
87 return; 91 return;
88 } 92 }
89 my $nslashes = $File::Find::dir =~ tr!/!!; 93 my $nslashes = $File::Find::dir =~ tr!/!!;
90 my $dirnslashes = $dirname =~ tr!/!!; 94 my $dirnslashes = $dirname =~ tr!/!!;
91 $dirnslashes++; 95 $dirnslashes++;
92 # print STDERR "dirnslashes is $dirnslashes\n"; 96 # print STDERR "dirnslashes is $dirnslashes\n";
93 # print STDERR "nslashes is $nslashes\n"; 97 # print STDERR "nslashes is $nslashes\n";
94 if($dirnslashes != $nslashes){return;} 98 if($dirnslashes != $nslashes){return;}
95 print " source " . $File::Find::dir . "/config.in\n"; 99 print " source " . $File::Find::dir . "/config.in\n";
96 push(@dupecheck, $File::Find::dir . "/config.in"); 100 push(@dupecheck, $File::Find::dir . "/config.in");
97 } 101 }