Ada 程式設計/庫/Ada.Synchronous_Task_Control

計算 » 計算機科學 » 計算機程式設計 » Ada 程式設計

---

此語言功能從 Ada 95 開始可用。

Ada.Synchronous_Task_Control 是 預定義語言環境 自 Ada 95 以來的一部分。

規範

--                     Standard Ada library specification
--   Copyright (c) 2003-2018 Maxim Reznik <reznikmm@gmail.com>
--   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