Perlito5 - js - reference stringification

fglock · Sep 11, 2013 · 67d865d · 67d865d
1 parent 6332f51
commit 67d865d
Show file tree

Hide file tree

Showing 4 changed files with 45 additions and 6 deletions.
diff --git a/html/perlito5.js b/html/perlito5.js
diff --git a/perlito5.pl b/perlito5.pl
diff --git a/src5/lib/Perlito5/Dumper.pm b/src5/lib/Perlito5/Dumper.pm
@@ -1,5 +1,10 @@
 package Perlito5::Dumper;
 
+sub _identity {
+    # returns true if the 2 arguments point to the same reference
+    "$_[0]" eq "$_[1]"
+}
+
 sub Dumper {
     my $obj = $_[0];
     my $level = $_[1] || 0;

diff --git a/src5/lib/Perlito5/Javascript2/Runtime.pm b/src5/lib/Perlito5/Javascript2/Runtime.pm
@@ -369,27 +369,33 @@ function p5cleanup_local(idx, value) {
 
 //-------- Reference
 
+var p5id = Math.floor(Math.random() * 1000000000) + 1000000000;
+
 function p5HashRef(o) {
     this._hash_ = o;
     this._ref_ = "HASH";
+    this._id_  = p5id++;
     this.bool = function() { return 1 };
 }
 
 function p5ArrayRef(o) {
     this._array_ = o;
     this._ref_ = "ARRAY";
+    this._id_  = p5id++;
     this.bool = function() { return 1 };
 }
 
 function p5ScalarRef(o) {
     this._scalar_ = o;
     this._ref_ = "SCALAR";
+    this._id_  = p5id++;
     this.bool = function() { return 1 };
 }
 
 function p5GlobRef(o) {
     this._scalar_ = o;
     this._ref_ = "GLOB";
+    this._id_  = p5id++;
     this.bool = function() { return 1 };
 }
 
@@ -517,8 +523,16 @@ p5str = function(o) {
     if (o == null) {
         return "";
     }
-    if (typeof o === "object" && (o instanceof Array)) {
-        return CORE.join(["", o]);
+    if (typeof o === "object") {
+
+        if (o instanceof Array) {
+            return CORE.join(["", o]);
+        }
+
+        if ( o.hasOwnProperty("_ref_") ) {
+            return [o._ref_, '(0x', o._id_.toString( 16 ), ')'].join('');
+        }
+
     }
     // if (typeof o.string === "function") {
     //     return o.string();