openpipe tsdbdwn2
set -x
exec >> /tmp/tsdbdwn2.fifo 2>&1
#

if test $# -eq 0 ;then
echo "Safety check - do you really wish to run" $0 " on " `hostname` "?"
read safety
case $safety in
y|yes|Y|YES|Yes ) ;;
* ) echo $0: aborting ; exit 1 ;;
esac
fi

#!/bin/sh


case "$1" in "" )
        echo usage : $0 newcode_file existingblock_file  inputfile... 1>&2
        exit 0
        ;;
esac


newcodefile=$1
patternfile=$2
shift
shift
patternlines=`cat $patternfile | wc -l`
patternlines=`echo $patternlines`


for infile in "$@"
do

  # get list of matches for patterns, with line numbers
  fgrep -n -f $patternfile $infile  | \
  nawk -F: -v seqlen=$patternlines '
     #{ print "last=" last " seq=" seq " f1=" $1 "  " $2 ;}

    last == "" { last = $1 ; next }     # initialize

    {
        # check for match with sequential line number
        if ($1 == (last + 1) ) {
                # sequential match; check length of sequence
                if  (++seq == seqlen) {
                        # "add after " $1 " : " $0;
                        print $1        # print line number of
                                        # end of code block matched
                }
        } else {
                # not sequential any more - start over
                seq = 1         # first match in sequence
        }
    }

    { last = $1}
    ' - | (
                echo sed -e \'\' '\c'
                while read line
                do
                # output sed command to read new code into file
                        echo "-e '${line}r $newcodefile' \c"
                done
                echo "$infile > $infile.new"
        )
done

$ ./insertcode
usage : ./insertcode newcode_file existingblock_file inputfile...
  

$ ./insertcode newcode codepattern f1 f2 f3
sed -e '' -e '20r newcode' f1 > f1.new
sed -e '' -e '19r newcode' f2 > f2.new
sed -e '' -e '20r newcode' -e '30r newcode' -e '49r newcode' f3 > f3.new

$ sed -e '' -e '20r newcode' f1 > f1.new
$ diff f1 f1.new
20a21,25
> #
> openpipe tsdbdwn2
> set -x
> exec >> /tmp/tsdbdwn2.fifo 2>&1
> #