gEDA-cvs: CVS update: Makefile.am

[cvspsrv@xxxxxxxx]

  User: ahvezda 
  Date: 07/04/21 16:26:06

  Modified:    .        Makefile.am
  Added:       .        gnet-calay.scm
  Log:
  Added backed written by John Doty for the Calay netlist.
  
  
  
  
  Revision  Changes    Path
  1.30      +2 -2      eda/geda/gaf/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/gaf/gnetlist/scheme/Makefile.am,v
  retrieving revision 1.29
  retrieving revision 1.30
  diff -u -b -r1.29 -r1.30
  --- Makefile.am	17 Apr 2007 20:19:13 -0000	1.29
  +++ Makefile.am	21 Apr 2007 20:26:05 -0000	1.30
  @@ -1,4 +1,4 @@
  -## $Id: Makefile.am,v 1.29 2007/04/17 20:19:13 pcjc2 Exp $
  +## $Id: Makefile.am,v 1.30 2007/04/21 20:26:05 ahvezda Exp $
   ##
   
   M4=		@M4@
  @@ -18,7 +18,7 @@
   	   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-pcbpins.scm
  +	   gnet-pcbpins.scm gnet-calay.scm
   
   
   EXTRA_DIST = $(DIST_SCM) $(SCM_SRCS)
  
  
  
  1.1                  eda/geda/gaf/gnetlist/scheme/gnet-calay.scm
  
  Index: gnet-calay.scm
  ===================================================================
  ;;; $Id: gnet-calay.scm,v 1.1 2007/04/21 20:26:06 ahvezda Exp $
  ;;;
  ;;; gEDA - GNU Electronic Design Automation
  ;;; gnetlist - GNU Netlist
  ;;; Copyright (C) 1998-2000 Ales V. Hvezda
  ;;; Copyright (C) 2006 John P. Doty
  ;;;
  ;;; 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.
  
  ;;  Calay format (modified from Ales's gnet-PCB.scm by jpd)
  
  (define (calay:display-connections nets)
    (let ((k ""))
      (for-each (lambda (in-string)
                  (set! k (string-append k in-string)))
                (map (lambda (net)
                       (string-append " " (car net) "(" (car (cdr net)) ")"))
                     nets))
      (string-append k ";\n")))
      
  ;;
  ;; Wrap a string into lines no longer than wrap-length
  ;; (from Stefan Petersen)
  ;; (Modified for Calay format by jpd)
  (define (calay:wrap string-to-wrap wrap-length)
    (if (> wrap-length (string-length string-to-wrap))
        string-to-wrap ; Last snippet of string
        (let ((pos (string-rindex string-to-wrap #\space 0 wrap-length)))
          (cond ((not pos)
                 (display "Couldn't wrap string  at requested position\n")
                 " Wrap error!")
                (else
                 (string-append 
                  (substring string-to-wrap 0 pos) 
                  ",\n          "
                  (calay:wrap (substring string-to-wrap (+ pos 1)) wrap-length)))))))
  
  ;; Translate netnames
  ;; For the nonce, this just turns "_" into "-"
  ;;
  (define (calay:translate string-to-translate)
    (let ((pos (string-index string-to-translate #\_)))
      (if pos (calay:translate (string-append (substring string-to-translate 0
      pos) "-" (substring string-to-translate (+ 1 pos)))) string-to-translate)))
  
  (define (calay:write-net netnames port)
    (if (not (null? netnames))
        (let ((netname (car netnames)))
        	(display "/" port)
  	(display (calay:translate netname) port)
  	(display "\t" port)
  	(display (calay:wrap (calay:display-connections
  	  (gnetlist:get-all-connections netname)) 66) port)
  	(calay:write-net (cdr netnames) port))))
  
  
  (define (calay output-filename)
    (let ((port (open-output-file output-filename)))
      (calay:write-net (gnetlist:get-all-unique-nets "dummy") port)
      (close-output-port port)))
  
  
  
  
  


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