paulohrpinheiro

> 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

paulohrpinheiro

$ perl6
> use NativeCall
> sub sqlite3_libversion_number() returns Int is native('libsqlite3') { * }
sub sqlite3_libversion_number( --> Int) { #`(Sub+{Native[Sub,Str]}|139826072374712) ... }
> say sqlite3_libversion_number()
3008008

paulohrpinheiro

paulohrpinheiro

" cada tab vira quatro espaços em branco
set tabstop=4
set softtabstop=4
set shiftwidth=4
set expandtab
 
" deixa seu arquivo colorido, realçando a sintaxe de
" acordo com a linguagem usada
syntax on