Return to Change CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / B / src / bint

Annotation of 43BSD/contrib/B/src/bint/Change, revision 1.1.1.1

1.1       root        1: : 'Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. '
                      2: : '$Header: Change,v 1.1 85/08/22 16:38:36 timo Exp $'
                      3: 
                      4: : 'Change error messages in limited number of files'
                      5: 
                      6: case $1 in
                      7: [0-9]*) start=$1; shift;
                      8:        case $1 in
                      9:        [0-9]*) step=$1; shift;;
                     10:        *) step=100;
                     11:        esac;;
                     12: *)     start=100; step=100;;
                     13: esac
                     14: 
                     15: for file
                     16: do
                     17:        if test -f @$file
                     18:        then
                     19:                echo @$file already exists, $file skipped
                     20:        else
                     21:                mv $file @$file || exit
                     22:                echo $file $start
                     23:                sed 's/pprerr2 *( *\(.*\) *, *\(".*"\));/pprerr2(\1, MESS($, \2));/
                     24:                         s/fixerr2 *( *\(.*\) *, *\(".*"\));/fixerr2(\1, MESS($, \2));/
                     25:                         s/\(err[a-z]*[23]*\) *( *\(".*"\)/\1(MESS($, \2)/
                     26:                         s/MESS([0-9\$]*/MESS($/' @$file |
                     27:                awk "BEGIN {messnum=$start}"'
                     28:                        /MESS\(/ {n=split($0, field, "$");
                     29:                         if (n==2) {print field[1] messnum field[2]; ++messnum}
                     30:                         else print
                     31:                        }
                     32:                        !/MESS\(/ {print}' >$file
                     33:                if test -s $file
                     34:                then
                     35:                        if cmp -s @$file $file
                     36:                        then
                     37:                                mv @$file $file
                     38:                                echo $file unchanged
                     39:                        else
                     40:                                start=`expr $start + $step`
                     41:                        fi
                     42:                else
                     43:                        mv @$file $file
                     44:                        echo $file clobbered, old version put back
                     45:                fi
                     46:        fi
                     47: done

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.