Re: gEDA-user: pads net list problem

[Dan McMahill <dan@xxxxxxxxxxxx>]

could you verify that the attached patch works correctly?

Thanks
-Dan


Steven Taylor wrote:
> I believe the answer to both these questions is yes.
> Steve
>
> On Mon, 25 Feb 2008 12:31:49 -0800, Stuart Brorson <sdb@xxxxxxxxxx> wrote:
>
> > > If Pads expects CR-NL  should the netlist generator output CR-NL?
> > Interesting question.  Is it safe to assume that PADS runs exclusively
> > on Windoze?
> >
> > Stuart
> >
> >
> > _______________________________________________
> > geda-user mailing list
> > geda-user@xxxxxxxxxxxxxx
> > http://www.seul.org/cgi-bin/mailman/listinfo/geda-user

--- gnet-pads.scm.orig
+++ gnet-pads.scm
@@ -68,7 +68,7 @@
 
 	       (write-char #\tab port) 
                (display (gnetlist:get-package-attribute package "footprint") port)
-               (newline port))
+               (display "\r\n" port))
             (pads:components port (cdr packages))))))
 
 (define (pads:display-connections nets)
@@ -78,7 +78,7 @@
               (map (lambda (net)
                      (string-append " " (gnetlist:alias-refdes (car net)) "." (car (cdr net))))
                    nets))
-    (string-append k "\n")))
+    (string-append k "\r\n")))
 
 
 ; This function is replaced with the above one. Due to non existent
@@ -88,7 +88,7 @@
 ;  (if (not (null? nets))
 ;      (string-append " " (car (car nets)) "." (car (cdr (car nets)))
 ;       (pads:display-connections (cdr nets)))
-;      "\n"))
+;      "\r\n"))
 
 
 
@@ -98,7 +98,7 @@
          (let ((netname (car netnames)))
 	    (display "*SIGNAL* " port)
 	    (display (gnetlist:alias-net netname) port)
-	    (newline port)
+	    (display "\r\n" port)
             (display (gnetlist:wrap 
 		      (pads:display-connections 
 		       (gnetlist:get-all-connections netname)) 
@@ -117,17 +117,17 @@
 	(gnetlist:build-refdes-aliases pads:map-refdes packages)
 
 	;; print out the header
-	(display "!PADS-POWERPCB-V3.0-MILS!\n" port)
-	(display "\n*PART*\n" port)
+	(display "!PADS-POWERPCB-V3.0-MILS!\r\n" port)
+	(display "\r\n*PART*\r\n" port)
 	
 	;; print out the parts
 	(pads:components port packages)
 	
 	;; print out the net information
-	(display "\n*NET*\n" port)
+	(display "\r\n*NET*\r\n" port)
 	(pads:write-net port (gnetlist:get-all-unique-nets "dummy"))
 	
 	;; print out the footer
-	(display "\n*END*\n" port)
+	(display "\r\n*END*\r\n" port)
 	(close-output-port port))))
 


_______________________________________________
geda-user mailing list
geda-user@xxxxxxxxxxxxxx
http://www.seul.org/cgi-bin/mailman/listinfo/geda-user