Date: Mon, 16 Feb 2015 13:34:45 +0300
From: Vladimir Zhbanov <vzhbanov AT gmail DOT com>
To: geda-user AT delorie DOT com
Subject: Re: [geda-user] work on gEDA
Message-ID: <20150216103445.GA28499@localhost.localdomain>
Mail-Followup-To: geda-user AT delorie DOT com
References: <20150215021721 DOT 28d94fde AT jive>
 <20150215092144 DOT EF6D381A5EB8 AT turkos DOT aspodata DOT se>
 <alpine DOT DEB DOT 2 DOT 00 DOT 1502151046540 DOT 7324 AT igor2priv>
 <alpine DOT DEB DOT 2 DOT 11 DOT 1502151524530 DOT 26783 AT nimbus>
 <4CDE0B7D-C211-44CE-990C-758BE560656B AT noqsi DOT com>
 <1424040627 DOT 18156 DOT 2 DOT camel AT cam DOT ac DOT uk>
 <74CC75B2-6E07-4292-8ACE-655F64EB3744 AT noqsi DOT com>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="lrZ03NoBR/3+SXJZ"
Content-Disposition: inline
Content-Transfer-Encoding: 8bit
In-Reply-To: <74CC75B2-6E07-4292-8ACE-655F64EB3744@noqsi.com>
User-Agent: Mutt/1.5.23 (2014-03-12)
Reply-To: geda-user AT delorie DOT com
Errors-To: nobody AT delorie DOT com
Precedence: bulk


--lrZ03NoBR/3+SXJZ
Content-Type: text/plain; charset=utf-8
Content-Disposition: inline
Content-Transfer-Encoding: 8bit

On Sun, Feb 15, 2015 at 07:40:51PM -1000, John Doty wrote:
...
> It’s more readable to me than the Scheme original, and I wrote the Scheme original. I think this is the future…

Would one of the attached versions of your backend be more
readable than your original :) ?

The key point here for me is using of clear names, so some
syntactic sugar makes things look more clear.

Though the more important thing I sort of see in Roland's code is
creating of two full internal netlists, that is net-based and
instance-based ones, before doing the work the backend wants to
do, which can be afterwards filtered by means of Scheme to pick
out the stuff you need to get the work done. I suspect some
refactoring to make gnetlist work in such a way would simplify
many backends (and probably solve some gnetlist inefficiencies).

(BTW, I don't like Python and don't want Scheme to be replaced
with it entirely in gEDA/gaf. However I agree that the osmond
backend code written by Roland is nice.)

Cheers,
  Vladimir

--lrZ03NoBR/3+SXJZ
Content-Type: text/plain; charset=utf-8
Content-Disposition: attachment; filename="gnet-osmond-1.scm"

; Export a design to Osmond PCB

; Some syntactic sugar
(define (package-footprint package)
  (gnetlist:get-package-attribute package "footprint"))
(define (package-refdes package) package)
(define (connection-refdes connection) (car connection))
(define (connection-pin-number connection) (cadr connection))
(define (net-connections net-name) (gnetlist:get-all-connections net-name))

(define (output-part p)
  (format #t "Part ~A { Name ~A }\n" (package-footprint p) (package-refdes p)))

(define (output-refdes-pinnumber c)
  (format #t " ~A-~A" (connection-refdes c) (connection-pin-number c)))

(define (output-signal net-name)
  (format #t "Signal \"~A\"\n  {" net-name)
  (for-each output-refdes-pinnumber (net-connections net-name))
  (format #t " }\n"))

; Main procedure
(define (osmond output-filename)
  (set-current-output-port (gnetlist:output-port output-filename))
  (for-each output-part packages)
  (for-each output-signal all-unique-nets))

--lrZ03NoBR/3+SXJZ
Content-Type: text/plain; charset=utf-8
Content-Disposition: attachment; filename="gnet-osmond-2.scm"

; Export a design to Osmond PCB

; Some syntactic sugar
(define (package-footprint package)
  (gnetlist:get-package-attribute package "footprint"))
(define (package-refdes package) package)
(define (connection-refdes connection) (car connection))
(define (connection-pin-number connection) (cadr connection))
(define (net-connections net-name) (gnetlist:get-all-connections net-name))

; Main procedure
(define (osmond output-filename)
  (set-current-output-port (gnetlist:output-port output-filename))
  (for-each
    (lambda (p)
      (format #t "Part ~A { Name ~A }\n" (package-footprint p) (package-refdes p)))
    packages)
  (for-each
    (lambda (net-name)
      (format #t "Signal \"~A\"\n  {" net-name)
      (for-each
        (lambda (c)
          (format #t " ~A-~A" (connection-refdes c) (connection-pin-number c)))
        (net-connections net-name))
      (format #t " }\n"))
    all-unique-nets))

--lrZ03NoBR/3+SXJZ--