Call a function in a shared library: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
No edit summary |
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
||
Line 311:
}
</lang>
=={{header|Delphi}}==
Line 1,272 ⟶ 1,271:
> cfloor( 2.3 );
2.</lang>
=={{header|Mathematica}}==
Line 1,417 ⟶ 1,414:
{{out}}
<pre>3.14159265358979</pre>
=={{header|Perl 6}}==▼
{{works with|Rakudo|2018.11}}▼
<lang perl6>use NativeCall;▼
sub XOpenDisplay(Str $s --> int64) is native('X11') {*}▼
sub XCloseDisplay(int64 $i --> int32) is native('X11') {*}▼
if try my $d = XOpenDisplay ":0.0" {▼
say "ID = $d";▼
XCloseDisplay($d);▼
}▼
else {▼
say "No X11 library!";▼
say "Use this window instead --> ⬜";▼
}</lang>▼
{{out}}▼
<pre>ID = 94722089782960</pre>▼
=={{header|Phix}}==
Line 1,583 ⟶ 1,562:
<lang rsplus>.C("my_lib_fun", arg1, arg2, ret)</lang>
The return of the <code>.C()</code> function is an R list.
=={{header|Racket}}==
Line 1,595 ⟶ 1,573:
Output: <pre>> (extern-sqrt 42.0)
6.48074069840786</pre>
(formerly Perl 6)
▲{{works with|Rakudo|2018.11}}
▲<lang perl6>use NativeCall;
▲sub XOpenDisplay(Str $s --> int64) is native('X11') {*}
▲sub XCloseDisplay(int64 $i --> int32) is native('X11') {*}
▲if try my $d = XOpenDisplay ":0.0" {
▲ say "ID = $d";
▲ XCloseDisplay($d);
▲}
▲else {
▲ say "No X11 library!";
▲ say "Use this window instead --> ⬜";
▲}</lang>
▲{{out}}
▲<pre>ID = 94722089782960</pre>
=={{header|REXX}}==
| |||