From 886c63a2c533e8ce8818580920232e4903a27da7 Mon Sep 17 00:00:00 2001 From: Damien Miller Date: Thu, 20 Jan 2000 23:13:36 +1100 Subject: - Big manpage and config file cleanup from Andre Lucas - Re-added latest (unmodified) OpenBSD manpages --- fixpaths | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) (limited to 'fixpaths') diff --git a/fixpaths b/fixpaths index 8a674064..e6f47c71 100755 --- a/fixpaths +++ b/fixpaths @@ -3,22 +3,26 @@ # fixpaths - substitute makefile variables into text files -$usage = "Usage: $0 [-D=] [[infile] ...]\n"; +$usage = "Usage: $0 [-x] [-Dstring=replacement] [[infile] ...]\n"; + +$ext="out"; if (!defined(@ARGV)) { die ("$usage"); } # read in the command line and get some definitions while ($_=$ARGV[0], /^-/) { - if (/^-D/) { + if (/^-[Dx]/) { # definition shift(@ARGV); if ( /-D(.*)=(.*)/ ) { $def{"$1"}=$2; + } elsif ( /-x\s*(\w+)/ ) { + $ext=$1; } else { die ("$usage$0: error in command line arguments.\n"); } } else { - &usage; die ("$usage$0: unknown option '-".$ARGV[0][1]."'\n"); + die ("$usage$0: unknown option '-".$ARGV[0][1]."'\n"); } } # while parsing arguments @@ -29,13 +33,13 @@ if (!defined(%def)) { for $f (@ARGV) { $f =~ /(.*\/)*(.*)$/; - $of = $2; $of =~ s/.in$//; + $of = $2.".$ext"; open(IN, "<$f") || die ("$0: input file $f missing!\n"); if (open(OUT, ">$of")) { while () { for $s (keys(%def)) { - s#\@$s\@#$def{$s}#; + s#$s#$def{$s}#; } # for $s print OUT; } # while -- cgit v1.2.1