##
##  subst -- Apply sed(1) substitution operations
##  Copyright (c) 2001-2002 Ralf S. Engelschall <rse@engelschall.com>
##  Originally written for OpenPKG's rpmtool
##
##  This file is part of shtool and free software; you can redistribute
##  it and/or modify it under the terms of the GNU General Public
##  License as published by the Free Software Foundation; either version
##  2 of the License, or (at your option) any later version.
##
##  This file is distributed in the hope that it will be useful,
##  but WITHOUT ANY WARRANTY; without even the implied warranty of
##  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
##  General Public License for more details.
##
##  You should have received a copy of the GNU General Public License
##  along with this program; if not, write to the Free Software
##  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
##  USA, or contact Ralf S. Engelschall <rse@engelschall.com>.
##

str_tool="subst"
str_usage="[-v|--verbose] [-t|--trace] [-n|--nop] [-s|--stealth] [-i|--interactive] [-b|--backup <ext>] [-e|--exec <cmd>] [-f|--file <cmd-file>] [<file>] [...]"
gen_tmpfile=yes
arg_spec="0+"
opt_spec="v.t.n.s.i.b:e+f:"
opt_alias="v:verbose,t:trace,n:nop,s:stealth,i:interactive,b:backup,e:exec,f:file"
opt_v=no
opt_t=no
opt_n=no
opt_s=no
opt_i=no
opt_b=""
opt_e=""
opt_f=""

. ./sh.common

#   remember optional list of file(s)
files="$*"

#   parameter consistency check
if [ $# -eq 0 -a ".$opt_b" != . ]; then
    echo "$msgprefix:Error: option -b cannot be applied to stdin" 1>&2
    exit 1
fi
if [ $# -eq 0 -a ".$opt_s" = .yes ]; then
    echo "$msgprefix:Error: option -s cannot be applied to stdin" 1>&2
    exit 1
fi

#   build underlying sed(1) command
sedcmd='sed'
if [ ".$opt_e" != . ]; then
    OIFS="$IFS"; IFS="$ASC_NL"; set -- $opt_e; IFS="$OIFS"
    for e
    do
        sedcmd="$sedcmd -e '$e'" 
    done
elif [ ".$opt_f" != . ]; then
    if [ ! -f $opt_f ]; then
        echo "$msgprefix:Error: command file \`$opt_f' not found or not a regular file" 1>&2
        exit 1
    fi
    sedcmd="$sedcmd -f '$opt_f'"
else
    echo "$msgprefix:Error: either -e option(s) or -f option required" 1>&2
    exit 1
fi

#   determine extension for original file
orig=".orig"
if [ ".$opt_b" != . ]; then
    orig="$opt_b"
fi

#   apply sed(1) operation(s)
if [ ".$files" != . ]; then
    #   apply operation(s) to files
    for file in $files; do
        test ".$file" = . && continue
        if [ ! -f $file ]; then
            echo "$msgprefix:Warning: file \`$file' not found or not a regular file" 1>&2
            continue
        fi

        #   handle interactive mode
        if [ ".$opt_i" = .yes ]; then
            eval "$sedcmd <$file >$file.new"
            skip=no
            if cmp $file $file.new >/dev/null 2>&1; then
                rm -f $file.new
                skip=yes
            else
                (diff -U1 $file $file.new >$tmpfile) 2>/dev/null
                if [ ".`cat $tmpfile`" = . ]; then
                    (diff -C1 $file $file.new >$tmpfile) 2>/dev/null
                    if [ ".`cat $tmpfile`" = . ]; then
                        echo "$msgprefix:Warning: unable to show difference for file \`$file'" 1>&2
                        cp /dev/null $tmpfile
                    fi
                fi
                rm -f $file.new
                cat $tmpfile
                echo dummy | awk '{ printf("%s", TEXT); }' TEXT=">>> Apply [Y/n]: "
                read input
                if [ ".$input" != .Y ] &&\
                   [ ".$input" != .y ] &&\
                   [ ".$input" != . ]; then
                   skip=yes
                fi
            fi
            if [ ".$skip" = .yes ]; then
                if [ ".$opt_v" = .yes ]; then
                    echo "file \`$file' -- skipped" 1>&2
                fi
                continue
            fi
        fi

        #   apply sed(1) operation(s)
        if [ ".$opt_v" = .yes ]; then
            echo "patching \`$file'" 1>&2
        fi
        if [ ".$opt_t" = .yes ]; then
            echo "\$ cp -p $file $file$orig"
            echo "\$ $sedcmd <$file$orig >$file"
        fi
        if [ ".$opt_n" = .no ]; then
            cp -p $file $file$orig
            eval "$sedcmd <$file$orig >$file"
        fi

        #   optionally fix timestamp
        if [ ".$opt_s" = .yes ]; then
            if [ ".$opt_t" = .yes ]; then
                echo "\$ touch -r $file$orig $file"
            fi
            if [ ".$opt_n" = .no ]; then
                touch -r $file$orig $file
            fi
        fi

        #   optionally remove preserved original file
        if [ ".$opt_b" = . ]; then
            if [ ".$opt_t" = .yes ]; then
                echo "\$ rm -f $file$orig"
            fi
            if [ ".$opt_n" = .no ]; then
                rm -f $file$orig
            fi
        fi
    done
else
    #   apply operation(s) to stdin/stdout
    if [ ".$opt_v" = .yes ]; then
        echo "patching <stdin>" 1>&2
    fi
    if [ ".$opt_t" = .yes ]; then
        echo "\$ $sedcmd"
    fi
    if [ ".$opt_n" = .no ]; then
        eval "$sedcmd"
    fi
fi