File : g-io-zfp.ads
1 ------------------------------------------------------------------------------
2 -- --
3 -- GNAT RUN-TIME COMPONENTS --
4 -- --
5 -- G N A T . I O --
6 -- --
7 -- S p e c --
8 -- --
9 -- Copyright (C) 1995-2010, AdaCore --
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 3, 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. --
17 -- --
18 -- --
19 -- --
20 -- --
21 -- --
22 -- You should have received a copy of the GNU General Public License and --
23 -- a copy of the GCC Runtime Library Exception along with this program; --
24 -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
25 -- <http://www.gnu.org/licenses/>. --
26 -- --
27 -- GNAT was originally developed by the GNAT team at New York University. --
28 -- Extensive contributions were provided by Ada Core Technologies Inc. --
29 -- --
30 ------------------------------------------------------------------------------
31
32 -- A simple preelaborable subset of Text_IO capabilities
33
34 -- A simple text I/O package that can be used for simple I/O functions in
35 -- user programs as required. This package is also preelaborated, unlike
36 -- Text_IO, and can thus be with'ed by preelaborated library units.
37
38 -- Note that Data_Error is not raised by these subprograms for bad data.
39 -- If such checks are needed then the regular Text_IO package must be used.
40
41 -- This is the zfp version of GNAT.IO package
42
43 package GNAT.IO is
44 pragma Preelaborate;
45
46 procedure Put (X : Integer);
47 -- Output integer to specified file, or to current output file, same
48 -- output as if Ada.Text_IO.Integer_IO had been instantiated for Integer.
49
50 procedure Put (C : Character);
51 -- Output character to specified file, or to current output file
52
53 procedure Put (S : String);
54 -- Output string to specified file, or to current output file
55
56 procedure Put_Line (S : String);
57 -- Output string followed by new line to specified file, or to
58 -- current output file.
59
60 procedure New_Line (Spacing : Positive := 1);
61 -- Output new line character to specified file, or to current output file
62
63 end GNAT.IO;