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

[cvspsrv@xxxxxxxx]

  User: sdb     
  Date: 06/01/04 09:37:22

  Modified:    .        gnet-spice-sdb.scm
  Log:
  Fix bug discovered by John Doty: spice-IO pins with refdes greater
  
  than P9 were sorted  incorrectly (as strings).  Now they are sorted as
  
  numbers. 
  
  
  
  
  Revision  Changes    Path
  1.17      +4 -22     eda/geda/devel/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/devel/gnetlist/scheme/gnet-spice-sdb.scm,v
  retrieving revision 1.16
  retrieving revision 1.17
  diff -u -b -r1.16 -r1.17
  --- gnet-spice-sdb.scm	27 Dec 2005 14:13:29 -0000	1.16
  +++ gnet-spice-sdb.scm	4 Jan 2006 14:37:22 -0000	1.17
  @@ -1,4 +1,4 @@
  -;;; $Id: gnet-spice-sdb.scm,v 1.16 2005/12/27 14:13:29 sdb Exp $
  +;;; $Id: gnet-spice-sdb.scm,v 1.17 2006/01/04 14:37:22 sdb Exp $
   ;;;
   ;;; gEDA - GNU Electronic Design Automation
   ;;; gnetlist - GNU Netlist
  @@ -1708,7 +1708,7 @@
     (lambda (port)
       (display "*********************************************************\n" port)
       (display "* Spice file generated by gnetlist                      *\n" port)
  -    (display "* spice-sdb version 6.12.2005 by SDB --                 *\n" port)
  +    (display "* spice-sdb version 12.27.2005 by SDB --                *\n" port)
       (display "* provides advanced spice netlisting capability.        *\n" port)
       (display "* Documentation at http://www.brorson.com/gEDA/SPICE/   *\n" port)
       (display "*********************************************************\n" port)
  @@ -1722,7 +1722,7 @@
     (lambda (port)
       (display "*******************************\n" port)
       (display "* Begin .SUBCKT model         *\n" port)
  -    (display "* spice-sdb ver 6.12.2005     *\n" port)
  +    (display "* spice-sdb ver 12.27.2005    *\n" port)
       (display "*******************************\n" port)
     )
   )
  @@ -1777,7 +1777,7 @@
   	   (model-name (spice-sdb:get-subcircuit-modelname schematic-type)) 
   	   (file-info-list (list))
   	  )
  -      (display "Using SPICE backend by SDB -- Version of 6.12.2005\n")
  +      (display "Using SPICE backend by SDB -- Version of 12.27.2005\n")
         (display (string-append "schematic-type = " schematic-type "\n"))
         ;; (display (string-append "model-name = " model-name "\n"))
   
  @@ -1875,21 +1875,3 @@
      )    ;; (let* ((port . . . .
    )
   )
  -
  -      
  -
  -
  -
  -
  -
  -
  -
  -
  -
  -
  -
  -
  -
  -
  -
  -