WebSVN - OpenARM Single-board Computer - Diff - Rev 329 and 330

 #!/usr/bin/perl -w
 use strict;
-# $Id: inventory.pl 329 2008-12-29 18:21:45Z jelle $
+# $Id: inventory.pl 330 2008-12-29 19:49:46Z agaran $
 # Thu, 13 Nov 2008 21:06:23 +0100
 # Maciej 'agaran' Pijanka <agaran@pld-linux.org>
 # for OpenARM SBC Project
 # license: gpl v3
 my %Config;
 # ==================================================
 $Config{docdir} = '.';
 $Config{bomdir} = '.';
-$Config{outdir} = '.';
 $Config{verbose} = 1;
 # 0 mean not show, -1 show all, positive value limits depth of shown
 $Config{dbg_showdirs} = 0;
         unless (defined($_[1]) && length($_[1]) != 0) {
                 print "Basic help\n\t--showrc|showconf shows current configuration\n".
                         "\t--docdir|-d <dir> tells script where information.txt files should be searched\n".
                         "\t--define <something>=<somethingelseornot> defines some configration value\n".
                         "\t--verbose|-v [level] sets verbosity level\nOrder of options DOES matter\n".
-                        "\t--bomdir|-b <dir> tells script where boms should be searched\n";
+                        "\t--bomdir|-b <dir> tells script where boms should be searched\n".
+                        "\t--output|-o <file> tells where script shall save output data\n".
+                        "\t--force|-f forces script to save data even if file exist already\n";
                 print "\t\e[0;31mThis Help Is created especially for \e[0;33mJelle\e[0;29m\n".
                         "\tThis script search all directories below specified ones to find interesting files\n";
                 return;
+        }
         $value =~ s/^[  ]+//;
         $value =~ s/[   ]+$//;
         return $value;
+}
-sub shortstring($$) {
+sub strbreak($$) {
         my ($str,$lim) = @_;
+        my @p = split / /,$str;
+        $str = '';
+        my $l = 0;
+        while (@p) {
+                my $e = shift @p;
-        return substr($str,0,$lim-4).'(..)' if (length ($str) > $lim);
+                if ($l + length ($e) +1 > $lim) {
+                        $str .= "\n".$e;
+                        $l = length $e;
+                } else {
+                        $str .= " ".$e;
+                        $l += length($e) + 1;
+                }
+        }
         return $str;
+}
 # this subroutine is used as callback function
 # executed by file_lookup
+                        }
                         my $id = $Inv_By_PartNo{$device};
                         next if ($Inv[$id]{Manufacturer} =~ /none/i); # skip parts whose manufacturer is none
                         #inf_printf("Found in Inventory at %d %s", $id, $Inv[$id]{Manufacturer_Partno});
                         push @{$data{$id}{RefDes}}, $refdes;
+                        if (!defined $data{$id}{Footprint}) {
+                                $data{$id}{Footprint} = $footprint;
+                        } else {
+                                if ($data{$id}{Footprint} ne $footprint) {
+                                        err_printf("Different footprints for same device in within single bom file, script ".
+                                                "cannot work around this, will use first one, but expect that output file ".
+                                                "might have errors.");
+                                }
+                        }
+                }
+        }
         close(IN);
         if (scalar keys %data == 0) {
                 if (!defined $Inv[$id]{Price}) {
                         wrn_printf("%s has no price, setting to 0.0", $Inv[$id]{Manufacturer_Partno});
                         $Inv[$id]{Price} = 0;
+                }
                 push @{$BomData{$id}{RefDes}}, @{$data{$id}{RefDes}};
+                if (!defined $BomData{$id}{Footprint}) {
+                        $BomData{$id}{Footprint} = $data{$id}{Footprint};
+                } else {
+                        if ($data{$id}{Footprint} ne $data{$id}{Footprint}) {
+                                err_printf("Different footprints for same device between sheets, script cannot ".
+                                        "work around this, will use first one, but expect that output file might ".
+                                        "have errors.");
+                        }
+                }
+                push @{$BomData{$id}{Files}}, substr(basename($filepath),0,length(basename($filepath))-4);
 #               printf "%-20s %.4f %s\n", $Inv[$id]{Manufacturer_Partno}, $cnt, $icost, join (', ', @{$data{$id}{RefDes}});
 #               %BomData{ById}{$id}{RefDes}
+        }
+}
         "docdir|d=s" => sub { $Config{docdir} = $_[1]; },
         # not sure if bomdir or SCH dir
         "bomdir|b=s" => sub { $Config{$_[0]} = $_[1]; },  # $_[0] contain basename of option, so in few cases could be (ab)used
         "define|D=s" => sub { my ($p,$q) = split(/=/,$_[1],2); $Config{$p} = $q; },
         "verbose|v:+" => sub { $Config{$_[0]} = ($_[1]>1?0:$Config{$_[0]}) + $_[1]; },
