Call a function in a shared library: Difference between revisions
→{{header|Perl 6}}: update for more strict type constraints
Thundergnat (talk | contribs) (→{{header|Perl 6}}: update for more strict type constraints) |
|||
Line 1,246:
See [[Call_a_function_in_a_shared_library#Delphi | Delphi]]
=={{header|Perl 6}}==
{{works with|Rakudo|
<lang perl6>use NativeCall;
constant libX11 = '/usr/lib/x86_64-linux-gnu/libX11.so.6';
sub XOpenDisplay(Str $s -->
sub XCloseDisplay(
if try my $d = XOpenDisplay ":0.0" {
|