Raku NativeCall 到 LibX11 屏幕和显示

如何解决Raku NativeCall 到 LibX11 屏幕和显示

Fedora 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 交互的对象）和 显示名称（您可以使用的字符串）识别并连接到显示器。

此外，对于 repr('CPointer')，最好使用 repr('CStruct')，而不是 XDisplay *，因为 Xlib 文档说它应该被视为不透明指针，并且所有内容都可以通过函数访问,将整个结构体翻译成 Raku 会很费力（而且不是很有用）。

因为它就像一个对象，所以您可以选择将所有 Xlib 函数封装在 Display 类中，并将它们包装在方法中，如 the pointers section of the NativeCall docs 所示。到目前为止，我对这种风格的代码的翻译是：

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 Str 提供了一个 Display，以便它可以直接打印，但同样，不要将对象与您用来获取一个的字符串混淆。从这里开始，您可以向 Display 添加更多方法，并以相同方式定义 Screen、Window 等。您不必这样做——您可以自由地公开定义 subs 并使用对 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 而言，所以你把原来的指针变成了 Str，然后你可以使用它在任何 X* 需要显示的字符串描述。