Re: Why both "with" and "use"?

[robert_dewar@my-dejanews.com]

In article <7ah3te$g6p$1@platane.wanadoo.fr>,
  "Jean-Pierre Rosen" <rosen.adalog@wanadoo.fr> wrote:
> Of course, this is an abuse and common sense applies. My
> example was rather:

> exception
>    when Occur : others =>
>       declare
>           use Ada.Exceptions;
>       begin
>            Put_Line ("Oops" & Exception_Name (Occur));
>            Raise_Exception (My_Exception'Identity,
>                  Message => Exception_Message (Occur));
>       end;
>
> Here, I wouldn't like a use clause applying to the whole
> subprogram when I really need it only in the exception
> part.

I actually am just as happy to take this as an example of
unnecessary obfuscation. Here we have a package whose names
have been designed to be conveniently used with a USE
clause. THere is really no reason to write
Ada.Exceptions.Exception_Message, instead of just
Exception_Message.

Now the normal approach of simply adding the use clause
to the context clause puts the use clause out of the way
and takes only three tokens.

JPR's usage above takes 8 tokens, even assuming it is only
used once in a unit (8*N if it is used N times), and worse,
inteferes with the clarity of the code by introducing
extraneous junk which serves no real purpose at this point
in the code.


-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own