-
4 votesanswersviews
带有Str的Perl6 NativeCall被编码('utf16')得到随机损坏的结果
我使用 NativeCall 在perl6脚本中映射 GetFullPathName windows API,因此我编写了以下内容: #!perl6 use NativeCall; constant \WIN32_MAX_PATH = 260; #I may use directly $path.IO.absolute() sub Win32-GetFullPathName( ... -
3 votesanswersviews
将函数指针放在Perl6 NativeCall CStruct中
试图与一个C库接口,该库带有一个带有一堆指针的结构,指向它在各个点调用的函数 . 像这样的东西: struct callbacks { int (*foo)(int); int (*bar)(int); } int set_callbacks(callbacks *cbs); 我可以回复: sub foo-callback(int32 --> int32) {...} s... -
6 votesanswersviews
奇怪的消息在NativeCall perl6模块中声明指针[void]
这些代码段可能看起来很奇怪,这是因为我从原始代码开始并切断了碎片,直到我到达了复制错误的最小指令集 . 所以忍受明显的无用 . 有两个perl6模块,一个是 use ,另一个是程序 . 这是第一个模块: unit class test1; use NativeCall; use test2; method test { my Pointer[void] $dummy .= new; } ...