Parent Directory
|
Revision Log
Applied Bob and Daniel's patches to convert the build system to automake. Added the maintain directory, containing files that are used for maintenance, but are not distributed. This is an intermediate step.
1 | #!/usr/bin/perl |
2 | |
3 | # This is a script for removing trailing whitespace from lines in files that |
4 | # are listed on the command line. |
5 | |
6 | # This subroutine does the work for one file. |
7 | |
8 | sub detrail { |
9 | my($file) = $_[0]; |
10 | my($changed) = 0; |
11 | open(IN, "$file") || die "Can't open $file for input"; |
12 | @lines = <IN>; |
13 | close(IN); |
14 | foreach (@lines) |
15 | { |
16 | if (/\s+\n$/) |
17 | { |
18 | s/\s+\n$/\n/; |
19 | $changed = 1; |
20 | } |
21 | } |
22 | if ($changed) |
23 | { |
24 | open(OUT, ">$file") || die "Can't open $file for output"; |
25 | print OUT @lines; |
26 | close(OUT); |
27 | } |
28 | } |
29 | |
30 | # This is the main program |
31 | |
32 | $, = ""; # Output field separator |
33 | for ($i = 0; $i < @ARGV; $i++) { &detrail($ARGV[$i]); } |
34 | |
35 | # End |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.5 |