Ada 编程/库/Ada.Wide_Wide_Text_IO.Complex_IO
外观
此语言功能仅从 Ada 2005 开始可用。
Ada.Wide_Wide_Text_IO.Complex_IO 是自 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 -- -------------------------------------------------------------------------with
Ada.Numerics.Generic_Complex_Types;generic
with
package
Complex_Typesis
new
Ada.Numerics.Generic_Complex_Types (<>);package
Ada.Wide_Wide_Text_IO.Complex_IOis
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_Wide_String; Item :out
Complex; Last :out
Positive);procedure
Put (To :out
Wide_Wide_String; Item :in
Complex; Aft :in
Field := Default_Aft; Exp :in
Field := Default_Exp);end
Ada.Wide_Wide_Text_IO.Complex_IO;
外部示例
[编辑源代码]- 在以下网站中搜索
Ada.Wide_Wide_Text_IO.Complex_IO
的示例:Rosetta Code,GitHub (gists),任何 Alire 包 或 本维基教科书。 - 在以下网站中搜索与
Ada.Wide_Wide_Text_IO.Complex_IO
相关的帖子:Stack Overflow,comp.lang.ada 或 任何与 Ada 相关的页面。
FSF GNAT
- 规范:a-ztcoio.ads
- 主体:a-ztcoio.adb
drake