source: trunk/third/common/invirtificator.sh @ 2297

Last change on this file since 2297 was 2297, checked in by broder, 15 years ago

Tear out anything that says "Debathena" and replace it with "Invirt"

File size: 4.9 KB
Line 
1# Interface: define variables name, ivversionappend, and function
2# hack_package ().
3
4set -e
5
6# Process arguments.
7dist_arch=$1; shift
8a=
9if [ "$1" = "-A" ]; then a=-A; shift; fi
10chroot=$dist_arch-sbuild
11
12if [ -z "$dist_arch" -o $# -eq 0 ]; then
13    echo 'No arguments!' >&2
14    exit 2
15fi
16
17dist=$(echo "$dist_arch" | sed 's/^\(.*\)-\([^-]*\)$/\1/')
18arch=$(echo "$dist_arch" | sed 's/^\(.*\)-\([^-]*\)$/\2/')
19: ${section=invirt-system}
20: ${ivname=$name}
21: ${release=-proposed}
22
23# Create a chroot and define functions for using it.
24sid=$(schroot -b -c "$chroot")
25trap 'schroot -e -c "$sid"' EXIT
26sch() { schroot -r -c "$sid" -- "$@"; }           # Run in the chroot
27schq() { schroot -q -r -c "$sid" -- "$@"; }       # Run in the chroot quietly
28schr() { schroot -r -c "$sid" -u root -- "$@"; }  # Run in the chroot as root
29schr apt-get -qq -y update || exit 3
30
31quote() {
32  echo "$1" | sed 's/[^[:alnum:]]/\\&/g'
33}
34
35munge_sections () {
36    perl -0pe "s/^Section: /Section: $section\\//gm or die" -i debian/control
37}
38
39add_changelog () {
40    if [ -n "$dch_done" ]; then
41        dch "$@"
42    else
43        echo | dch -v"${ivversion}" -D unstable "$@"
44        dch_done=1
45    fi
46}
47
48append_description () {
49    perl -0pe 'open THREE, "</dev/fd/3"; $x = <THREE>; s/(^Description:.*\n( .*\S.*\n)*)/$1$x/gm or die' -i debian/control 3<&0
50}
51
52add_build_depends () {
53    perl -0pe 's/^(Build-Depends:.*(?:\n[ \t].*)*)$/$1, '"$1"'/m or die' -i debian/control
54}
55
56add_invirt_provides () {
57    [ "$name" = "$ivname" ]
58    perl -0pe 's/^(Package: (.*)\n(?:(?!Provides:).+\n)*)(?:Provides: (.*)\n((?:.+\n)*))?(?=\n|\z)/$1Provides: $3, invirt-$2\n$4/mg or die; s/^Provides: , /Provides: /mg' -i debian/control
59    add_changelog "Provide invirt-$name."
60}
61
62rename_source () {
63    perl -pe "s{^Source: $name\$}{Source: $ivname}" -i debian/control
64    add_changelog "Rename package to $ivname."
65    perl -0pe "s/^$name/$ivname/" -i debian/changelog
66}
67
68cmd_source () {
69    if [ "$a" != "-A" ]; then
70        echo "Not building source package for $dist_arch." >&2
71        return
72    fi
73    echo "Building source for $ivname-$ivversion on $dist_arch" >&2
74   
75    if ! [ -e "${name}_$version.dsc" ]; then
76        sch apt-get -d source "$name"
77    fi
78   
79    if ! [ -e "${ivname}_$ivversion.dsc" ]; then
80        (
81            tmpdir=$(mktemp -td "invirtify.$$.XXXXXXXXXX")
82            trap 'rm -rf "$tmpdir"' EXIT
83            origversion=$(echo "$version" | sed 's/-[^-]*$//')
84            cp -a "${name}_$origversion.orig.tar.gz" "$tmpdir/"
85            dscdir=$(pwd)
86            cd "$tmpdir/"
87            dpkg-source -x "$dscdir/${name}_$version.dsc" "$tmpdir/$name-$origversion"
88            cd "$tmpdir/$name-$origversion"
89            dch_done=
90            hack_package
91            if [ "$name" != "$ivname" ]; then
92                rename_source
93                cp -a "$tmpdir/${name}_$origversion.orig.tar.gz" "$tmpdir/${ivname}_$origversion.orig.tar.gz"
94                cp -a "$tmpdir/${ivname}_$origversion.orig.tar.gz" "$dscdir"
95            fi
96            [ -n "$dch_done" ]
97            schr apt-get -q -y install devscripts pbuilder
98            schr /usr/lib/pbuilder/pbuilder-satisfydepends
99            sch debuild -S -sa -us -uc -i -I.svn && cp -a "../${ivname}_$ivversion"* "$dscdir"
100        )
101        [ $? -eq 0 ] || exit 1
102       
103        if [ -n "$IV_CHECK_DIFFS" ]; then
104            interdiff -z "${name}_$version.diff.gz" "${ivname}_$ivversion.diff.gz" | \
105                enscript --color --language=ansi --highlight=diffu --output=- -q | \
106                less -R
107            echo -n "Press Enter to continue: " >&2
108            read dummy
109        fi
110    fi
111}
112
113cmd_binary () {
114    sbuildhack "$dist_arch" $a "${ivname}_$ivversion.dsc"
115}
116
117v () {
118    echo "$@"
119    "$@"
120}
121
122cmd_upload () {
123    if [ "$a" = "-A" ]; then
124        v reprepro-env include "${dist}${release}" "${ivname}_${ivversion}_source.changes"
125    fi
126    v reprepro-env include "${dist}${release}" "${ivname}_${ivversion}_${arch}.changes"
127}
128
129version=$(
130    sch apt-cache showsrc "$name" | \
131        sed -n 's/^Version: \(.*\)$/\1/ p' | (
132        version='~~~'
133        while read -r newversion; do
134            if [ $(expr "$newversion" : '.*invirt') = 0 ] && \
135                dpkg --compare-versions "$newversion" '>' "$version"; then
136                version=$newversion
137            fi
138        done
139        if [ "$version" = '~~~' ]; then
140            echo "No version of $name found." >&2
141            exit 1
142        fi
143        echo "$version"
144        )
145    )
146ivversion=$version$ivversionappend
147
148# Look for binary packages built from the named package with the right
149# version, and exit out if we find one (an architecture-specific one
150# if we weren't run with the -A flag).  We need to look for either a
151# Source: or a Package: header matching $name since there is no
152# Source: header for a package whose name matches its source.
153pkgfile="/srv/repository/dists/$dist/$section/binary-$arch/Packages.gz"
154if { zcat "$pkgfile" | \
155    dpkg-awk -f - "Package:^$ivname\$" "Version:^$(quote "$ivversion")\$" -- Architecture;
156    zcat $pkgfiles | \
157    dpkg-awk -f - "Source:^$ivname\$" "Version:^$(quote "$ivversion")\$" -- Architecture; } \
158    | if [ "$a" = "-A" ]; then cat; else fgrep -vx 'Architecture: all'; fi \
159    | grep -q .; then
160    echo "$ivname $ivversion already exists for $dist_arch." >&2
161    exit 0
162fi
163
164for cmd; do
165    "cmd_$cmd"
166done
Note: See TracBrowser for help on using the repository browser.