RakuNativeCall到LibX11屏幕和显示
软呢帽 33 乐
我正在尝试使用 Raku 的 NativeCall 与 libX11.so 对话以打印出我的屏幕和显示：
use NativeCall;
class Display is repr('CStruct') { has Pointer $.DisplayPtr };
# libX11.so --> X11
sub XOpenDisplay(Str $name = ':0') returns Display is native('X11') { * }
sub XDefaultScreen(Display $) returns int32 is native('X11') { * }
my Display $display = XOpenDisplay()
or die "Can not open display";
my int $screen = XDefaultScreen($display);
print "display = <" ~ $display ~ ">n";
print "screen = <" ~ $screen ~ ">n";
$ libX11.pl6
display = <Display<90201160>>
screen = <0>
问题。我遗漏了一些关于类语法的信息，因为它向我显示了一个指针地址而不是我的显示，我认为它是“：0”。另外我认为类声明应该在某处显示一个字符串。
回答
您有点混淆了Display，它是一个用于与 X 交互的对象，以及一个display name，它是一个字符串，您可以使用它来识别和连接到 Display。
此外，你最好用repr('CPointer')，不是repr('CStruct')一个XDisplay *，因为×程序库文件说，它应该是一个不透明的指针，并通过一切功能访问，并翻译了整个结构来乐是很费力的（而不是非常有用）进行治疗。
由于它就像一个对象，因此您可以选择将所有 Xlib 函数封装在Display类中，并将它们包装在方法中，如NativeCall 文档的指针部分所示。到目前为止，我对这种风格的代码的翻译是：
use NativeCall;
class Display is repr('CPointer') {
sub XOpenDisplay(Str) returns Display is native('X11') { * }
method new(Str $name = ':0') {
XOpenDisplay($name);
}
# You can wrap a libX11 function in a method explicitly, like this...
sub XDisplayString(Display) returns Str is native('X11') { * }
method DisplayString {
XDisplayString(self);
}
# Or implicitly, by putting 'is native' on a method declaration
# and using 'is symbol' to match the names
# (self will be passed as the first argument to the libX11 function)
method DefaultScreen() returns int32 is native('X11')
is symbol('XDefaultScreen') { * }
method Str {
"Display({ self.DisplayString })";
}
}
my Display $display .= new
or die "Can not open display";
my int $screen = $display.DefaultScreen;
print "display = <" ~ $display ~ ">n";
print "screen = <" ~ $screen ~ ">n";
我提供了一个method Strfor Display，以便它可以直接打印，但同样，不要将对象与您用来获取一个的字符串混淆。你会从这里通过增加更多的方法去Display，以及定义Screen，Window以同样的方式，等等。你不具备做这种方式-你可以自由定义公开的潜艇和使用呼叫XOpenDisplay和其他一切，因为如果你写C，但二OO风格趋于有点清洁。这是你的选择。
回答
在评论@hobbs中，我指出了正确的方向，通过建议一个新函数，XDisplayString实际上可以用来将指针转换为描述显示的字符串，而实际上不需要进入指针的完整结构。所以这就是它的方式：
use NativeCall;
class Display is repr('CPointer') {};
# libX11.so --> X11
sub XOpenDisplay(str $name = ':0') returns Display is native('X11') { * }
sub XDefaultScreen(Str $) returns int32 is native('X11') { * }
sub XDisplayString(Display $display) returns Str is native('X11') { * }
my $display = XOpenDisplay() or die "Can not open display";
my Str $displayStr = XDisplayString($display);
my int $screen = XDefaultScreen( $displayStr );
print "display = <" ~ $displayStr ~ ">n";
print "screen = <" ~ $screen ~ ">n";
那将返回：
display = <:0>
screen = <64>
至少在我的机器上。这里的关键是你实际上是描述屏幕的正确方式，至少就目前XDisplayString而言，所以你将原始指针转换为 a Str，然后你可以在任何X*需要显示字符串描述的地方使用它.
- Yes, but that's a mistaken thing to do in the first place — the correct thing is to call `XDisplayString(Display *dsp)`. Which could of course be bound to `method gist` or `method Str` or anything you please.
- Glad to help - I also wrote my own taking a slightly different approach. The NativeCall tutorial is amazingly good!