new support package lua2dox (20jul12)

git-svn-id: svn://tug.org/texlive/trunk@27205 c570f23f-e606-0410-a88d-b1316a301751

3 files changed, 90 insertions, 0 deletions

diff --git a/Build/source/texk/texlive/linked_scripts/Makefile.am b/Build/source/texk/texlive/linked_scripts/Makefile.am
index 3e302cf7c4b..45036cd9c1d 100644
--- a/Build/source/texk/texlive/linked_scripts/Makefile.am
+++ b/Build/source/texk/texlive/linked_scripts/Makefile.am
@@ -57,6 +57,7 @@ texmf_dist_shell_scripts = \
 	latexfileversion/latexfileversion \
 	listbib/listbib \
 	listings-ext/listings-ext.sh \
+	lua2dox/lua2dox_lua \
 	pdfjam/pdf180 \
 	pdfjam/pdf270 \
 	pdfjam/pdf90 \
@@ -143,6 +144,7 @@ nobase_dist_texmf_dist_scripts_SCRIPTS = \
 # Symlinks within $(bindir): FILE:LINK indicates LINK->FILE
 bin_links = \
 	epstopdf:repstopdf \
+	lua2dox_lua:lua2dox_filter \
 	pdfcrop:rpdfcrop
 
 # The idea is to install the scripts themselves in texmf*/scripts, and
diff --git a/Build/source/texk/texlive/linked_scripts/Makefile.in b/Build/source/texk/texlive/linked_scripts/Makefile.in
index 5903be9933c..d12841fc02e 100644
--- a/Build/source/texk/texlive/linked_scripts/Makefile.in
+++ b/Build/source/texk/texlive/linked_scripts/Makefile.in
@@ -237,6 +237,7 @@ texmf_dist_shell_scripts = \
 	latexfileversion/latexfileversion \
 	listbib/listbib \
 	listings-ext/listings-ext.sh \
+	lua2dox/lua2dox_lua \
 	pdfjam/pdf180 \
 	pdfjam/pdf270 \
 	pdfjam/pdf90 \
@@ -326,6 +327,7 @@ nobase_dist_texmf_dist_scripts_SCRIPTS = \
 # Symlinks within $(bindir): FILE:LINK indicates LINK->FILE
 bin_links = \
 	epstopdf:repstopdf \
+	lua2dox_lua:lua2dox_filter \
 	pdfcrop:rpdfcrop
 
 relpath = $(SHELL) $(top_srcdir)/../../build-aux/relpath
diff --git a/Build/source/texk/texlive/linked_scripts/lua2dox/lua2dox_lua b/Build/source/texk/texlive/linked_scripts/lua2dox/lua2dox_lua
new file mode 100755
index 00000000000..822fed7bea1
--- /dev/null
+++ b/Build/source/texk/texlive/linked_scripts/lua2dox/lua2dox_lua
@@ -0,0 +1,86 @@
+#!/bin/bash
+
+###########################################################################
+#   Copyright (C) 2012 by Simon Dales   #
+#   simon@purrsoft.co.uk   #
+#                                                                         #
+#   This program is free software; you can redistribute it and/or modify  #
+#   it under the terms of the GNU General Public License as published by  #
+#   the Free Software Foundation; either version 2 of the License, or     #
+#   (at your option) any later version.                                   #
+#                                                                         #
+#   This program is distributed in the hope that it will be useful,       #
+#   but WITHOUT ANY WARRANTY; without even the implied warranty of        #
+#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         #
+#   GNU General Public License for more details.                          #
+#                                                                         #
+#   You should have received a copy of the GNU General Public License     #
+#   along with this program; if not, write to the                         #
+#   Free Software Foundation, Inc.,                                       #
+#   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             #
+###########################################################################
+
+##! \brief test executable to see if it exists
+test_executable(){
+	P_EXE="$1"
+	#########
+	WHICH=`which ${P_EXE}`
+	if test -z "${WHICH}"
+	then
+		echo "not found \"${P_EXE}\""
+	else
+		EXE="${P_EXE}"
+	fi
+	}
+
+##! \brief sets the lua interpreter
+set_lua(){
+	test_executable 'texlua'
+	if test -z "${EXE}"
+	then
+		test_executable 'lua'
+	fi
+	#echo "final EXE=\"${EXE}\""
+	}
+
+##! \brief makes canonical name of file
+##! 
+##! Note that "readlink -f" doesn't work in MacOSX
+##! 
+do_readlink(){
+	pushd . > /dev/null
+	TARGET_FILE=$1
+	
+	cd `dirname $TARGET_FILE`
+	TARGET_FILE=`basename $TARGET_FILE`
+	
+	# Iterate down a (possible) chain of symlinks
+	while [ -L "$TARGET_FILE" ]
+	do
+		TARGET_FILE=`readlink $TARGET_FILE`
+		cd `dirname $TARGET_FILE`
+		TARGET_FILE=`basename $TARGET_FILE`
+	done
+	
+	PHYS_DIR=`pwd -P`
+	RESULT=$PHYS_DIR
+	popd > /dev/null
+	}
+
+##main
+set_lua
+if test -z "${EXE}"
+then
+	echo "no lua interpreter available"
+else
+	BASENAME=`basename "$0"`
+	do_readlink "$0"
+	DIRNAME="${RESULT}"
+		
+	LUASCRIPT="${DIRNAME}/lua2dox.lua ${BASENAME}"
+	#echo "lua[${LUASCRIPT}]"
+
+	${EXE} ${LUASCRIPT} $@
+fi
+# 
+##eof
\ No newline at end of file