1------------------------------------------------------------------------------ 2-- -- 3-- GNAT RUN-TIME COMPONENTS -- 4-- -- 5-- A D A . T E X T _ I O . F I X E D _ I O -- 6-- -- 7-- S p e c -- 8-- -- 9-- This specification is derived from the Ada Reference Manual for use with -- 10-- GNAT. In accordance with the copyright of that document, you can freely -- 11-- copy and modify this specification, provided that if you redistribute a -- 12-- modified version, any changes that you have made are clearly indicated. -- 13-- -- 14------------------------------------------------------------------------------ 15 16-- In Ada 95, the package Ada.Text_IO.Fixed_IO is a subpackage of Text_IO. 17-- This is for compatibility with Ada 83. In GNAT we make it a child package 18-- to avoid loading the necessary code if Fixed_IO is not instantiated. See 19-- routine Rtsfind.Check_Text_IO_Special_Unit for a description of how we 20-- patch up the difference in semantics so that it is invisible to the Ada 21-- programmer. 22 23private generic 24 type Num is delta <>; 25 26package Ada.Text_IO.Fixed_IO is 27 28 Default_Fore : Field := Num'Fore; 29 Default_Aft : Field := Num'Aft; 30 Default_Exp : Field := 0; 31 32 procedure Get 33 (File : File_Type; 34 Item : out Num; 35 Width : Field := 0); 36 37 procedure Get 38 (Item : out Num; 39 Width : Field := 0); 40 41 procedure Put 42 (File : File_Type; 43 Item : Num; 44 Fore : Field := Default_Fore; 45 Aft : Field := Default_Aft; 46 Exp : Field := Default_Exp); 47 48 procedure Put 49 (Item : Num; 50 Fore : Field := Default_Fore; 51 Aft : Field := Default_Aft; 52 Exp : Field := Default_Exp); 53 54 procedure Get 55 (From : String; 56 Item : out Num; 57 Last : out Positive); 58 59 procedure Put 60 (To : out String; 61 Item : Num; 62 Aft : Field := Default_Aft; 63 Exp : Field := Default_Exp); 64 65private 66 pragma Inline (Get); 67 pragma Inline (Put); 68 69end Ada.Text_IO.Fixed_IO; 70