| : # -*- perl -*- |
| eval 'exec perl -wS $0 ${1+"$@"}' |
| if 0; |
| # ************************************************************* |
| # |
| # Licensed to the Apache Software Foundation (ASF) under one |
| # or more contributor license agreements. See the NOTICE file |
| # distributed with this work for additional information |
| # regarding copyright ownership. The ASF licenses this file |
| # to you under the Apache License, Version 2.0 (the |
| # "License"); you may not use this file except in compliance |
| # with the License. You may obtain a copy of the License at |
| # |
| # http://www.apache.org/licenses/LICENSE-2.0 |
| # |
| # Unless required by applicable law or agreed to in writing, |
| # software distributed under the License is distributed on an |
| # "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY |
| # KIND, either express or implied. See the License for the |
| # specific language governing permissions and limitations |
| # under the License. |
| # |
| # ************************************************************* |
| # This is a script to get rid of bogus error messages that are spit out |
| # by the compiler - sub 30/11/1999 |
| |
| # Lines that contain `xxxx' where xxxx belongs to the list knownMessages |
| # and is surrounded by a backtick (`) and a forward tick (') |
| # will not be seen in the compiler output |
| |
| |
| @knownMessages = ( |
| "__pure_virtual", |
| "__vt_9bad_alloc", |
| "__vt_9exception", |
| "_._9bad_alloc", |
| "__cp_push_exception", |
| "__uncatch_exception", |
| "__rtti_user", |
| "__rtti_si", |
| "__throw", |
| "terminate__Fv", |
| "__cp_pop_exception", |
| "__builtin_vec_new", |
| "__cmpdi2", |
| "__builtin_vec_delete", |
| "__cp_eh_info", |
| "__builtin_delete", |
| "__builtin_new", |
| "__eh_alloc", |
| "__check_eh_spec", |
| "_type_match_rtti", |
| "__rtti_class", |
| "set_new_handler_FPFv_v", |
| "__throw_type_match_rtti", |
| "__check_eh_spec", |
| "exception_type_info", |
| "exception type_info function", |
| "exception type_info node", |
| "exception virtual table", |
| "terminate(void)" |
| ); |
| |
| # Create a hash %msgHash from list @knownMessages |
| foreach $msg (@knownMessages) { |
| $msgHash {$msg}++; |
| } |
| while ( <STDIN> ) { |
| |
| if (/\`([\s\w]+)\'/) { |
| $entry = $1; |
| if (defined($entry)) { |
| if (!exists $msgHash{$entry}) { |
| print $_; |
| } |
| } |
| } |
| else { |
| print $_; |
| } |
| } |