procedure Get (Item : out Enum) is
pragma Unsuppress (Range_Check);
-
begin
Get (Current_In, Item);
end Get;
Set : Type_Set := Default_Setting)
is
Image : constant String := Enum'Image (Item);
-
begin
Aux.Put (File, Image, Width, Set);
end Put;
Set : Type_Set := Default_Setting)
is
Image : constant String := Enum'Image (Item);
-
begin
Aux.Puts (To, Image, Set);
end Put;