From edf617106285165cc570d795f0cfbb06ff0d2b99 Mon Sep 17 00:00:00 2001 From: Keith Packard Date: Fri, 15 Jul 2016 12:51:58 -0700 Subject: [PATCH] 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 --- bin/fillpartscsv | 12 +++++++----- scheme/gnet-partslistgag.scm | 3 ++- 2 files changed, 9 insertions(+), 6 deletions(-) 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) -- 2.30.2