У меня есть модуль, предназначенный для нескольких разных операционных систем
и конфигурации. Иногда некоторый C-код может сделать задачу этого модуля
немного проще, поэтому у меня есть некоторые функции C, которые я хотел бы связать
код. У меня нет для привязки функций C - я не могу гарантировать
что у конечного пользователя даже есть, например, компилятор C, и он обычно
не проблема для перехода на другой ресурс изящно на чистый Perl способ выполнения
то же самое - но было бы неплохо, если бы я мог вызывать функции C
из сценария Perl.
Все еще со мной? Вот еще одна сложная часть. Почти весь код C
зависит от системы - функция, написанная для Windows, не будет компилироваться
Linux и наоборот, и функция, которая делает то же самое на
Solaris будет выглядеть совершенно иначе.
#include <some/Windows/headerfile.h>
int foo_for_Windows_c(int a,double b)
{
do_windows_stuff();
return 42;
}
#include <path/to/linux/headerfile.h>
int foo_for_linux_c(int a,double b)
{
do_linux_stuff(7);
return 42;
}
Более того, даже для нативного кода, предназначенного для той же системы, это
Возможно, что только некоторые из них могут быть скомпилированы на любом конкретном
конфигурации.
#include <some/headerfile/that/might/not/even/exist.h>
int bar_for_solaris_c(int a,double b)
{
call_solaris_library_that_might_be_installed_here(11);
return 19;
}
Но в идеале мы могли бы по-прежнему использовать функции C, которые бы компилировали
с этой конфигурацией. Итак, мои вопросы:
как я могу скомпилировать функции C условно (компилировать только код, который
подходит для текущего значения $^O)?
как я могу скомпилировать функции C индивидуально (некоторые функции могут не
компилировать, но мы все еще хотим использовать те, которые могут)?
я могу сделать это во время сборки (пока конечный пользователь устанавливает
модуль) или во время выполнения (например, с Inline::C)? Который
путь лучше?
как узнать, какие функции были успешно скомпилированы и
доступны для использования с Perl?
Все мысли оценены!
Обновление: Спасибо всем, кто откликнулся. Итак, вот что я сделал:
Я рассмотрел схему связывания во время выполнения с Inline::C внутри
eval заявления, но в конечном итоге остановились на подклассах Module::Build
и настройка метода ACTION_build:
my $builderclass = Module::Build->subclass(
class => 'My::Custom::Builder',
code => <<'__CUSTOM_BUILD_CODE__,',
sub ACTION_build {
use File::Copy;
my $self = shift;
### STEP 1: Compile all .xs files, remove the ones that fail ###
if (! -f "./lib/xs/step1") {
unlink <lib/xs/*>;
foreach my $contrib_file (glob("contrib/*.xs")) {
File::Copy::copy($contrib_file, "lib/xs/");
}
open my $failed_units_fh, '>', 'lib/xs/step1';
local $@ = undef;
do {
my $r = eval { $self->ACTION_code() };
if ($@ =~ /error building (\S+\.o) from/i
|| $@ =~ /error building dll file from '(\S+\.c)'/i) {
my $bad_file = $1;
$bad_file =~ s!\\!/!g;
my $bad_xs = $bad_file;
$bad_xs =~ s/.[oc]$/.xs/;
print STDERR "ERROR COMPILING UNIT $bad_xs ... removing\n\n";
unlink $bad_xs;
print $failed_units_fh "$bad_xs\n";
} elsif ($@) {
print STDERR "Compile error not handled in $^O: $@\n";
}
} while $@;
print "Removed all uncompilable units from lib/xs/\n";
close $failed_units_fh;
}
### STEP 2: Combine valid .xs files into a single .xs file ###
if (! -f "./lib/xs/step2") {
open my $valid_units_fh, '>', "lib/xs/step2";
my (@INCLUDE,%INCLUDE,$MODULE,@PREMOD,@POSTMOD);
foreach my $xs (glob("lib/xs/*.xs")) {
open my $xs_fh, '<', $xs;
while (<$xs_fh>) {
if (m/#include/) {
next if $INCLUDE{$_}++;
push @INCLUDE, $_;
} elsif (/^MODULE/) {
$MODULE = $_;
push @POSTMOD, <$xs_fh>;
} else {
push @PREMOD, $_;
}
}
close $xs_fh;
print $valid_units_fh "$xs\n";
}
close $valid_units_fh;
unlink <lib/xs/*>, <blib/arch/auto/xs/*/*>;
unlink 'lib/My/Module.xs';
open my $xs_fh, '>', 'lib/My/Module.xs' or croak $!;
print $xs_fh @INCLUDE, @PREMOD, $MODULE, @POSTMOD;
close $xs_fh;
print "Assembled remaining XS files into lib/My/Module.xs\n";
}
### STEP 3: Clean all .xs stuff and compile My/Module.xs ###
unlink <lib/xs/*>;
$self->ACTION_code();
return $self->SUPER::ACTION_build(@_);
}
}
Проверка на $@, вероятно, довольно хрупкая. Работает в системах
Я пытался (все с помощью GCC), но, вероятно, не будет работать, как написано
во всем мире.