summaryrefslogtreecommitdiffstats
path: root/doc/tools/word-replace2
diff options
context:
space:
mode:
authorJoel Sherrill <joel.sherrill@OARcorp.com>2000-05-01 16:53:13 +0000
committerJoel Sherrill <joel.sherrill@OARcorp.com>2000-05-01 16:53:13 +0000
commita4ad94873205720065ae596cf3bbd52ad539bf7f (patch)
treee83067bfbcabd4e794f72d4a9e72b4c70ac5393e /doc/tools/word-replace2
parentAdded on 4.5-branch (diff)
downloadrtems-a4ad94873205720065ae596cf3bbd52ad539bf7f.tar.bz2
Patch rtemsdoc-4.5.0-rc-3.diff from Ralf Corsepius <corsepiu@faw.uni-ulm.de>:
It addresses: * .cvsignore (only minor changes to yours, as they were pretty clean, most changes result from my mkcvsignore script being overly pedantic sorting entries alphabetically.) * timing.t handling and time<BSP>_.texi handling in supplements * network.t handling in bsp_howto * RTEMS_DATE and RTEMS_UPDATE handling in configure.in. [It actually is a hack, as we could apply automake's version.texi handling instead - I know think to understand what automake does with it.] * avoid using temporary files; Therefore a new tool called bmenu2, derived from bemenu, is introduced, which reads a single file from stdin and writes to stdio. To apply: cd rtemsdoc patch -p1 < rtemsdoc-4.5.0-rc-3.diff cvs rm -f bsp_howto/network.t cvs add tools/bmenu/bmenu2.c ./bootstrap BTW: word-replace now is unused. It could be removed if you like to.
Diffstat (limited to 'doc/tools/word-replace2')
-rw-r--r--doc/tools/word-replace220
1 files changed, 10 insertions, 10 deletions
diff --git a/doc/tools/word-replace2 b/doc/tools/word-replace2
index a56d88a688..55d24fcb9b 100644
--- a/doc/tools/word-replace2
+++ b/doc/tools/word-replace2
@@ -76,26 +76,26 @@ if ( $#ARGV > -1 )
shift @ARGV ;
}
-print STDERR "$outfile\t";
-
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: $!";
-$line = join('',<INFILE>) ;
-
- foreach $key (keys %patterns)
+foreach $key (keys %patterns)
+{
+ if ( $line =~ s/\b$key\b/$patterns{$key}/ge )
{
- if ( $line =~ s/\b$key\b/$patterns{$key}/ge )
- {
- print STDERR "." ;
- }
+ print STDERR "." ;
}
+}
print OUTFILE $line ;
print STDERR "\n";
-close INFILE;
close OUTFILE;