From: Keith Packard <keithp@keithp.com>
Date: Fri, 7 Jun 2013 23:29:04 +0000 (-0700)
Subject: Don't include 'no-load' parts in vendor partslist
X-Git-Tag: telelco-v3.0~873
X-Git-Url: https://git.gag.com/?a=commitdiff_plain;h=0dbdcbac1062f3429b0ae073841e3414538d0693;p=hw%2Faltusmetrum

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 <keithp@keithp.com>
---

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