X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=scheme%2Fgnet-partslistgag.scm;h=42b24d65b2a9b9e841e5d7e4de496e06284603fa;hb=73480b04a4130e83607cfd2d883c74c8e334611b;hp=01b71e369960268734b23bdd03d2196f11cc3434;hpb=284b8a080f66be2c3480b74ec3161ce74e977deb;p=hw%2Faltusmetrum diff --git a/scheme/gnet-partslistgag.scm b/scheme/gnet-partslistgag.scm index 01b71e3..42b24d6 100644 --- a/scheme/gnet-partslistgag.scm +++ b/scheme/gnet-partslistgag.scm @@ -48,6 +48,8 @@ (get-value package) (gnetlist:get-package-attribute package "footprint") (gnetlist:get-package-attribute package "loadstatus") + (gnetlist:get-package-attribute package "provided") + (gnetlist:get-package-attribute package "mfg_part_number") (gnetlist:get-package-attribute package "vendor") (gnetlist:get-package-attribute package "vendor_part_number")) ;; sdb change (get-parts-table (cdr packages))))))) @@ -100,7 +102,7 @@ (define partslistgag:write-top-header (lambda (port) - (display "\"device\",\"value\",\"footprint\",\"loadstatus\",\"vendor\",\"vendor_part_number\",\"quantity\",\"refdes\"\n" port))) + (display "\"device\",\"value\",\"footprint\",\"loadstatus\",\"provided\",\"mfg_part_number\",\"vendor\",\"vendor_part_number\",\"quantity\",\"refdes\"\n" port))) (define (partslistgag:write-partslist ls port) (if (null? ls)