Added more detailed part counting.

- boom/count.pl: count characterized parts, with type and manufacturer
  breakdown
- boom/Makefile (count): new target to run count.pl

boom/Makefile

@@ -16,7 +16,7 @@ DB = $(EQU) $(INV) $(DSC) $(CHR) \
     $(DIST:%=dist/%/db/*.dsc)
 
 
-.PHONY:		all show again spotless tar
+.PHONY:		all show again spotless tar count
 
 all:		show
 
@@ -41,3 +41,6 @@ spotless:
 
 tar:
 		tar cfj boom-db.tar.bz2 $(DB)
+
+count:
+		perl ./count.pl $(CHR)

boom/count.pl

@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+$tot = 0;
+while (<>) {
+	next unless /\bT=(.+?)\b/;
+	$tot++;
+	$c = $1;
+	$cat{$c}++;
+	/^\s*(\S+)\s/;
+	$man{$c}{$1}++;
+}
+
+print "Total: $tot\n";
+for $c (sort keys %cat) {
+	print "    $c: $cat{$c}\n";
+	for $m (sort keys %{ $man{$c} }) {
+		print "\t$m: $man{$c}{$m}\n";
+	}
+}