Ada 编程/库/Ada.Direct IO

此语言特性从 Ada 95 开始可用。

此页面是一个存根。您可以通过阅读贡献指南并扩展它来改进 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.IO_Exceptions;
generic
   type Element_Type is private;
package Ada.Direct_IO is

   type File_Type is limited private;

   type File_Mode is (In_File, Inout_File, Out_File);
   type Count     is range 0 .. implementation_defined;
   subtype Positive_Count is Count range 1 .. Count'Last;

   --  File management

   procedure Create (File : in out File_Type;
                     Mode : in File_Mode := Inout_File;
                     Name : in String := "";
                     Form : in String := "");

   procedure Open (File : in out File_Type;
                   Mode : in File_Mode;
                   Name : in String;
                   Form : in String := "");

   procedure Close (File : in out File_Type);
   procedure Delete (File : in out File_Type);
   procedure Reset (File : in out File_Type; Mode : in File_Mode);
   procedure Reset (File : in out File_Type);

   function Mode   (File : in File_Type) return File_Mode;
   function Name   (File : in File_Type) return String;
   function Form   (File : in File_Type) return String;

   function Is_Open (File : in File_Type) return Boolean;

   --  Input and output operations

   procedure Read (File : in File_Type; Item : out Element_Type;
                                        From : in  Positive_Count);
   procedure Read (File : in File_Type; Item : out Element_Type);

   procedure Write (File : in File_Type; Item : in Element_Type;
                                         To   : in Positive_Count);
   procedure Write (File : in File_Type; Item : in Element_Type);

   procedure Set_Index (File : in File_Type; To : in Positive_Count);

   function Index (File : in File_Type) return Positive_Count;
   function Size (File : in File_Type) return Count;

   function End_Of_File (File : in File_Type) return Boolean;

   --  Exceptions

   Status_Error : exception renames IO_Exceptions.Status_Error;
   Mode_Error   : exception renames IO_Exceptions.Mode_Error;
   Name_Error   : exception renames IO_Exceptions.Name_Error;
   Use_Error    : exception renames IO_Exceptions.Use_Error;
   Device_Error : exception renames IO_Exceptions.Device_Error;
   End_Error    : exception renames IO_Exceptions.End_Error;
   Data_Error   : exception renames IO_Exceptions.Data_Error;

private

   type File_Type is limited null record;

end Ada.Direct_IO;

另请参阅

维基教科书

外部示例

搜索示例在：Rosetta Code, GitHub (gists), 任何 Alire 包或此维基教科书。
搜索帖子与 Ada.Direct_IO 相关的：Stack Overflow, comp.lang.ada 或任何与 Ada 相关的页面。

Ada 语言参考手册

开源实现

FSF GNAT

规范：a-direio.ads
主体：a-direio.adb

drake

规范：streams/a-direio.ads
主体：streams/a-direio.adb

规范

另请参阅

维基教科书

外部示例

Ada 语言参考手册

Ada 95

Ada 2005

Ada 2012

开源实现