Ada 编程/库/Ada.Finalization

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

---

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

Ada.Finalization 是 预定义语言环境 自 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.Finalization is
   pragma Preelaborate (Finalization);
   pragma Remote_Types (Finalization);

   type Controlled is abstract tagged private;
   pragma Preelaborable_Initialization (Controlled);

   procedure Initialize  (Object : in out Controlled) is null;
   procedure Adjust      (Object : in out Controlled) is null;
   procedure Finalize    (Object : in out Controlled) is null;

   type Limited_Controlled is abstract tagged limited private;
   pragma Preelaborable_Initialization (Limited_Controlled);

   procedure Initialize  (Object : in out Limited_Controlled) is null;
   procedure Finalize    (Object : in out Limited_Controlled) is null;

private

   pragma Import (Ada, Controlled);
   pragma Import (Ada, Limited_Controlled);

end Ada.Finalization;

另请参阅

• Ada 编程/库/Ada
• Ada 编程/面向对象

外部示例

• 在以下位置搜索 示例 Ada.Finalization：Rosetta Code，GitHub (gists)，任何 Alire 包 或 此。
• 在以下位置搜索与 Ada.Finalization 相关的 帖子：Stack Overflow，comp.lang.ada 或 任何 Ada 相关页面。

Ada 语言参考手册

Ada 95

• 7.6: 用户定义的赋值和终结 ^{[带注释的]}

Ada 2005

• 7.6: 用户定义的赋值和终结 ^{[带注释的]}

Ada 2012

• 7.6: 赋值和终结 ^{[带注释的]}

开源实现

FSF GNAT

• 规范：a-finali.ads

drake

• 规范：a-finali.ads