rescue files from svn.openmoko.org

old-boom/prettyord

@@ -0,0 +1,131 @@
+#!/usr/bin/perl
+
+require "parser.pl";
+require "misc.pl";
+
+
+sub usage
+{
+    print STDERR <<"END";
+usage: $0 [-c] [-f|-t] [-r] [-s/from/to/ ...] ...
+
+  -c           generate CSV output (default: generate formatted text)
+  -f           generate SMT fab output (default: generate shopping list)
+  -r           sort by component reference (default: sort by part number)
+  -s/from/to/  substitute description and treat result as reference
+  -t           print the total number of items and the total cost.
+               -t cannot be combined with -c or -f.
+END
+    exit(1);
+}
+
+$shop = 1;
+$by_pn = 1;
+while ($ARGV[0] =~ /^-./) {
+    if ($ARGV[0] =~ /^-s/) {
+	&usage unless &dsc_xlat_arg($');
+    } elsif ($ARGV[0] eq "-c") {
+	$csv = 1;
+    } elsif ($ARGV[0] eq "-f") {
+	$shop = 0;
+    } elsif ($ARGV[0] eq "-r") {
+	$by_pn = 0;
+    } elsif ($ARGV[0] eq "-t") {
+	$total = 1;
+    } else {
+	&usage;
+    }
+    shift @ARGV;
+}
+
+&usage if $total && !$shop;
+&usage if $total && $csv;
+
+&parse;
+
+$out[0][0] = "Pos";
+$out[1][0] = "Qty";
+$out[2][0] = "P/N";
+$out[3][0] = "Description";
+
+if ($shop) {
+    $out[4][0] = "Value";
+    $out[5][0] = "";
+} else {
+    $out[4][0] = "Ref";
+}
+
+for (sort { $by_pn ? $a cmp $b : &cmp_cref($order{$a}[3], $order{$b}[3]) }
+  keys %order) {
+    push(@{ $out[0] }, ++$n);
+    push(@{ $out[1] }, $shop ? $order{$_}[0] : @{ $order{$_} }-3);
+    @f = split(/\s+/, $_);
+    push(@{ $out[2] }, $shop ? $f[1] : "$f[0] $f[1]");
+    my $dsc = &dsc_find($_);
+    print STDERR "$_: no description\n" unless defined $dsc;
+    push(@{ $out[3] }, defined $dsc ? $dsc : "???");
+    if ($shop) {
+	push(@{ $out[4] }, $order{$_}[1]);
+	push(@{ $out[5] }, sprintf("%.2f", $order{$_}[2]));
+	$price{$order{$_}[1]} += $order{$_}[2];
+    } else {
+	my @r = @{ $order{$_} };
+	push(@{ $out[4] }, join(", ", @r[3..$#r]));
+    }
+}
+
+if ($csv) {
+    for ($i = 0; $i <= $#{ $out[0] }; $i++) {
+	for ($j = 0; $j <= $#out; $j++) {
+	    print "," if $j;
+	    if ($i && $j < 2) {
+		print $out[$j][$i];
+	    } else {
+		my $s = $out[$j][$i];
+		$s =~ s/"/''/g;
+		print "\"$s\"";
+	    }
+	}
+	print "\n";
+    }
+    exit(0);
+}
+
+for (@out) {
+    push(@max, 0);
+    if (length $_->[0]) {
+	$max[$last_pos] = $last_len if defined $last_pos;
+	$last_pos = $#max;
+	$last_len = length $_->[0];
+    }
+}
+$i = 0;
+for (@out) {
+    $first = 1;
+    for (@{ $_ }) {
+	next if $first-- > 0;
+	$max[$i] = length $_ if length $_ > $max[$i];
+    }
+    $i++;
+}
+
+for ($i = 0; $i <= $#{ $out[0] }; $i++) {
+    $l = "";
+    for ($j = 0; $j != 6; $j++) {
+	my $s = $out[$j][$i];;
+	$l .= $s if $j == 2 || $j == 3 || $j == 4;
+	$l .= " " x ($max[$j]-length $s);
+	$l .= $s if $j == 0 || $j == 1 || $j == 5;
+	$l .= "  " unless $j == 5;
+    }
+    $l =~ s/\s*$//;
+    print "$l\n";
+}
+
+if ($total) {
+    print "$n item".($n == 1 ? "" : "s");
+    for (sort keys %price) {
+	print ", $_ $price{$_}";
+    }
+    print "\n";
+}