rt: Fixed the scope issues and added 2 new modules

Author: hexaredecimal

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

@@ -3,6 +3,10 @@
 import java.util.HashMap;
 import java.util.List;
 import java.util.Stack;
+import java.util.UUID;
+import java.util.concurrent.ExecutorService;
+import java.util.concurrent.Executors;
+import java.util.concurrent.Future;
 import org.piccode.ast.Ast;
 
 /**
@@ -16,16 +20,46 @@ public class Context {
 	public static Context top = new Context();
 	public static HashMap<String, PiccodeModule> modules = new HashMap<>();
 	private HashMap<String, List<Ast>> import_cache = new HashMap<>();
+	private ExecutorService threadPool;
+	private HashMap<String, Future<PiccodeValue>> futureMap;
 
 	public Context() {
 		call_frames = new Stack<>();
 		import_cache = new HashMap<>();
+		threadPool = Executors.newVirtualThreadPerTaskExecutor();
+		futureMap = new HashMap<>();
 	}
 
 	public Stack<StackFrame> getCallStack() {
 		return call_frames;
 	}
 
+	public int getFramesCount() {
+		return call_frames.size();
+	}
+
+	public String makeThread(PiccodeClosure node) {
+		var future = threadPool.submit(() -> {
+			var call = (PiccodeClosure) node.call(new PiccodeUnit());
+			return call.evaluateIfReady();
+		});
+		var id = UUID.randomUUID().toString();
+		futureMap.put(id, future);
+		return id;
+	}
+
+	public Future<PiccodeValue> getFuture(String id) {
+		return futureMap.get(id);
+	}
+
+	public void removeFuture(String uuid) {
+		futureMap.remove(uuid);
+	}
+	
+	public StackFrame getTopFrame() {
+		return call_frames.peek();
+	}
+
 	public static void addGlobal(String name, PiccodeValue value) {
 		global_scope.put(name, value);
 	}
@@ -52,7 +86,13 @@ public void dropScope() {
 	}
 
 	public void pushStackFrame(Ast top) {
-		call_frames.push(new StackFrame(top));
+		if (call_frames.isEmpty()) {
+			call_frames.push(new StackFrame(top));
+			return;
+		}
+	
+		var prev = call_frames.peek();
+		call_frames.push(new StackFrame(top, prev));
 	}
 
 	public void dropStackFrame() {
@@ -109,4 +149,5 @@ public String getSimilarName(String id) {
 		}
 		return result;
 	}
+
 }

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

@@ -20,6 +20,13 @@ public StackFrame(Ast caller) {
 		this.scope_stack = new Stack<>();
 	}
 
+	public StackFrame(Ast caller, StackFrame from) {
+		this.caller = caller;
+		this.scope_stack = new Stack<>();
+		scope_stack.addAll(from.scope_stack);
+	}
+
+
 	public void addScope() {
 		if (!scope_stack.isEmpty()) {
 			var _top = scope_stack.peek();

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

@@ -0,0 +1,63 @@
+package org.piccode.rt.modules;
+
+import java.util.ArrayList;
+import java.util.Arrays;
+import java.util.HashMap;
+import java.util.List;
+import org.piccode.rt.Context;
+import org.piccode.rt.PiccodeArray;
+import org.piccode.rt.PiccodeClosure;
+import org.piccode.rt.PiccodeException;
+import org.piccode.rt.PiccodeNumber;
+import org.piccode.rt.PiccodeObject;
+import org.piccode.rt.PiccodeString;
+import org.piccode.rt.PiccodeTuple;
+import org.piccode.rt.PiccodeUnit;
+import org.piccode.rt.PiccodeValue;
+
+
+/**
+ *
+ * @author hexaredecimal
+ */
+public class PiccodeVirtualModule {
+	public static void addFunctions() {
+		
+		NativeFunctionFactory.create("task", List.of("fx"), (args, namedArgs) -> {
+				var scope = Context.top.getTopFrame();
+				var fx = namedArgs.get("fx");
+			
+				if (!(fx instanceof PiccodeClosure)) {
+					var node = scope.caller;
+					throw new PiccodeException(node.file, node.line, node.column, "Invalid value passed. Expected a closure but found " + fx);
+				}
+				var id = Context.top.makeThread((PiccodeClosure) fx);
+				var future = Context.top.getFuture(id);
+				var obj = new HashMap<String, PiccodeValue>();
+				obj.put("uuid", new PiccodeString(id));
+				obj.put("future", new PiccodeNumber(future.hashCode()));
+				return new PiccodeObject(obj);
+		});
+		
+		NativeFunctionFactory.create("sleep", List.of("ms"), (args, namedArgs) -> {
+				var scope = Context.top.getTopFrame();
+				var ms = namedArgs.get("ms");
+			
+				if (!(ms instanceof PiccodeNumber)) {
+					var node = scope.caller;
+					throw new PiccodeException(node.file, node.line, node.column, "Invalid value passed. Expected a number but found " + ms.type());
+				}
+
+			try {
+				var millisec = (long) (double) ms.raw();
+				Thread.sleep(millisec);
+			} catch (InterruptedException ex) {
+				var node = scope.caller;
+				throw new PiccodeException(node.file, node.line, node.column, "Internal Error: " + ex.getMessage());
+			}
+				
+				return new PiccodeUnit();
+		});
+		
+	}
+}