Skip to content

Instantly share code, notes, and snippets.

@paulohrpinheiro

paulohrpinheiro/perl6-chamadas-naticas-second.sh

Created August 22, 2015 17:49
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save paulohrpinheiro/8ede64838cc2399f3d48 to your computer and use it in GitHub Desktop.
Save paulohrpinheiro/8ede64838cc2399f3d48 to your computer and use it in GitHub Desktop.
Download ZIP
Criando uma chamada nativa com nome alternativo.
Raw
perl6-chamadas-naticas-second.sh
> our sub Sqlite3VersionNumber is symbol('sqlite3_libversion_number') returns Int is native('libsqlite3') { * }
sub Sqlite3VersionNumber( --> Int) { #`(Sub+{NativeCallSymbol[Str]}+{Native[Sub+{NativeCallSymbol[Str]},Str]}|140598248149192) ... }
> Sqlite3VersionNumber();
3008008
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment