------------------------------------------------------------------------------ -- -- -- GNAT RUNTIME COMPONENTS -- -- -- -- G N A T . I O -- -- -- -- S p e c -- -- -- -- $Revision: 2 $ -- -- -- -- Copyright (c) 1992,1993,1994 NYU, All Rights Reserved -- -- -- -- The GNAT library is free software; you can redistribute it and/or modify -- -- it under terms of the GNU Library General Public License as published by -- -- the Free Software Foundation; either version 2, or (at your option) any -- -- later version. The GNAT library is distributed in the hope that it will -- -- be useful, but WITHOUT ANY WARRANTY; without even the implied warranty -- -- of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -- -- Library General Public License for more details. You should have -- -- received a copy of the GNU Library General Public License along with -- -- the GNAT library; see the file COPYING.LIB. If not, write to the Free -- -- Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -- -- -- ------------------------------------------------------------------------------ -- A simple text I/O package that can be used for simple I/O functions in -- user programs as required. This package is also preelaborated, unlike -- Text_Io, and can thus be with'ed by preelaborated library units. package Gnat.Io is pragma Preelaborate (Io); procedure Get (X : out Integer); procedure Put (X : Integer); procedure Get (C : out Character); procedure Put (C : Character); procedure Put (S : String); procedure Put_Line (S : String); procedure New_Line (Spacing : Positive := 1); procedure Get_Line (Item : in out String; Last : out Natural); end Gnat.Io;