this - Ada 中有 "this"关键字吗？

Question

具体来说，有没有办法让任务获得对自身的引用？

例如:

task type someTask; 
type someTaskAccessor is access someTask;

task body someTask is
    pointerToTask : someTaskAccessor;
begin
    pointerToTask = this;
end someTask;

Answer 1

我可以建议的最明显的解决方案是在您的任务的最开始声明一个集合点(一个条目)，您将一个对刚刚创建的任务的引用传递给它。另一种可能性是对您的任务类型使用判别式，其作用是告诉新任务它所在的位置(将新任务的访问权传递给判别式)。不幸的是，我手头没有 Ada 编译器，所以我不能给你任何可行的例子。

无论如何，根据您的评论:需要在某处处理新任务的创建，此时您还需要确定此新任务将进入您的双向链表的哪个位置(您需要知道至少一个现有任务当创建一个新的以便他们交流时:他们不会神奇地发现自己)。您可以利用这一刻，当您拥有新创建的任务及其左右对等项时，告诉每个人谁是他们的邻居(再次使用集合点)。