Битовые поля в NativeCall

Question

Я пытаюсь создать привязки Perl6 для Cgraph, и в одной из структур установлены битовые поля для некоторых его атрибутов со значениями ниже 8. Как мне представить это в моем модуле?

Я пыталсяопределение пользовательского типа с использованием черты is nativesize(x), но CStructs поддерживает только типы, кратные 8 битам.

C Пример кода:

struct Agtag_s {
    unsigned objtype:2;
}

Что я пробовал:

my native objtype is repr('P6int') is Int is nativesize(2) is export { }
class Agtag is repr('CStruct') is export {
    has objtype $.object-type;
}

Попытка использовать мой модуль с этим кодом завершается неудачно со следующим сообщением об ошибке: CStruct only supports native types that are a multiple of 8 bits wide (was passed: 2)

Answer 1

Вот пример. Я предполагаю, что функция use_struct() определена в библиотеке libslib:

#include <stdio.h>

struct Agtag_s {
    unsigned objtype:2;
    unsigned footype:4;
    unsigned bartype:6;
};

void use_struct (struct Agtag_s *s) {
    printf("sizeof(struct Agtag_s): %ld\n", sizeof( struct Agtag_s ));
    printf("objtype = %d\n", s->objtype);
    printf("footype = %d\n", s->footype);
    printf("bartype = %d\n", s->bartype);
    s->objtype = 3;
    s->footype = 13;
    s->bartype = 55;
}

Затем в Perl 6:

use v6;
use NativeCall;

class Agtag is repr('CStruct') is export {
    has int32 $.bitfield is rw;
}

sub use_struct(Agtag $s is rw) is native("./libslib.so") { * };

my $s = Agtag.new();
my $objtype = 1;
my $footype = 7;
my $bartype = 31;
$s.bitfield = $objtype +| ($footype +< 2 ) +| ($bartype +< 6);
say "Calling library function..";
say "--------------------------";
use_struct( $s );
say "After call..";
say "------------";
say "objtype = ", $s.bitfield +& 3;
say "footype = ", ($s.bitfield +> 2) +& 15;
say "bartype = ", ($s.bitfield +> 6) +& 63;

выход

Calling library function..
--------------------------
sizeof(struct Agtag_s): 4
objtype = 1
footype = 7
bartype = 31
After call..
------------
objtype = 3
footype = 13
bartype = 55