Ada 程式設計/庫/Ada.Execution Time

此語言特性僅從 Ada 2005 開始可用。

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

此頁面是一個存根。您可以透過閱讀貢獻指南和擴充套件它來改進 Ada 程式設計華夏公益教科書。

規範

--                     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
-- -------------------------------------------------------------------------

with Ada.Real_Time;
with Ada.Task_Identification;

package Ada.Execution_Time is

   type CPU_Time is private;

   CPU_Time_First : constant CPU_Time;
   CPU_Time_Last  : constant CPU_Time;
   CPU_Time_Unit  : constant := implementation_defined;

   CPU_Tick : constant Ada.Real_Time.Time_Span;

   function Clock (T : in Ada.Task_Identification.Task_Id
                     := Ada.Task_Identification.Current_Task)
     return CPU_Time;

   function "+" (Left  : in CPU_Time;
                 Right : in Ada.Real_Time.Time_Span)
     return CPU_Time;

   function "+" (Left  : in Ada.Real_Time.Time_Span;
                 Right : in CPU_Time)
     return CPU_Time;

   function "-" (Left  : in CPU_Time;
                 Right : in Ada.Real_Time.Time_Span)
     return CPU_Time;

   function "-" (Left  : in CPU_Time;
                 Right : in CPU_Time)
     return Ada.Real_Time.Time_Span;

   function "<" (Left  : in CPU_Time;
                 Right : in CPU_Time)
     return Boolean;

   function "<=" (Left  : in CPU_Time;
                  Right : in CPU_Time)
     return Boolean;

   function ">" (Left  : in CPU_Time;
                 Right : in CPU_Time)
     return Boolean;

   function ">=" (Left  : in CPU_Time;
                  Right : in CPU_Time)
     return Boolean;

   procedure Split (T  : in     CPU_Time;
                    SC :    out Ada.Real_Time.Seconds_Count;
                    TS :    out Ada.Real_Time.Time_Span);

   function Time_Of (SC : in Ada.Real_Time.Seconds_Count;
                     TS : in Ada.Real_Time.Time_Span
                       := Ada.Real_Time.Time_Span_Zero)
     return CPU_Time;

private

   pragma Import (Ada, CPU_Time);
   pragma Import (Ada, CPU_Time_First);
   pragma Import (Ada, CPU_Time_Last);
   pragma Import (Ada, CPU_Tick);

end Ada.Execution_Time;