tie scalar WIP

Author: fglock

src/main/java/org/perlonjava/runtime/RuntimeScalar.java

@@ -238,6 +238,7 @@ public int getInt() {
             case GLOB -> 1;  // Assuming globs are truthy, so 1
             case REGEX -> 1; // Assuming regexes are truthy, so 1
             case JAVAOBJECT -> value != null ? 1 : 0;
+            case TIED_SCALAR -> tiedFetch().getInt();
             default -> Overload.numify(this).getInt();
         };
     }
@@ -254,6 +255,7 @@ public long getLong() {
             case GLOB -> 1L;
             case REGEX -> 1L;
             case JAVAOBJECT -> value != null ? 1L : 0L;
+            case TIED_SCALAR -> tiedFetch().getLong();
             default -> Overload.numify(this).getLong();
         };
     }
@@ -270,6 +272,7 @@ public double getDouble() {
             case GLOB -> 1.0;
             case REGEX -> 1.0;
             case JAVAOBJECT -> value != null ? 1.0 : 0.0;
+            case TIED_SCALAR -> tiedFetch().getDouble();
             default -> Overload.numify(this).getDouble();
         };
     }
@@ -289,6 +292,7 @@ public boolean getBoolean() {
             case GLOB -> true;
             case REGEX -> true;
             case JAVAOBJECT -> value != null;
+            case TIED_SCALAR -> tiedFetch().getBoolean();
             default -> Overload.boolify(this).getBoolean();
         };
     }
@@ -328,8 +332,19 @@ public RuntimeScalar addToScalar(RuntimeScalar scalar) {
         return scalar.set(this);
     }
 
+    public RuntimeScalar tiedFetch() {
+        throw new PerlCompilerException("not implemented: tied FETCH on scalar");
+    }
+
+    public RuntimeScalar tiedStore() {
+        throw new PerlCompilerException("not implemented: tied STORE on scalar");
+    }
+
     // Setters
     public RuntimeScalar set(RuntimeScalar value) {
+        if (this.type == TIED_SCALAR) {
+            return tiedStore();
+        }
         this.type = value.type;
         this.value = value.value;
         return this;
@@ -397,6 +412,7 @@ public String toString() {
             case GLOB -> value == null ? "" : value.toString();
             case REGEX -> value.toString();
             case JAVAOBJECT -> value.toString();
+            case TIED_SCALAR -> tiedFetch().toString();
             default -> Overload.stringify(this).toString();
         };
     }

src/main/java/org/perlonjava/runtime/RuntimeScalarType.java

@@ -14,12 +14,13 @@ public class RuntimeScalarType {
     public static final int GLOB = 6;
     public static final int REGEX = 7;
     public static final int JAVAOBJECT = 8;
+    public static final int TIED_SCALAR = 9;
     // References with bit pattern
-    public static final int CODE = 9 | REFERENCE_BIT;
-    public static final int REFERENCE = 10 | REFERENCE_BIT;
-    public static final int ARRAYREFERENCE = 11 | REFERENCE_BIT;
-    public static final int HASHREFERENCE = 12 | REFERENCE_BIT;
-    public static final int GLOBREFERENCE = 13 | REFERENCE_BIT;
+    public static final int CODE = 100 | REFERENCE_BIT;
+    public static final int REFERENCE = 101 | REFERENCE_BIT;
+    public static final int ARRAYREFERENCE = 102 | REFERENCE_BIT;
+    public static final int HASHREFERENCE = 103 | REFERENCE_BIT;
+    public static final int GLOBREFERENCE = 104 | REFERENCE_BIT;
 
     private RuntimeScalarType() {
     } // Prevent instantiation