use strict;
use warnings FATAL => qw(all);
-use File::Basename qw(basename);
-use Exporter qw(import);
+use File::Basename qw(basename dirname);
+use File::Spec::Functions qw(catdir);
+use Exporter qw(import);
use make::configure;
use make::console;
use constant DIRECTIVE_ERROR_PIPE => $ENV{INSPIRCD_VERBOSE} ? '' : '2>/dev/null';
+use constant VENDOR_DIRECTORY => catdir(dirname(dirname(__FILE__)), 'vendor');
our @EXPORT = qw(get_directive
execute_functions);
return $prefix . uc $suffix;
}
+sub __module {
+ my $file = shift;
+ my $name = basename $file, '.cpp';
+ $name =~ s/^m_//;
+ return $name;
+}
+
sub __error {
my ($file, @message) = @_;
push @message, '';
} else {
push @message, 'If you believe this error to be a bug then you can file a bug report';
push @message, 'at https://github.com/inspircd/inspircd/issues';
+ push @message, '';
+ push @message, 'You can also refer to the documentation page for this module at';
+ push @message, "https://docs.inspircd.org/3/modules/${\__module $file}";
}
push @message, '';
return $defaults;
}
- # Executing the command failed and we don't have any defaults so give up.
+ # Executing the command failed and we don't have any defaults so give up.
__error $file, "`<|GREEN $command|>` exited with a non-zero exit code!";
}
# Try to look up the compiler flags with pkg-config...
chomp(my $flags = `pkg-config --cflags $name ${\DIRECTIVE_ERROR_PIPE}`);
unless ($?) {
- print_format "Found the compiler flags for <|GREEN ${\basename $file, '.cpp'}|> using pkg-config: <|BOLD $flags|>\n";
+ print_format "Found the <|GREEN $name|> compiler flags for <|GREEN ${\__module $file}|> using pkg-config: <|BOLD $flags|>\n";
return $flags;
}
# If looking up with pkg-config fails then check the environment...
my $key = __environment 'INSPIRCD_CXXFLAGS_', $name;
if (defined $ENV{$key}) {
- print_format "Found the compiler flags for <|GREEN ${\basename $file, '.cpp'}|> using the environment: <|BOLD $ENV{$key}|>\n";
+ print_format "Found the <|GREEN $name|> compiler flags for <|GREEN ${\__module $file}|> using the environment: <|BOLD $ENV{$key}|>\n";
return $ENV{$key};
}
# If all else fails then look for the defaults..
if (defined $defaults) {
- print_format "Found the compiler flags for <|GREEN ${\basename $file, '.cpp'}|> using the defaults: <|BOLD $defaults|>\n";
+ print_format "Using the default <|GREEN $name|> compiler flags for <|GREEN ${\__module $file}|>: <|BOLD $defaults|>\n";
return $defaults;
}
# We can't find it via pkg-config, via the environment, or via the defaults so give up.
- __error $file, "unable to find the compiler flags for <|GREEN ${\basename $file, '.cpp'}|>!";
+ __error $file, "unable to find the <|GREEN $name|> compiler flags for <|GREEN ${\__module $file}|>!";
}
sub __function_find_linker_flags {
# Try to look up the linker flags with pkg-config...
chomp(my $flags = `pkg-config --libs $name ${\DIRECTIVE_ERROR_PIPE}`);
unless ($?) {
- print_format "Found the linker flags for <|GREEN ${\basename $file, '.cpp'}|> using pkg-config: <|BOLD $flags|>\n";
+ print_format "Found the <|GREEN $name|> linker flags for <|GREEN ${\__module $file}|> using pkg-config: <|BOLD $flags|>\n";
return $flags;
}
# If looking up with pkg-config fails then check the environment...
my $key = __environment 'INSPIRCD_CXXFLAGS_', $name;
if (defined $ENV{$key}) {
- print_format "Found the linker flags for <|GREEN ${\basename $file, '.cpp'}|> using the environment: <|BOLD $ENV{$key}|>\n";
+ print_format "Found the <|GREEN $name|> linker flags for <|GREEN ${\__module $file}|> using the environment: <|BOLD $ENV{$key}|>\n";
return $ENV{$key};
}
# If all else fails then look for the defaults..
if (defined $defaults) {
- print_format "Found the linker flags for <|GREEN ${\basename $file, '.cpp'}|> using the defaults: <|BOLD $defaults|>\n";
+ print_format "Using the default <|GREEN $name|> linker flags for <|GREEN ${\__module $file}|>: <|BOLD $defaults|>\n";
return $defaults;
}
# We can't find it via pkg-config, via the environment, or via the defaults so give up.
- __error $file, "unable to find the linker flags for <|GREEN ${\basename $file, '.cpp'}|>!";
+ __error $file, "unable to find the <|GREEN $name|> linker flags for <|GREEN ${\__module $file}|>!";
+}
+
+sub __function_require_compiler {
+ my ($file, $name, $minimum, $maximum) = @_;
+
+ # Look up information about the compiler.
+ return undef unless $ENV{CXX};
+ my %compiler = get_compiler_info($ENV{CXX});
+
+ # Check whether the current compiler is suitable.
+ return undef unless $compiler{NAME} eq $name;
+ return undef if defined $minimum && $compiler{VERSION} < $minimum;
+ return undef if defined $maximum && $compiler{VERSION} > $maximum;
+
+ # Requirement directives don't change anything directly.
+ return "";
}
sub __function_require_system {
# If pkg-config isn't installed then we can't do anything here.
if (system "pkg-config --exists $name ${\DIRECTIVE_ERROR_PIPE}") {
- print_warning "unable to look up the version of $name using pkg-config!";
+ print_warning "unable to look up the version of <|GREEN $name|> using pkg-config!";
return undef;
}
return "";
}
+sub __function_vendor_directory {
+ my ($file, $name) = @_;
+
+ # Try to look the directory up in the environment...
+ my $key = __environment 'INSPIRCD_VENDOR_', $name;
+ if (defined $ENV{$key}) {
+ print_format "Found the <|GREEN $name|> vendor directory for <|GREEN ${\__module $file}|> using the environment: <|BOLD $ENV{$key}|>\n";
+ return $ENV{$key};
+ }
+
+ my $directory = catdir(VENDOR_DIRECTORY, $name);
+ if (-d $directory) {
+ print_format "Using the default <|GREEN $name|> vendor directory for <|GREEN ${\__module $file}|>: <|BOLD $directory|>\n";
+ return $directory;
+ }
+
+ # We can't find it via the environment or via the filesystem so give up.
+ __error $file, "unable to find the <|GREEN $name|> vendor directory for <|GREEN ${\__module $file}|>!";
+}
+
sub __function_warning {
my ($file, @messages) = @_;
print_warning @messages;
projects / user / henk / code / inspircd.git / blobdiff