gEDA-cvs: branch: master updated (1.3.0-20071229-62-g0dfb874)

[git@xxxxxxxxxx]

The branch, master has been updated
       via  0dfb874e72040b74679152d75ab2e50b735bdbd4 (commit)
      from  1314f9a1aa89f85b27318a2af8d565614e1b8510 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.


=========
 Summary
=========

 gnetlist/scheme/gnet-PCB.scm         |   11 +----------
 gnetlist/scheme/gnet-gsch2pcb.scm.in |   10 ----------
 gnetlist/scheme/gnet-pcbpins.scm     |   10 ----------
 3 files changed, 1 insertions(+), 30 deletions(-)


=================
 Commit Messages
=================

commit 0dfb874e72040b74679152d75ab2e50b735bdbd4
Author: Peter Clifton <pcjc2@xxxxxxxxx>
Date:   Fri Jan 11 02:01:58 2008 +0000

    Revert "gnetlist: Strip trailing lower case suffixes from PCB package names"
    
    Stripping lower case refdes suffixes when netlisting for PCB (which
    ignores lowercase refdes suffixes) caused breakage when relying on
    matching a pinlabel=xxx to refdes=xxx inside a hierarchical
    schematic, where "xxx" had a lowercase suffix.
    
    This reverts commit e8b3be0fbcbf7518b05b437e13eeaa11478345aa.

:100644 100644 ae97d6f... bef187e... M	gnetlist/scheme/gnet-PCB.scm
:100644 100644 c6168a1... e679058... M	gnetlist/scheme/gnet-gsch2pcb.scm.in
:100644 100644 97d6484... 67f951e... M	gnetlist/scheme/gnet-pcbpins.scm

=========
 Changes
=========

commit 0dfb874e72040b74679152d75ab2e50b735bdbd4
Author: Peter Clifton <pcjc2@xxxxxxxxx>
Date:   Fri Jan 11 02:01:58 2008 +0000

    Revert "gnetlist: Strip trailing lower case suffixes from PCB package names"
    
    Stripping lower case refdes suffixes when netlisting for PCB (which
    ignores lowercase refdes suffixes) caused breakage when relying on
    matching a pinlabel=xxx to refdes=xxx inside a hierarchical
    schematic, where "xxx" had a lowercase suffix.
    
    This reverts commit e8b3be0fbcbf7518b05b437e13eeaa11478345aa.

diff --git a/gnetlist/scheme/gnet-PCB.scm b/gnetlist/scheme/gnet-PCB.scm
index ae97d6f..bef187e 100644
--- a/gnetlist/scheme/gnet-PCB.scm
+++ b/gnetlist/scheme/gnet-PCB.scm
@@ -19,7 +19,7 @@
 
 ;;  PCB format
 
-(use-modules (ice-9 format) (srfi srfi-13) (srfi srfi-14))
+(use-modules (ice-9 format))
 
 
 (define (PCB:display-connections nets)
@@ -51,12 +51,3 @@
     (PCB:write-net (gnetlist:get-all-unique-nets "dummy") port)
     (close-output-port port)))
 
-;; Custom get-uref function to stip lowercase suffixes
-(define (get-uref object)
-  (let ((real_uref (gnetlist:get-uref object)))
-    (if real_uref
-      (string-trim-right real_uref char-set:lower-case)
-      #f
-    )
-  )
-)
diff --git a/gnetlist/scheme/gnet-gsch2pcb.scm.in b/gnetlist/scheme/gnet-gsch2pcb.scm.in
index c6168a1..e679058 100644
--- a/gnetlist/scheme/gnet-gsch2pcb.scm.in
+++ b/gnetlist/scheme/gnet-gsch2pcb.scm.in
@@ -24,7 +24,6 @@
 ;;  Bill Wilson    billw@xxxxxx
 ;;  6/17/2003
 
-(use-modules (srfi srfi-13) (srfi srfi-14))
 
 ;;
 ;;
@@ -169,12 +168,3 @@
     close-port port)
   )
 
-;; Custom get-uref function to stip lowercase suffixes
-(define (get-uref object)
-  (let ((real_uref (gnetlist:get-uref object)))
-    (if real_uref
-      (string-trim-right real_uref char-set:lower-case)
-      #f
-    )
-  )
-)
diff --git a/gnetlist/scheme/gnet-pcbpins.scm b/gnetlist/scheme/gnet-pcbpins.scm
index 97d6484..67f951e 100644
--- a/gnetlist/scheme/gnet-pcbpins.scm
+++ b/gnetlist/scheme/gnet-pcbpins.scm
@@ -17,7 +17,6 @@
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(use-modules (srfi srfi-13) (srfi srfi-14))
 
 ;; write out the pins for a particular component
 (define pcbpins:component_pins
@@ -97,12 +96,3 @@
     )
   )
 
-;; Custom get-uref function to stip lowercase suffixes
-(define (get-uref object)
-  (let ((real_uref (gnetlist:get-uref object)))
-    (if real_uref
-      (string-trim-right real_uref char-set:lower-case)
-      #f
-    )
-  )
-)




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