sanitize.pl revision 40f53fa8d9c6a4fc38c0014495e7a42b08f52481
#
# Copyright (C) 2000 Internet Software Consortium.
#
# Permission to use, copy, modify, and distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM
# DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
# INTERNET SOFTWARE CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT,
# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
# FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
# NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
# WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
# $Id: sanitize.pl,v 1.3 2000/08/01 01:33:35 tale Exp $
# Don't try and sanitize this file: NOMINUM_IGNORE
# Go through the directory tree and make sure that all of the files are
# sanitized.
#
# In normal mode, check file, removing code between
# #ifndef NOMINUM_PUBLIC
# and the accompanying #else or #endif. Similarly, code in an #else
# clause after an #ifndef test will be removed. The #else or #endif's
# must appear as:
# #else /* NOMINUM_PUBLIC */
# #endif /* NOMINUM_PUBLIC */
# Balance is tested.
# Non-.c/.h files are tested for the existance of NOMINUM_PUBLIC anywhere
# in the file, and a warning is generated, unless the string
# NOMINUM_IGNORE appears before NOMINUM_PUBLIC.
# Usage:
# ./sanitize.pl -c - Check syntax only, don't change anything
# ./sanitize.pl -i - Reverse sense of sanitize.
# ./sanitize.pl - - Work as a pipe, sanitizing stdin to stdout.
# ./sanitize.pl file - Sanitize the specified file.
$makechange = 1;
$state = 0;
$showon = 1;
$debug = 0;
# States:
# 0 - Outside of test, include code
# 1 - Inside NOMINUM_PUBLIC
# 2 - Inside !NOMINUM_PUBLIC
$_ = $arg;
if (/^-c$/i) {
$makechange = 0;
}
elsif (/^-i$/i) {
$showon = 2;
}
elsif (/^-$/i) {
}
# elsif (/^-a$/i) {
# &rundir();
# }
elsif (/^-d$/i) {
$debug = 1;
}
else {
}
}
exit(0);
sub runfile($) {
$state = 0;
if ($makechange);
while (<INFILE>) {
if (/NOMINUM_IGNORE/) {
close(INFILE);
close(OUTFILE);
unlink($_[1]);
break;
}
if (/\#ifdef.+NOMINUM_PUBLIC/) {
if ($state != 0) {
print(STDERR "*** ERROR in file $_[0]: ".
"Found #ifdef without matching ".
"#endif.\n");
close(INFILE);
close(OUTFILE) if ($makechange);
unlink($_[1]);
break;
}
$state = 1;
}
elsif (/\#ifndef.+NOMINUM_PUBLIC/) {
if ($state != 0) {
print(STDERR "*** ERROR in file $_[0]: ".
"Found #ifndef without matching ".
"#endif.\n");
close(INFILE);
close(OUTFILE) if ($makechange);
unlink($_[1]);
break;
}
$state = 2;
}
elsif (/\#else.+NOMINUM_PUBLIC/) {
if ($state == 0) {
print(STDERR "*** ERROR in file $_[0]: ".
"Found #else without matching ".
"#if[n]def.\n");
close(INFILE);
close(OUTFILE) if ($makechange);
unlink($_[1]);
break;
}
if ($state == 1) {
$state = 2;
} else {
$state = 1;
}
}
elsif (/\#endif.+NOMINUM_PUBLIC/) {
if ($state == 0) {
print(STDERR "*** ERROR in file $_[0]: ".
"Found #else without matching ".
"#if[n]def.\n");
close(INFILE);
close(OUTFILE) if ($makechange);
unlink($_[1]);
break;
}
$state = 0;
}
elsif (/NOMINUM_PUBLIC/) {
print(STDERR "*** WARNING in file $_[0]: ".
"Found NOMINUM_PUBLIC outside of ".
"#ifdef/#else/#endif.\n");
}
else {
print(OUTFILE) if ($makechange);
}
}
}
if ($state != 0) {
print(STDERR "*** ERROR in file $_[0]: ".
"File ended with unterminated test.\n");
} else {
close(INFILE);
close(OUTFILE) if ($makechange);
unlink($_[0]) || die "Unlink $_[0]:";
rename($_[1], $_[0]) || die "Rename $_[1] to $_[0]:";
}
}
}