gEDA-cvs: CVS update: gnet-calay.scm

[cvspsrv@xxxxxxxx]

  User: ahvezda 
  Date: 07/06/09 14:29:22

  Modified:    .        gnet-calay.scm
  Log:
  Commited new version of gnet-calay from John with various fixes.
  
  
  
  
  Revision  Changes    Path
  1.2                  eda/geda/gaf/gnetlist/scheme/gnet-calay.scm
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: gnet-calay.scm
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/gaf/gnetlist/scheme/gnet-calay.scm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -b -r1.1 -r1.2
  --- gnet-calay.scm	21 Apr 2007 20:26:06 -0000	1.1
  +++ gnet-calay.scm	9 Jun 2007 18:29:22 -0000	1.2
  @@ -1,9 +1,9 @@
  -;;; $Id: gnet-calay.scm,v 1.1 2007-04-21 20:26:06 ahvezda Exp $
  +;;; $Id: gnet-calay.scm,v 1.2 2007-06-09 18:29:22 ahvezda Exp $
   ;;;
   ;;; gEDA - GNU Electronic Design Automation
   ;;; gnetlist - GNU Netlist
   ;;; Copyright (C) 1998-2000 Ales V. Hvezda
  -;;; Copyright (C) 2006 John P. Doty
  +;;; Copyright (C) 2006,2007 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
  @@ -20,6 +20,7 @@
   ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   
   ;;  Calay format (modified from Ales's gnet-PCB.scm by jpd)
  +;;  Netname translation cleaned up at Dan McMahill'suggestion -jpd
   
   (define (calay:display-connections nets)
     (let ((k ""))
  @@ -59,7 +60,7 @@
     (if (not (null? netnames))
         (let ((netname (car netnames)))
         	(display "/" port)
  -	(display (calay:translate netname) port)
  +	(display (gnetlist:alias-net netname) port)
   	(display "\t" port)
   	(display (calay:wrap (calay:display-connections
   	  (gnetlist:get-all-connections netname)) 66) port)
  @@ -68,6 +69,7 @@
   
   (define (calay output-filename)
     (let ((port (open-output-file output-filename)))
  +    (gnetlist:build-net-aliases calay:translate all-unique-nets)
       (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