C 구조체에 Perl XS에 구성원이 있는지 어떻게 알 수 있습니까?

Question

Ruby의 mkmf.have_struct_member과 비슷한 ExtUtils::* 또는 Module::Build (또는 기타) 아날로그가 있습니까? '

.... 
if struct_has_member("msghdr", "msg_accrights") { 
    $self->{CCFLAGS} = join(' ', $self->{CCFLAGS}, "-DTRY_ACCRIGHTS_NOT_CMSG");  
} 
... 

이

Config.pm 내가 찾고 있어요 특정 정보를 추적하지 않으며, ExtUtils::FindFunctions didn 히 :

I의 (a 힌트/ 파일의 방식으로) 그런 짓을하고 싶습니다 여기에 꽤 적합 해 보입니다 ...

Answer 1

나는 이것이 MakeMaker 나 Module :: Build에 내장되어 있지 않다는 것을 알고 있습니다. CPAN에는 문제가있을 수 있지만 일반적으로 ExtUtils :: CBuilder를 사용하여 작은 테스트 프로그램을 컴파일하고 실행되는지 확인하는 것이 일반적입니다.

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 }; 

아마 내가하고 주변에 ExtUtils::CBuilder 래퍼를 썼다

Answer 2

... 등, 임시 파일에 그렇게하고 뒤에 정리할 "이 C 코드를 컴파일 무엇입니까?" Build.PL 또는 Makefile.PL 스크립트의 유형 테스트는 ExtUtils::CChecker입니다.

예를 들어, 당신은 쉽게 테스트 할 수 있습니다에 의해 위 :

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;