acme/wiki/wiki.diff

   1 #!/bin/rc
   2
   3 rfork n
   4 cd $1
   5 *=(`{ls -drp [0-9]*})
   6
   7 while(! ~ $#* 0 1){
   8         diff -n $2/index.txt $1/index.txt | awk  -F'[\/ :]' '
   9         $1 ~/^[0-9]+$/ {
  10                 getA = "cat "$5"/current | sed -n -e ''1d; /^A/s/^A//p; /^#/q''"
  11                 getA | getline A; close getA
  12                 $1 = t2d($1)
  13                 $5 = t2d($5)
  14                 print "\n" A ":\n" $1":"$3" "$4" "$5":"$7
  15                 next
  16         }
  17         { print }
  18
  19         function t2d(t) {
  20                 c = "date "t; c|getline l; close c
  21                 split(l, a, "[ :]+")
  22                 return  a[1]" "a[2]" "a[3]" "a[4]":"a[5]" "a[8]"("t")"
  23         }'
  24         shift
  25 }
  26
  27 echo clean >/dev/ctl >[2]/dev/null