Re: Better way to fill Storage_IO?

["Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>]

On 2021-05-19 21:25, J-P. Rosen wrote:
> Le 19/05/2021 à 10:26, Björn Lundin a écrit :
>> Given the above I do prefer
>>
>>
>> Text_IO.Put_Line ("Next is " & Next_Location'Image);
>>
>> over
>>
>> Text_IO.Put_Line ("Next is " & 
>> Coded_Values.WCS_Next_Location_Type_Type'Image(Next_Location));
> 
> Interesting example. When I define a type that I want to be able to 
> print, I define also (in the same place) an instantiation of 
> Integer_IO/Enumeration_IO, and I would write:
>     Put ("Next is "); Put (Next_Location); New_Line;
> 
> 'Image was not intended for regular IO.

Maybe it was so in 1983. These days immediate I/O is impractical. Most 
of use cases is about formatting strings and very rarely writing the 
result into some file, usually stream. So 'Image is far more frequently 
used than Integer_IO, Enumeration_IO etc. I did not use any of that for 
decades. A programmer would not even care about them, because he will 
not suddenly change the programming technique universally used with GUI 
widgets, streams, database interfaces, for some obscure generic packages 
when Text_IO gets involved.

So let's modify the example to:

    Dialog.Message.Set_Text ("Next is " &
       Coded_Values.WCS_Next_Location_Type_Type'Image(Next_Location));

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de