rt: Adds a runtime value for references and a module

Author: hexaredecimal

src/main/java/org/piccode/rt/PiccodeReference.java

@@ -7,28 +7,35 @@
  *
  * @author hexaredecimal
  */
-public class PiccodeString implements PiccodeValue {
+public class PiccodeReference implements PiccodeValue {
 	public static final Type TYPE = Type.STRING;
-	private String string;
+	private Object ref;
 
-	public PiccodeString(String str) {
-		this.string = str;
+	public PiccodeReference(Object ref) {
+		this.ref = ref;
 	}
 
 	@Override
 	public Object raw() {
-		return string;
+		return this;
 	}
 
+	public Object deref() {
+		return ref;
+	}
+
+	public void setRef(Object value) {
+		this.ref = value;
+	}
 	@Override
 	public String toString() {
-		return string;
+		return "&Ref<" + ref + ">";
 	}
 
 	@Override
 	public int hashCode() {
 		int hash = 5;
-		hash = 47 * hash + Objects.hashCode(this.string);
+		hash = 47 * hash + Objects.hashCode(this.ref);
 		return hash;
 	}
 
@@ -43,8 +50,8 @@ public boolean equals(Object obj) {
 		if (getClass() != obj.getClass()) {
 			return false;
 		}
-		final PiccodeString other = (PiccodeString) obj;
-		return Objects.equals(this.string, other.string);
+		final PiccodeReference other = (PiccodeReference) obj;
+		return Objects.equals(this.ref, other.ref);
 	}
 
 	@Override

src/main/java/org/piccode/rt/PiccodeValue.java

@@ -54,6 +54,7 @@ public static enum Type {
 		ARRAY,
 		TYPLE,
 		OBJECT,
+		REFERENCE,
 		CLOSURE,
 		MODULE,
 		UNIT,
@@ -69,6 +70,7 @@ public static Type of(PiccodeValue value) {
 			if (value instanceof PiccodeArray  ) return ARRAY;
 			if (value instanceof PiccodeClosure) return CLOSURE;
 			if (value instanceof PiccodeUnit   ) return UNIT;
+			if (value instanceof PiccodeReference) return REFERENCE;
 			if (value instanceof NativeFunction) return NATIVEFUNCTION;
 
 			System.out.println(value + " : " + value.getClass());

src/main/java/org/piccode/rt/modules/PiccodeRefModule.java

@@ -6,6 +6,7 @@
 import org.piccode.rt.Context;
 import org.piccode.rt.PiccodeArray;
 import org.piccode.rt.PiccodeNumber;
+import org.piccode.rt.PiccodeReference;
 import org.piccode.rt.PiccodeTuple;
 import org.piccode.rt.PiccodeValue;
 import org.piccode.rt.PiccodeValue.Type;
@@ -15,34 +16,25 @@
  *
  * @author hexaredecimal
  */
-public class PiccodeTupleModule {
+public class PiccodeRefModule {
 	public static void addFunctions() {
 
-		NativeFunctionFactory.create("tuplesize", List.of("tuple"), (args, namedArgs, frame) -> {
+		NativeFunctionFactory.create("set_ref", List.of("ref", "value"), (args, namedArgs, frame) -> {
 				var ctx = frame == null ? 
 						Context.top
 						: Context.getContextAt(frame);
 				var caller = ctx.getTopFrame().caller;
 
-				var tup = namedArgs.get("tuple");
-				PiccodeValue.verifyType(caller, tup, Type.TYPLE);
-				var arr = ((PiccodeTuple) tup).array().length;
-				return new PiccodeNumber("" + arr);
-		}, null);
-		
-		NativeFunctionFactory.create("tupletoarray", List.of("tuple"), (args, namedArgs, frame) -> {
-				var ctx = frame == null ? 
-						Context.top
-						: Context.getContextAt(frame);
-				var caller = ctx.getTopFrame().caller;
+				var ref = namedArgs.get("ref");
+				var value = namedArgs.get("value");
+				PiccodeValue.verifyType(caller, ref, Type.REFERENCE);
 
-				var tup = namedArgs.get("tuple");
-				PiccodeValue.verifyType(caller, tup, Type.TYPLE);
-				var arr = ((PiccodeTuple) tup).array();
-				var list = new ArrayList<PiccodeValue>();
-				list.addAll(Arrays.asList(arr));
-				return new PiccodeArray(list);
+				var obj = (PiccodeReference) ref;
+				obj.setRef(value);
+					
+				return obj;
 		}, null);
 
+		
 	}
 }