1------------------------------------------------------------------------------ 2-- -- 3-- GNAT RUNTIME COMPONENTS -- 4-- -- 5-- S Y S T E M . S E Q U E N T I A L _ I O -- 6-- -- 7-- S p e c -- 8-- -- 9-- Copyright (C) 1992,1993,1994 Free Software Foundation, Inc. -- 10-- -- 11-- GNAT is free software; you can redistribute it and/or modify it under -- 12-- terms of the GNU General Public License as published by the Free Soft- -- 13-- ware Foundation; either version 2, or (at your option) any later ver- -- 14-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- 15-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- 16-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- 17-- for more details. You should have received a copy of the GNU General -- 18-- Public License distributed with GNAT; see file COPYING. If not, write -- 19-- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, -- 20-- MA 02111-1307, USA. -- 21-- -- 22-- As a special exception, if other files instantiate generics from this -- 23-- unit, or you link this unit with other files to produce an executable, -- 24-- this unit does not by itself cause the resulting executable to be -- 25-- covered by the GNU General Public License. This exception does not -- 26-- however invalidate any other reasons why the executable file might be -- 27-- covered by the GNU Public License. -- 28-- -- 29-- GNAT was originally developed by the GNAT team at New York University. -- 30-- Extensive contributions were provided by Ada Core Technologies Inc. -- 31-- -- 32------------------------------------------------------------------------------ 33 34-- This package contains the declaration of the control block used for 35-- Seqential_IO. This must be declared at the outer library level. It also 36-- contains code that is shared between instances of Sequential_IO. 37 38with System.File_Control_Block; 39with Ada.Streams; 40 41package System.Sequential_IO is 42 43 package FCB renames System.File_Control_Block; 44 45 type Sequential_AFCB is new FCB.AFCB with null record; 46 -- No additional fields required for Sequential_IO 47 48 function AFCB_Allocate 49 (Control_Block : Sequential_AFCB) 50 return FCB.AFCB_Ptr; 51 52 procedure AFCB_Close (File : access Sequential_AFCB); 53 procedure AFCB_Free (File : access Sequential_AFCB); 54 55 procedure Read 56 (File : in out Sequential_AFCB; 57 Item : out Ada.Streams.Stream_Element_Array; 58 Last : out Ada.Streams.Stream_Element_Offset); 59 -- Required overriding of Read, not actually used for Sequential_IO 60 61 procedure Write 62 (File : in out Sequential_AFCB; 63 Item : in Ada.Streams.Stream_Element_Array); 64 -- Required overriding of Write, not actually used for Sequential_IO 65 66 type File_Type is access all Sequential_AFCB; 67 -- File_Type in individual instantiations is derived from this type 68 69 procedure Create 70 (File : in out File_Type; 71 Mode : in FCB.File_Mode := FCB.Out_File; 72 Name : in String := ""; 73 Form : in String := ""); 74 75 procedure Open 76 (File : in out File_Type; 77 Mode : in FCB.File_Mode; 78 Name : in String; 79 Form : in String := ""); 80 81end System.Sequential_IO; 82