How to print Unicode with NCurses?

Question

Will print

 ~X  

How can I get unicode ☺ instead?

 #!/usr/bin/env perl6 use v6; use NCurses; my $win = initscr; my Str $s = "\x[263a]"; printw( $s ); nc_refresh; while getch() < 0 {}; endwin; 

Answer 1

I got the same thing as you - you just need to set the locale;

 #!/usr/bin/env perl6 use v6; use NCurses; use NativeCall; my int32 constant LC_ALL = 6; # From locale.h my sub setlocale(int32, Str) returns Str is native(Str) { * } setlocale(LC_ALL, ""); my $win = initscr; my Str $s = "\x[263a]"; printw( $s ); nc_refresh; while getch() < 0 {}; endwin; 

It puts a smile on my face ... and the screen. ☺