Posted to tcl by auriocus at Tue Aug 18 19:50:08 GMT 2015view raw
- diff --git a/Makefile.in b/Makefile.in
- index 438ce6e..20f8143 100755
- --- a/Makefile.in
- +++ b/Makefile.in
- @@ -192,7 +192,7 @@ all: binaries libraries doc
- generate-api: ${APIFILES}
- ${APIFILES}: llvmtcl-gen.inp llvmtcl-gen.tcl
- @echo Generate API: llvmtcl-gen.tcl '->' ${APIFILES}
- - @$(TCLSH) llvmtcl-gen.tcl
- + @$(TCLSH) ${srcdir}/llvmtcl-gen.tcl
- #========================================================================
- # The binaries target builds executable programs, Windows .dll's, unix
- @@ -290,7 +290,7 @@ VPATH = $(srcdir):$(srcdir)/generic:$(srcdir)/unix:$(srcdir)/win
- .cpp.@OBJEXT@:
- @echo Compiling: $< '->' $@
- - @$(COMPILE) -c `@CYGPATH@ $<` -o $@
- + $(COMPILE) -c `@CYGPATH@ $<` -o $@
- #========================================================================
- # Distribution creation
- diff --git a/llvmtcl-gen.tcl b/llvmtcl-gen.tcl
- index b6c3696..551e5b0 100644
- --- a/llvmtcl-gen.tcl
- +++ b/llvmtcl-gen.tcl
- @@ -469,13 +469,15 @@ proc gen_map {mf l} {
- puts $mf "\}"
- }
- -set f [open llvmtcl-gen.inp r]
- +set srcdir [file dirname [info script]]
- +
- +set f [open $srcdir/llvmtcl-gen.inp r]
- set ll [split [read $f] \n]
- close $f
- -set cf [open generic/llvmtcl-gen.c w]
- -set of [open generic/llvmtcl-gen-cmddef.c w]
- -set mf [open generic/llvmtcl-gen-map.c w]
- +set cf [open $srcdir/generic/llvmtcl-gen.c w]
- +set of [open $srcdir/generic/llvmtcl-gen-cmddef.c w]
- +set mf [open $srcdir/generic/llvmtcl-gen-map.c w]
- foreach l $ll {
- set l [string trim $l]