Ada 编程/库/Ada.Text_IO.Complex_IO

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

---

此语言特性自 Ada 95 起可用。

Ada.Text_IO.Complex_IO 是 预定义语言环境 自 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.Numerics.Generic_Complex_Types;

generic
   with package Complex_Types is
     new Ada.Numerics.Generic_Complex_Types (<>);
package Ada.Text_IO.Complex_IO is

   use Complex_Types;

   Default_Fore : Field := 2;
   Default_Aft  : Field := Real'Digits - 1;
   Default_Exp  : Field := 3;

   procedure Get (File  : in  File_Type;
                  Item  : out Complex;
                  Width : in  Field := 0);

   procedure Get (Item  : out Complex;
                  Width : in  Field := 0);

   procedure Put (File : in File_Type;
                  Item : in Complex;
                  Fore : in Field := Default_Fore;
                  Aft  : in Field := Default_Aft;
                  Exp  : in Field := Default_Exp);

   procedure Put (Item : in Complex;
                  Fore : in Field := Default_Fore;
                  Aft  : in Field := Default_Aft;
                  Exp  : in Field := Default_Exp);

   procedure Get (From : in  String;
                  Item : out Complex;
                  Last : out Positive);

   procedure Put (To   : out String;
                  Item : in  Complex;
                  Aft  : in  Field := Default_Aft;
                  Exp  : in  Field := Default_Exp);

end Ada.Text_IO.Complex_IO;

另见

维基教科书

• Ada 编程/库/Ada

外部示例

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

Ada 参考手册

Ada 95

• G.1.3：复数输入输出 ^[注释]

Ada 2005

• G.1.3：复数输入输出 ^[注释]

Ada 2012

• G.1.3：复数输入输出 ^[注释]

开源实现

FSF GNAT

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

drake

• 规范：textio/a-ticoio.ads
• 主体：textio/a-ticoio.adb