diff options
author | ph10 <ph10@2f5784b3-3f2a-0410-8824-cb99058d5e15> | 2007-03-08 16:53:09 +0000 |
---|---|---|
committer | ph10 <ph10@2f5784b3-3f2a-0410-8824-cb99058d5e15> | 2007-03-08 16:53:09 +0000 |
commit | fb65c97eca8a06b5ab09eb36dd32296fa441419f (patch) | |
tree | e663d21eede0bda3e34e9cd98312b0740f9fc72c /Detrail | |
parent | fa85f5ee481179f3453200d51f3d797e455dd529 (diff) | |
download | pcre-fb65c97eca8a06b5ab09eb36dd32296fa441419f.tar.gz |
Create the PrepareRelease script to process the documentation and create the
.generic files for distribution, also to remove trailing spaces. Update a lot
more of the build-time documentation. Arrange for PrepareRelease and its
sub-scripts to be distributed.
git-svn-id: svn://vcs.exim.org/pcre/code/trunk@111 2f5784b3-3f2a-0410-8824-cb99058d5e15
Diffstat (limited to 'Detrail')
-rwxr-xr-x | Detrail | 35 |
1 files changed, 35 insertions, 0 deletions
@@ -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 |