From b3c3e36b75376e7707217f29e3c79fb2080b6bcc Mon Sep 17 00:00:00 2001
From: Michael Van Canneyt <michael@freepascal.org>
Date: Tue, 5 Nov 2024 23:57:04 +0100
Subject: [PATCH] * Execute command

---
 packages/wasi/src/rtl.webthreads.pas | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/packages/wasi/src/rtl.webthreads.pas b/packages/wasi/src/rtl.webthreads.pas
index 21d3762..5db09a6 100644
--- a/packages/wasi/src/rtl.webthreads.pas
+++ b/packages/wasi/src/rtl.webthreads.pas
@@ -47,6 +47,9 @@ Const
   cmdSpawn = 'spawn';
   cmdLoad = 'load';
   cmdRun = 'run';
+  cmdExecute = 'execute';
+
+  channelConsole = 'console_output';
 
   DefaultThreadWorker = 'pas2jsthreadworker.js';
   DefaultThreadCount = 2;
@@ -220,6 +223,15 @@ Type
     Args : Integer;
   end;
 
+  // Sent my main to thread controller worker: load and start a webassembly
+  TWorkerExecuteCommand = class external name 'Object' (TWorkerCommand)
+  public
+    Url : String;
+    ExecuteFunc : string;
+    Env : TJSObject;
+  end;
+
+
   { TWorkerRunCommandHelper }
 
   TWorkerRunCommandHelper = class helper for TWorkerRunCommand