From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,53ff35f061735632,start X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2002-08-02 21:27:43 PST Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!headwall.stanford.edu!newsfeed.news2me.com!west.cox.net!cox.net!p01!news1.central.cox.net.POSTED!53ab2750!not-for-mail Message-ID: <3D4B5C18.9050701@cox.net> From: "John M. Resler" User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:0.9.4) Gecko/20011128 Netscape6/6.2.1 X-Accept-Language: en-us MIME-Version: 1.0 Newsgroups: comp.lang.ada Subject: Redirecting Standard Error... Content-Type: text/plain; charset=us-ascii; format=flowed Content-Transfer-Encoding: 7bit Date: Sat, 03 Aug 2002 04:27:43 GMT NNTP-Posting-Host: 68.102.241.220 X-Complaints-To: abuse@cox.net X-Trace: news1.central.cox.net 1028348863 68.102.241.220 (Sat, 03 Aug 2002 00:27:43 EDT) NNTP-Posting-Date: Sat, 03 Aug 2002 00:27:43 EDT Organization: Cox Communications Xref: archiver1.google.com comp.lang.ada:27640 Date: 2002-08-03T04:27:43+00:00 List-Id: 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 );