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

[cvspsrv@xxxxxxxx]

  User: sdb     
  Date: 07/01/15 13:36:55

  Modified:    .        gnet-spice-sdb.scm
  Log:
  Changed escaping for parens to fix guile-1.8 bug.  Also
  
  added (use-modules (ice-9 rdelim)) to enable read-line.
  
  
  
  
  Revision  Changes    Path
  1.21      +8 -6      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.20
  retrieving revision 1.21
  diff -u -b -r1.20 -r1.21
  --- gnet-spice-sdb.scm	9 Jan 2007 14:45:34 -0000	1.20
  +++ gnet-spice-sdb.scm	15 Jan 2007 18:36:54 -0000	1.21
  @@ -1,4 +1,4 @@
  -;;; $Id: gnet-spice-sdb.scm,v 1.20 2007/01/09 14:45:34 sdb Exp $
  +;;; $Id: gnet-spice-sdb.scm,v 1.21 2007/01/15 18:36:54 sdb Exp $
   ;;;
   ;;; gEDA - GNU Electronic Design Automation
   ;;; gnetlist - GNU Netlist
  @@ -101,6 +101,8 @@
   ;;************  Program housekeeping, handling calling flags, etc.  ****************
   ;;**********************************************************************************
   
  +(use-modules (ice-9 rdelim))
  +
   ;;--------------------------------------------------------------------------------
   ;; spice-sdb:loop-through-files -- loops through the model-file list, and for each file
   ;;  name discovered in the list, it processes the file by invoking handle-spice-file.
  @@ -710,12 +712,12 @@
        ;; one line model and model name exist
   	 ( (not (or (string=? model "unknown") (string=? model-name "unknown")))
   	   (debug-spew (string-append "found model and model-name for " package "\n"))
  -	   (display (string-append ".MODEL " model-name " " type " \(" model "\)\n") port) )
  +	   (display (string-append ".MODEL " model-name " " type " (" model ")\n") port) )
   
        ;; one line model and component value exist
   	 ( (not (or (string=? model "unknown") (string=? value "unknown")))
   	   (debug-spew (string-append "found model and value for " package "\n"))
  -	   (display (string-append ".MODEL " model-name " " type " \(" value "\)\n") port) )
  +	   (display (string-append ".MODEL " model-name " " type " (" value ")\n") port) )
   
        ;; model file and model name exist
   	 ( (not (or (string=? model-file "unknown") (string=? model-name "unknown")))
  @@ -798,7 +800,7 @@
   	      (debug-spew "Model info not found in model file list, but model attribute exists.  Write out spice card and .model line..\n") 
   	      (spice-sdb:write-component-no-value package port)    
   	      (display (string-append model-name "\n" ) port)
  -	      (display (string-append ".MODEL " model-name " " type " \(" model "\)\n") port)
  +	      (display (string-append ".MODEL " model-name " " type " (" model ")\n") port)
   	    )
   	    (begin                                     ;; no model attribute either.  Just write out card.
   	      (debug-spew "Model info not found in model file list.  No model attribute either.  Just write what we know.\n")
  @@ -888,7 +890,7 @@
   	      (debug-spew "Model info not found in model file list, but model attribute exists.  Write out spice card and .model line..\n") 
   	      (spice-sdb:write-component-no-value package port)    
   	      (display (string-append model-name "\n" ) port)
  -	      (display (string-append ".MODEL " model-name " " type " \(" model "\)\n") port)
  +	      (display (string-append ".MODEL " model-name " " type " (" model ")\n") port)
   	    )
   	    (begin                                     ;; no model attribute either.  Just write out card.
   	      (debug-spew "Model info not found in model file list.  No model attribute either.  Just write what we know.\n")
  @@ -1433,7 +1435,7 @@
   	     ;; one model and model name exist
   	   ( (not (or (string=? model "unknown") (string=? model-name "unknown")))
   	     (debug-spew (string-append "found model and model-name for " package "\n"))
  -	     (display (string-append ".MODEL " model-name " " type " \(" model "\)\n") port) )
  +	     (display (string-append ".MODEL " model-name " " type " (" model ")\n") port) )
   
                ;; model file exists
   	   ( (not (or (string=? model-file "unknown") ))
  
  
  


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