Add 'mfg' field to partslist csv output

We'll have to update preferred parts to match at some point, but this
at least makes it possible to generate a BOM including manufacturer names.

Signed-off-by: Keith Packard <keithp@keithp.com>

diff --git a/bin/fillpartscsv b/bin/fillpartscsv
index 68c6a16d5d82b7adc2b02608ba2665c5bfda10ca..d2a07c81429e828a5f7dcfbccc849e443500923d 100644 (file)
--- a/bin/fillpartscsv
+++ b/bin/fillpartscsv
@@ -24,14 +24,16 @@ BEGIN {
        if ( $5 == "unknown") printf ",\"%s\"", field[5]
        else printf ",\"%s\"", $5
 
-       if ( $6 == "unknown") printf ",\"%s\"", field[6]
-       else printf ",\"%s\"", $6
+       printf ",\"%s\"", $6
 
-       if ( $7 == "unknown") printf ",\"%s\"", field[7]
+       if ( $7 == "unknown") printf ",\"%s\"", field[6]
        else printf ",\"%s\"", $7
 
-       if ( $8 == "unknown") printf ",\"%s\"", field[8]
+       if ( $8 == "unknown") printf ",\"%s\"", field[7]
        else printf ",\"%s\"", $8
 
-       printf ",%s,\"%s\"\n", $9, $10
+       if ( $9 == "unknown") printf ",\"%s\"", field[8]
+       else printf ",\"%s\"", $9
+
+       printf ",%s,\"%s\"\n", $10, $11
 }

diff --git a/scheme/gnet-partslistgag.scm b/scheme/gnet-partslistgag.scm
index 1980c8a9a710d00eb2f424ed9dc659c535d647a8..5fc16bbd140323ef009d8de41071d4e06ea62277 100644 (file)
--- a/scheme/gnet-partslistgag.scm
+++ b/scheme/gnet-partslistgag.scm
@@ -49,6 +49,7 @@
                        (gnetlist:get-package-attribute package "footprint")
                        (gnetlist:get-package-attribute package "loadstatus")
                        (gnetlist:get-package-attribute package "provided")
+                       (gnetlist:get-package-attribute package "mfg")
                        (gnetlist:get-package-attribute package "mfg_part_number")
                        (gnetlist:get-package-attribute package "vendor")
                        (gnetlist:get-package-attribute package "vendor_part_number")) ;; sdb change
@@ -102,7 +103,7 @@
 
 (define partslistgag:write-top-header
   (lambda (port)
-    (display "device,value,footprint,loadstatus,provided,mfg_part_number,vendor,vendor_part_number,quantity,refdes\n" port)))
+    (display "device,value,footprint,loadstatus,provided,mfg,mfg_part_number,vendor,vendor_part_number,quantity,refdes\n" port)))
 
 (define (partslistgag:write-partslist ls port)
   (if (null? ls)