Split funcs from xbps.sh into its own files.

That way it's easier to work in certain parts and easier to
catch errors. There's a performance penalty, but this can be
fixed later.

--HG--
extra : convert_revision : c0b0e63c873bb4c078ce332dd5182a72d57c3969

utils/sh/extract_funcs.sh

@@ -0,0 +1,134 @@
+#-
+# Copyright (c) 2008 Juan Romero Pardines.
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+# IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#-
+
+#
+# Extracts contents of distfiles specified in a template into
+# the $wrksrc directory.
+#
+extract_distfiles()
+{
+	local pkg="$1"
+	local count=
+	local curfile=
+	local cursufx=
+	local lwrksrc=
+	local ltar_cmd=
+	local f=
+
+	[ -f $XBPS_EXTRACT_DONE ] && return 0
+
+	#
+	# If we are being called via the target, just extract and return.
+	#
+	[ -n "$pkg" -a -z "$pkgname" ] && return 1
+
+	#
+	# There's nothing of interest if we are a meta template.
+	#
+	[ "$build_style" = "meta-template" ] && return 0
+
+	for f in ${distfiles}; do
+		count=$(($count + 1))
+	done
+
+	if [ $count -gt 1 ]; then
+		if [ -z "$wrksrc" ]; then
+			msg_error "\$wrksrc must be defined with multiple distfiles."
+			exit 1
+		fi
+		mkdir $wrksrc
+	fi
+
+	msg_normal "Extracting $pkgname-$version distfile(s)."
+
+	if [ -n "$tar_override_cmd" ]; then
+		ltar_cmd="$tar_override_cmd"
+	else
+		ltar_cmd="tar"
+	fi
+
+	for f in ${distfiles}; do
+		if $(echo $f|grep -q '.tar.bz2'); then
+			cursufx=".tar.bz2"
+		elif $(echo $f|grep -q '.tbz'); then
+			cursufx=".tbz"
+		elif $(echo $f|grep -q '.tar.gz'); then
+			cursufx=".tar.gz"
+		elif $(echo $f|grep -q '.tgz'); then
+			cursufx=".tgz"
+		elif $(echo $f|grep -q '.tar'); then
+			cursufx=".tar"
+		elif $(echo $f|grep -q '.zip'); then
+			cursufx=".zip"
+		else
+			msg_error "unknown distfile suffix for $f."
+		fi
+
+		curfile=$(basename $f)
+
+		if [ $count -gt 1 ]; then
+			lwrksrc="$wrksrc/${curfile%$cursufx}"
+		else
+			lwrksrc="$XBPS_BUILDDIR"
+		fi
+
+		case ${cursufx} in
+		.tar.bz2|.tbz)
+			$ltar_cmd xfj $XBPS_SRCDISTDIR/$curfile -C $lwrksrc
+			if [ $? -ne 0 ]; then
+				msg_error "extracting $curfile into $lwrksrc."
+			fi
+			;;
+		.tar.gz|.tgz)
+			$ltar_cmd xfz $XBPS_SRCDISTDIR/$curfile -C $lwrksrc
+			if [ $? -ne 0 ]; then
+				msg_error "extracting $curfile into $lwrksrc."
+			fi
+			;;
+		.tar)
+			$ltar_cmd xf $XBPS_SRCDISTDIR/$curfile -C $lwrksrc
+			if [ $? -ne 0 ]; then
+				msg_error "extracting $curfile into $lwrksrc."
+			fi
+			;;
+		.zip)
+			if [ -x $XBPS_MASTERDIR/usr/bin/unzip ]; then
+				$XBPS_MASTERDIR/usr/bin/unzip \
+					-q -x $XBPS_SRCDISTDIR/$curfile -d $lwrksrc
+				if [ $? -ne 0 ]; then
+					msg_error "extracting $curfile into $lwrksrc."
+				fi
+			else
+				msg_error "cannot find unzip bin for extraction"
+			fi
+			;;
+		*)
+			msg_error "cannot guess $curfile extract suffix. ($cursufx)"
+			;;
+		esac
+	done
+
+	touch -f $XBPS_EXTRACT_DONE
+}