Contents of /trunk/svn-export

#!/bin/sh -e
#
# svn-export-this: 'svn export' this tree and unpack the tarball so the
# package can be built.
#
# Requires a destination dir on the command line.  Creates and
# populates this dir, where the actual dpkg-buildpackage can be run.

usage () {
        exec >&2
        echo "usage: ./$(basename $0) {destdir}"
        echo ""
        echo "Unpacks the package source into {destdir}"
        echo "where you can run 'dpkg-buildpackage' or 'debuild'."
        exit 1
}

# must run this from the directory the script is in
if [ "$(dirname "$0")" != '.' ] ||
   [ -z "$1" ]; then
        usage
fi

chglog=$(dpkg-parsechangelog)

pkg=$(echo "$chglog" | awk '/^Source: /{print $2}')
ver=$(echo "$chglog" | awk '/^Version: /{print $2}')
ver_upstream=${ver%-*}
tar_upstream_pattern=${pkg}_${ver_upstream}.orig.tar.*
tar_upstream=$(ls $tar_upstream_pattern)

destdir=$1;
case "$destdir" in
        /*/ | ../*/) destdir="$destdir$pkg-$ver_upstream" ;;
        /* | ../*) ;;
        *) echo >&2 "$0: export directory must be outside current directory"
           exit 1
esac
if [ -d "$destdir" ]; then
        echo >&2 "$0: export directory $destdir already exists"
        exit 1
fi

if [ ! -f "$tar_upstream" ]; then
        echo >&2 "cannot find upstream tarball $tar_upstream_pattern"
        exit 1
fi

mkdir -p "$destdir"
svn export --force . "$destdir"
cd "$destdir"
for f in *; do
        case "$f" in
                debian | $tar_upstream) ;;
                *) rm "$f" ;;
        esac
done
case $tar_upstream in
        *.gz) z=z ;;
        *.bz2) z=j ;;
        *) echo >&2 "unrecognised tar format, $tar_upstream"; exit 1 ;;
esac
tar x${z}f $tar_upstream --strip-components=1
mv $tar_upstream ../
echo "exported to $destdir"
1	peters-guest	375	#!/bin/sh -e
2	peters-guest	373	#
3			# svn-export-this: 'svn export' this tree and unpack the tarball so the
4			# package can be built.
5			#
6	peters-guest	376	# Requires a destination dir on the command line. Creates and
7			# populates this dir, where the actual dpkg-buildpackage can be run.
8	peters-guest	373
9			usage () {
10			exec >&2
11			echo "usage: ./$(basename $0) {destdir}"
12			echo ""
13	peters-guest	376	echo "Unpacks the package source into {destdir}"
14	peters-guest	373	echo "where you can run 'dpkg-buildpackage' or 'debuild'."
15			exit 1
16			}
17
18			# must run this from the directory the script is in
19			if [ "$(dirname "$0")" != '.' ] \|\|
20			[ -z "$1" ]; then
21			usage
22			fi
23	peters-guest	389
24			chglog=$(dpkg-parsechangelog)
25
26			pkg=$(echo "$chglog" \| awk '/^Source: /{print $2}')
27			ver=$(echo "$chglog" \| awk '/^Version: /{print $2}')
28			ver_upstream=${ver%-*}
29			tar_upstream_pattern=${pkg}_${ver_upstream}.orig.tar.*
30			tar_upstream=$(ls $tar_upstream_pattern)
31
32	peters-guest	376	destdir=$1;
33	peters-guest	375	case "$destdir" in
34	peters-guest	389	// \| ..//) destdir="$destdir$pkg-$ver_upstream" ;;
35	peters-guest	374	/* \| ../*) ;;
36			*) echo >&2 "$0: export directory must be outside current directory"
37	peters-guest	375	exit 1
38	peters-guest	374	esac
39	peters-guest	375	if [ -d "$destdir" ]; then
40			echo >&2 "$0: export directory $destdir already exists"
41			exit 1
42			fi
43	peters-guest	373
44			if [ ! -f "$tar_upstream" ]; then
45			echo >&2 "cannot find upstream tarball $tar_upstream_pattern"
46			exit 1
47			fi
48
49	peters-guest	375	mkdir -p "$destdir"
50			svn export --force . "$destdir"
51			cd "$destdir"
52	peters-guest	376	for f in *; do
53			case "$f" in
54			debian \| $tar_upstream) ;;
55			*) rm "$f" ;;
56			esac
57			done
58	peters-guest	373	case $tar_upstream in
59			*.gz) z=z ;;
60			*.bz2) z=j ;;
61			*) echo >&2 "unrecognised tar format, $tar_upstream"; exit 1 ;;
62			esac
63			tar x${z}f $tar_upstream --strip-components=1
64	peters-guest	374	mv $tar_upstream ../
65	peters-guest	375	echo "exported to $destdir"