sys/src/cmd/pkg/remove

   1 #!/bin/rc -e
   2
   3 cd /
   4 if(test -s /sys/lib/pkg/$1) {
   5         fs=(`{cat /sys/lib/pkg/$1 | awk '{print $1}'})
   6         ss=(`{cat /sys/lib/pkg/$1 | awk '{print $2}'})
   7         for(i in `{seq $#fs}) {
   8                 s=`{sha1sum $fs($i) | awk '{print $1}' | tr a-z A-Z}
   9                 if(test $s '=' $ss($i)) {
  10                         echo D $fs($i)
  11                         rm $fs($i)
  12                 }
  13                 if not {
  14                         echo M $fs($i) NOT DELETING
  15                 }
  16         }
  17         rm -rf /sys/src/pkg/$1
  18         rm /sys/lib/pkg/$1
  19 }