X-Git-Url: https://git.netwichtig.de/gitweb/?a=blobdiff_plain;f=make%2Fcalcdep.pl;h=4a759a24a163692ca19682cad0abb44ecc7ff11c;hb=68211809ee3111bdc9609fbd46dc3c875fbb5ea6;hp=8cc2632e3ef20129216aa454a61021d33b14e5f8;hpb=5e1d239f3d94bd1afd3ce64c2f47a64305f1e1f0;p=user%2Fhenk%2Fcode%2Finspircd.git diff --git a/make/calcdep.pl b/make/calcdep.pl index 8cc2632e3..4a759a24a 100755 --- a/make/calcdep.pl +++ b/make/calcdep.pl @@ -1,11 +1,32 @@ -#!/usr/bin/perl +#!/usr/bin/env perl + +# +# InspIRCd -- Internet Relay Chat Daemon +# +# Copyright (C) 2009-2010 Daniel De Graaf +# +# This file is part of InspIRCd. InspIRCd is free software: you can +# redistribute it and/or modify it under the terms of the GNU General Public +# License as published by the Free Software Foundation, version 2. +# +# This program is distributed in the hope that it will be useful, but WITHOUT +# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS +# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more +# details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . +# + + use strict; use warnings; use POSIX qw(getcwd); -sub find_output($); +sub find_output; sub gendep($); -sub dep_cpp($$); +sub dep_cpp($$$); +sub dep_so($); sub dep_dir($); sub run(); @@ -18,6 +39,7 @@ sub run() { my $build = $ENV{BUILDPATH}; mkdir $build; chdir $build or die "Could not open build directory: $!"; + unlink 'include'; 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 @@ -28,30 +50,45 @@ sub run() { 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 <, , "socketengines/$ENV{SOCKETENGINE}.cpp", "threadengines/threadengine_pthread.cpp") { + my(@core_deps, @cmdlist, @modlist); + for my $file (<*.cpp>, , , "threadengines/threadengine_pthread.cpp") { my $out = find_output $file; - dep_cpp $file, $out; + dep_cpp $file, $out, 'gen-o'; + next if $file =~ m#^socketengines/# && $file ne "socketengines/$ENV{SOCKETENGINE}.cpp"; push @core_deps, $out; } - - my @modlist; + for my $file () { - my $out = find_output $file; - dep_cpp $file, $out; - push @modlist, $out; + my $out = dep_so $file; + push @cmdlist, $out; } opendir my $moddir, 'modules'; - for my $file (readdir $moddir) { + for my $file (sort readdir $moddir) { next if $file =~ /^\./; if (-e "modules/extra/$file" && !-l "modules/$file") { # Incorrect symlink? @@ -64,32 +101,80 @@ END push @modlist, "modules/$file.so"; } if ($file =~ /^m_.*\.cpp$/) { - my $out = find_output "modules/$file"; - dep_cpp "modules/$file", $out; + my $out = dep_so "modules/$file"; push @modlist, $out; } } my $core_mk = join ' ', @core_deps; + my $cmds = join ' ', @cmdlist; my $mods = join ' ', @modlist; print MAKE < + @\$(SOURCEPATH)/make/unit-cc.pl core-ld\$(VERBOSE) \$\@ \$^ \$> inspircd: bin/inspircd + +commands: $cmds + modules: $mods -.PHONY: inspircd modules +.PHONY: all bad-target inspircd commands modules + +END +} + +sub run_static() { + print MAKE <, , , , + , , "threadengines/threadengine_pthread.cpp") { + my $out = find_output $file, 1; + if ($out =~ m#obj/([^/]+)/[^/]+.o$#) { + mkdir "$ENV{BUILDPATH}/obj/$1"; + } + dep_cpp $file, $out, 'gen-o'; + next if $file =~ m#^socketengines/# && $file ne "socketengines/$ENV{SOCKETENGINE}.cpp"; + push @deps, $out; + push @srcs, $file; + } + + my $core_mk = join ' ', @deps; + my $core_src = join ' ', @srcs; + print MAKE < + +bin/inspircd: obj/ld-extra.cmd $core_mk + \@\$(SOURCEPATH)/make/unit-cc.pl static-ld\$(VERBOSE) \$\@ \$^ \$> + +inspircd: bin/inspircd + +.PHONY: all bad-target inspircd END } -sub find_output($) { - my $file = shift; +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 "modules/$base.so"; + 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_.*)/#) { @@ -135,28 +220,44 @@ sub gendep($) { $f2dep{$f}; } -sub dep_cpp($$) { - my($file, $out) = @_; +sub dep_cpp($$$) { + my($file, $out, $type) = @_; gendep $file; print MAKE "$out: $file $f2dep{$file}\n"; - print MAKE "\t@\$(SOURCEPATH)/make/unit-cc.pl \$(VERBOSE) \$\@ \$< \$>\n"; + print MAKE "\t@\$(SOURCEPATH)/make/unit-cc.pl $type\$(VERBOSE) \$\@ \$(SOURCEPATH)/src/$file \$>\n"; +} + +sub dep_so($) { + my($file) = @_; + my $out = find_output $file; + my $split = find_output $file, 1; + + if ($ENV{SPLIT_CC}) { + dep_cpp $file, $split, 'gen-o'; + print MAKE "$out: $split\n"; + print MAKE "\t@\$(SOURCEPATH)/make/unit-cc.pl link-so\$(VERBOSE) \$\@ \$(SOURCEPATH)/src/$file \$>\n"; + } else { + dep_cpp $file, $out, 'gen-so'; + } + return $out; } sub dep_dir($) { my($dir) = @_; my @ofiles; opendir DIR, $dir; - for my $file (readdir DIR) { + for my $file (sort readdir DIR) { next unless $file =~ /(.*)\.cpp$/; my $ofile = find_output "$dir/$file"; - dep_cpp "$dir/$file", $ofile; + dep_cpp "$dir/$file", $ofile, 'gen-o'; push @ofiles, $ofile; } closedir DIR; if (@ofiles) { my $ofiles = join ' ', @ofiles; - print MAKE "$dir.so: $ofiles\n\t\$(RUNCC) \$(PICLDFLAGS) -o \$\@ \$^ \$>\n"; + print MAKE "$dir.so: $ofiles\n"; + print MAKE "\t@\$(SOURCEPATH)/make/unit-cc.pl link-dir\$(VERBOSE) \$\@ \$^ \$>\n"; return 1; } else { return 0;