[T106][ZXW-22]7520V3SCV2.01.01.02P42U09_VEC_V0.8_AP_VEC origin source commit
Change-Id: Ic6e05d89ecd62fc34f82b23dcf306c93764aec4b
diff --git a/ap/libc/glibc/glibc-2.22/scripts/begin-end-check.pl b/ap/libc/glibc/glibc-2.22/scripts/begin-end-check.pl
new file mode 100644
index 0000000..1616931
--- /dev/null
+++ b/ap/libc/glibc/glibc-2.22/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;