From 3bd78bf5d56a32c5711dc16c2f7a0ec5e72d924c Mon Sep 17 00:00:00 2001
From: Lars Wirzenius <liw@iki.fi>
Date: Fri, 23 May 2008 15:10:13 +0300
Subject: Added unpack-debian-sources.

---
 unpack-debian-sources   | 104 ++++++++++++++++++++++++++++++++++++++++++++++++
 unpack-debian-sources.1 |  61 ++++++++++++++++++++++++++++
 2 files changed, 165 insertions(+)
 create mode 100755 unpack-debian-sources
 create mode 100644 unpack-debian-sources.1

diff --git a/unpack-debian-sources b/unpack-debian-sources
new file mode 100755
index 0000000..abd27a9
--- /dev/null
+++ b/unpack-debian-sources
@@ -0,0 +1,104 @@
+#!/bin/sh
+#
+# unpack-debian-sources - unpack all Debian packages in a Debian
+# repository
+#
+# Usage: unpack-debian-sources MIRROR SUITE [SECTION]...
+#
+# where MIRROR is the URL to a Debian mirror site, SUITE is the release,
+# and SECTION is a section within the release. For example:
+#
+#   unpacke-debian-sources http://ftp.debian.org/debian etch main contrib
+#
+# If SECTION is missing, it defaults to "main contrib non-free"
+
+set -e
+
+die()
+{
+    echo "$@" 1>&2
+    exit 1
+}
+
+fetch()
+{
+    wget -q -O - "$1"
+}
+
+parse_sources()
+{
+    awk '
+        /^Directory:/ {
+            if (dir && paths) print dir, paths
+            dir = $2
+            paths = ""
+        }
+        /^Files:/ { infiles = 1; next }
+        infiles && /^ / { paths = paths " " $NF }
+        infiles && (NF == 0 || /^[^ ]/) { infiles = 0 }
+    '
+}
+
+showiferror()
+{
+    local temp="$(mktemp)"
+    if ! "$@" > "$temp" 2>&1
+    then
+        cat "$temp"
+        rm -f "$temp"
+        exit 1
+    fi
+    rm -f "$temp"
+}
+
+unpack_dsc()
+{
+    (
+    cd "$1"
+    dsc="$(ls *.dsc)"
+    showiferror dpkg-source -x *.dsc
+    )
+}
+
+[ "$2" = "" ] && die "Usage: $0 MIRROR SUITE [SECTION]..."
+
+mirror="$1"
+suite="$2"
+shift 2
+sections="$@"
+
+gpghome="$(mktemp -d)"
+export GNUPGHOME="$gpghome"
+
+for section in $sections
+do
+    sources="$mirror/dists/$suite/$section/source/Sources.bz2"
+    sources_tmp="$(mktemp)"
+    fetch "$sources" | bunzip2 > "$sources_tmp"
+
+    num_packages=$(parse_sources < "$sources_tmp" | wc -l)
+
+    n=0
+    parse_sources < "$sources_tmp" |
+    while read dir paths
+    do
+        n=$(expr $n + 1)
+        if [ ! -d "$dir" ]
+        then
+            printf "$n/$num_packages: $dir\n"
+            temp="$(mktemp -d)"
+            for path in $paths
+            do
+                fetch "$mirror/$dir/$path" > "$temp/$path"
+            done
+            unpack_dsc "$temp"
+            for path in $paths
+            do
+                rm "$temp/$path"
+            done
+            mkdir -p "$dir" # Create parent dirs
+            rmdir "$dir" # Remove tail dir
+            mv "$temp"/* "$dir" # Move the _single_ dir, which has the src
+        fi
+    done
+done
diff --git a/unpack-debian-sources.1 b/unpack-debian-sources.1
new file mode 100644
index 0000000..87aa3bd
--- /dev/null
+++ b/unpack-debian-sources.1
@@ -0,0 +1,61 @@
+.\" unpack-debian-sources.1 - manual page for unpack-debian-sources
+.\" Copyright (C) 2008  Lars Wirzenius
+.\"
+.\" 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 3 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, see <http://www.gnu.org/licenses/>.
+.\"
+.TH UNPACK-DEBIAN-SOURCES 1
+.SH NAME
+unpack-debian-sources \- unpack Debian source packages in a repository
+.SH SYNOPSIS
+.B unpack-debian-sources
+.I mirror
+.I release
+.RI [ component ...]
+.SH DESCRIPTION
+.B unpack-debian-sources
+finds all Debian source packages in an apt repository, downloads them,
+and unpacks them.
+.PP
+The
+.I mirror
+argument is an http url to the mirror.
+For example,
+.IR http://www.debian.org/debian .
+.PP
+The
+.I release
+argument specifies the release to download,
+such as
+.IR etch ,
+or
+.IR intrepid .
+.PP
+The optional
+.I component
+arguments specify the components within a release,
+such as
+.IR main ,
+or
+.IR contrib .
+If you don't specify any componentes, the default list of
+.I "main contrib non-free"
+is used.
+.PP
+The result of
+.B unpack-debian-sources
+is a directory tree mimicking the apt archive.
+If a source package is in the apt archive at
+.I pool/main/f/foo/foobar_1.2-3.dsc
+the unpacked source package is at
+.IR pool/main/f/foo .
-- 
cgit v1.2.1