diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rwxr-xr-x | fixpaths | 49 |
2 files changed, 18 insertions, 36 deletions
@@ -1,3 +1,6 @@ +20021205 + - (djm) PERL-free fixpaths from stuge-openssh-unix-dev@cdy.org + 20021122 - (tim) [configure.ac] fix STDPATH test for IRIX. First reported by advax@triumf.ca. This type of solution tested by <herb@sgi.com> @@ -829,4 +832,4 @@ save auth method before monitor_reset_key_state(); bugzilla bug #284; ok provos@ -$Id: ChangeLog,v 1.2514 2002/11/22 21:29:01 tim Exp $ +$Id: ChangeLog,v 1.2515 2002/12/05 09:59:33 djm Exp $ @@ -1,43 +1,22 @@ -#!/usr/bin/perl -w +#!/bin/sh # # fixpaths - substitute makefile variables into text files +# Usage: fixpaths -Dsomething=somethingelse ... - -$usage = "Usage: $0 [-Dstring=replacement] [[infile] ...]\n"; - -if (!defined(@ARGV)) { die ("$usage"); } - -# read in the command line and get some definitions -while ($_=$ARGV[0], /^-/) { - if (/^-D/) { - # definition - shift(@ARGV); - if ( /-D(.*)=(.*)/ ) { - $def{"$1"}=$2; - } else { - die ("$usage$0: error in command line arguments.\n"); - } - } else { - @cmd = split(//, $ARGV[0]); $opt = $cmd[1]; - die ("$usage$0: unknown option '-$opt'\n"); - } -} # while parsing arguments - -if (!defined(%def)) { - die ("$0: nothing to do - no substitutions listed!\n"); +die() { + echo $* + exit -1 } -for $f (@ARGV) { +test -n "`echo $1|grep -- -D`" || \ + die $0: nothing to do - no substitutions listed! + +test -n "`echo $1|grep -- '-D[^=]\+=[^ ]\+'`" || \ + die $0: error in command line arguments. - $f =~ /(.*\/)*(.*)$/; +test -n "`echo $*|grep -- ' [^-]'`" || \ + die Usage: $0 '[-Dstring=replacement] [[infile] ...]' - open(IN, "<$f") || die ("$0: input file $f missing!\n"); - while (<IN>) { - for $s (keys(%def)) { - s#$s#$def{$s}#; - } # for $s - print; - } # while <IN> -} # for $f +sed `echo $*|sed -e 's/-D\([^=]\+\)=\([^ ]*\)/-e s=\1=\2=g/g'` -exit 0; +exit 0 |