Merge pull request #1106 from SaberUK/master+purge-pkg-path

[user/henk/code/inspircd.git] / make / unit-cc.pl

diff --git a/make/unit-cc.pl b/make/unit-cc.pl
index 489b46ff93eada94a75d5d28159dc62db0a52444..aba14a0bc461b5dd338d59ae91cf31e98abee6c0 100755 (executable)
--- a/make/unit-cc.pl
+++ b/make/unit-cc.pl
@@ -1,58 +1,86 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
+
+#
+# InspIRCd -- Internet Relay Chat Daemon
+#
+#   Copyright (C) 2009-2010 Daniel De Graaf <danieldg@inspircd.org>
+#
+# 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 <http://www.gnu.org/licenses/>.
+#
+
+
+BEGIN {
+       push @INC, $ENV{SOURCEPATH};
+       require 5.10.0;
+}
+
 use strict;
-use warnings;
-BEGIN { push @INC, $ENV{SOURCEPATH}; }
+use warnings FATAL => qw(all);
+
+use File::Spec::Functions qw(abs2rel);
+
 use make::configure;
+use make::console;
 
 chdir $ENV{BUILDPATH};
 
+my $type = shift;
 my $out = shift;
-my $verbose;
-
-if ($out =~ /^-/) {
-       $_ = $out;
-       $out = shift;
-       $verbose = /v/;
-       if (/f/) {
-               do_static_find(@ARGV);
-               exit;
-       }
-       if (/l/) {
-               do_static_link(@ARGV);
-               exit;
-       }
-}
+my $verbose = ($type =~ s/-v$//);
 
-my $file = shift;
+our %config = read_configure_cache();
 
-my $cflags = $ENV{CXXFLAGS};
-$cflags =~ s/ -pedantic// if nopedantic($file);
-$cflags .= ' ' . getcompilerflags($file);
-
-my $flags;
-if ($out =~ /\.so$/) {
-       $flags = join ' ', $cflags, $ENV{PICLDFLAGS}, getlinkerflags($file);
+if ($type eq 'gen-ld') {
+       do_static_find(@ARGV);
+} elsif ($type eq 'static-ld') {
+       do_static_link(@ARGV);
+} elsif ($type eq 'core-ld') {
+       do_core_link(@ARGV);
+} elsif ($type eq 'link-dir') {
+       do_link_dir(@ARGV);
+} elsif ($type eq 'gen-o') {
+       do_compile(1, 0, @ARGV);
+} elsif ($type eq 'gen-so') {
+       do_compile(1, 1, @ARGV);
+} elsif ($type eq 'link-so') {
+       do_compile(0, 1, @ARGV);
 } else {
-       $flags = "$cflags -c";
+       print STDERR "Unknown unit-cc subcommand $type!\n";
 }
-
-my $execstr = "$ENV{RUNCC} $flags -o $out $file";
-print "$execstr\n" if $verbose;
-exec $execstr;
 exit 1;
 
+sub message($$$) {
+       my ($type, $file, $command) = @_;
+       if ($verbose) {
+               print "$command\n";
+       } else {
+               print_format "\t<|GREEN $type:|>\t\t$file\n";
+       }
+}
+
 sub do_static_find {
        my @flags;
        for my $file (@ARGV) {
-               push @flags, getlinkerflags($file);
+               push @flags, get_property($file, 'LinkerFlags');
        }
        open F, '>', $out;
        print F join ' ', @flags;
        close F;
+       exit 0;
 }
 
 sub do_static_link {
-       my $execstr = "$ENV{RUNCC} -o $out $ENV{CORELDFLAGS} $ENV{LDLIBS}";
+       my $execstr = "$ENV{CXX} -o $out $ENV{CORELDFLAGS}";
        for (@ARGV) {
                if (/\.cmd$/) {
                        open F, '<', $_;
@@ -64,7 +92,48 @@ sub do_static_link {
                        $execstr .= ' '.$_;
                }
        }
-       print "$execstr\n" if $verbose;
+       $execstr .= ' '.$ENV{LDLIBS};
+       message 'LINK', $out, $execstr;
+       exec $execstr;
+}
+
+sub do_core_link {
+       my $execstr = "$ENV{CXX} -o $out $ENV{CORELDFLAGS} @_ $ENV{LDLIBS}";
+       message 'LINK', $out, $execstr;
+       exec $execstr;
+}
+
+sub do_link_dir {
+       my ($dir, $link_flags) = (shift, '');
+       for my $file (<$dir/*.cpp>) {
+               $link_flags .= get_property($file, 'LinkerFlags') . ' ';
+       }
+       my $execstr = "$ENV{CXX} -o $out $ENV{PICLDFLAGS} $link_flags @_";
+       message 'LINK', $out, $execstr;
+       exec $execstr;
+}
+
+sub do_compile {
+       my ($do_compile, $do_link, $file) = @_;
+
+       my $flags = '';
+       my $libs = '';
+       if ($do_compile) {
+               $flags = $ENV{CORECXXFLAGS} . ' ' . get_property($file, 'CompileFlags');
+
+               if ($file =~ m#(?:^|/)((?:m|core)_[^/. ]+)(?:\.cpp|/.*\.cpp)$#) {
+                       $flags .= ' -DMODNAME=\\"'.$1.'\\"';
+               }
+       }
+
+       if ($do_link) {
+               $flags = join ' ', $flags, $ENV{PICLDFLAGS};
+               $libs = get_property($file, 'LinkerFlags');
+       } else {
+               $flags .= ' -c';
+       }
+
+       my $execstr = "$ENV{CXX} -o $out $flags $file $libs";
+       message 'BUILD', abs2rel($file, "$ENV{SOURCEPATH}/src"), $execstr;
        exec $execstr;
-       exit 1;
 }