पर्ल 6 नेटिवॉल संरचना

Question

की विशेषता के रूप में structs के ऐरे, मैं एक सी संरचना को समाहित करने की कोशिश कर रहा हूं, जिसमें से एक सदस्य structs के पॉइंटर्स की एक सरणी है, और मुझे यह पता लगाने में समस्याएं आ रही हैं कि इसे कैसे किया जाए।

मान लीजिए कि सी कोड इस तरह दिखता है:

struct foo 
{ 
    unsigned char a; 
}; 

struct bar 
{ 
    struct foo *f[5]; 
}; 

कोड इस प्रकार का काम करता है:

use NativeCall; 

class foo is repr('CStruct') { 
    has uint8 $.a; 
} 

class bar is repr('CStruct') { 
    has foo $.f1; 
    has foo $.f2; 
    has foo $.f3; 
    has foo $.f4; 
    has foo $.f5; 
} 

लेकिन यह भयानक है।

ए CArray का कोई उपयोग नहीं है, क्योंकि यह सिर्फ एक सरणी के लिए एक सूचक है, पॉइंटर्स की एक श्रृंखला नहीं है; मैं has A @.a जैसे कुछ का उपयोग नहीं कर सकता, क्योंकि repr('CStruct') उस तरह की विशेषता को संभाल नहीं करता है।

कोई संकेत?

Answer 1

मैं इसके लिए एक नमूना कोड लिखता हूं। सी पक्ष:

struct bar* create_bar_ptr(unsigned char a) 
{ 
    printf("GET A CHAR => %#0x = %c\n", a, a); 

    struct bar* bar = (struct bar*)malloc(sizeof(struct bar)); 

    for (size_t i = 0;i < 5;i ++) { 
     struct foo* tf = (struct foo*)malloc(sizeof(struct foo)); 

     tf->a = a + i; 
     bar->f[i] = tf; 
    } 

    printf("CREATE BAR PTR OK\n"); 

    return bar; 
} 

क्योंकि Rakudo सी की ओर से एक ढेर चर प्राप्त करने का समर्थन नहीं करता है, तो आप malloc ढेर पर एक struct bar आवंटित उपयोग करना चाहिए।

फिर जीसीसी के साथ कोड संकलित करें, जैसे कि gcc -shared -fPIC -o libshasa.so xxx.c।

और यह Perl6 पक्ष है:

use NativeCall; 

class foo is repr('CStruct') { 
    has uint8 $.a; 
} 

class bar is repr('CStruct') { 
    # Here you should use !!HAS!!, not has 
    HAS Pointer[foo] $.f1; 
    HAS Pointer[foo] $.f2; 
    HAS Pointer[foo] $.f3; 
    HAS Pointer[foo] $.f4; 
    HAS Pointer[foo] $.f5; 
} 


sub create_bar_ptr(uint8) returns Pointer[bar] is native('./libshasa.so') { * } 

my Pointer[bar] $p = create_bar_ptr(uint8.new(97)); 

say $p.deref."f{$_}"().deref.a for 1 .. 5; 

यह आउटपुट:

GET A CHAR => 0x61 = a 
CREATE BAR PTR OK 
97 
98 
99 
100 
101