On Fri, 15 Jan 2010, Maciej Pijanka wrote: > Hello
It's a bit odd to reply to own email, but i have tweaked scheme part a bit so now it can use already existing testpoint symbol, also patch should apply without making side effect change which was in previous one from my testing. regards Maciej -- Maciej Pijanka reg. Linux user #133161
--- geda.ori/scheme/gnet-spice-sdb.scm 2009-11-14 20:59:47.000000000 +0100 +++ geda.mod/scheme/gnet-spice-sdb.scm 2010-01-16 01:21:09.000000000 +0100 @@ -1256,6 +1309,60 @@ ) ) +; most of this code is shamelessly copied from write-net-names-on-component +; probably net-on-component could take one more argument that will be formater +; which receives pin data those generated in let, etc +; then this cruft might just provide own formater and reuse code +(define spice-sdb:write-probe-item + (lambda (refdes number-of-pins port) + (if (> number-of-pins 0) + (begin + (spice-sdb:write-probe-item refdes (- number-of-pins 1) port) + (let* ((pin-name (number->string number-of-pins)) + (pinnumber (gnetlist:get-attribute-by-pinseq refdes pin-name "pinnumber")) + (pinseq (gnetlist:get-attribute-by-pinseq refdes pin-name "pinseq")) + (netname (car (spice-sdb:get-net refdes pinnumber)) ) + ) + +;; ------- Super debug stuff -------- + (debug-spew " In write-probe-item. . . . \n") + (debug-spew (string-append " pin-name = " pin-name "\n")) + (debug-spew (string-append " pinnumber = " pinnumber "\n")) + (debug-spew (string-append " pinseq = " pinseq "\n")) + (debug-spew (string-append " netname = " netname "\n")) +;; ------------------------------ + + (if (not (string=? netname "ERROR_INVALID_PIN")) + (display (string-append "V(" netname ") ") port) ;; write out attached net if OK. + (debug-spew (string-append "For " refdes ", found pin with no pinseq attribute. Ignoring. . . .\n")) + ) + ) ;; let* + ) ;; begin + ) ;; if + ) ;; lambda +) + +(define spice-sdb:write-probe + (lambda (package port) + ;; fetch only one attr we care about, so far + (let ((value (gnetlist:get-package-attribute package "value")) + ) ;; end of local assignments + + (debug-spew (string-append "Found Probe item, refdes = " package "\n")) + + (if (string=? value "unknown") + (set! value "TRAN")) + + (display (string-append "* Probe device " package " on nets ") port) + (spice-sdb:write-probe-item package (length (gnetlist:get-pins package)) port) + (newline port) + (display (string-append ".print " value " +") port) + (spice-sdb:write-probe-item package (length (gnetlist:get-pins package)) port) + (newline port) + ) ;; end of let + ) ;; close of lambda +) ;; close of define + ;;-------------------------------------------------------------------- ;; Given a refdes and number of pins, this writes out the nets ;; attached to the component's pins. This is used to write out @@ -1617,6 +1724,8 @@ (spice-sdb:write-directive package port)) ( (string=? device "include") (spice-sdb:write-include package port)) + ( (string=? device "TESTPOINT") + (spice-sdb:write-probe package port)) ( else (spice-sdb:write-default-component package file-info-list port)) ) ;; end of cond
_______________________________________________ geda-user mailing list geda-user@moria.seul.org http://www.seul.org/cgi-bin/mailman/listinfo/geda-user