Собственное локальное время () - PullRequest
Новая
       34

Собственное локальное время ()

0 голосов
/ 29 апреля 2018

Я, кажется, что-то делаю не так, пытаясь раскрыть функциональность localtime в Perl 6: 

use NativeCall;
my class TimeStruct is repr<CStruct> {
    has int32 $!tm_sec;
    has int32 $!tm_min;
    has int32 $!tm_hour;
    has int32 $!tm_mday;
    has int32 $!tm_mon;
    has int32 $!tm_year;
    has int32 $!tm_wday;
    has int32 $!tm_yday;
    has int32 $!tm_isdst;
    has Str   $!tm_zone;
    has long  $!tm_gmtoff;
}

sub localtime(uint32 $epoch --> TimeStruct) is native {*}
dd localtime(time);  # segfault

Запуск под perl6-lldb-m, я получаю: 

Process 82758 stopped
* thread #1, queue = 'com.apple.main-thread', stop reason = EXC_BAD_ACCESS (code=1, address=0x5ae5dda1)
    frame #0: 0x00007fffe852efb4 libsystem_c.dylib`_st_localsub + 13
libsystem_c.dylib`_st_localsub:
->  0x7fffe852efb4 <+13>: movq   (%rdi), %rax
    0x7fffe852efb7 <+16>: movq   %rax, -0x20(%rbp)
    0x7fffe852efbb <+20>: movq   0x8e71d3e(%rip), %rbx     ; lclptr
    0x7fffe852efc2 <+27>: testq  %rbx, %rbx
Target 0: (moar) stopped.

Есть какие-то очевидные вещи, которые я здесь делаю неправильно?

ОБНОВЛЕНИЕ: окончательное рабочее решение: 

class TimeStruct is repr<CStruct> {
    has int32 $.tm_sec;    # *must* be public attributes
    has int32 $.tm_min;
    has int32 $.tm_hour;
    has int32 $.tm_mday;
    has int32 $.tm_mon;
    has int32 $.tm_year;
    has int32 $.tm_wday;
    has int32 $.tm_yday;
    has int32 $.tm_isdst;
    has long  $.tm_gmtoff; # these two were
    has Str   $.time_zone; # in the wrong order
}

sub localtime(int64 $epoch is rw --> TimeStruct) is native {*}

my int64 $epoch = time;  # needs a separate definition somehow
dd localtime($epoch);

1 Ответ

0 голосов
/ 29 апреля 2018

localtime() ожидает указатель типа time_t* в качестве аргумента. Предполагая, что time_t и uint32_t являются совместимыми типами для вашей конкретной платформы, 

sub localtime(uint32 $epoch is rw --> TimeStruct) is native {*}
my uint32 $t = time;
dd localtime($t);

должен сделать это (хотя вы ничего не увидите, если не сделаете свои атрибуты общедоступными).

Я немного удивлен, что ваш time_t не является 64-битным типом, и только что прогуглил apple time.h, я также подозреваю, что последние два атрибута в вашем объявлении структуры находятся в неправильном порядке ...

...