From 0dbdcbac1062f3429b0ae073841e3414538d0693 Mon Sep 17 00:00:00 2001 From: Keith Packard Date: Fri, 7 Jun 2013 16:29:04 -0700 Subject: [PATCH] Don't include 'no-load' parts in vendor partslist Make sure the partslist includes only components actually to be loaded on the board. Signed-off-by: Keith Packard --- scheme/gnet-partslist-bom.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/scheme/gnet-partslist-bom.scm b/scheme/gnet-partslist-bom.scm index 718d76c..d72c9e0 100644 --- a/scheme/gnet-partslist-bom.scm +++ b/scheme/gnet-partslist-bom.scm @@ -68,6 +68,10 @@ (lambda (package) (gnetlist:get-package-attribute package "vendor"))) +(define get-loadstatus + (lambda (package) + (gnetlist:get-package-attribute package "loadstatus"))) + (define get-vendor-part-number (lambda (package) (gnetlist:get-package-attribute package "vendor_part_number"))) @@ -80,7 +84,7 @@ (if (null? packages) '() (let ((package (car packages))) - (if (string=? (get-vendor package) vendor) + (if (and (not (string=? (get-loadstatus package) "noload")) (string=? (get-vendor package) vendor)) (if (string=? (get-device package) "include") (get-parts-table-bom (cdr packages) vendor) (cons (list package -- 2.47.2