Re: with and use

["Gautier direct_replies_not_read" <gautier_niouzes@hotmail.com>]

> > "with" and only appear at the top of a unit. Where can "use" appear?

>At any place a declaration can appear, and like any declaration, its 
>effects extends from where it is declared to the corresponding
>"end". In addition, it can also appear in a context clause.

Maybe these examples could help to understand the "why".

(1)

with GL, GLU, GLUT, GLOBE_3D, Game_control, Level_Manager;

procedure GloDemo1 is
  ...
  -- Here I don't want to open visibility
  ...
  procedure Display is
    use GL, GLOBE_3D; -- <-- Here but just here I want to open
                      -- visibility of the full GL bindings
  begin
    -- No need of "GL."

    Clear( COLOR_BUFFER_BIT or DEPTH_BUFFER_BIT );

    PushMatrix;
    Translate ( -eye(0), -eye(1), -eye(2) );

    Rotate( rot(0), 1.0, 0.0, 0.0 );
    Rotate( rot(1), 0.0, 1.0, 0.0 );
    Rotate( rot(2), 0.0, 0.0, 1.0 );

    ...

    PopMatrix;

    GL.Flush;
    GLUT.SwapBuffers;
  end Display;
  ...

(2)
with Ada.Text_IO; use Ada.Text_IO;

procedure xxx(f:File_Type) is
begin
  null;
end xxx;

(3)
with Ada.Text_IO;

procedure xxx(f:Ada.Text_IO.File_Type) is
begin
  null;
end xxx;

____________________________________________________________
Gautier  --  http://www.mysunrise.ch/users/gdm/index.htm#Ada

NB: For a direct answer, address on the Web site!


_________________________________________________________________
Join the world�s largest e-mail service with MSN Hotmail. 
http://www.hotmail.com