Como posso saber se uma estrutura C tem um membro no Perl Xs?
Pergunta
Existe um ExtUtils::*
ou Module::Build
(ou outro) analógico ao rubi mkmf.have_struct_member
?
Eu gostaria de fazer algo como (da maneira de um dicas/ Arquivo):
....
if struct_has_member("msghdr", "msg_accrights") {
$self->{CCFLAGS} = join(' ', $self->{CCFLAGS}, "-DTRY_ACCRIGHTS_NOT_CMSG");
}
...
Config.pm
não rastreia as informações específicas que estou procurando e ExtUtils::FindFunctions
Não parecia bastante apropriado aqui ...
Solução
Eu sei que isso não está incorporado ao Makemaker ou ao Module :: Build. Pode haver uma coisa no CPAN para fazê -lo, mas a maneira usual é usar o ExtUtils :: Cbuilder para compilar um pequeno programa de teste e ver se ele é executado.
use ExtUtils::CBuilder;
open my $fh, ">", "try.c" or die $!;
print $fh <<'END';
#include <time.h>
int main(void) {
struct tm *test;
long foo = test->tm_gmtoff;
return 0;
}
END
close $fh;
$has{"tm.tm_gmtoff"} = 1 if
eval { ExtUtils::CBuilder->new->compile(source => "try.c"); 1 };
Provavelmente quero fazer isso em um arquivo temp e limpar depois dele, etc ...
Outras dicas
Eu escrevi um invólucro ao redor ExtUtils::CBuilder
Para fazer "Este C Code compila?" Digite testes em Build.PL
ou Makefile.PL
scripts, chamados EXTULS :: CCHECKER.
Por exemplo, você pode testar facilmente o acima:
use Module::Build;
use ExtUtils::CChecker;
my $cc = ExtUtils::CChecker->new;
$cc->try_compile_run(
define => "TRY_ACCRIGHTS_NOT_CMSG",
source => <<'EOF' );
#include <sys/types.h>
#include <sys/socket.h>
int main(void) {
struct msghdr cmsg;
cmsg.msg_accrights = 0;
return 0;
}
EOF
$cc->new_module_build(
configure_requires => { 'ExtUtils::CChecker' => 0 },
...
)->create_build_script;