Ada 编程/库/Ada.Wide_Text_IO.Complex_IO

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

---

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

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

with Ada.Numerics.Generic_Complex_Types;

generic
   with package Complex_Types is
     new Ada.Numerics.Generic_Complex_Types (<>);
package Ada.Wide_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  Wide_String;
                  Item : out Complex;
                  Last : out Positive);

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

end Ada.Wide_Text_IO.Complex_IO;

另请参阅

华夏公益教科书

• Ada 编程/库/Ada
• Ada 编程/输入输出

外部示例

• 在以下网站搜索 Ada.Wide_Text_IO.Complex_IO 的 示例：Rosetta 代码，GitHub (gists)，任何 Alire 包 或 此华夏公益教科书。
• 在以下网站搜索与 Ada.Wide_Text_IO.Complex_IO 相关的 帖子：Stack Overflow，comp.lang.ada 或 任何与 Ada 相关的页面。

Ada 参考手册

Ada 95

• G.1.3: 复杂输入输出 ^{[带注释的]}

Ada 2005

• G.1.4: 包 Wide_Text_IO.Complex_IO ^{[带注释的]}

Ada 2012

• G.1.4: 包 Wide_Text_IO.Complex_IO ^{[带注释的]}

开源实现

FSF GNAT

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

drake

• 规范：textio/a-wtcoio.ads