Ada 编程/库/Ada.Synchronous_Barriers

计算 » 计算机科学 » 计算机编程 » Ada 编程

---

此语言特性在 Ada 2012 中引入。

Ada.Synchronous_Barriers 是 预定义语言环境 自 Ada 2012 以来的一部分。

规范

--                     Standard Ada library specification
--   Copyright (c) 2004-2016 AXE Consultants
--   Copyright (c) 2004, 2005, 2006 Ada-Europe
--   Copyright (c) 2000 The MITRE Corporation, Inc.
--   Copyright (c) 1992, 1993, 1994, 1995 Intermetrics, Inc.
--   SPDX-License-Identifier: BSD-3-Clause and LicenseRef-AdaReferenceManual
-- -------------------------------------------------------------------------

package Ada.Synchronous_Barriers is
   pragma Preelaborate(Synchronous_Barriers);

   subtype Barrier_Limit is Positive range 1 .. implementation_defined;

   type Synchronous_Barrier (Release_Threshold : Barrier_Limit) is limited private;

   procedure Wait_For_Release (The_Barrier : in out Synchronous_Barrier;
                               Notified    :    out Boolean);

private
   --  not specified by the language
end Ada.Synchronous_Barriers;

另请参阅

• Ada 编程/库/Ada

外部示例

• 在以下位置搜索 Ada.Synchronous_Barriers 的示例：Rosetta 代码，GitHub (gists)，任何 Alire 包 或 本。
• 在以下位置搜索与 Ada.Synchronous_Barriers 相关的帖子：Stack Overflow，comp.lang.ada 或 任何与 Ada 相关的页面。

Ada 参考手册

Ada 2012

• D.10.1：同步屏障 ^{[带注释的]}

开源实现

FSF GNAT

• 规范：a-synbar.ads
• 主体：a-synbar.adb

drake

• 规范：tasking/a-synbar.ads
• 主体：tasking/a-synbar.adb