Call a function in a shared library: Difference between revisions
Call a function in a shared library (view source)
Revision as of 14:54, 11 December 2018
, 5 years ago→{{header|Perl 6}}: Update to work with 64 bit IDs (fix segfault)
Thundergnat (talk | contribs) (→{{header|Perl 6}}: update for more strict type constraints) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Update to work with 64 bit IDs (fix segfault)) |
||
Line 1,246:
See [[Call_a_function_in_a_shared_library#Delphi | Delphi]]
=={{header|Perl 6}}==
{{works with|Rakudo|2018.
<lang perl6>use NativeCall;
▲sub XOpenDisplay(Str $s --> int32) is native(libX11) {*}
▲sub XCloseDisplay(int32 $i --> int32) is native(libX11) {*}
if try my $d = XOpenDisplay ":0.0" {
Line 1,259 ⟶ 1,257:
}
else {
say "No
say "Use this window instead --> ⬜";
}</lang>
{{out}}
<pre>ID =
=={{header|Phix}}==
| |||