RTOS/rtems
1
0
Fork 0
forked from Imagelibrary/rtems
Code Pull Requests Activity

Removed file rendered obsolete by rtemsdoc-4.5.0-rc-3.diff from

Browse Source 
Ralf Corsepius <corsepiu@faw.uni-ulm.de>.
This commit is contained in:
Joel Sherrill
2000-05-01 16:59:15 +00:00
parent 0871fa7294
commit a65194b534
2 changed files with 1 additions and 90 deletions
Download Patch File Download Diff File Expand all files Collapse all files

89
doc/tools/word-replace
View File

@@ -1,89 +0,0 @@
#!/usr/bin/perl
#
# $Id$
#
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-replace
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
foreach $file (@ARGV)
{
print "$file\t";
open (INFILE, "<$file") ||
die "could not open input file $file: $!";
$outfile = $file . ".fixed";;
open (OUTFILE, ">$outfile") ||
die "could not open output file $outfile: $!";
while (<INFILE>)
{
study; # maybe make s/// faster
foreach $key (keys %patterns)
{
if ( s/\b$key\b/$patterns{$key}/ge )
{
print ".";
}
}
print OUTFILE $_;
}
print "\n";
close INFILE;
close OUTFILE;
}

2
doc/tools/word-replace2
View File

@@ -11,7 +11,7 @@ require 'getopts.pl';
if ($opt_h || ! $opt_p) { if ($opt_h || ! $opt_p) {
print STDERR <<NO_MORE_HELP; print STDERR <<NO_MORE_HELP;
word-replace word-replace2
Replace *words* with patterns. Pattern file specifies which patterns Replace *words* with patterns. Pattern file specifies which patterns
to replace on each line. All patterns are wrapped with perl \\b regexp to replace on each line. All patterns are wrapped with perl \\b regexp