@@ -1,40 +1,27 @@
 #! /bin/bash
 
-if [ ! -x "../platform" ]; then
-	echo "No platform script found, aborting." >&2
-
-	exit 1
-fi
-
-if [ "${PLATFORM}" = "tcl" ]; then
-	rm -rf out
-
-	exit 0
-fi
-
+# Define parameters
 VERS=8.4
 SRC="src/tclx${VERS}.tar.bz2"
 SRCURL="http://sourceforge.net/projects/tclx/files/TclX/${VERS}.0/tclx${VERS}.tar.bz2/download"
 BUILDDIR="tclx${VERS}"
-WORKDIR="${TMPDIR:-/tmp}/tclx-$$${RANDOM}${RANDOM}${RANDOM}"
-PLATDIR="$(pwd)/out/${PLATFORM}"
+export VERS SRC SRCURL BUILDDIR
+
+# Load common functions
+source ../common.sh
+
+# Do not build if the "tcl" platform has been requested
+not_platforms 'tcl'
 
-export VERS SRC SRCURL BUILDDIR WORKDIR PLATDIR
+# Download source
+download_src
 
 (
 	rm -rf build
 	mkdir build
-) || exit 1
-
-if [ ! -f "${SRC}" ]; then
-	mkdir src >/dev/null 2>/dev/null
-
-	wget -O "${SRC}" "${SRCURL}" || exit 1
-fi
-
-(
+
 	cd build/ || exit 1
 
 	bzip2 -dc "../${SRC}" | tar -xf -
 	cd "${BUILDDIR}" || exit 1