summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorUlrich Drepper <drepper@redhat.com>2005-09-17 17:15:50 +0000
committerUlrich Drepper <drepper@redhat.com>2005-09-17 17:15:50 +0000
commit5ef5cbb6208180c5c3550c4e2f81a40dcb1618cc (patch)
tree7d631dd15bf1fce675bdd7683060d17d75c79dd1 /scripts
parent4708f2b1f91171d94dd1b95f20a47154cabbb2f2 (diff)
downloadglibc-5ef5cbb6208180c5c3550c4e2f81a40dcb1618cc.tar.gz
Add rules to run scripts/begin-end-check.pl.
Diffstat (limited to 'scripts')
-rw-r--r--scripts/begin-end-check.pl47
1 files changed, 47 insertions, 0 deletions
diff --git a/scripts/begin-end-check.pl b/scripts/begin-end-check.pl
new file mode 100644
index 0000000000..1616931bb0
--- /dev/null
+++ b/scripts/begin-end-check.pl
@@ -0,0 +1,47 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+# Check __BEGIN_NAMESPACE ... __END_NAMESPACE pairing in an include file.
+
+my $code = 0;
+for my $path (@ARGV) {
+ my $localcode = 0;
+ my @stack;
+
+ open my $in, '<', $path
+ or die "open $path failed: $!";
+
+ while (<$in>) {
+ if ( /^\s*__BEGIN_(.*)\b/ ) {
+ push @stack, $1;
+ }
+ elsif ( /^\s*__END_(.*)\b/ ) {
+ if (@stack) {
+ my $tag = pop @stack;
+ if ($1 ne $tag) {
+ print "$path:$.: BEGIN $tag paired with END $1\n";
+ $localcode = 1;
+ }
+ }
+ else {
+ print "$path:$.: END $1 does not match a begin\n";
+ $localcode = 1;
+ }
+ }
+ }
+
+ if (@stack) {
+ print "$path: Unmatched begin tags " . join (' ', @stack) ."\n";
+ $localcode = 1;
+ }
+
+ if ($localcode == 0) {
+ print "$path: OK\n";
+ } else {
+ $code = $localcode;
+ }
+}
+
+exit $code;