Posted to tcl by auriocus at Tue Aug 18 19:50:08 GMT 2015view raw

  1. diff --git a/Makefile.in b/Makefile.in
  2. index 438ce6e..20f8143 100755
  3. --- a/Makefile.in
  4. +++ b/Makefile.in
  5. @@ -192,7 +192,7 @@ all: binaries libraries doc
  6. generate-api: ${APIFILES}
  7. ${APIFILES}: llvmtcl-gen.inp llvmtcl-gen.tcl
  8. @echo Generate API: llvmtcl-gen.tcl '->' ${APIFILES}
  9. - @$(TCLSH) llvmtcl-gen.tcl
  10. + @$(TCLSH) ${srcdir}/llvmtcl-gen.tcl
  11.  
  12. #========================================================================
  13. # The binaries target builds executable programs, Windows .dll's, unix
  14. @@ -290,7 +290,7 @@ VPATH = $(srcdir):$(srcdir)/generic:$(srcdir)/unix:$(srcdir)/win
  15.  
  16. .cpp.@OBJEXT@:
  17. @echo Compiling: $< '->' $@
  18. - @$(COMPILE) -c `@CYGPATH@ $<` -o $@
  19. + $(COMPILE) -c `@CYGPATH@ $<` -o $@
  20.  
  21. #========================================================================
  22. # Distribution creation
  23. diff --git a/llvmtcl-gen.tcl b/llvmtcl-gen.tcl
  24. index b6c3696..551e5b0 100644
  25. --- a/llvmtcl-gen.tcl
  26. +++ b/llvmtcl-gen.tcl
  27. @@ -469,13 +469,15 @@ proc gen_map {mf l} {
  28. puts $mf "\}"
  29. }
  30.  
  31. -set f [open llvmtcl-gen.inp r]
  32. +set srcdir [file dirname [info script]]
  33. +
  34. +set f [open $srcdir/llvmtcl-gen.inp r]
  35. set ll [split [read $f] \n]
  36. close $f
  37.  
  38. -set cf [open generic/llvmtcl-gen.c w]
  39. -set of [open generic/llvmtcl-gen-cmddef.c w]
  40. -set mf [open generic/llvmtcl-gen-map.c w]
  41. +set cf [open $srcdir/generic/llvmtcl-gen.c w]
  42. +set of [open $srcdir/generic/llvmtcl-gen-cmddef.c w]
  43. +set mf [open $srcdir/generic/llvmtcl-gen-map.c w]
  44.  
  45. foreach l $ll {
  46. set l [string trim $l]
  47.  
  48.  
  49.