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

Enumeration_IO

generic
   type Enum is (<>);

package Enumeration_IO is

   Default_Width : Field := 0;
   Default_Setting : Type_Set := Upper_Case;

   procedure Get (File : in File_Type; Item : out Enum);
   procedure Get (Item : out Enum);

   procedure Put
     (File  : in File_Type;
      Item  : in Enum;
      Width : in Field := Default_Width;
      Set   : in Type_Set := Default_Setting);

   procedure Put
     (Item  : in Enum;
      Width : in Field := Default_Width;
      Set   : in Type_Set := Default_Setting);

   procedure Get
     (From : in String;
      Item : out Enum;
      Last : out positive);

   procedure Put
     (To   : out String;
      Item : in Enum;
      Set  : in Type_Set := Default_Setting);

end Enumeration_IO;


Javier Miranda 2002-10-03