Ada 编程/库/Ada.Text_IO.Bounded_IO

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

Ada.Text_IO.Bounded_IO 是预定义语言环境自 Ada 2005 以来的一部分。

此页面是一个残根。您可以通过阅读贡献指南并扩展它来改进 Ada 编程维基教科书。

规范

--                     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.Strings.Bounded;

generic
   with package Bounded is
     new Ada.Strings.Bounded.Generic_Bounded_Length (<>);
package Ada.Text_IO.Bounded_IO is

   procedure Put
     (File : in File_Type;
      Item : in Bounded.Bounded_String);

   procedure Put
     (Item : in Bounded.Bounded_String);

   procedure Put_Line
     (File : in File_Type;
      Item : in Bounded.Bounded_String);

   procedure Put_Line
     (Item : in Bounded.Bounded_String);

   function Get_Line
     (File : in File_Type)
     return Bounded.Bounded_String;

   function Get_Line
     return Bounded.Bounded_String;

   procedure Get_Line
     (File : in File_Type; Item : out Bounded.Bounded_String);

   procedure Get_Line
     (Item : out Bounded.Bounded_String);

end Ada.Text_IO.Bounded_IO;