get_utf8_string

Author: mamod

lib/JavaScript/Duktape.pm

@@ -5,7 +5,7 @@ use Carp;
 use Data::Dumper;
 use Scalar::Util 'looks_like_number';
 
-our $VERSION = '0.2.1';
+our $VERSION = '0.3.0';
 
 use base qw/Exporter/;
 our @EXPORT = qw (
@@ -295,7 +295,7 @@ sub to_perl {
     my $type = $self->get_type($index);
 
     if ($type == JavaScript::Duktape::DUK_TYPE_STRING){
-        $ret = $self->get_string($index);
+        $ret = $self->get_utf8_string($index);
     }
 
     elsif ($type == JavaScript::Duktape::DUK_TYPE_NUMBER){
@@ -458,6 +458,11 @@ sub safe_call {
     return 0;
 }
 
+##############################################
+# custom functions
+##############################################
+*get_utf8_string = \&perl_duk_get_utf8_string;
+
 ##############################################
 # overridden functions
 ##############################################

lib/JavaScript/Duktape/C/duktape_wrap.c

@@ -186,6 +186,14 @@ SV *perl_duk_require_context(duk_context *ctx, duk_idx_t index) {
     return obj_ref;
 }
 
+SV *perl_duk_get_utf8_string(duk_context *ctx, duk_idx_t index) {
+    STRLEN slen;
+    const char *str = duk_get_lstring(ctx, index, &slen);
+    SV *src = newSVpv(str, slen);
+    SvPV(src, slen);
+    SvUTF8_on(src);
+    return src;
+}
 
 /**
   * open c shared library

t/utf8.t

@@ -0,0 +1,49 @@
+use lib './lib';
+use strict;
+use warnings;
+use JavaScript::Duktape;
+use Data::Dumper;
+use Test::More;
+use Encode;
+use utf8;
+
+my $js = JavaScript::Duktape->new();
+my $duk = $js->duk;
+
+my $count = 0;
+
+my $evalstr = <<'//JSEND';
+    function test (s){
+        is(s, "abc αβγ ß");
+        is(s.toUpperCase().length, 10);
+    }
+
+    function uc(s) { return s.toUpperCase(); }
+    toPerl( uc("abc αβγ ß") ) // ascii: abc,  greek:alpha beta gamma, german:sharp-s
+//JSEND
+
+$js->set(is => sub { 
+    shift; 
+    is(shift, shift); 
+});
+
+$js->set(toPerl =>
+    sub {
+        my $duk = shift;
+        my $string = shift;
+        is length $string, 10;
+        
+        use bytes;
+        is length $string, 13;
+        no bytes;
+
+        is $string, uc("abc αβγ ß");
+    }
+);
+
+$js->eval($evalstr);
+
+my $jsTest = $js->get('test');
+$jsTest->("abc αβγ ß");
+
+done_testing(5);