next up previous contents
Siguiente: Float_IO Subir: Text_IO Anterior: Text_IO   Índice General

Integer_IO

generic
   type Num is range <>;

package Integer_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 String;
      Item : out Num;
      Last : out Positive);

   procedure Put
     (To   : out String;
      Item : in Num;
      Base : in Number_Base := Default_Base);

private
   pragma Inline (Get);
   pragma Inline (Put);

end Integer_IO;



Javier Miranda 2002-10-03