Perlito5 - js3 - more tied methods

Author: fglock

perlito5.pl

@@ -279,32 +279,19 @@ CORE.splice = function(List__, p5want) {
 };
 
 CORE.pop = function(List__) {
-    var o = List__[0];
-    if (o._array_.length == null) {
-        return null;
-    }
-    return o._array_.pop();
+    return List__[0].POP();
 };
 
 CORE.shift = function(List__) {
-    var o = List__[0];
-    if (o._array_.length == null) {
-        return null;
-    }
-    return o._array_.shift();
+    return List__[0].SHIFT();
 };
 
 CORE.push = function(List__) {
     return List__[0].PUSH(List__[1]);
 };
 
 CORE.unshift = function(List__) {
-    var o = List__[0];
-    var v = List__[1];
-    for(var i = v._array_.length-1; i >= 0; i--) {
-        o._array_.unshift(v._array_[i]);
-    }
-    return o._array_.length;
+    return List__[0].UNSHIFT(List__[1]);
 };
 
 CORE.join = function(List__) {

src5/lib/Perlito5/Javascript3/CORE.pm

@@ -386,12 +386,32 @@ function p5Array(o) {
         }
         return this;
     };
+
+    // operations that can be tie()
     this.PUSH = function(v) {
         for(var i = 0; i < v._array_.length; i++) {
             this._array_.push(v._array_[i] instanceof p5Scalar ? v._array_[i]._v_ :  v._array_[i]);
         }
         return this._array_.length;
     };
+    this.UNSHIFT = function(v) {
+        for(var i = v._array_.length-1; i >= 0; i--) {
+            this._array_.unshift(v._array_[i] instanceof p5Scalar ? v._array_[i]._v_ :  v._array_[i]);
+        }
+        return this._array_.length;
+    };
+    this.POP = function() {
+        if (this._array_.length == null) {
+            return null;
+        }
+        return this._array_.pop();
+    };
+    this.SHIFT = function(v) {
+        if (this._array_.length == null) {
+            return null;
+        }
+        return this._array_.shift();
+    };
 }
 
 function p5Hash(o) {