Redirecting Standard Error...

Redirecting Standard Error...

[John M. Resler]

I have written an asis application that generates a lot of messages to 
standard error that are not pertinent to my application but nonetheless 
unsightly. I have attempted to redirect standard_error with the 
following lines to a log file and receive no exceptions but the asis 
initialization, association and open procedures continue to generate the 
standard_error output. Can anyone tell me over and above what I am 
doing, how I might get around this?

    -- code here for testing if file exists already, etc.
    -- redirect standard_error
    Ada.Wide_Text_IO.Open( File => Warnings_File,
                           Mode => Ada.Wide_Text_IO.Append_File,
                           Name => "asis_warnings.txt" );

    Ada.Wide_Text_IO.Set_Error( File => Warnings_File );

    -- initialize the asis environment
    Asis.Implementation.Initialize;
    Asis.Ada_Environments.Associate ( The_Context, "The_Context", "-CA");
    Asis.Ada_Environments.Open ( The_Context );

Re: Redirecting Standard Error...

[Stephen Leake]

"John M. Resler" <John-Resler@cox.net> writes:

> I have written an asis application that generates a lot of messages to
> standard error that are not pertinent to my application but
> nonetheless unsightly. I have attempted to redirect standard_error
> with the following lines to a log file and receive no exceptions but
> the asis initialization, association and open procedures continue to
> generate the standard_error output. Can anyone tell me over and above
> what I am doing, how I might get around this?

It may be that ASIS is using Ada.Text_IO for standard error, rather
than Ada.Wide_Text_IO; I have not checked.

> 
> 
>     -- code here for testing if file exists already, etc. --
>     redirect standard_error Ada.Wide_Text_IO.Open( File =>
>     Warnings_File, Mode => Ada.Wide_Text_IO.Append_File, Name =>
>     "asis_warnings.txt" );
> 
>     Ada.Wide_Text_IO.Set_Error( File => Warnings_File );
> 
>     -- initialize the asis environment
>     Asis.Implementation.Initialize;
>     Asis.Ada_Environments.Associate ( The_Context, "The_Context", "-CA");
>     Asis.Ada_Environments.Open ( The_Context );
> 

-- 
-- Stephe