어떻게 배열을 Perl XS의 C 함수에 전달할 수 있습니까?

Question

어떻게 Perl 배열을 C XS 모듈을 참조하여 전달할 수 있습니까?

my @array = (1..20); 

XSTEST::test_array_passing(\@array); 

는 배열을 볼 수 있도록 내가 XS에서 어떻게해야합니까?

Answer 1

XS는 ARRAY에 대한 참조를 AV* 또는 SV*으로받을 수 있습니다. 후자는 AV*으로 참조 해제되어야합니다. 이 코드에 의해 생성

use Inline C => DATA; 
@array = (1 .. 20); 
$r = sum_of_elements1(\@array); 
$s = sum_of_elements2(\@array); 
print "$r $s\n"; # produces output: "210 210\n" 
__END__ 
__C__ 
double sum_of_elements1(AV* array) 
{ 
    int i; 
    double sum = 0.0; 
    for (i=0; i<=av_len(array); i++) { 
    SV** elem = av_fetch(array, i, 0); 
    if (elem != NULL) 
     sum += SvNV(*elem); 
    } 
    return sum; 
} 

double sum_of_elements2(SV* array_ref) 
{ 
    AV* array; 
    if (!SvROK(array_ref) || SvTYPE(SvRV(array_ref)) != SVt_PVAV) 
    croak("expected ARRAY ref"); 
    array = (AV*) SvRV(array_ref); 
    return sum_of_elements1(array); 
} 

.xs 파일 선언

double 
sum_of_elements1 (array_ref) 
     SV * array_ref 

double 
sum_of_elements2 (array) 
     AV * array 

편집 : sum_of_element2()에서 * SV 배열 참조 있다는 확인했다.

Answer 2

Perl 배열을 전달할 수없고 자동으로 C 배열 (예 : int 배열)로 변환 할 수 없습니다. XS와 perlapi에 의존해야합니다. 이유는 아주 간단합니다. 펄 배열은 타입이없는 스칼라를 포함합니다. C 배열은 동일한 유형의 N 개 항목을 보유합니다.

XSUB에 수행 할 수있는 작업은 SV*입니다. SV은 스칼라 값의 약자입니다. 이것은 당연히 참고 문헌 (RV)을 포함하며 따라서 배열 (AV ')에 대한 참조도 포함합니다. 여기

은 주어진 SV* 소스 배열에 대한 참조인지 여부를 확인할 수있는 방법은 다음과 같습니다

SV* tmpSV; 
AV* theArray; 
if (SvROK(source)) {    /* it's a reference */ 
    tmpSV = (SV*)SvRV(source);  /* deref */ 
    if (SvTYPE(tmpSV) == SVt_PVAV) { /* it's an array reference */ 
    theArray = (AV*)tmpSV; 
    /* do stuff with the array here */ 
    } 
}