Catalog listing and enhanced versions of various BOOM items from ben-wpan/bom.

- boom/dist/dk/dk-catq.pl: new - query the Digi-Key catalog for a list of items - boom/dist/dk/dk-db.pl: enhanced - never generate more than 1000 queries per wget run (to keep argv from getting too long) - boom/dist/dk/panasonic-erj.catq, boom/dist/dk/stackpole-rmcf.catq: query scripts for dk-catq.pl - boom/lib/e12.inc: enhanced - added Rxx and Rxxx codes - boom/manu/panasonic/panasonic.gen: enhanced - added decoding for all ERJ series resistors listed at Digi-Key - boom/manu/stackpole/: (new) part number decoder for RMCF series resistors
2025-04-21 12:27:27 +03:00 · 2010-10-15 23:58:57 -03:00
parent a1d1182691
commit c1574ce3f6
10 changed files with 532 additions and 0 deletions
--- a/boom/dist/dk/dk-db.pl
+++ b/boom/dist/dk/dk-db.pl
@@ -0,0 +1,111 @@
+#!/usr/bin/perl
+
+sub rows
+{
+    local $s = $_[0];
+    my @res = ();
+
+    while ($s =~ m#.*?<tr>(.*?)</tr>#) {
+	push(@res, $1);
+	$s = $';
+    }
+    return @res;
+}
+
+
+sub cols
+{
+    local $s = $_[0];
+    my @res = ();
+
+    while ($s =~ m#.*?<td[^>]*>(.*?)</td>#) {
+	push(@res, $1);
+	$s = $';
+    }
+    return @res;
+}
+
+
+sub flush
+{
+    $cmd = "wget -nv -O - ".join(" ",
+      map
+      "http://search.digikey.com/scripts/DkSearch/dksus.dll?Detail\\&name=$_",
+      @pn);
+    $q .= `$cmd`;
+    @pn = ();
+}
+
+
+sub usage
+{
+    print STDERR "usage: $0 (query [-i cache_file] | dsc | inv) [file ...]\n";
+    exit(1);
+}
+
+
+$mode = shift @ARGV;
+&usage unless $mode eq "query" || $mode eq "dsc" || $mode eq "inv";
+
+if ($mode eq "query") {
+    if ($ARGV[0] eq "-i") {
+	shift @ARGV;
+	$name = shift @ARGV;
+	open(OLD, $name) || die "$name: $!";
+	$q = join("", <OLD>);
+	($old = $q) =~ tr/\r\n//d;
+	close OLD;
+    }
+
+    while (<>) {
+	chop;
+	s/#.*//;
+	next if /^\s*$/;
+	next if /^\s/;
+	s/\s.*//;
+	next if $old =~ m#align=right>Digi-Key Part Number</th><td>$_</td#;
+	push(@pn, $_);
+	&flush if @pn > 1000;
+    }
+
+    &flush if 0+@pn;;
+
+    print $q;
+    exit;
+}
+
+
+$q = join("", <>);
+$q =~ tr/\r\n//d;
+
+print "#DSC\n" if $mode eq "dsc";
+print "#INV\n" if $mode eq "inv";
+print "# MACHINE-GENERATED. DO NOT EDIT !\n";
+print "# ", `date -u`;
+
+for (split(/<!DOCTYPE HTML/, $q)) {
+    next unless m#align=right>Digi-Key Part Number</th><td>([^<]+)</td#;
+    $pn = $1;
+    $qty = 0;
+    if (m#align=right>Quantity Available</th><td[^>]*>([0-9,]+)<#) {
+	($qty = $1) =~ tr/,//d;
+    }
+    next unless m#align=right>Description</th><td>(.*?)</td#;
+    $dsc = $1;
+    next unless m#<table.*<th>Price Break<(.*?)</table>#;
+    if ($mode eq "dsc") {
+	print "DIGI-KEY $pn $dsc\n";
+	next;
+    }
+    print "DIGI-KEY $pn $qty USD";
+    for (&rows($1)) {
+	@c = &cols($_);
+	next unless $c[0] =~ /^[0-9,]+$/;
+	next unless $c[1] =~ /^[0-9.]+$/;
+	$c[0] =~ tr/,//d;
+	$c[1] =~ tr/,//d;	# let's hope we don't need this one often :)
+	$c[1] =~ s/0+$// if $c[1] =~ /\./;
+	print " $c[0] $c[1]";
+    }
+    print "\n";
+}