mirror of
https://github.com/inspircd/inspircd.git
synced 2025-04-21 15:31:27 -04:00
e6d245a3e8
A large amount of this code can be removed when buildtool is done as we will not need to worry about the differences between BSD and GNU Make.
443 lines
13 KiB
Perl
443 lines
13 KiB
Perl
#
|
||
# InspIRCd -- Internet Relay Chat Daemon
|
||
#
|
||
# Copyright (C) 2012-2014 Peter Powell <petpow@saberuk.com>
|
||
# Copyright (C) 2008 Robin Burchell <robin+git@viroteck.net>
|
||
# Copyright (C) 2007-2008 Craig Edwards <craigedwards@brainbox.cc>
|
||
# Copyright (C) 2008 Thomas Stagner <aquanight@inspircd.org>
|
||
# Copyright (C) 2007 Dennis Friis <peavey@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 {
|
||
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::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 (<src/socketengines/socketengine_*.cpp>) {
|
||
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 <<EOH;
|
||
Usage: $0 [options]
|
||
|
||
When no options are specified, configure runs in interactive mode and you must
|
||
specify any required values manually. If one or more options are specified,
|
||
non-interactive configuration is started and any omitted values are defaulted.
|
||
|
||
PATH OPTIONS
|
||
|
||
--system Automatically set up the installation paths
|
||
for system-wide installation.
|
||
--prefix=[dir] The root install directory. If this is set then
|
||
all subdirectories will be adjusted accordingly.
|
||
[$PWD/run]
|
||
--binary-dir=[dir] The location where the main server binary is
|
||
stored.
|
||
[$PWD/run/bin]
|
||
--config-dir=[dir] The location where the configuration files and
|
||
SSL certificates are stored.
|
||
[$PWD/run/conf]
|
||
--data-dir=[dir] The location where the data files, such as the
|
||
pid file, are stored.
|
||
[$PWD/run/data]
|
||
--log-dir=[dir] The location where the log files are stored.
|
||
[$PWD/run/logs]
|
||
--module-dir=[dir] The location where the loadable modules are
|
||
stored.
|
||
[$PWD/run/modules]
|
||
--build-dir=[dir] The location to store files in while building.
|
||
|
||
|
||
EXTRA MODULE OPTIONS
|
||
|
||
--enable-extras=[extras] Enables a comma separated list of extra modules.
|
||
--disable-extras=[extras] Disables a comma separated list of extra modules.
|
||
--list-extras Shows the availability status of all extra
|
||
modules.
|
||
|
||
MISC OPTIONS
|
||
|
||
--clean Remove the configuration cache file and start
|
||
the interactive configuration wizard.
|
||
--disable-interactive Disables the interactive configuration wizard.
|
||
--help Show this message and exit.
|
||
--uid=[name] Sets the user to run InspIRCd as.
|
||
--socketengine=[name] Sets the socket engine to be used. Possible
|
||
values are $SELIST.
|
||
--update Updates the build environment.
|
||
|
||
|
||
FLAGS
|
||
|
||
CXX=[name] Sets the C++ compiler to use when building the
|
||
server. If not specified then the build system
|
||
will search for c++, g++, clang++ or icpc.
|
||
|
||
If you have any problems with configuring InspIRCd then visit our IRC channel
|
||
at irc.ChatSpike.net #InspIRCd.
|
||
|
||
EOH
|
||
exit 0;
|
||
}
|
||
|
||
sub cmd_update {
|
||
unless (-f '.config.cache') {
|
||
print "You have not run $0 before. Please do this before trying to update the build files.\n";
|
||
exit 1;
|
||
}
|
||
print "Updating...\n";
|
||
my %config = read_configure_cache();
|
||
my %compiler = get_compiler_info($config{CXX});
|
||
parse_templates(\%config, \%compiler);
|
||
print "Update complete!\n";
|
||
exit 0;
|
||
}
|
||
|
||
sub read_configure_cache {
|
||
my %cfg = ();
|
||
open(CACHE, '.config.cache') or return %cfg;
|
||
while (my $line = <CACHE>) {
|
||
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 (<MODULE>) {
|
||
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 (<make/template/*>) {
|
||
print "Parsing $_...\n";
|
||
open(TEMPLATE, $_);
|
||
my (@lines, $mode, @platforms, %targets);
|
||
|
||
# First pass: parse template variables and directives.
|
||
while (my $line = <TEMPLATE>) {
|
||
chomp $line;
|
||
|
||
# Does this line match a variable?
|
||
while ($line =~ /(@(\w+?)@)/) {
|
||
my ($variable, $name) = ($1, $2);
|
||
if (defined $settings{$name}) {
|
||
$line =~ s/$variable/$settings{$name}/;
|
||
} else {
|
||
print STDERR "Warning: unknown template variable '$name' in $_!\n";
|
||
last;
|
||
}
|
||
}
|
||
|
||
# Does this line match a directive?
|
||
if ($line =~ /^\s*%(\w+)\s+(.+)$/) {
|
||
if ($1 eq 'define') {
|
||
if ($settings{$2}) {
|
||
push @lines, "#define $2";
|
||
} else {
|
||
push @lines, "#undef $2";
|
||
}
|
||
} elsif ($1 eq 'mode') {
|
||
$mode = oct $2;
|
||
} elsif ($1 eq 'platform') {
|
||
push @platforms, $2;
|
||
} elsif ($1 eq 'target') {
|
||
if ($2 =~ /(\w+)\s(.+)/) {
|
||
$targets{$1} = $2;
|
||
} else {
|
||
$targets{DEFAULT} = $2;
|
||
}
|
||
} else {
|
||
print STDERR "Warning: unknown template command '$1' in $_!\n";
|
||
push @lines, $line;
|
||
}
|
||
next;
|
||
}
|
||
push @lines, $line;
|
||
}
|
||
close(TEMPLATE);
|
||
|
||
# Only proceed if this file should be templated on this platform.
|
||
if ($#platforms < 0 || grep { $_ eq $^O } @platforms) {
|
||
|
||
# Add a default target if the template has not defined one.
|
||
unless (scalar keys %targets) {
|
||
$targets{DEFAULT} = basename $_;
|
||
}
|
||
|
||
# Second pass: parse makefile junk and write files.
|
||
while (my ($name, $target) = each %targets) {
|
||
|
||
# TODO: when buildtool is done this mess can be removed completely.
|
||
my @final_lines;
|
||
foreach my $line (@lines) {
|
||
|
||
# Are we parsing a makefile and does this line match a statement?
|
||
if ($name =~ /(?:BSD|GNU)_MAKE/ && $line =~ /^\s*\@(\w+)(?:\s+(.+))?$/) {
|
||
my @tokens = split /\s/, $2 if defined $2;
|
||
if ($1 eq 'DO_EXPORT' && defined $2) {
|
||
if ($name eq 'BSD_MAKE') {
|
||
foreach my $variable (@tokens) {
|
||
push @final_lines, "MAKEENV += $variable='\${$variable}'";
|
||
}
|
||
} elsif ($name eq 'GNU_MAKE') {
|
||
push @final_lines, "export $2";
|
||
}
|
||
} elsif ($1 eq 'ELSE') {
|
||
if ($name eq 'BSD_MAKE') {
|
||
push @final_lines, ".else";
|
||
} elsif ($name eq 'GNU_MAKE') {
|
||
push @final_lines, "else";
|
||
}
|
||
} elsif ($1 eq 'ENDIF') {
|
||
if ($name eq 'BSD_MAKE') {
|
||
push @final_lines, ".endif";
|
||
} elsif ($name eq 'GNU_MAKE') {
|
||
push @final_lines, "endif";
|
||
}
|
||
} elsif ($1 eq 'ELSIFEQ' && defined $2) {
|
||
if ($name eq 'BSD_MAKE') {
|
||
push @final_lines, ".elif $tokens[0] == $tokens[1]";
|
||
} elsif ($name eq 'GNU_MAKE') {
|
||
push @final_lines, "else ifeq ($tokens[0], $tokens[1])";
|
||
}
|
||
} elsif ($1 eq 'IFDEF' && defined $2) {
|
||
if ($name eq 'BSD_MAKE') {
|
||
push @final_lines, ".if defined($2)";
|
||
} elsif ($name eq 'GNU_MAKE') {
|
||
push @final_lines, "ifdef $2";
|
||
}
|
||
} elsif ($1 eq 'IFEQ' && defined $2) {
|
||
if ($name eq 'BSD_MAKE') {
|
||
push @final_lines, ".if $tokens[0] == $tokens[1]";
|
||
} elsif ($name eq 'GNU_MAKE') {
|
||
push @final_lines, "ifeq ($tokens[0],$tokens[1])";
|
||
}
|
||
} elsif ($1 eq 'IFNEQ' && defined $2) {
|
||
if ($name eq 'BSD_MAKE') {
|
||
push @final_lines, ".if $tokens[0] != $tokens[1]";
|
||
} elsif ($name eq 'GNU_MAKE') {
|
||
push @final_lines, "ifneq ($tokens[0],$tokens[1])";
|
||
}
|
||
} elsif ($1 eq 'IFNDEF' && defined $2) {
|
||
if ($name eq 'BSD_MAKE') {
|
||
push @final_lines, ".if !defined($2)";
|
||
} elsif ($name eq 'GNU_MAKE') {
|
||
push @final_lines, "ifndef $2";
|
||
}
|
||
} elsif ($1 eq 'TARGET' && defined $2) {
|
||
if ($tokens[0] eq $name) {
|
||
push @final_lines, substr($2, length($tokens[0]) + 1);
|
||
}
|
||
} elsif ($1 !~ /[A-Z]/) {
|
||
# HACK: silently ignore if lower case as these are probably make commands.
|
||
push @final_lines, $line;
|
||
} else {
|
||
print STDERR "Warning: unknown template command '$1' in $_!\n";
|
||
push @final_lines, $line;
|
||
}
|
||
next;
|
||
}
|
||
|
||
push @final_lines, $line;
|
||
}
|
||
|
||
# Write the template file.
|
||
print "Writing $target...\n";
|
||
open(TARGET, ">$target");
|
||
foreach (@final_lines) {
|
||
print TARGET $_, "\n";
|
||
}
|
||
close(TARGET);
|
||
|
||
# Set file permissions.
|
||
if (defined $mode) {
|
||
chmod $mode, $target;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
1;
|