acme/bin/adiff

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