1#!/bin/rc 2 3if(~ $#* 0 1){ 4 echo >[1=2] usage: adiff file1 file2 5 echo >[1=2] or adiff file1 file2... dir 6 exit usage 7} 8 9dir = /mnt/wsys 10if(! test -f $dir/cons) 11 dir = /mnt/term/$dir 12id=`{cat $dir/new/ctl} 13id=$id(1) 14 15l=$1 16r=$2 17if (test -d $1) l=$1/`{basename $2} 18if not if (test -d $2) r=$2/`{basename $1} 19 20echo 'name '^`{pwd}^/-diff-^`{basename $l} > $dir/$id/ctl 21 22diff $* | awk -v 'l='$l -v 'r='^$r '/^diff/ {l=$2; r=$3; next} /^[1-9]/ {sub("[acd]", " & " r ":"); sub("^", l ":", $0)} 23 {print $0}' > $dir/$id/body 24echo clean > $dir/$id/ctl 25