diff options
Diffstat (limited to '')
-rw-r--r-- | doc/tools/word-replace2 | 98 |
1 files changed, 0 insertions, 98 deletions
diff --git a/doc/tools/word-replace2 b/doc/tools/word-replace2 deleted file mode 100644 index 31d36a6ca5..0000000000 --- a/doc/tools/word-replace2 +++ /dev/null @@ -1,98 +0,0 @@ -#!/usr/bin/perl - -eval "exec /usr/local/bin/perl -S $0 $*" - if $running_under_some_shell; - -require 'getopts.pl'; -&Getopts("p:vh"); # help, pattern file, verbose, - -if ($opt_h || ! $opt_p) { - print STDERR <<NO_MORE_HELP; -word-replace2 - - Replace *words* with patterns. Pattern file specifies which patterns - to replace on each line. All patterns are wrapped with perl \\b regexp - specifiers. - -Usage: $0 [-v] -p pattern-file files to replace - - -v -- possibly more verbose - -p file -- pattern file - -h -- help - - anything else == this help message - -Pattern file looks like this: - -# Example: -# ignores all lines with beginning with # or not exactly 2 fields -_Dorky_Name rtems_dorky_name # comments, and blank lines are cool -_Dorky_Name2 rtems_dorky_name2 # comments, and blank lines are cool -NO_MORE_HELP - exit 0; -} - -$verbose = $opt_v; -$pattern_file = $opt_p; - -# make standard outputs unbuffered (so the '.'s come out ok) -$oldfh = select(STDERR); $| = 1; select($oldfh); -$oldfh = select(STDOUT); $| = 1; select($oldfh); - -# pull in the patterns -open(PATTERNS, "<$pattern_file") || - die "could not open $pattern_file: $!, crapped out at"; - - - -foreach (<PATTERNS>) -{ - chop; - s/#.*//; - next if /^$/; - ($orig, $new, $junk, @rest) = split; - next if ( ! $orig || ! $new || $junk); # <2 or >2 patterns - die "pattern appears 2x: '$orig' in '$pattern_file'--" if defined($patterns{$orig}); - $patterns{$orig} = $new; -} -close PATTERNS; -# walk thru each line in each file - -$infile = '-' ; -$outfile = '-' ; - -if ( $#ARGV > -1 ) -{ - $infile = "@ARGV[0]" ; - shift @ARGV ; -} - -if ( $#ARGV > -1 ) -{ - $outfile = "@ARGV[0]" ; - shift @ARGV ; -} - -open (INFILE, "<$infile") || - die "could not open input file $infile: $!"; -$line = join('',<INFILE>) ; -close INFILE; - - -print STDERR "$outfile\t"; - -open (OUTFILE, ">$outfile") || - die "could not open output file $outfile: $!"; - -foreach $key (keys %patterns) -{ - if ( $line =~ s/\b$key\b/$patterns{$key}/ge ) - { - print STDERR "." ; - } -} - -print OUTFILE $line ; - -print STDERR "\n"; -close OUTFILE; |