gEDA-cvs: CVS update: Makefile.am

[cvspsrv@xxxxxxxx]

  User: danmc   
  Date: 06/01/16 21:55:36

  Modified:    .        Makefile.am
  Added:       .        gnet-pcbpins.scm
  Log:
  Add pcbpins gnetlist backend.  This backend will generate a PCB actions
  
  file which when executed by PCB will propagate 
  
  all of the schematic elements to the pin names of all the PCB footprints.
  
  For example, this can cause U1 pin 7 to have its name changed from "7"
  
  to "VCC" if thats what the schematic name is.  This should simplify the
  
  use of generic footprints while retaining the benefits of part-specific
  
  footprints.
  
  
  
  
  Revision  Changes    Path
  1.25      +3 -2      eda/geda/devel/gnetlist/scheme/Makefile.am
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: Makefile.am
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/devel/gnetlist/scheme/Makefile.am,v
  retrieving revision 1.24
  retrieving revision 1.25
  diff -u -b -r1.24 -r1.25
  --- Makefile.am	17 Aug 2005 02:54:04 -0000	1.24
  +++ Makefile.am	17 Jan 2006 02:55:36 -0000	1.25
  @@ -1,4 +1,4 @@
  -## $Id: Makefile.am,v 1.24 2005/08/17 02:54:04 danmc Exp $
  +## $Id: Makefile.am,v 1.25 2006/01/17 02:55:36 danmc Exp $
   ##
   
   M4=		@M4@
  @@ -17,7 +17,8 @@
   	   gnet-partslist2.scm gnet-partslist3.scm gnet-maxascii.scm \
   	   gnet-switcap.scm gnet-spice-sdb.scm gnet-drc2.scm \
   	   gnet-futurenet2.scm gnet-cascade.scm \
  -	   gnet-redac.scm gnet-systemc.scm gnet-eagle.scm
  +	   gnet-redac.scm gnet-systemc.scm gnet-eagle.scm \
  +	   gnet-pcbpins.scm
   
   
   EXTRA_DIST = $(DIST_SCM) $(SCM_SRCS)
  
  
  
  1.1                  eda/geda/devel/gnetlist/scheme/gnet-pcbpins.scm
  
  Index: gnet-pcbpins.scm
  ===================================================================
  ;;; $Id: gnet-pcbpins.scm,v 1.1 2006/01/17 02:55:36 danmc Exp $
  ;;;
  ;;; gEDA - GNU Electronic Design Automation
  ;;; gnetlist - GNU Netlist
  ;;; Backend for propagating pin names from gschem to footprints in pcb
  ;;; Copyright (C) 2005 Dan McMahill
  ;;;
  ;;; This program is free software; you can redistribute it and/or modify
  ;;; it under the terms of the GNU General Public License as published by
  ;;; the Free Software Foundation; either version 2 of the License, or
  ;;; (at your option) any later version.
  ;;;
  ;;; This program is distributed in the hope that it will be useful,
  ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  ;;; GNU General Public License for more details.
  ;;;
  ;;; You should have received a copy of the GNU General Public License
  ;;; along with this program; if not, write to the Free Software
  ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  
  
  ;; write out the pins for a particular component
  (define pcbpins:component_pins
    (lambda (port package pins)
      (if (and (not (null? package)) (not (null? pins)))
  	(begin
  	  (let (
  		(pin (car pins))
  		(label nil)
  		(pinnum nil)
  		)
  	    (display "ChangePinName(" port)
  	    (display package port)
  	    (display ", " port)
  
  	    (set! pinnum (gnetlist:get-attribute-by-pinnumber package pin "pinnumber"))
  
  	    (display pinnum port)
  	    (display ", " port)
  
  	    (set! label (gnetlist:get-attribute-by-pinnumber package pin "pinlabel"))
  	    (if (string=? label "unknown") 
  		(set! label pinnum)
  		)
  	    (display label port)
  	    (display ")\n" port)
  	    )
  	  (pcbpins:component_pins port package (cdr pins))
  	  )
  	)
      )
    )
  
  	    
  ;; write out the components
  (define pcbpins:components
     (lambda (port packages symcnt)
        (if (not (null? packages))
           (begin
  	   (let ((package (car packages)))
  
  	     ;;
  	     (display "\n# Start of element " port)
  	     (display package port)
  	     (newline port)
  
  	     ;; write the pins
  	     (pcbpins:component_pins port package (gnetlist:get-pins package))
  	     )
  	   (pcbpins:components port (cdr packages) (+ symcnt 1))
  	   )
  	 )
        ) 
     )
  
  ;; The top level netlister for pcbpins
  (define pcbpins
    (lambda (filename)
      (newline)
      (display "---------------------------------\n")
      (display "gEDA/gnetlist pcbpins Backend\n")
      (display "This backend is EXPERIMENTAL\n")
      (display "Use at your own risk!\n")
      (display "---------------------------------\n\n")
      
      (let ((port (open-output-file filename)))
        
        ;; write the header
        (display "# Pin name action command file\n" port)
        
        ;; write the components
        (pcbpins:components port packages 1)
        
        ;; close netlist
        (close-output-port port)
        )
      )
    )