add Omega2S reference schematic

[hw/altusmetrum] / scheme / gnet-partslistgag.scm

diff --git a/scheme/gnet-partslistgag.scm b/scheme/gnet-partslistgag.scm
index 42b24d65b2a9b9e841e5d7e4de496e06284603fa..5fc16bbd140323ef009d8de41071d4e06ea62277 100644 (file)
--- 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
@@ -57,7 +58,7 @@
 (define (write-one-row ls separator end-char port)
   (if (null? ls)
       '()
-      (begin (display "\"" port)
+      (begin (display "" port)
             (display (car ls) port)
             (for-each (lambda (st) (display separator port)(display st port)) (cdr ls))
             (display end-char port))))
@@ -102,13 +103,13 @@
 
 (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)
       '()
-      (begin (write-one-row (cdar ls) "\",\"" "\"," port)
-            (write-one-row (caar ls) " " "\"\n" port)
+      (begin (write-one-row (cdar ls) "," "," port)
+            (write-one-row (caar ls) " " "\n" port)
             (partslistgag:write-partslist (cdr ls) port))))
 
 (define partslistgag:write-bottom-footer