diff options
Diffstat (limited to 'cad/gnetlist/patches/patch-aa')
-rw-r--r-- | cad/gnetlist/patches/patch-aa | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/cad/gnetlist/patches/patch-aa b/cad/gnetlist/patches/patch-aa index bfcb3e49c9d..e4f3ebe6892 100644 --- a/cad/gnetlist/patches/patch-aa +++ b/cad/gnetlist/patches/patch-aa @@ -1,22 +1,23 @@ -$NetBSD: patch-aa,v 1.6 2003/07/15 09:23:34 dmcmahill Exp $ +$NetBSD: patch-aa,v 1.7 2003/09/10 23:43:36 dmcmahill Exp $ ---- scheme/gnet-PCBboard.scm.orig Mon Mar 10 02:56:44 2003 +--- scheme/gnet-PCBboard.scm.orig Sun Aug 24 01:36:06 2003 +++ scheme/gnet-PCBboard.scm -@@ -134,7 +134,7 @@ +@@ -134,7 +134,8 @@ ;; ;; -(define *m4-pcbdir* "/usr/X11R6/lib/X11/pcb/m4") -+(define *m4-pcbdir* "@pcb_confdir@") ++(define *m4-pcbdir* "@pcb_m4dir@") ++(define *m4-pcbconfdir* "@pcb_confdir@") ;; To emulate popen. Guileish again. ; Needed after guile ver. 1.3.2. To save 1.3a users, wrap it in. -@@ -153,7 +153,7 @@ +@@ -153,7 +154,7 @@ ;; Original pipe command commented out by AVH (bugfix by Rich Walker) ;; (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" *m4-pcbconfdir* " -I$HOME/.pcb -I. " *m4-pcbdir* "/common.m4 - >> " output-filename)))) ;; packages is a list with the different uref value |