Ada 编程/库/Ada.Real_Time.Timing_Events

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

---

此语言特性仅从Ada 2005开始提供。

Ada.Real_Time.Timing_Events 是预定义语言环境自 Ada 2005 开始的一个单元。

规范

--                     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.Real_Time.Timing_Events is

   type Timing_Event is tagged limited private;

   type Timing_Event_Handler is
     access protected procedure (Event : in out Timing_Event);

   procedure Set_Handler (Event   : in out Timing_Event;
                          At_Time : in     Time;
                          Handler : in     Timing_Event_Handler);

   procedure Set_Handler (Event   : in out Timing_Event;
                          In_Time : in     Time_Span;
                          Handler : in     Timing_Event_Handler);

   function Current_Handler (Event : in Timing_Event)
     return Timing_Event_Handler;

   procedure Cancel_Handler (Event     : in out Timing_Event;
                             Cancelled :    out Boolean);

   function Time_Of_Event (Event : in Timing_Event) return Time;

private

   pragma Import (Ada, Timing_Event);

end Ada.Real_Time.Timing_Events;

另请参阅

维基教科书

• Ada 编程/库/Ada

外部示例

• 在以下位置搜索 Ada.Real_Time.Timing_Events 的示例：Rosetta Code，GitHub (gists)，任何 Alire 包 或 本维基教科书。
• 在以下位置搜索与 Ada.Real_Time.Timing_Events 相关的帖子：Stack Overflow，comp.lang.ada 或 任何 Ada 相关页面。

Ada 参考手册

Ada 2005

• D.15: 定时事件 ^[注释]

Ada 2012

• D.15: 定时事件 ^[注释]

开源实现

FSF GNAT

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

drake

• 规范：tasking/a-rttiev.ads