blob: 80b309533001b46543c863d40ee16ade4d6c594d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
$NetBSD: patch-ab,v 1.6 2004/03/05 13:03:47 dmcmahill Exp $
--- scheme/gnet-gsch2pcb.scm.orig Fri Jan 2 19:49:31 2004
+++ scheme/gnet-gsch2pcb.scm
@@ -133,9 +133,10 @@
;;
;;
-(define m4-command "m4")
-(define m4-pcbdir "/usr/X11R6/lib/X11/pcb/m4")
+(define m4-command "@M4@")
+(define m4-pcbdir "@pcb_m4dir@")
(define m4-files "")
+(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.
@@ -149,6 +150,7 @@
;; pipe with the macro define in pcb program
(let ((pipe (open-output-pipe (string-append
m4-command " -d -I. -I" m4-pcbdir " "
+ " -I " m4-pcbconfdir " -I$HOME/.pcb -I. "
m4-pcbdir "/common.m4 " m4-files " - >> "
output-filename))))
|
