-rw-r--r-- | Rules.make | 2 | ||||
-rwxr-xr-x | scripts/makecfg.pl | 37 |
2 files changed, 8 insertions, 31 deletions
@@ -41,50 +41,50 @@ $(TOPDIR)/stamp-headers : | |||
41 | $(patsubst %,ln -sf ../src/kernel/%;,qgfx_qws.h qwsmouse_qws.h \ | 41 | $(patsubst %,ln -sf ../src/kernel/%;,qgfx_qws.h qwsmouse_qws.h \ |
42 | qcopchannel_qws.h qwindowsystem_qws.h \ | 42 | qcopchannel_qws.h qwindowsystem_qws.h \ |
43 | qfontmanager_qws.h qwsdefaultdecoration_qws.h)) | 43 | qfontmanager_qws.h qwsdefaultdecoration_qws.h)) |
44 | touch $@ | 44 | touch $@ |
45 | 45 | ||
46 | $(TOPDIR)/stamp-headers-x11 : | 46 | $(TOPDIR)/stamp-headers-x11 : |
47 | @-rm -f $(TOPDIR)/stamp-headers* | 47 | @-rm -f $(TOPDIR)/stamp-headers* |
48 | mkdir -p $(TOPDIR)/include/qpe $(TOPDIR)/include/qtopia \ | 48 | mkdir -p $(TOPDIR)/include/qpe $(TOPDIR)/include/qtopia \ |
49 | $(TOPDIR)/include/opie $(TOPDIR)/include/qtopia/private | 49 | $(TOPDIR)/include/opie $(TOPDIR)/include/qtopia/private |
50 | ( cd include/qpe && rm -f *.h; ln -sf ../../library/*.h .; ln -sf ../../library/backend/*.h .; rm -f *_p.h; ) | 50 | ( cd include/qpe && rm -f *.h; ln -sf ../../library/*.h .; ln -sf ../../library/backend/*.h .; rm -f *_p.h; ) |
51 | ( cd include/qtopia && rm -f *.h; ln -sf ../../library/*.h .; ) | 51 | ( cd include/qtopia && rm -f *.h; ln -sf ../../library/*.h .; ) |
52 | ( cd include/qtopia/private && rm -f *.h; ln -sf ../../../library/backend/*.h .; ) | 52 | ( cd include/qtopia/private && rm -f *.h; ln -sf ../../../library/backend/*.h .; ) |
53 | ( cd include/opie && rm -f *.h; ln -sf ../../libopie/*.h .; rm -f *_p.h; ) | 53 | ( cd include/opie && rm -f *.h; ln -sf ../../libopie/*.h .; rm -f *_p.h; ) |
54 | ( cd include/opie && ln -sf ../../libsql/*.h .; ) | 54 | ( cd include/opie && ln -sf ../../libsql/*.h .; ) |
55 | ( cd include/opie && ln -sf ../../libopie/pim/*.h .; ) | 55 | ( cd include/opie && ln -sf ../../libopie/pim/*.h .; ) |
56 | ( cd include/opie; for generatedHeader in `cd ../../libopie; ls *.ui | sed -e "s,\.ui,\.h,g"`; do \ | 56 | ( cd include/opie; for generatedHeader in `cd ../../libopie; ls *.ui | sed -e "s,\.ui,\.h,g"`; do \ |
57 | ln -sf ../../libopie/$$generatedHeader $$generatedHeader; done ) | 57 | ln -sf ../../libopie/$$generatedHeader $$generatedHeader; done ) |
58 | ln -sf ../../library/custom.h $(TOPDIR)/include/qpe/custom.h | 58 | ln -sf ../../library/custom.h $(TOPDIR)/include/qpe/custom.h |
59 | ( cd include/qpe; ln -sf ../../x11/libqpe-x11/qpe/*.h .; ) | 59 | ( cd include/qpe; ln -sf ../../x11/libqpe-x11/qpe/*.h .; ) |
60 | cd $(QTDIR)/include; $(patsubst %,ln -sf $(OPIEDIR)/x11/libqpe-x11/qt/%;,qgfx_qws.h qwsmouse_qws.h qcopchannel_qws.h qwindowsystem_qws.h qfontmanager_qws.h qwsdefaultdecoration_qws.h) | 60 | cd $(QTDIR)/include; $(patsubst %,ln -sf $(OPIEDIR)/x11/libqpe-x11/qt/%;,qgfx_qws.h qwsmouse_qws.h qcopchannel_qws.h qwindowsystem_qws.h qfontmanager_qws.h qwsdefaultdecoration_qws.h) |
61 | touch $@ | 61 | touch $@ |
62 | 62 | ||
63 | $(TOPDIR)/library/custom.h : $(TOPDIR)/.config | 63 | $(TOPDIR)/library/custom.h : $(TOPDIR)/.config |
64 | @-rm -f $@ | 64 | @-rm -f $@ |
65 | @$(if $(patsubst "%",%,$(CONFIG_CUSTOMFILE)),\ | 65 | @$(if $(patsubst "%",%,$(CONFIG_CUSTOMFILE)),\ |
66 | ln -sf $(patsubst "%",%,$(CONFIG_CUSTOMFILE)) $@) | 66 | ln -sf $(patsubst "%",%,$(CONFIG_CUSTOMFILE)) $@) |
67 | @touch $@ | 67 | @touch $@ |
68 | 68 | ||
69 | $(TOPDIR)/scripts/lxdialog/lxdialog $(TOPDIR)/scripts/kconfig/conf scripts/kconfig/conf $(TOPDIR)/scripts/kconfig/mconf scripts/kconfig/mconf $(TOPDIR)/scripts/kconfig/qconf scripts/kconfig/qconf $(TOPDIR)/qmake/qmake : | 69 | $(TOPDIR)/scripts/lxdialog/lxdialog $(TOPDIR)/scripts/kconfig/conf scripts/kconfig/conf $(TOPDIR)/scripts/kconfig/mconf scripts/kconfig/mconf $(TOPDIR)/scripts/kconfig/qconf scripts/kconfig/qconf $(TOPDIR)/qmake/qmake : |
70 | $(call descend,$(shell dirname $@),$(shell basename $@)) | 70 | $(call descend,$(shell dirname $@),$(shell basename $@)) |
71 | 71 | ||
72 | $(TOPDIR)/qmake/qmake : $(TOPDIR)/mkspecs/default | 72 | $(TOPDIR)/qmake/qmake : $(TOPDIR)/mkspecs/default |
73 | 73 | ||
74 | $(TOPDIR)/mkspecs/default : | 74 | $(TOPDIR)/mkspecs/default : |
75 | ln -sf linux-g++ $@ | 75 | ln -sf linux-g++ $@ |
76 | 76 | ||
77 | ## general rules ## | 77 | ## general rules ## |
78 | 78 | ||
79 | define descend | 79 | define descend |
80 | $(MAKE) $(if $(QMAKE),QMAKE=$(QMAKE)) -C $(1) $(2) | 80 | $(MAKE) $(if $(QMAKE),QMAKE=$(QMAKE)) -C $(1) $(2) |
81 | endef | 81 | endef |
82 | 82 | ||
83 | define makefilegen | 83 | define makefilegen |
84 | cd $(if $(1),$(shell dirname $(1))); $(TOPDIR)/qmake/qmake $(3) -o $(if $(1),$(shell basename $(1))) `cat $(OPIEDIR)/packages | grep " \`echo $(1)|sed -e 's,/Makefile$$,,'\`" | \ | 84 | cd $(if $(1),$(shell dirname $(1))); $(TOPDIR)/qmake/qmake $(3) -o $(if $(1),$(shell basename $(1))) `cat $(OPIEDIR)/packages | grep " \`echo $(1)|sed -e 's,/Makefile$$,,'\`" | \ |
85 | head -1 | awk '{print $$3}'` | 85 | head -1 | awk '{print $$3}'` |
86 | endef | 86 | endef |
87 | 87 | ||
88 | define makecfg | 88 | define makecfg |
89 | $(TOPDIR)/scripts/makecfg.pl $1 | 89 | $(TOPDIR)/scripts/makecfg.pl $1 $(OPIEDIR) |
90 | endef | 90 | endef |
diff --git a/scripts/makecfg.pl b/scripts/makecfg.pl index 5dd66a4..d7dc41e 100755 --- a/scripts/makecfg.pl +++ b/scripts/makecfg.pl | |||
@@ -1,102 +1,79 @@ | |||
1 | #!/usr/bin/perl -w | 1 | #!/usr/bin/perl -w |
2 | eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' | 2 | eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' |
3 | if 0; #$running_under_some_shell | 3 | if 0; #$running_under_some_shell |
4 | 4 | ||
5 | use strict; | 5 | use strict; |
6 | use File::Find; | 6 | use File::Find; |
7 | 7 | ||
8 | my $packages=""; | 8 | my $packages=""; |
9 | open(FILE, "<./packages"); | 9 | open(FILE, "<./packages"); |
10 | while(<FILE>){$packages.=$_;} | 10 | while(<FILE>){$packages.=$_;} |
11 | close(FILE); | 11 | close(FILE); |
12 | 12 | ||
13 | my ($dirname,$dir,$file,@files,$filename,$tagname,$name,$caps,$pre,$post,$sources,@dupecheck); | 13 | my ($dirname,$dir,$file,@files,$filename,$tagname,$name,$caps,$pre,$post,$sources,@dupecheck,$basedir); |
14 | $file = shift || die; | 14 | $file = shift || die; |
15 | $basedir = shift; | ||
15 | push(@files, $file); | 16 | push(@files, $file); |
16 | 17 | ||
17 | foreach(@files){ | 18 | foreach(@files){ |
18 | my $cfg=$_; | 19 | my $cfg=$_; |
19 | ($dirname=$cfg)=~s,(.*)/(.*),$1,; | 20 | ($dirname=$cfg)=~s,(.*)/(.*),$1,; |
20 | ($filename=$cfg)=~s,(.*/)(.*),$2,; | 21 | ($filename=$cfg)=~s,(.*/)(.*),$2,; |
21 | ($tagname=$dirname)=~s,.*/,,; | 22 | ($tagname=$dirname)=~s,.*/,,; |
22 | ($caps=$tagname)=~tr/[a-z]/[A-Z]/; | 23 | ($caps=$tagname)=~tr/[a-z]/[A-Z]/; |
23 | #print "cfg is $cfg\n"; | 24 | #print "cfg is $cfg\n"; |
24 | #print "dir is $dirname\n"; | 25 | #print "dir is $dirname\n"; |
25 | #print "filename is $filename\n"; | 26 | #print "filename is $filename\n"; |
26 | sub wanted; | 27 | sub wanted; |
27 | 28 | ||
28 | if(-e "$dirname/config.in.in"){ | 29 | if(-e "$dirname/config.in.in"){ |
29 | my $contents; | 30 | my $contents; |
30 | open(FILE, "<$dirname/config.in.in"); | 31 | open(FILE, "<$dirname/config.in.in"); |
31 | while(<FILE>){ $contents.=$_; } | 32 | while(<FILE>){ $contents.=$_; } |
32 | close(FILE); | 33 | close(FILE); |
33 | if($contents=~/\@sources\@/){ | 34 | if($contents=~/\@sources\@/){ |
34 | ($post = $contents) =~ s/^.*\@sources\@//s; | 35 | ($post = $contents) =~ s/^.*\@sources\@//s; |
35 | ($pre = $contents) =~ s/\@sources\@.*$//s; | 36 | ($pre = $contents) =~ s/\@sources\@.*$//s; |
36 | } else { | 37 | } else { |
37 | $pre = $contents; | 38 | $pre = $contents; |
38 | } | 39 | } |
39 | } else { | 40 | } else { |
40 | $pre = "menu \"$tagname\"\n"; | 41 | $pre = "menu \"$tagname\"\n"; |
41 | $post = "endmenu\n"; | 42 | $post = "endmenu\n"; |
42 | } | 43 | } |
43 | 44 | ||
44 | open(CFG, ">$cfg") || die "Unable to open $cfg for writing\n"; | 45 | open(CFG, ">$cfg") || die "Unable to open $cfg for writing\n"; |
45 | select(CFG); | 46 | select(CFG); |
46 | print $pre; | 47 | print $pre; |
47 | @dupecheck=(); | 48 | @dupecheck=(); |
48 | File::Find::find({wanted => \&wanted}, $dirname); | 49 | File::Find::find({wanted => \&wanted}, $dirname); |
49 | print $post; | 50 | print $post; |
50 | select(STDOUT); | 51 | select(STDOUT); |
51 | close(CFG); | 52 | close(CFG); |
52 | } | 53 | } |
53 | exit; | 54 | exit; |
54 | 55 | ||
55 | open(FILE,">$dir/config.in"); | ||
56 | select(FILE); | ||
57 | print "menu \"$name\"\n"; | ||
58 | print "\n"; | ||
59 | my @subdirs=(); | ||
60 | my @dirs; | ||
61 | foreach(grep(/^$dir/, @dirs)){ | ||
62 | chomp; | ||
63 | /^$dir\/$name.pro$/ && next; | ||
64 | my $localdir=$_; | ||
65 | if($dir=~m,^$localdir$,){ | ||
66 | next; | ||
67 | } | ||
68 | #($locadir=$_)~s,/[^/]+$,,g; | ||
69 | if($localdir=~/^\.$/){next;} | ||
70 | if(grep(/^$localdir$/, @subdirs)){next;} | ||
71 | my $nslashes = $localdir =~ tr!/!!; | ||
72 | my $dirnslashes = $dir =~ tr!/!!; | ||
73 | $dirnslashes++; | ||
74 | if($dirnslashes != $nslashes ){next;} | ||
75 | print STDERR "$localdir/config.in\n"; | ||
76 | print " source $localdir/config.in\n"; | ||
77 | push(@subdirs, $localdir); | ||
78 | print "endmenu\n"; | ||
79 | select(STDOUT); | ||
80 | close(FILE); | ||
81 | } | ||
82 | |||
83 | use vars qw/*name *dir *prune/; | 56 | use vars qw/*name *dir *prune/; |
84 | *name = *File::Find::name; | 57 | *name = *File::Find::name; |
85 | *dir = *File::Find::dir; | 58 | *dir = *File::Find::dir; |
86 | *prune = *File::Find::prune; | 59 | *prune = *File::Find::prune; |
87 | 60 | ||
88 | sub wanted { | 61 | sub wanted { |
89 | if( /config.in$/s ) { | 62 | if( /config.in$/s ) { |
90 | if(grep(/^$File::Find::dir\/config.in$/, @dupecheck)){ | 63 | if(grep(/^$File::Find::dir\/config.in$/, @dupecheck)){ |
91 | return; | 64 | return; |
92 | } | 65 | } |
93 | my $nslashes = $File::Find::dir =~ tr!/!!; | 66 | my $nslashes = $File::Find::dir =~ tr!/!!; |
94 | my $dirnslashes = $dirname =~ tr!/!!; | 67 | my $dirnslashes = $dirname =~ tr!/!!; |
95 | $dirnslashes++; | 68 | $dirnslashes++; |
96 | # print STDERR "dirnslashes is $dirnslashes\n"; | 69 | # print STDERR "dirnslashes is $dirnslashes\n"; |
97 | # print STDERR "nslashes is $nslashes\n"; | 70 | # print STDERR "nslashes is $nslashes\n"; |
98 | if($dirnslashes != $nslashes){return;} | 71 | if($dirnslashes != $nslashes){return;} |
99 | print " source " . $File::Find::dir . "/config.in\n"; | 72 | my $reldir; |
73 | if (defined($basedir)) { | ||
74 | ($reldir=$File::Find::dir)=~s,^$basedir/,,; | ||
75 | } | ||
76 | print " source " . $reldir . "/config.in\n"; | ||
100 | push(@dupecheck, $File::Find::dir . "/config.in"); | 77 | push(@dupecheck, $File::Find::dir . "/config.in"); |
101 | } | 78 | } |
102 | } | 79 | } |