Call a foreign-language function: Difference between revisions

Content added Content deleted
(Rename Perl 6 -> Raku, alphabetize, minor clean-up)
(Raku 'OpaquePointer's is now just Pointer)
Line 2,136: Line 2,136:
<lang perl6>use NativeCall;
<lang perl6>use NativeCall;


sub strdup(Str $s --> OpaquePointer) is native {*}
sub strdup(Str $s --> Pointer) is native {*}
sub puts(OpaquePointer $p --> int32) is native {*}
sub puts(Pointer $p --> int32) is native {*}
sub free(OpaquePointer $p --> int32) is native {*}
sub free(Pointer $p --> int32) is native {*}


my $p = strdup("Success!");
my $p = strdup("Success!");
Retrieved from "https://rosettacode.org/wiki/Call_a_foreign-language_function"