Perlito5 - js3 - increment/decrement

Author: fglock

perlito5.pl

@@ -1417,19 +1417,19 @@ package Perlito5::AST::Apply;
 
         'postfix:<++>' => sub {
             my $self = $_[0];
-            '(' . join( ' ', map( $_->emit_javascript3, @{ $self->{arguments} } ) ) . ')++';
+            $self->{arguments}[0]->emit_javascript3() . '.p5postincr()';
         },
         'postfix:<-->' => sub {
             my $self = $_[0];
-            '(' . join( ' ', map( $_->emit_javascript3, @{ $self->{arguments} } ) ) . ')--';
+            $self->{arguments}[0]->emit_javascript3() . '.p5postdecr()';
         },
         'prefix:<++>' => sub {
             my $self = $_[0];
-            '++(' . join( ' ', map( $_->emit_javascript3, @{ $self->{arguments} } ) ) . ')';
+            $self->{arguments}[0]->emit_javascript3() . '.p5incr()';
         },
         'prefix:<-->' => sub {
             my $self = $_[0];
-            '--(' . join( ' ', map( $_->emit_javascript3, @{ $self->{arguments} } ) ) . ')';
+            $self->{arguments}[0]->emit_javascript3() . '.p5decr()';
         },
 
         'infix:<x>' => sub {

src5/lib/Perlito5/Javascript3/Emitter.pm

@@ -455,6 +455,28 @@ function p5Scalar(o) {
     this.p5code = function() {
         return p5code(this._v_);
     };
+    this.p5incr = function() {
+        // TODO - string increment with p5str_inc()
+        this._v_++;
+        return this._v_;
+    };
+    this.p5postincr = function() {
+        // TODO - string increment with p5str_inc()
+        var v = this._v_;
+        this._v_++;
+        return v;
+    };
+    this.p5decr = function() {
+        // TODO - numify before decrement
+        this._v_--;
+        return this._v_;
+    };
+    this.p5postdecr = function() {
+        // TODO - numify before decrement
+        var v = this._v_;
+        this._v_--;
+        return v;
+    };
 
     // be a scalar ref
     this.sderef = function(i) {