gEDA-cvs: CVS update: gnet-spice-sdb.scm

[cvspsrv@xxxxxxxx]

  User: sdb     
  Date: 07/04/29 15:46:01

  Modified:    .        gnet-spice-sdb.scm
  Log:
   Add --nomunge flag to gnetlist, telling spice-sdb
  
   to not autocorrect incorrect device prefixes.
  
  
  
  
  Revision  Changes    Path
  1.31      +16 -3     eda/geda/gaf/gnetlist/scheme/gnet-spice-sdb.scm
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: gnet-spice-sdb.scm
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/gaf/gnetlist/scheme/gnet-spice-sdb.scm,v
  retrieving revision 1.30
  retrieving revision 1.31
  diff -u -b -r1.30 -r1.31
  --- gnet-spice-sdb.scm	29 Apr 2007 12:04:19 -0000	1.30
  +++ gnet-spice-sdb.scm	29 Apr 2007 19:46:01 -0000	1.31
  @@ -1,4 +1,4 @@
  -;;; $Id: gnet-spice-sdb.scm,v 1.30 2007/04/29 12:04:19 sdb Exp $
  +;;; $Id: gnet-spice-sdb.scm,v 1.31 2007/04/29 19:46:01 sdb Exp $
   ;;;
   ;;; gEDA - GNU Electronic Design Automation
   ;;; gnetlist - GNU Netlist
  @@ -436,8 +436,21 @@
   ;;---------------------------------------------------------------
   (define spice-sdb:write-prefix
       (lambda (package prefix port)
  -	(if (not (string=? (substring package 0 1) prefix))
  -	    (display prefix port))))
  +      (let ((different-prefix (not (string=? (substring package 0 1) prefix)) )
  +            (nomunge (calling-flag? "nomunge_mode" (gnetlist:get-calling-flags)) )
  +           )
  +	(debug-spew (string-append "Checking prefix.  Package prefix =" (substring package 0 1) "\n"))
  +	(debug-spew (string-append "                  correct prefix =" prefix "\n"))
  +	(debug-spew "   nomunge mode = ")
  +	(debug-spew nomunge)
  +	(debug-spew (string-append "\n  different-prefix="))
  +	(debug-spew different-prefix)
  +	(debug-spew "\n")
  +	(if (and different-prefix (not nomunge))
  +	    (display prefix port) )
  +      )
  +    )
  +)
   
   
   ;;---------------------------------------------------------------
  
  
  


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