Ada 编程/库/Ada.Synchronous_Task_Control

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

---

此语言功能从 Ada 95 开始可用。

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

规范

--                     Standard Ada library specification
--   Copyright (c) 2003-2018 Maxim Reznik <[email protected]>
--   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_Task_Control is

   pragma Preelaborate (Synchronous_Task_Control);

   type Suspension_Object is limited private;

   procedure Set_True (S : in out Suspension_Object);

   procedure Set_False (S : in out Suspension_Object);

   function Current_State (S : in Suspension_Object) return Boolean;

   procedure Suspend_Until_True (S : in out Suspension_Object);

private

   pragma Import (Ada, Suspension_Object);

end Ada.Synchronous_Task_Control;

参见

维基教科书

• Ada 编程/库/Ada

外部示例

• 搜索 示例 Ada.Synchronous_Task_Control in: Rosetta Code, GitHub (gists), 任何 Alire 包 或 此维基教科书.
• 搜索与 Ada.Synchronous_Task_Control 相关的 帖子 in: Stack Overflow, comp.lang.ada 或 任何与 Ada 相关的页面.

Ada 参考手册

Ada 95

• D.10: 同步任务控制 ^{[带注释的]}

Ada 2005

• D.10: 同步任务控制 ^{[带注释的]}

Ada 2012

• D.10: 同步任务控制 ^{[带注释的]}

开源实现

FSF GNAT

• 规范: a-sytaco.ads
• 主体: a-sytaco.adb

drake

• 规范: tasking/a-sytaco.ads
• 主体: tasking/a-sytaco.adb