commit f39283c

package removal

1@@ -31,6 +31,6 @@
2 
3 (define (usage)
4   (format #t "usage: dull <cmd> <pkgs>")
5-  (format #t "       dull u|b|i|c|r <pkgs>")
6+  (format #t "       dull u|b|i|c|d <pkgs>")
7   (format #t "       dull m|f|s <pkgs>")
8   )

 1@@ -60,6 +60,9 @@
 2       ((#\i)
 3        (inst-pkg pkg)
 4        )
 5+      ((#\d)
 6+       (del-pkg pkg)
 7+       )
 8       )
 9     
10     (pargs (+ n 1))

 1@@ -46,6 +46,19 @@
 2 	)
 3     )
 4   )
 5+
 6+(define (del-pkg pkg)
 7+  (pmsg pkg "beginning removal")
 8+
 9+  (let (
10+	(pl (format #f "~a/~a/lock" DULL_DB pkg))
11+	)
12+    (unless (file-exists? pl)
13+      (die (format #f "package ~a does not have a lock file (not installed?)" pkg) 2)
14+      )
15+    )
16+  )
17+
18 (define (build-pkg pkg)
19   (pmsg pkg "beginning build")
20   (system*