From: Keith Packard <keithp@keithp.com>
Date: Fri, 15 Jul 2016 19:51:58 +0000 (-0700)
Subject: Add 'mfg' field to partslist csv output
X-Git-Url: https://git.gag.com/?a=commitdiff_plain;h=edf617106285165cc570d795f0cfbb06ff0d2b99;p=hw%2Faltusmetrum

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 68c6a16..d2a07c8 100644
--- 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 1980c8a..5fc16bb 100644
--- 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)