X-Git-Url: https://git.netwichtig.de/gitweb/?a=blobdiff_plain;f=make%2Fcalcdep.pl;h=1a1963b3102c9ac5ff5c79c9179d47400d690238;hb=988784816b1a21b20da99a20c8ca02de793000fd;hp=06610c41626ec473026235d7c5878d8aa563b784;hpb=5c93325b53342095f7f7ba0339e4f3ea52229dfe;p=user%2Fhenk%2Fcode%2Finspircd.git diff --git a/make/calcdep.pl b/make/calcdep.pl index 06610c416..1a1963b31 100755 --- a/make/calcdep.pl +++ b/make/calcdep.pl @@ -1,28 +1,189 @@ #!/usr/bin/perl use strict; use warnings; +use POSIX qw(getcwd); -# This used to be a wrapper around cc -M; however, this is a very slow -# operation and we don't conditionally include our own files often enough -# to justify the full preprocesor invocation for all ~200 files. +sub find_output; +sub gendep($); +sub dep_cpp($$); +sub dep_dir($); +sub run(); my %f2dep; -sub gendep; -sub gendep { +run; +exit 0; + +sub run() { + my $build = $ENV{BUILDPATH}; + mkdir $build; + chdir $build or die "Could not open build directory: $!"; + symlink "$ENV{SOURCEPATH}/include", 'include'; + mkdir $_ for qw/bin modules obj/; +# BSD make has a horribly annoying bug resulting in an extra chdir of the make process +# Create symlinks to work around it + symlink "../$_", "obj/$_" for qw/bin modules obj/; + + $build = getcwd(); + open MAKE, '>real.mk' or die "Could not write real.mk: $!"; + chdir "$ENV{SOURCEPATH}/src"; + + if ($ENV{PURE_STATIC}) { + run_static(); + } else { + run_dynamic(); + } + close MAKE; +} + +sub run_dynamic() { + my $build = $ENV{BUILDPATH}; + print MAKE <, , , "threadengines/threadengine_pthread.cpp") { + my $out = find_output $file; + dep_cpp $file, $out; + next if $file =~ m#^socketengines/# && $file ne "socketengines/$ENV{SOCKETENGINE}.cpp"; + push @core_deps, $out; + } + + for my $file () { + my $out = find_output $file; + dep_cpp $file, $out; + push @cmdlist, $out; + } + + opendir my $moddir, 'modules'; + for my $file (sort readdir $moddir) { + next if $file =~ /^\./; + if (-e "modules/extra/$file" && !-l "modules/$file") { + # Incorrect symlink? + print "Replacing symlink for $file found in modules/extra\n"; + rename "modules/$file", "modules/$file~"; + symlink "extra/$file", "modules/$file"; + } + if ($file =~ /^m_/ && -d "modules/$file" && dep_dir "modules/$file") { + mkdir "$build/obj/$file"; + push @modlist, "modules/$file.so"; + } + if ($file =~ /^m_.*\.cpp$/) { + my $out = find_output "modules/$file"; + dep_cpp "modules/$file", $out; + push @modlist, $out; + } + } + + my $core_mk = join ' ', @core_deps; + my $cmds = join ' ', @cmdlist; + my $mods = join ' ', @modlist; + print MAKE < + +inspircd: bin/inspircd + +commands: $cmds + +modules: $mods + +.PHONY: all bad-target inspircd commands modules + +END +} + +sub run_static() { + print MAKE <, , , , + , , "threadengines/threadengine_pthread.cpp") { + my $out = find_output $file, 1; + dep_cpp $file, $out; + next if $file =~ m#^socketengines/# && $file ne "socketengines/$ENV{SOCKETENGINE}.cpp"; + push @deps, $out; + } + + my $core_mk = join ' ', @deps; + print MAKE < + +inspircd: bin/inspircd + +.PHONY: all bad-target inspircd + +END +} + +sub find_output { + my($file, $static) = @_; + my($path,$base) = $file =~ m#^((?:.*/)?)([^/]+)\.cpp# or die "Bad file $file"; + if ($path eq 'modules/' || $path eq 'commands/') { + return $static ? "obj/$base.o" : "modules/$base.so"; + } elsif ($path eq '' || $path eq 'modes/' || $path =~ /^[a-z]+engines\/$/) { + return "obj/$base.o"; + } elsif ($path =~ m#modules/(m_.*)/#) { + return "obj/$1/$base.o"; + } else { + die "Can't determine output for $file"; + } +} + +sub gendep($) { my $f = shift; my $basedir = $f =~ m#(.*)/# ? $1 : '.'; return $f2dep{$f} if exists $f2dep{$f}; $f2dep{$f} = ''; my %dep; - open my $in, '<', $f; + my $link = readlink $f; + if (defined $link) { + $link = "$basedir/$link" unless $link =~ m#^/#; + $dep{$link}++; + } + open my $in, '<', $f or die "Could not read $f"; while (<$in>) { if (/^\s*#\s*include\s*"([^"]+)"/) { my $inc = $1; + next if $inc eq 'inspircd_version.h' && $f eq '../include/inspircd.h'; + my $found = 0; for my $loc ("$basedir/$inc", "../include/$inc") { next unless -e $loc; - $dep{$loc}++; + $found++; $dep{$_}++ for split / /, gendep $loc; + $loc =~ s#^\.\./##; + $dep{$loc}++; + } + if ($found == 0 && $inc ne 'inspircd_win32wrapper.h') { + print STDERR "WARNING: could not find header $inc for $f\n"; + } elsif ($found > 1 && $basedir ne '../include') { + print STDERR "WARNING: ambiguous include $inc in $f\n"; } } } @@ -31,32 +192,31 @@ sub gendep { $f2dep{$f}; } -for my $file (@ARGV) { - if (-e $file && $file =~ /cpp$/) { - gendep $file; - my($path,$base) = $file =~ m#^((?:.*/)?)([^/]+)\.cpp#; - my $cmd = "$path.$base.d"; - my $ext = $path eq 'modules/' || $path eq 'commands/' ? '.so' : '.o'; - my $out = "$path$base$ext"; - - open OUT, '>', $cmd; - print OUT "$out: $file $f2dep{$file}\n"; - print OUT "\t@../make/unit-cc.pl \$(VERBOSE) $file $out\n"; - print OUT "$cmd: $file $f2dep{$file}\n"; - print OUT "\t../make/calcdep.pl $file\n"; - } elsif (-d $file && $file =~ m#^(.*?)([^/]+)/?$#) { - my($path,$base) = ($1,$2); - my $cmd = "$path.$base.d"; - my $out = "$path$base.so"; - opendir DIR, $file; - my $ofiles = join ' ', grep s#(.*)\.cpp$#$path$base/$1.o#, readdir DIR; - closedir DIR; - open OUT, '>', $cmd; - print OUT "$out: $ofiles\n\t".'$(RUNCC) $(PICLDFLAGS) -o $@ ' - .$ofiles."\n"; - print OUT "$cmd: $file\n\t".'@../make/calcdep.pl '."$path$base\n"; +sub dep_cpp($$) { + my($file, $out) = @_; + gendep $file; + + print MAKE "$out: $file $f2dep{$file}\n"; + print MAKE "\t@\$(SOURCEPATH)/make/unit-cc.pl \$(VERBOSE) \$\@ \$< \$>\n"; +} + +sub dep_dir($) { + my($dir) = @_; + my @ofiles; + opendir DIR, $dir; + for my $file (sort readdir DIR) { + next unless $file =~ /(.*)\.cpp$/; + my $ofile = find_output "$dir/$file"; + dep_cpp "$dir/$file", $ofile; + push @ofiles, $ofile; + } + closedir DIR; + if (@ofiles) { + my $ofiles = join ' ', @ofiles; + print MAKE "$dir.so: $ofiles\n\t\$(RUNCC) \$(PICLDFLAGS) -o \$\@ \$^ \$>\n"; + return 1; } else { - print "Cannot generate depencency for $file\n"; - exit 1; + return 0; } } +