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

[cvspsrv@xxxxxxxx]

  User: sdb     
  Date: 07/02/11 19:05:27

  Modified:    .        gnet-spice-sdb.scm
  Log:
  gnetlist:safe-string-head -> safe-string-head
  
  
  
  
  Revision  Changes    Path
  1.26      +4 -4      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.25
  retrieving revision 1.26
  diff -u -b -r1.25 -r1.26
  --- gnet-spice-sdb.scm	11 Feb 2007 21:53:26 -0000	1.25
  +++ gnet-spice-sdb.scm	12 Feb 2007 00:05:26 -0000	1.26
  @@ -1,4 +1,4 @@
  -;;; $Id: gnet-spice-sdb.scm,v 1.25 2007/02/11 21:53:26 sdb Exp $
  +;;; $Id: gnet-spice-sdb.scm,v 1.26 2007/02/12 00:05:26 sdb Exp $
   ;;;
   ;;; gEDA - GNU Electronic Design Automation
   ;;; gnetlist - GNU Netlist
  @@ -382,13 +382,13 @@
   	   
   	 ((string=? (string (string-ref file-line 0)) ".")
   	  (begin
  -	    ;; (display "In get-file-type, first-char = .\n")  ;; DEBUG stuff
  +	    (display "In get-file-type, first-char = .\n")  ;; DEBUG stuff
   	    (cond
   
  -	      ((string-ci=? (gnetlist:safe-string-head file-line 7) ".subckt")  ;; found .subckt as first line.
  +	      ((string-ci=? (safe-string-head file-line 7) ".subckt")  ;; found .subckt as first line.
   	       ".SUBCKT" )
   
  -	      ((string-ci=? (gnetlist:safe-string-head file-line 6) ".model")   ;; found .model as first line.
  +	      ((string-ci=? (safe-string-head file-line 6) ".model")   ;; found .model as first line.
   	       ".MODEL"  )
   	     
   	      (else "OTHER")   ;; first . spice card is neither .model nor .subckt
  
  
  


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