diff options
Diffstat (limited to 'audio/TiMidity++/patches/patch-tclsh')
| -rw-r--r-- | audio/TiMidity++/patches/patch-tclsh | 139 |
1 files changed, 139 insertions, 0 deletions
diff --git a/audio/TiMidity++/patches/patch-tclsh b/audio/TiMidity++/patches/patch-tclsh new file mode 100644 index 0000000000..6467765360 --- /dev/null +++ b/audio/TiMidity++/patches/patch-tclsh @@ -0,0 +1,139 @@ +commit 7cbdab2041e378486a74cd9d0ae0b39fb4d1af16 +Author: TAMUKI Shoichi <tamuki@linet.gr.jp> +Date: Wed Sep 5 12:26:22 2012 +0900 + + Remove tclIndex due to autogenerated file + + auto_mkindex will now run with tclsh instead of wish. + +diff --git a/configure.in b/configure.in +index 286e459..dcc8442 100644 +--- a/configure.in ++++ b/configure.in +@@ -36,7 +36,7 @@ dnl - add to -L LDFLAGS + dnl C_INCLUDE_PATH + dnl - add to -I CPPFLAGS + dnl MSYS - `yes' if cygnus or Mingw windows environment. +-dnl WISH - wish ++dnl TCLSH - tclsh + dnl LN_S - ln -s + dnl tcltk_dep - make dependencies for tcl/tk interface + dnl +@@ -59,7 +59,7 @@ AC_CONFIG_HEADERS([config.h interface.h]) + AM_MAINTAINER_MODE + + SHELL=${CONFIG_SHELL-"/bin/sh"} +-WISH=${WISH-"wish"} ++TCLSH=${TCLSH-"tclsh"} + + dnl to use contains() macro (see autoconf/acinclude.m4) + CONTAINS_INIT +@@ -2287,7 +2287,7 @@ AC_SUBST(SHCFLAGS) + AC_SUBST(dynamic_targets) + AC_SUBST(so) + AC_SUBST(LN_S) +-AC_SUBST(WISH) ++AC_SUBST(TCLSH) + AC_SUBST(tcltk_dep) + AC_SUBST(program_transform_name) + AC_SUBST(INTERFACE_SRCS) +diff --git a/interface/Makefile.am b/interface/Makefile.am +index 6ce4795..6921a83 100644 +--- a/interface/Makefile.am ++++ b/interface/Makefile.am +@@ -240,8 +240,7 @@ EXTRA_DIST = \ + tkpanel.tcl \ + browser.tcl \ + misc.tcl \ +- timidity.pel \ +- tclIndex ++ timidity.pel + + .ptcl.tcl: + sed -e 's@%TCL_DIR%@$(TCL_DIR)@g' $< > $@ +@@ -249,6 +248,8 @@ EXTRA_DIST = \ + sed -e 's@%BIN_DIR%@$(bindir)@g' $< > $@ + clean: + rm -f tkmidity.tcl ++ rm -f tclIndex ++ rm -f timidity.el + rm -f *.$(OBJEXT) + rm -f *.$(so) + rm -f *.res +@@ -259,7 +260,7 @@ clean: + + tclIndex: $(TCLSRCS) + rm -f tclIndex +- echo 'auto_mkindex . *.tcl; exit' | $(WISH) ++ echo 'auto_mkindex $(srcdir) *.tcl; exit' | $(TCLSH) + + if ENABLE_TCLTK + install_tk = install.tk +diff --git a/interface/tclIndex b/interface/tclIndex +deleted file mode 100644 +index e62cfcf..0000000 +--- a/interface/tclIndex ++++ /dev/null +@@ -1,62 +0,0 @@ +-# Tcl autoload index file, version 2.0 +-# This file is generated by the "auto_mkindex" command +-# and sourced to set up indexing information for one or +-# more commands. Typically each line is a command that +-# sets an element in the auto_index array, where the +-# element name is the name of a command and the value is +-# a script that loads the command. +- +-set auto_index(InitGlobal) [list source [file join $dir tkpanel.tcl]] +-set auto_index(HandleInput) [list source [file join $dir tkpanel.tcl]] +-set auto_index(MakeShuffleList) [list source [file join $dir tkpanel.tcl]] +-set auto_index(AppendMsg) [list source [file join $dir tkpanel.tcl]] +-set auto_index(ClearMsg) [list source [file join $dir tkpanel.tcl]] +-set auto_index(SelectNumber) [list source [file join $dir tkpanel.tcl]] +-set auto_index(SetTime) [list source [file join $dir tkpanel.tcl]] +-set auto_index(DispButtonPlay) [list source [file join $dir tkpanel.tcl]] +-set auto_index(SetVolume) [list source [file join $dir tkpanel.tcl]] +-set auto_index(WriteMsg) [list source [file join $dir tkpanel.tcl]] +-set auto_index(JumpCmd) [list source [file join $dir tkpanel.tcl]] +-set auto_index(VolumeCmd) [list source [file join $dir tkpanel.tcl]] +-set auto_index(LoadCmd) [list source [file join $dir tkpanel.tcl]] +-set auto_index(PlayCmd) [list source [file join $dir tkpanel.tcl]] +-set auto_index(PauseCheck) [list source [file join $dir tkpanel.tcl]] +-set auto_index(PauseCmd) [list source [file join $dir tkpanel.tcl]] +-set auto_index(StopCmd) [list source [file join $dir tkpanel.tcl]] +-set auto_index(QuitCmd) [list source [file join $dir tkpanel.tcl]] +-set auto_index(PrevCmd) [list source [file join $dir tkpanel.tcl]] +-set auto_index(NextCmd) [list source [file join $dir tkpanel.tcl]] +-set auto_index(ForwardCmd) [list source [file join $dir tkpanel.tcl]] +-set auto_index(BackwardCmd) [list source [file join $dir tkpanel.tcl]] +-set auto_index(VolUpCmd) [list source [file join $dir tkpanel.tcl]] +-set auto_index(VolDownCmd) [list source [file join $dir tkpanel.tcl]] +-set auto_index(DispTables) [list source [file join $dir tkpanel.tcl]] +-set auto_index(SaveConfig) [list source [file join $dir tkpanel.tcl]] +-set auto_index(LoadConfig) [list source [file join $dir tkpanel.tcl]] +-set auto_index(InitCmdLine) [list source [file join $dir tkpanel.tcl]] +-set auto_index(SelectList) [list source [file join $dir tkpanel.tcl]] +-set auto_index(OpenFiles) [list source [file join $dir tkpanel.tcl]] +-set auto_index(CloseFiles) [list source [file join $dir tkpanel.tcl]] +-set auto_index(ToggleCurFileMode) [list source [file join $dir tkpanel.tcl]] +-set auto_index(CreateWindow) [list source [file join $dir tkpanel.tcl]] +-set auto_index(filebrowser) [list source [file join $dir browser.tcl]] +-set auto_index(fs:init) [list source [file join $dir browser.tcl]] +-set auto_index(fs:init-lbox) [list source [file join $dir browser.tcl]] +-set auto_index(fs:get-cur-lbox) [list source [file join $dir browser.tcl]] +-set auto_index(fs:select) [list source [file join $dir browser.tcl]] +-set auto_index(fs:selall) [list source [file join $dir browser.tcl]] +-set auto_index(fs:updir) [list source [file join $dir browser.tcl]] +-set auto_index(fs:changedir) [list source [file join $dir browser.tcl]] +-set auto_index(fs:update) [list source [file join $dir browser.tcl]] +-set auto_index(retrieve-filename) [list source [file join $dir misc.tcl]] +-set auto_index(sec2time) [list source [file join $dir misc.tcl]] +-set auto_index(numeric-bind) [list source [file join $dir misc.tcl]] +-set auto_index(my-listbox) [list source [file join $dir misc.tcl]] +-set auto_index(my-dialog) [list source [file join $dir misc.tcl]] +-set auto_index(warning) [list source [file join $dir misc.tcl]] +-set auto_index(error) [list source [file join $dir misc.tcl]] +-set auto_index(information) [list source [file join $dir misc.tcl]] +-set auto_index(question) [list source [file join $dir misc.tcl]] +-set auto_index(rootname) [list source [file join $dir misc.tcl]] +-set auto_index(my-random) [list source [file join $dir misc.tcl]] +-set auto_index(init-random) [list source [file join $dir misc.tcl]] |