epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Delete filterWarnings.pl script

Browse Source 
Was only used on HPUX which we don't support any more.
This commit is contained in:
Andrew Johnson
2012-04-12 10:34:56 -05:00
parent 545166281c
commit 0ea56b82b8
4 changed files with 0 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
documentation/README.1st
View File

@@ -272,7 +272,6 @@
cvsclean.pl Remove all .#* files in directory tree
dos2unix.pl Converts text file from DOS CR/LF to unix ISO
expandvars.pl Tool to expand @VAR@ variables while copying a file
filterWarnings.pl Filters warning messages during HP builds
fullpathName.pl Returns fullpath name of directory arg
installEpics.pl Installs built files into install directories
makeIncludeDbd.pl Creates *Include.dbd file from filename args files

1
documentation/README.html
View File

@@ -284,7 +284,6 @@
cvsclean.pl Remove all .#* files in directory tree
dos2unix.pl Converts text file from DOS CR/LF to unix ISO
expandvars.pl Tool to expand @VAR@ variables while copying a file
filterWarnings.pl Filters warning messages during HP builds
fullpathName.pl Returns fullpath name of directory arg
installEpics.pl Installs built files into install directories
makeIncludeDbd.pl Creates *Include.dbd file from filename args files

1
src/tools/Makefile
View File

@@ -36,7 +36,6 @@ PERL_SCRIPTS += convertRelease.pl
PERL_SCRIPTS += cvsclean.pl
PERL_SCRIPTS += dos2unix.pl
PERL_SCRIPTS += expandVars.pl
PERL_SCRIPTS += filterWarnings.pl
PERL_SCRIPTS += fullPathName.pl
PERL_SCRIPTS += installEpics.pl
PERL_SCRIPTS += makeDbDepends.pl

54
src/tools/filterWarnings.pl
View File

@@ -1,54 +0,0 @@
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
if $running_under_some_shell; # filterWarnings.pl
#*************************************************************************
# Copyright (c) 2002 The University of Chicago, as Operator of Argonne
# National Laboratory.
# Copyright (c) 2002 The Regents of the University of California, as
# Operator of Los Alamos National Laboratory.
# Copyright (c) 2002 Berliner Elektronenspeicherringgesellschaft fuer
# Synchrotronstrahlung.
# EPICS BASE Versions 3.13.7
# and higher are distributed subject to a Software License Agreement found
# in file LICENSE that is included with this distribution.
#*************************************************************************
# $Revision-Id$
#
# Author: Ralph Lange
#
use Text::Wrap;
my ($errline, $errno, $codeline, $pointline);
$Text::Wrap::columns = $ENV{COLUMNS} if $ENV{COLUMNS};
sub Usage
{
print "Usage:\n";
print "<compile line> 2>&1 | $0\n";
exit 2;
}
# Invalid whit space filter on solaris not implemented
#if ( $ENV{"EPICS_HOST_ARCH"} =~ m/solaris-sparc/ ) {
# while ( $errline = <> ) {
# if ( $errline !~ m/invalid white space character in directive/ ) {
# print $errline;
# }
# }
#} else {
while ( $errline = <> ) {
if ( $errline =~ m/^(Warning|Error)/ ) {
($errno) = ($errline =~ m/.* ([0-9]+):/);
$codeline = <>;
$pointline = <>;
next if $codeline =~ m|/[/*]\s*X.*aCC[^a-zA-Z]*$errno|;
print wrap ("", " ", $errline);
print $codeline;
print $pointline;
}
}
#}