Ada 编程/库/Ada.Task_Attributes

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

---

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

Ada.Task_Attributes 是自 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
-- -------------------------------------------------------------------------

with Ada.Task_Identification; use Ada.Task_Identification;

generic
   type Attribute is private;
   Initial_Value : in Attribute;
package Ada.Task_Attributes is

   type Attribute_Handle is access all Attribute;

   function Value (T : Task_Id := Current_Task) return Attribute;

   function Reference (T : Task_Id := Current_Task) return Attribute_Handle;

   procedure Set_Value (Val : in Attribute;
                        T   : in Task_Id := Current_Task);

   procedure Reinitialize (T : in Task_Id := Current_Task);

end Ada.Task_Attributes;

另请参阅

维基教科书

• Ada 编程/库/Ada

外部示例

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

Ada 参考手册

Ada 95

• C.7.2: 包 Task_Attributes ^[带注释]

Ada 2005

• C.7.2: 包 Task_Attributes ^[带注释]

Ada 2012

• C.7.2: 包 Task_Attributes ^[带注释]

开源实现

FSF GNAT

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

drake

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