Browse Source

* Execute command

Michael Van Canneyt 9 months ago
parent
commit
b3c3e36b75
1 changed files with 12 additions and 0 deletions
  1. 12 0
      packages/wasi/src/rtl.webthreads.pas

+ 12 - 0
packages/wasi/src/rtl.webthreads.pas

@@ -47,6 +47,9 @@ Const
   cmdSpawn = 'spawn';
   cmdSpawn = 'spawn';
   cmdLoad = 'load';
   cmdLoad = 'load';
   cmdRun = 'run';
   cmdRun = 'run';
+  cmdExecute = 'execute';
+
+  channelConsole = 'console_output';
 
 
   DefaultThreadWorker = 'pas2jsthreadworker.js';
   DefaultThreadWorker = 'pas2jsthreadworker.js';
   DefaultThreadCount = 2;
   DefaultThreadCount = 2;
@@ -220,6 +223,15 @@ Type
     Args : Integer;
     Args : Integer;
   end;
   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 }
 
 
   TWorkerRunCommandHelper = class helper for TWorkerRunCommand
   TWorkerRunCommandHelper = class helper for TWorkerRunCommand