ouch/inspircd
2
0
Fork 0
mirror of https://github.com/inspircd/inspircd.git synced 2025-03-09 18:49:03 -04:00
Code Issues Packages Projects Releases Wiki Activity

Add support for vendoring dependencies.

Browse Source
This commit is contained in:
Peter Powell 2018-05-25 17:08:42 +01:00
parent f7a115884f
commit 7d4f8960f8
1 changed files with 26 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
make/directive.pm
View File

@ -27,13 +27,15 @@ use feature ':5.10';
use strict;
use warnings FATAL => qw(all);
use File::Basename qw(basename);
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);
@ -185,7 +187,7 @@ sub __function_find_compiler_flags {
# If all else fails then look for the defaults..
if (defined $defaults) {
print_format "Found the <|GREEN $name|> compiler flags for <|GREEN ${\basename $file, '.cpp'}|> using the defaults: <|BOLD $defaults|>\n";
print_format "Using the default <|GREEN $name|> compiler flags for <|GREEN ${\basename $file, '.cpp'}|>: <|BOLD $defaults|>\n";
return $defaults;
}
@ -212,7 +214,7 @@ sub __function_find_linker_flags {
# If all else fails then look for the defaults..
if (defined $defaults) {
print_format "Found the <|GREEN $name|> linker flags for <|GREEN ${\basename $file, '.cpp'}|> using the defaults: <|BOLD $defaults|>\n";
print_format "Using the default <|GREEN $name|> linker flags for <|GREEN ${\basename $file, '.cpp'}|>: <|BOLD $defaults|>\n";
return $defaults;
}
@ -263,6 +265,26 @@ sub __function_require_version {
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 ${\basename $file, '.cpp'}|> 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 ${\basename $file, '.cpp'}|>: <|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 ${\basename $file, '.cpp'}|>!";
}
sub __function_warning {
my ($file, @messages) = @_;
print_warning @messages;