home *** CD-ROM | disk | FTP | other *** search
- ------------------------------------------------------------------------------
- -- --
- -- GNAT RUNTIME COMPONENTS --
- -- --
- -- A D A . T E X T _ I O . W I D E _ T E X T _ I O . M O D U L A R _ I O --
- -- --
- -- S p e c --
- -- --
- -- $Revision: 1.1 $ --
- -- --
- -- This specification is adapted from the Ada Reference Manual for use with --
- -- GNAT. In accordance with the copyright of that document, you can freely --
- -- copy and modify this specification, provided that if you redistribute a --
- -- modified version, any changes that you have made are clearly indicated. --
- -- --
- ------------------------------------------------------------------------------
-
- -- In Ada 95, the package Ada.Wide_Text_IO.Modular_IO is a subpackage of
- -- Wide_Text_IO. This is for compatibility with Text_IO. In GNAT we make
- -- it a child package to avoid loading the necessary code if Modular_IO
- -- is not instantiated. See routine Rtsfind.Text_IO_Kludge for a description
- -- of how we patch up the difference in semantics so that it is invisible
- -- to the Ada programmer. Note that since in GNAT Wide_Text_IO is itself a
- -- child of Ada.Text_IO, this package is a child of Ada.Text_IO.Wide_Text_IO.
-
- private generic
- type Num is range <>;
-
- package Ada.Text_IO.Wide_Text_IO.Modular_IO is
-
- Default_Width : Field := Num'Width;
- Default_Base : Number_Base := 10;
-
- procedure Get
- (File : in File_Type;
- Item : out Num;
- Width : in Field := 0);
-
- procedure Get
- (Item : out Num;
- Width : in Field := 0);
-
- procedure Put
- (File : in File_Type;
- Item : in Num;
- Width : in Field := Default_Width;
- Base : in Number_Base := Default_Base);
-
- procedure Put
- (Item : in Num;
- Width : in Field := Default_Width;
- Base : in Number_Base := Default_Base);
-
- procedure Get
- (From : in Wide_String;
- Item : out Num;
- Last : out Positive);
-
- procedure Put
- (To : out Wide_String;
- Item : in Num;
- Base : in Number_Base := Default_Base);
-
- end Ada.Text_IO.Wide_Text_IO.Modular_IO;
-