-        "help|h|?:s" => sub { $show_help = 1 },
+        "help|h|?:s" => sub { $show_help = 1; },
-        "outdir|o=s" => sub { $Config{$_[0]} = $_[1]; },
+        "outfile|o=s" => sub { $Config{$_[0]} = $_[1]; },
+        "force|f" => sub { $Config{$_[0]} = 1 },
         # options
 );
 if (!$result) {
         printf "Usage: %s [-d directory] [-v]\n",basename($0);
 # process BOM files
 printf STDERR "Loading bom data from %s\n", shortdir($Config{bomdir});
 file_lookup($Config{bomdir}, 0, qr/\.bom$/, \&parse_bom);
 printf STDERR "\tLoaded, now processing\n";
-my $n = 1;
+my ($bn,$pn) = (1,1);
 my $cost = 0.0;
+my $out;
+if (!defined $Config{outfile}) {
+        $Config{outfile} = './output.txt';
+        wrn_printf("Output file not specified, saving out in ".$Config{outfile});
+}
+if ( -e $Config{outfile}) {
-my $out = new IO::File $Config{outdir}.'/output.txt', 'w';
+        unless (defined $Config{force} && $Config{force} == 1) {
+                inf_printf("Unlinking output.txt before owrewriting");
+                unlink($Config{outfile});
+        } else {
+                wrn_printf("Output file already exist, add --force if i shall overwrite it");
+                exit;
+        }
+}
-open (PARTMAP, '>output.map') || die 'cant open output.map: $!';
-printf PARTMAP "%-35s| refdes\n\n", 'part';
+$out = new IO::File $Config{outfile}, 'w';
 my $bomtable = Text::Table->new(
         { title => '| ', is_sep => 1 },
         { title => 'id', align => 'right', align_title => 'left' },
         { title => ' | ', is_sep => 1 },
         { title => "price", align => 'right', align_title => 'left' },
         { title => ' | ', is_sep => 1 },
         { title => "cost", align => 'right', align_title => 'left' },
         { title => ' |', is_sep => 1 },
 );
+my $parttable = Text::Table->new(
+        { title => '| ', is_sep => 1 },
+        { title => 'id', align => 'right', align_title => 'center' },
+        { title => ' | ', is_sep => 1 },
+        { title => 'description', align => 'left', align_title => 'center' },
+        { title => ' | ', is_sep => 1 },
+        { title => 'manufacturer partno', align => 'left', align_title => 'center' },
+        { title => ' | ', is_sep => 1 },
+        { title => 'footprint', align => 'left', align_title => 'center' },
+        { title => ' | ', is_sep => 1 },
+        { title => 'refdes', align => 'left', align_title => 'center' },
+        { title => ' | ', is_sep => 1 },
+        { title => 'sheet', align => 'left', align_title => 'center' },
+        { title => ' |', is_sep => 1 },
+);
 foreach my $id ( sort {my $p = $Inv[$a]{Manufacturer} cmp $Inv[$b]{Manufacturer}; if ($p == 0) {
 #               return $Inv[$a]{Manufacturer_Partno} cmp $Inv[$b]{Manufacturer_Partno}}; return $p; }  keys %BomData) {
                 return $Inv[$a]{Description} cmp $Inv[$b]{Description}}; return $p; }  keys %BomData) {
         my %tmp;
                 wrn_printf("%s has no price, setting to 0.0", $Inv[$id]{Manufacturer_Partno});
                 $Inv[$id]{Price} = 0;
+        }
         my $icost = $quant * $Inv[$id]{Price};
-        printf PARTMAP "%-35s|%s\n", shortstring($Inv[$id]{Description},35), join (', ', sort @{$BomData{$id}{RefDes}});
+#       printf PARTMAP "%-35s|%s\n", shortstring($Inv[$id]{Description},35), join (', ', sort @{$BomData{$id}{RefDes}});
         $cost += $icost;
 #       %BomData{ById}{$id}{RefDes}
 #       $bomtable->add(' '.$n.' ', $Inv[$id]{Description}.' ', $Inv[$id]{Manufacturer_Partno}.' ', $Inv[$id]{Manufacturer}.' ',
 #               $Inv[$id]{Ordercode}.' ', ' '.$quant.' ', sprintf("%.3f ",$Inv[$id]{Price}), sprintf("%.3f ",$icost));
-        $bomtable->add($n, $Inv[$id]{Description}, $Inv[$id]{Manufacturer_Partno}, $Inv[$id]{Manufacturer},
+        $bomtable->add($bn++, $Inv[$id]{Description}, $Inv[$id]{Manufacturer_Partno}, $Inv[$id]{Manufacturer},
                 $Inv[$id]{Ordercode},$quant, sprintf("%.3f",$Inv[$id]{Price}), sprintf("%.3f",$icost));
-        $n ++;
+        $parttable->add($pn++, $Inv[$id]{Description}, $Inv[$id]{Manufacturer_Partno}, $BomData{$id}{Footprint},
+                strbreak(join (', ', sort @{$BomData{$id}{RefDes}}),43), join("\n",@{$BomData{$id}{Files}}));
+}
 printf $out "file generated at %s\n\n", scalar localtime(time());
 print $out $bomtable->rule('-','+');
 print $out $bomtable->title();
 print $out $bomtable->rule('-','+');
 print $out $bomtable->body();
 print $out $bomtable->rule('-','+');
-printf $out "\nTotal cost: %.3f\n", $cost;
+printf $out "\nTotal cost: %.3f\n\n\n", $cost;
+print $out $parttable->rule('-','+');
+print $out $parttable->title();
+print $out $parttable->rule('-','+');
+print $out $parttable->body();
+print $out $parttable->rule('-','+');
-close PARTMAP;
+#close PARTMAP;
-printf STDERR "\tFinished, output saved in %s\n", $Config{outdir}.'/output.txt';
+printf STDERR "\tFinished, output saved in %s\n", $Config{outfile};

Subversion Repositories OpenARM Single-board Computer

(root)/trunk/working/scripts/inventory.pl - Rev 329 → 330