paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-25 17:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add typed command handler

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-04-25 15:35:28 +02:00
parent 71d5bedcf0
commit 4e58143aa7
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/rtl/src/Rtl.WorkerCommands.pas
View File

@ -79,6 +79,7 @@ Type
TCommandDispatcherClass = class of TCommandDispatcher;
TCommandHandler = Reference to procedure(aCommand : TCustomWorkerCommand);
generic TTypedCommandHandler<T : TCustomWorkerCommand> = Reference to procedure(aCommand : T);
TCommandHandlerArray = array of TCommandHandler;
{ TCommandDispatcher }
@ -124,6 +125,8 @@ Type
Procedure RegisterCommandHandler(const aCommand : string; aHandler : TCommandHandler);
// Remove the given command handler for command aCommand
Procedure UnRegisterCommandHandler(const aCommand : string; aHandler : TCommandHandler);
// Register a command handler for command aCommand
Generic Procedure AddCommandHandler<T : TCustomWorkerCommand>(const aCommand : string; aHandler : specialize TTypedCommandHandler<T>);
// Register a worker for broadcast
Procedure RegisterWorker(aWorker : TJSWorker; const aName : string);
// Remove a worker from broadcast list
@ -386,6 +389,14 @@ begin
end;
end;
generic procedure TCommandDispatcher.AddCommandHandler<T>(const aCommand: string; aHandler: specialize TTypedCommandHandler<T>);
begin
RegisterCommandHandler(aCommand,procedure (aCmd : TCustomWorkerCommand)
begin
aHandler(T(aCmd));
end);
end;
procedure TCommandDispatcher.RegisterWorker(aWorker: TJSWorker; const aName: string);
var
lReg : TJSWorkerReg;