gistfile1.txt

use v6;
use NativeCall;

# int inet_pton(int af, const char * restrict src, void * restrict dst);
sub inet_pton(int32, Str, uint32 is rw) returns int32 is native(Str) { * }

# const char *inet_ntop(int af, const void * restrict src, char * restrict dst, socklen_t size);
sub inet_ntop(int32, uint32, Str is rw, uint8) returns Str is native(Str) { * }


my uint32 $s_addr;
my Str $ip;

inet_pton(2, "192.168.2.33", $s_addr);

say $s_addr;
say inet_ntop(2, $s_addr, $ip, 16);
say $ip;