inital checkin: libpcre
This the initial commit of libpcre, the Perl Compatible Regular
Expression library (http://www.pcre.org/)
The files in the dist/ directory correspond to pcre version
8.36 and are unmodified.
$ sha256sum pcre-8.36.tar.bz2
ef833457de0c40e82f573e34528f43a751ff20257ad0e86d272ed5637eb845bb pcre-8.36.tar.bz2
The top level directory contains 3 symlinks pointing into dist,
and one Android.mk file.
The code compiles, and I've tested a small program to verify that
the functionality is correct. However, no extensive testing has
been done at this point.
Bug: 17682157
Change-Id: Ie304aaf09cc37eb8920b40c3a3f7db61a0fda205
diff --git a/dist/Detrail b/dist/Detrail
new file mode 100755
index 0000000..1c5c7e9
--- /dev/null
+++ b/dist/Detrail
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+
+# This is a script for removing trailing whitespace from lines in files that
+# are listed on the command line.
+
+# This subroutine does the work for one file.
+
+sub detrail {
+my($file) = $_[0];
+my($changed) = 0;
+open(IN, "$file") || die "Can't open $file for input";
+@lines = <IN>;
+close(IN);
+foreach (@lines)
+ {
+ if (/\s+\n$/)
+ {
+ s/\s+\n$/\n/;
+ $changed = 1;
+ }
+ }
+if ($changed)
+ {
+ open(OUT, ">$file") || die "Can't open $file for output";
+ print OUT @lines;
+ close(OUT);
+ }
+}
+
+# This is the main program
+
+$, = ""; # Output field separator
+for ($i = 0; $i < @ARGV; $i++) { &detrail($ARGV[$i]); }
+
+# End