commit 505ee90

add `r` flag for package removal

 1@@ -133,6 +133,13 @@ fn list_pkgs {
 2 	echo $pkg $_ver-$_rev
 3 }
 4 
 5+fn rm_pkgs {
 6+	filelist=`{cat $RCPM_ROOT/$RCPM_DB/$pkg/manifest}
 7+	for (files in $filelist) {
 8+		rmdir $RCPM_ROOT/$files >[2=] || rm -f $RCPM_ROOT/$files >[2=]
 9+	}
10+}
11+
12 switch($1) {
13 	case b
14 		shift
15@@ -162,6 +169,9 @@ switch($1) {
16 	case m
17 		shift
18 		for (pkg) get_manifest $pkg
19+	case r
20+		shift
21+		for (pkg) rm_pkgs $pkg
22 	case s
23 		shift
24 		for (pkg in $*) find $RCPM_PATH -type d -name $pkg