[Author Prev][Author Next][Thread Prev][Thread Next][Author Index][Thread Index]
gEDA-cvs: CVS update: gnet-spice-sdb.scm
User: sdb
Date: 07/02/10 11:12:45
Modified: . gnet-spice-sdb.scm
Log:
More bugfixes, including SF #1472541.
Revision Changes Path
1.23 +9 -12 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.22
retrieving revision 1.23
diff -u -b -r1.22 -r1.23
--- gnet-spice-sdb.scm 16 Jan 2007 23:05:05 -0000 1.22
+++ gnet-spice-sdb.scm 10 Feb 2007 16:12:45 -0000 1.23
@@ -1,4 +1,4 @@
-;;; $Id: gnet-spice-sdb.scm,v 1.22 2007/01/16 23:05:05 ahvezda Exp $
+;;; $Id: gnet-spice-sdb.scm,v 1.23 2007/02/10 16:12:45 sdb Exp $
;;;
;;; gEDA - GNU Electronic Design Automation
;;; gnetlist - GNU Netlist
@@ -84,6 +84,7 @@
;; 3.10.2006 -- Added "m" attribute to PMOS and NMOS per request of Peter Kaiser.
;; 4.11.2006 -- Changed the .END and .ENDS cards to lowercase.
;; This fixes bug 1442912. Carlos Nieves Onega.
+;; 2.10.2007 -- Various bugfixes. SDB.
;;**********************************************************************************
;;
;; Organization of gnet-spice-sdb.scm file:
@@ -383,10 +384,10 @@
;; (display "In get-file-type, first-char = .\n") ;; DEBUG stuff
(cond
- ((string-ci=? (substring file-line 0 7) ".subckt") ;; found .subckt as first line.
+ ((string-ci=? (string-pad-right file-line 7) ".subckt") ;; found .subckt as first line.
".SUBCKT" )
- ((string-ci=? (substring file-line 0 6) ".model") ;; found .model as first line.
+ ((string-ci=? (string-pad-right file-line 6) ".model") ;; found .model as first line.
".MODEL" )
(else "OTHER") ;; first . spice card is neither .model nor .subckt
@@ -817,7 +818,6 @@
((string=? file-type ".MODEL")
(begin
(debug-spew (string-append "Found .MODEL with model-file and model-name for " package "\n"))
- (spice-sdb:write-prefix package "D" port) ;; this appends an "D" to the refdes
(spice-sdb:write-component-no-value package port)
(display (string-append model-name "\n" ) port)
(debug-spew "We'll handle the file contents later . . .\n")
@@ -827,7 +827,6 @@
((string=? file-type ".SUBCKT")
(begin
(debug-spew (string-append "Found .SUBCKT with model-file and model-name for " package "\n"))
- (spice-sdb:write-prefix package "X" port) ;; this appends an "X" to the refdes
(spice-sdb:write-component-no-value package port)
(display (string-append model-name "\n" ) port)
(debug-spew "We'll handle the file contents later . . .\n")
@@ -849,7 +848,7 @@
;; file-info-list. If it isn't listed, look for a MODEL attribute.
;; If MODEL attribute is attached, write out SPICE card, and then
;; write out .MODEL on next line.
-;; If no MODEL attribute is attached, just write out what litte
+;; If no MODEL attribute is attached, just write out what little
;; we know. Then return.
;; 2. If the model-name is in the file-info-list, get the associated
;; file-type. Compare it against the component's refdes. If model-type
@@ -907,7 +906,6 @@
((string=? file-type ".MODEL")
(begin
(debug-spew (string-append "Found .MODEL with model-file and model-name for " package "\n"))
- (spice-sdb:write-prefix package "D" port) ;; this prepends an "U" to the refdes if needed
(spice-sdb:write-component-no-value package port)
(display (string-append model-name "\n" ) port)
(debug-spew "We'll handle the file contents later . . .\n")
@@ -917,7 +915,6 @@
((string=? file-type ".SUBCKT")
(begin
(debug-spew (string-append "Found .SUBCKT with model-file and model-name for " package "\n"))
- (spice-sdb:write-prefix package "X" port) ;; this appends an "X" to the refdes if needed
(spice-sdb:write-component-no-value package port)
(display (string-append model-name "\n" ) port)
(debug-spew "We'll handle the file contents later . . .\n")
@@ -1718,7 +1715,7 @@
(lambda (port)
(display "*********************************************************\n" port)
(display "* Spice file generated by gnetlist *\n" port)
- (display "* spice-sdb version 12.27.2005 by SDB -- *\n" port)
+ (display "* spice-sdb version 2.10.2007 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)
@@ -1732,7 +1729,7 @@
(lambda (port)
(display "*******************************\n" port)
(display "* Begin .SUBCKT model *\n" port)
- (display "* spice-sdb ver 12.27.2005 *\n" port)
+ (display "* spice-sdb ver 2.10.2007 *\n" port)
(display "*******************************\n" port)
)
)
@@ -1787,7 +1784,7 @@
(model-name (spice-sdb:get-subcircuit-modelname schematic-type))
(file-info-list (list))
)
- (display "Using SPICE backend by SDB -- Version of 12.27.2005\n")
+ (display "Using SPICE backend by SDB -- Version of 2.10.2007\n")
(display (string-append "schematic-type = " schematic-type "\n"))
;; (display (string-append "model-name = " model-name "\n"))
_______________________________________________
geda-cvs mailing list
geda-cvs@xxxxxxxxxxxxxx
http://www.seul.org/cgi-bin/mailman/listinfo/geda-cvs