solenv/bin/msg_filter

   1 : # -*- perl -*-
   2 eval 'exec perl -wS $0 ${1+"$@"}'
   3         if 0;
   4 #
   5 # This file is part of the LibreOffice project.
   6 #
   7 # This Source Code Form is subject to the terms of the Mozilla Public
   8 # License, v. 2.0. If a copy of the MPL was not distributed with this
   9 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
  10 #
  11 # This file incorporates work covered by the following license notice:
  12 #
  13 #   Licensed to the Apache Software Foundation (ASF) under one or more
  14 #   contributor license agreements. See the NOTICE file distributed
  15 #   with this work for additional information regarding copyright
  16 #   ownership. The ASF licenses this file to you under the Apache
  17 #   License, Version 2.0 (the "License"); you may not use this file
  18 #   except in compliance with the License. You may obtain a copy of
  19 #   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  20 #
  21 # This is a script to get rid of bogus error messages that are spit out
  22 # by the compiler - sub 30/11/1999
  23
  24 # Lines that contain `xxxx' where xxxx belongs to the list knownMessages
  25 # and is surrounded by a backtick (`) and a forward tick (')
  26 # will not be seen in the compiler output
  27
  28
  29 @knownMessages  = (
  30 "__pure_virtual",
  31 "__vt_9bad_alloc",
  32 "__vt_9exception",
  33 "_._9bad_alloc",
  34 "__cp_push_exception",
  35 "__uncatch_exception",
  36 "__rtti_user",
  37 "__rtti_si",
  38 "__throw",
  39 "terminate__Fv",
  40 "__cp_pop_exception",
  41 "__builtin_vec_new",
  42 "__cmpdi2",
  43 "__builtin_vec_delete",
  44 "__cp_eh_info",
  45 "__builtin_delete",
  46 "__builtin_new",
  47 "__eh_alloc",
  48 "__check_eh_spec",
  49 "_type_match_rtti",
  50 "__rtti_class",
  51 "set_new_handler_FPFv_v",
  52 "__throw_type_match_rtti",
  53 "__check_eh_spec",
  54 "exception_type_info",
  55 "exception type_info function",
  56 "exception type_info node",
  57 "exception virtual table",
  58 "terminate(void)"
  59 );
  60
  61 # Create a hash %msgHash from list @knownMessages
  62 foreach $msg (@knownMessages) {
  63         $msgHash {$msg}++;
  64 }
  65 while ( <STDIN> ) {
  66
  67         if (/\`([\s\w]+)\'/) {
  68                 $entry = $1;
  69                 if (defined($entry)) {
  70                         if (!exists $msgHash{$entry}) {
  71                                 print $_;
  72                         }
  73                 }
  74         }
  75         else {
  76                 print $_;
  77         }
  78 }