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