diff options
author | dmcmahill <dmcmahill> | 2003-03-09 22:00:54 +0000 |
---|---|---|
committer | dmcmahill <dmcmahill> | 2003-03-09 22:00:54 +0000 |
commit | 9f1668ebfd56100beb99b2a07bbbaecaaa4da5cd (patch) | |
tree | 9cec2f76aa66fb6052be6600fe46c6f21f00c93d /cad/gnetlist/patches | |
parent | 5b78ff78ca6b47aa33aca9d885fa3ff2de3a67ac (diff) | |
download | pkgsrc-9f1668ebfd56100beb99b2a07bbbaecaaa4da5cd.tar.gz |
fix bug with generating a PCBboard type netlist. Bug seems to have
been caused by moving to the new guile.
Diffstat (limited to 'cad/gnetlist/patches')
-rw-r--r-- | cad/gnetlist/patches/patch-aa | 24 |
1 files changed, 16 insertions, 8 deletions
diff --git a/cad/gnetlist/patches/patch-aa b/cad/gnetlist/patches/patch-aa index a6930e11cdc..e9f76f76bec 100644 --- a/cad/gnetlist/patches/patch-aa +++ b/cad/gnetlist/patches/patch-aa @@ -1,15 +1,23 @@ -$NetBSD: patch-aa,v 1.4 2002/06/01 20:11:55 dmcmahill Exp $ +$NetBSD: patch-aa,v 1.5 2003/03/09 22:00:55 dmcmahill Exp $ -needs GNU m4 +first patch is for guile-1.6.3. +second is because (a) gnu m4 is needed for 1.6 and earlier NetBSD and probably +all other OS's. and (b) we want to support site, user, and project config files +the same way as the cad/pcb package. ---- scheme/gnet-PCBboard.scm.orig Sun Jan 27 13:48:35 2002 -+++ scheme/gnet-PCBboard.scm -@@ -151,7 +151,7 @@ - ;; Original pipe command commented out by AVH (bugfix by Rich Walker) +--- scheme/gnet-PCBboard.scm.orig Sun Jan 27 14:43:54 2002 ++++ scheme/gnet-PCBboard.scm Sun Mar 9 15:51:29 2003 +@@ -139,5 +139,5 @@ + ;; To emulate popen. Guileish again. + ; Needed after guile ver. 1.3.2. To save 1.3a users, wrap it in. +-(false-if-exception (use-modules (ice-9 popen))) ++(use-modules (ice-9 popen)) + + (define (PCBboard output-filename) +@@ -152,5 +152,5 @@ ;; (let ((pipe (open-output-pipe (string-append "m4 " *m4-pcbdir* "/common.m4 - >> " output-filename)))) ;; Fixed pipe command (AVH 1/27/02) - (let ((pipe (open-output-pipe (string-append "m4 -d -I" *m4-pcbdir* " " *m4-pcbdir* "/common.m4 - >> " output-filename)))) -+ (let ((pipe (open-output-pipe (string-append "gm4 -d -I" *m4-pcbdir* " -I@pcb_confdir@ -I$HOME/.pcb -I. " *m4-pcbdir* "/common.m4 - >> " output-filename)))) ++ (let ((pipe (open-output-pipe (string-append "gm4 -d -I" *m4-pcbdir* " -I/usr/X11R6/etc/pcb -I$HOME/.pcb -I. " *m4-pcbdir* "/common.m4 - >> " output-filename)))) - ;; packages is a list with the different uref value |