1 ------------------------------------------------------------------------------
3 -- GNAT RUNTIME COMPONENTS --
11 -- Copyright (C) 1995-2001 Ada Core Technologies, Inc. --
13 -- GNAT is free software; you can redistribute it and/or modify it under --
14 -- terms of the GNU General Public License as published by the Free Soft- --
15 -- ware Foundation; either version 2, or (at your option) any later ver- --
16 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
17 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
18 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
19 -- for more details. You should have received a copy of the GNU General --
20 -- Public License distributed with GNAT; see file COPYING. If not, write --
21 -- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --
22 -- MA 02111-1307, USA. --
24 -- As a special exception, if other files instantiate generics from this --
25 -- unit, or you link this unit with other files to produce an executable, --
26 -- this unit does not by itself cause the resulting executable to be --
27 -- covered by the GNU General Public License. This exception does not --
28 -- however invalidate any other reasons why the executable file might be --
29 -- covered by the GNU Public License. --
31 -- GNAT is maintained by Ada Core Technologies Inc (http://www.gnat.com). --
33 ------------------------------------------------------------------------------
35 -- A simple preelaborable subset of Text_IO capabilities
37 -- A simple text I/O package that can be used for simple I/O functions in
38 -- user programs as required. This package is also preelaborated, unlike
39 -- Text_Io, and can thus be with'ed by preelaborated library units.
41 -- Note that Data_Error is not raised by these subprograms for bad data.
42 -- If such checks are needed then the regular Text_IO package such be used.
45 pragma Preelaborate
(IO
);
47 type File_Type
is limited private;
48 -- Specifies file to be used (the only possibilities are Standard_Output
49 -- and Standard_Error). There is no Create or Open facility that would
50 -- allow more general use of file names.
52 function Standard_Output
return File_Type
;
53 function Standard_Error
return File_Type
;
54 -- These functions are the only way to get File_Type values
56 procedure Get
(X
: out Integer);
57 procedure Get
(C
: out Character);
58 procedure Get_Line
(Item
: in out String; Last
: out Natural);
59 -- These routines always read from Standard_Input
61 procedure Put
(File
: File_Type
; X
: Integer);
62 procedure Put
(X
: Integer);
63 -- Output integer to specified file, or to current output file, same
64 -- output as if Ada.Text_IO.Integer_IO had been instantiated for Integer.
66 procedure Put
(File
: File_Type
; C
: Character);
67 procedure Put
(C
: Character);
68 -- Output character to specified file, or to current output file
70 procedure Put
(File
: File_Type
; S
: String);
71 procedure Put
(S
: String);
72 -- Output string to specified file, or to current output file
74 procedure Put_Line
(File
: File_Type
; S
: String);
75 procedure Put_Line
(S
: String);
76 -- Output string followed by new line to specified file, or to
77 -- current output file.
79 procedure New_Line
(File
: File_Type
; Spacing
: Positive := 1);
80 procedure New_Line
(Spacing
: Positive := 1);
81 -- Output new line character to specified file, or to current output file
83 procedure Set_Output
(File
: File_Type
);
84 -- Set current output file, default is Standard_Output if no call to
85 -- Set_Output is made.
88 type File_Type
is (Stdout
, Stderr
);
89 -- Stdout = Standard_Output, Stderr = Standard_Error
91 pragma Inline
(Standard_Error
);
92 pragma Inline
(Standard_Output
);