with Asis;

package Asis.Toolkit.ObjectAda.Ada_Environments is

-----------------------------------------------------------------

  procedure Initialize (Context : in out Asis.Context;
			Verbose : in     Boolean := False);

-----------------------------------------------------------------
-- Context - Specifies the context to initialize.
-- 
-- Performs a simple default initialization consisting of the following:
--
--   Asis.Implementation.Initialize;
--
--   Asis.Ada_Environments.Associate (
--      The_Context => Context,
--      Name        => "Default_Library");
--
--   Asis.Ada_Environments.Open (The_Context => Context);
--
-- If Verbose, outputs results of:
--     Asis.Implementation.Is_Initialized
--     Asis.Ada_Environments.Is_Open (The_Context => Context)
--
-----------------------------------------------------------------

  procedure Finalize (Context : in out Asis.Context);

-----------------------------------------------------------------
-- Context - Specifies the context to finalize.
-- 
-- Performs a simple default finalization consisting of the following:
--
--    Asis.Ada_Environments.Close (The_Context => Context);
--    Asis.Ada_Environments.Dissociate (The_Context => Context);
--    Asis.Implementation.Finalize;
--
-----------------------------------------------------------------

end Asis.Toolkit.ObjectAda.Ada_Environments;