{$MODE OBJFPC} { -*- delphi -*- }
{$INCLUDE settings.inc}
unit callbacks;

interface

uses
   rpc, genericutils;

type
   TActorCallbackType = (ctNoOp,
                         ctLostParent, ctGainedParent,
                         ctNavigation,
                         ctCrash);
   TActorCallbackTypeUtils = specialize DefaultUtils <TActorCallbackType>;
   TNoOpArguments = record
     Signature: ctNoOp..ctNoOp;
   end;
   TLostParentArguments = record
     Signature: ctLostParent..ctLostParent;
     Parent, Child: TAbstractTreeNode;
   end;
   TGainedParentArguments = record
     Signature: ctGainedParent..ctGainedParent;
     Parent, Child: TAbstractTreeNode;
   end;
   TNavigationArguments = record
     Signature: ctNavigation..ctNavigation;
   end;
   TCrashArguments = record
     Signature: ctCrash..ctCrash;
     Victim: TAbstractTreeNode;
     Destination: TAbstractTreeNode; // this can be changed to redirect the victim
   end;

implementation

end.