X-Git-Url: https://git.netwichtig.de/gitweb/?a=blobdiff_plain;f=make%2Fcalcdep.pl;h=5ef736f4668e908445a56595524813608ab5d8ff;hb=e94b673532f7833aaa4789f834e61d68e0b4fc56;hp=a4bb7f4d6e44c7738eb6fff80158cca51def9227;hpb=4d1e32528fcf9a44011184a99cff7493e363b400;p=user%2Fhenk%2Fcode%2Finspircd.git diff --git a/make/calcdep.pl b/make/calcdep.pl index a4bb7f4d6..5ef736f46 100755 --- a/make/calcdep.pl +++ b/make/calcdep.pl @@ -1,12 +1,147 @@ -#!/usr/bin/perl +#!/usr/bin/env perl +# +# InspIRCd -- Internet Relay Chat Daemon +# +# Copyright (C) 2014-2015 Attila Molnar +# Copyright (C) 2013, 2015-2019, 2021 Sadie Powell +# Copyright (C) 2012 Robby +# 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 Getopt::Long; +use warnings FATAL => qw(all); + +use File::Basename qw(basename dirname); +use FindBin qw($RealDir); + +use lib dirname $RealDir; +use make::common; + +use constant { + BUILDPATH => $ENV{BUILDPATH}, + SOURCEPATH => $ENV{SOURCEPATH} +}; + +sub find_output; +sub gendep($); +sub dep_cpp($$$); +sub dep_so($); +sub dep_dir($$); +sub run(); my %f2dep; -sub gendep; -sub gendep { +run; +exit 0; + +sub run() { + create_directory(BUILDPATH, 0770) or die "Could not create build directory: $!"; + chdir BUILDPATH or die "Could not open build directory: $!"; + unlink 'include'; + symlink "${\SOURCEPATH}/include", 'include'; + mkdir $_ for qw/bin modules obj/; + + open MAKE, '>real.mk' or die "Could not write real.mk: $!"; + chdir "${\SOURCEPATH}/src"; + + run_dynamic(); + close MAKE; +} + +sub run_dynamic() { + print MAKE <, , "threadengines/threadengine_pthread.cpp") { + my $out = find_output $file; + dep_cpp $file, $out, 'gen-o'; + next if $file =~ m#^socketengines/# && $file ne "socketengines/socketengine_$ENV{SOCKETENGINE}.cpp"; + # Having a module in the src directory is a bad idea because it will be linked to the core binary + if ($file =~ /^(m|core)_.*\.cpp/) { + my $correctsubdir = ($file =~ /^m_/ ? "modules" : "coremods"); + print "Error: module $file is in the src directory, put it in src/$correctsubdir instead!\n"; + exit 1; + } + push @core_deps, $out; + } + + for my $directory (qw(coremods modules)) { + opendir(my $moddir, $directory); + for my $file (sort readdir $moddir) { + next if $file =~ /^\./; + if ($directory eq 'modules' && -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 =~ /^(?:core|m)_/ && -d "$directory/$file" && dep_dir "$directory/$file", "modules/$file") { + mkdir "${\BUILDPATH}/obj/$file"; + push @modlist, "modules/$file.so"; + } + if ($file =~ /^.*\.cpp$/) { + my $out = dep_so "$directory/$file"; + push @modlist, $out; + } + } + } + + my $core_mk = join ' ', @core_deps; + my $mods = join ' ', @modlist; + print MAKE < + +inspircd: bin/inspircd + +modules: $mods + +.PHONY: all bad-target inspircd modules + +END +} + +sub find_output { + my $file = shift; + my($path,$base) = $file =~ m#^((?:.*/)?)([^/]+)\.cpp# or die "Bad file $file"; + if ($path eq 'modules/' || $path eq 'coremods/') { + return "modules/$base.so"; + } elsif ($path eq '' || $path eq 'modes/' || $path =~ /^[a-z]+engines\/$/) { + return "obj/$base.o"; + } elsif ($path =~ m#modules/(m_.*)/# || $path =~ m#coremods/(core_.*)/#) { + 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}; @@ -21,13 +156,14 @@ sub gendep { while (<$in>) { if (/^\s*#\s*include\s*"([^"]+)"/) { my $inc = $1; - next if $inc eq 'inspircd_version.h' && $f eq '../include/inspircd.h'; + next if $inc eq 'config.h' && $f eq '../include/inspircd.h'; my $found = 0; for my $loc ("$basedir/$inc", "../include/$inc") { next unless -e $loc; $found++; - $dep{$loc}++; $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"; @@ -41,74 +177,47 @@ sub gendep { $f2dep{$f}; } -sub dep_cpp { - my $file = shift; +sub dep_cpp($$$) { + my($file, $out, $type) = @_; gendep $file; - my($path,$base) = $file =~ m#^((?:.*/)?)([^/]+)\.cpp# or die "Bad file $file"; - 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 $file\n"; -} -sub dep_dir { - my $dir = shift; - if ($dir =~ m#^(.*?)([^/]+)/?$#) { - my($path,$base) = ($1,$2); - my $cmd = "$path.$base.d"; - my $out = "$path$base.so"; - opendir DIR, $dir; - 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: $dir\n\t".'@../make/calcdep.pl -file '."$path$base\n"; - } else { - print STDERR "Cannot generate depencency for $dir\n"; - exit 1; - } + print MAKE "$out: $file $f2dep{$file}\n"; + print MAKE "\t@\$(SOURCEPATH)/make/unit-cc.pl $type \$\@ \$(SOURCEPATH)/src/$file \$>\n"; } -my($all,$quiet, $file); -GetOptions( - 'all' => \$all, - 'quiet' => \$quiet, - 'file=s' => \$file, -); +sub dep_so($) { + my($file) = @_; + my $out = find_output $file; + + my $name = basename $out, '.so'; + print MAKE ".PHONY: $name\n"; + print MAKE "$name: $out\n"; -if (!$all && !defined $file) { - print "Use: $0 {-all|-file filename} [-quiet]\n"; - exit 1; + dep_cpp $file, $out, 'gen-so'; + return $out; } -if (defined $file) { - if (-f $file) { - dep_cpp $file; - } elsif (-d $file) { - dep_dir $file; - } else { - print STDERR "Can't generate dependencies for $file\n"; - exit 1; - } -} else { - my @files = (<*.cpp>, , , , ); - push @files, "socketengines/$ENV{SOCKETENGINE}.cpp", "threadengines/threadengine_pthread.cpp"; - for my $file (@files) { - dep_cpp $file; +sub dep_dir($$) { + my($dir, $outdir) = @_; + 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, 'gen-o'; + push @ofiles, $ofile; } - - my @dirs = grep -d, ; - for my $dir (@dirs) { - dep_dir $dir; + closedir DIR; + if (@ofiles) { + my $ofiles = join ' ', @ofiles; + my $name = basename $outdir; + print MAKE ".PHONY: $name\n"; + print MAKE "$name: $outdir.so\n"; + print MAKE "$outdir.so: $ofiles\n"; + print MAKE "\t@\$(SOURCEPATH)/make/unit-cc.pl link-dir \$\@ ${\SOURCEPATH}/src/$dir \$^ \$>\n"; + return 1; + } else { + return 0; } - - s#([^/]+)\.cpp#.$1.d# for @files; - s#([^/]+)/?$#.$1.d# for @dirs; - print join ' ', @files, @dirs; } +