# # InspIRCd -- Internet Relay Chat Daemon # # Copyright (C) 2012-2014 Peter Powell # Copyright (C) 2008 Robin Burchell # Copyright (C) 2007-2008 Craig Edwards # Copyright (C) 2008 Thomas Stagner # Copyright (C) 2007 Dennis Friis # # 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 . # BEGIN { require 5.8.0; } package make::configure; use strict; use warnings FATAL => qw(all); use Cwd 'getcwd'; use Exporter 'import'; use File::Basename 'basename'; use make::console; use make::utilities; our @EXPORT = qw(cmd_clean cmd_help cmd_update read_configure_cache write_configure_cache get_compiler_info find_compiler run_test test_file test_header dump_hash get_property parse_templates); sub __get_socketengines() { my @socketengines; foreach () { s/src\/socketengines\/socketengine_(\w+)\.cpp/$1/; push @socketengines, $1; } return @socketengines; } # TODO: when buildtool is done this can be mostly removed with # the remainder being merged into parse_templates. sub __get_template_settings($$) { # These are actually hash references my ($config, $compiler) = @_; # Start off by populating with the config my %settings = %$config; # Compiler information while (my ($key, $value) = each %{$compiler}) { $settings{'COMPILER_' . $key} = $value; } # Version information my %version = get_version(); while (my ($key, $value) = each %version) { $settings{'VERSION_' . $key} = $value; } # Miscellaneous information $settings{SYSTEM_NAME} = lc $^O; chomp($settings{SYSTEM_NAME_VERSION} = `uname -sr 2>/dev/null`); return %settings; } sub cmd_clean { unlink '.config.cache'; } sub cmd_help { my $PWD = getcwd(); my $SELIST = join ', ', __get_socketengines(); print <) { next if $line =~ /^\s*($|\#)/; my ($key, $value) = ($line =~ /^(\S+)="(.*)"$/); $cfg{$key} = $value; } close(CACHE); return %cfg; } sub write_configure_cache(%) { my %cfg = @_; open(CACHE, ">.config.cache") or return 0; while (my ($key, $value) = each %cfg) { $value = "" unless defined $value; print CACHE "$key=\"$value\"\n"; } close(CACHE); return 1; } sub get_compiler_info($) { my $binary = shift; my $version = `$binary -v 2>&1`; if ($version =~ /(?:clang|llvm)\sversion\s(\d+\.\d+)/i) { return ( NAME => 'Clang', VERSION => $1, UNSUPPORTED => $1 lt '3.0', REASON => 'Clang 2.9 and older do not have adequate C++ support.' ); } elsif ($version =~ /gcc\sversion\s(\d+\.\d+)/i) { return ( NAME => 'GCC', VERSION => $1, UNSUPPORTED => $1 lt '4.1', REASON => 'GCC 4.0 and older do not have adequate C++ support.' ); } elsif ($version =~ /(?:icc|icpc)\sversion\s(\d+\.\d+).\d+\s\(gcc\sversion\s(\d+\.\d+).\d+/i) { return ( NAME => 'ICC', VERSION => $1, UNSUPPORTED => $2 lt '4.1', REASON => "ICC $1 (GCC $2 compatibility mode) does not have adequate C++ support." ); } return ( NAME => $binary, VERSION => '0.0' ); } sub find_compiler { foreach my $compiler ('c++', 'g++', 'clang++', 'icpc') { return $compiler unless system "$compiler -v > /dev/null 2>&1"; if ($^O eq 'Darwin') { return $compiler unless system "xcrun $compiler -v > /dev/null 2>&1"; } } return ""; } sub run_test($$) { my ($what, $result) = @_; print "Checking whether $what is available... "; print $result ? "yes\n" : "no\n"; return $result; } sub test_file($$;$) { my ($cc, $file, $args) = @_; my $status = 0; $args ||= ''; $status ||= system "$cc -o __test_$file make/test/$file $args >/dev/null 2>&1"; $status ||= system "./__test_$file >/dev/null 2>&1"; unlink "./__test_$file"; return !$status; } sub test_header($$;$) { my ($cc, $header, $args) = @_; $args ||= ''; open(CC, "| $cc -E - $args >/dev/null 2>&1") or return 0; print CC "#include <$header>"; close(CC); return !$?; } sub get_property($$;$) { my ($file, $property, $default) = @_; open(MODULE, $file) or return $default; while () { if ($_ =~ /^\/\* \$(\S+): (.+) \*\/$/) { next unless $1 eq $property; close(MODULE); return translate_functions($2, $file); } } close(MODULE); return defined $default ? $default : ''; } sub dump_hash() { print "\n\e[1;32mPre-build configuration is complete!\e[0m\n\n"; print "\e[0mBase install path:\e[1;32m\t\t$main::config{BASE_DIR}\e[0m\n"; print "\e[0mConfig path:\e[1;32m\t\t\t$main::config{CONFIG_DIR}\e[0m\n"; print "\e[0mData path:\e[1;32m\t\t\t$main::config{DATA_DIR}\e[0m\n"; print "\e[0mLog path:\e[1;32m\t\t\t$main::config{LOG_DIR}\e[0m\n"; print "\e[0mModule path:\e[1;32m\t\t\t$main::config{MODULE_DIR}\e[0m\n"; print "\e[0mCompiler:\e[1;32m\t\t\t$main::cxx{NAME} $main::cxx{VERSION}\e[0m\n"; print "\e[0mSocket engine:\e[1;32m\t\t\t$main::config{SOCKETENGINE}\e[0m\n"; print "\e[0mGnuTLS support:\e[1;32m\t\t\t$main::config{USE_GNUTLS}\e[0m\n"; print "\e[0mOpenSSL support:\e[1;32m\t\t$main::config{USE_OPENSSL}\e[0m\n"; } sub parse_templates($$) { # These are actually hash references my ($config, $compiler) = @_; # Collect settings to be used when generating files my %settings = __get_template_settings($config, $compiler); # Iterate through files in make/template. foreach () { print_format "Parsing <|GREEN $_|> ...\n"; open(TEMPLATE, $_) or print_error "unable to read $_: $!"; my (@lines, $mode, @platforms, %targets); # First pass: parse template variables and directives. while (my $line =