scripts/fetch.sh

   1 #!/usr/bin/env bash
   2
   3 # Copyright © 2004, The AROS Development Team. All rights reserved.
   4 # $Id$
   5
   6
   7 usage()
   8 {
   9     error "Usage: $1 -a archive [-as archive_suffixes] [-ao archive_origins...] [-d destination] [-po patches_origins...] [-p patch[:subdir][:patch options]...]"
  10 }
  11
  12 sf_mirrors="aleron voxel heanet avh umn unc puzzle mesh"
  13
  14 fetch_sf()
  15 {
  16     local origin="$1" file="$2" destination="$3"
  17     local full_path
  18
  19     for i in 1; do
  20         echo "Downloading from SourceForge... Try n. $i."
  21         fetch "http://downloads.sourceforge.net/$origin" "${file}" "$destination" && break;
  22     done
  23 }
  24
  25 fetch()
  26 {
  27     local origin="$1" file="$2" destination="$3"
  28
  29     local protocol
  30
  31     if echo $origin | grep ":" >/dev/null; then
  32         protocol=`echo $origin | cut -d':' -f1`
  33     fi
  34
  35     local ret=true
  36
  37     trap 'rm -f "$destination/$file".tmp; exit' SIGINT SIGKILL SIGTERM
  38
  39     case $protocol in
  40         http | ftp)
  41             if ! wget -t 5 -T 5 -c "$origin/$file" -O "$destination/$file".tmp; then
  42                 ret=false
  43             else
  44                 mv "$destination/$file".tmp "$destination/$file"
  45             fi
  46             rm -f "$destination/$file".tmp
  47             ;;
  48         sf | sourceforge)
  49             ! fetch_sf "${origin:${#protocol}+3}" "$file" "$destination" && ret=false
  50             ;;
  51         "")
  52             if test "$origin" = "$destination";  then
  53                 ! test -f "$origin/$file" && ret=false
  54             else
  55                 if ! cp "$origin/$file" "$destination/$file".tmp; then
  56                     ret=false
  57                 else
  58                     mv "$destination/$file".tmp "$destination/$file"
  59                 fi
  60             fi
  61             ;;
  62         *)
  63             echo "Unknown protocol type \`$protocol'"
  64             ret=false;;
  65     esac
  66
  67     trap SIGINT SIGKILL SIGTERM
  68
  69     $ret
  70 }
  71
  72 fetch_multiple()
  73 {
  74     local origins="$1" file="$2" destination="$3"
  75     for origin in $origins; do
  76         echo "Trying $origin/$file..."
  77         fetch "$origin" "$file" "$destination" && return  0
  78     done
  79
  80     return 1
  81 }
  82
  83 fetch_cached()
  84 {
  85     local origins="$1" file="$2" suffixes="$3" destination="$4" foundvar="$5"
  86
  87     local __dummy__
  88     foundvar=${foundvar:-__dummy__}
  89
  90     export $foundvar=
  91
  92     test -e "$destination" -a ! -d "$destination" && \
  93         echo "\`$destination' is not a diretory." && return 1
  94
  95     if ! test -e "$destination"; then
  96         echo "\`$destination' does not exist. Making it."
  97         ! mkdir -p "$destination" && return 1
  98     fi
  99
 100     if test "x$suffixes" != "x"; then
 101         for sfx in $suffixes; do
 102             fetch_multiple "$destination" "$file".$sfx "$destination" && \
 103                 export $foundvar="$file".$sfx && return 0
 104         done
 105
 106         for sfx in $suffixes; do
 107             fetch_multiple "$origins" "$file".$sfx "$destination" && \
 108                 export $foundvar="$file".$sfx && return 0
 109         done
 110     else
 111         fetch_multiple "$destination $origins" "$file" "$destination" && \
 112             export $foundvar="$file" && return 0
 113     fi
 114
 115     return 1
 116 }
 117
 118 error()
 119 {
 120     echo $1
 121     exit 1
 122 }
 123
 124
 125 unpack()
 126 {
 127     local location="$1" archive="$2";
 128
 129     local old_PWD="$PWD"
 130     cd $location
 131
 132     echo "Unpacking \`$archive'..."
 133
 134     local ret=true
 135     case "$archive" in
 136         *.tar.bz2)
 137             if ! tar xfj "$archive"; then ret=false; fi
 138             ;;
 139         *.tar.gz | *.tgz)
 140             if ! tar xfz "$archive"; then ret=false; fi
 141             ;;
 142         *)
 143             echo "Unknown archive format for \`$archive'."
 144             ret=false
 145             ;;
 146     esac
 147
 148     cd "$old_PWD"
 149
 150     $ret
 151 }
 152
 153 unpack_cached()
 154 {
 155     local location="$1" archive="$2";
 156
 157     if ! test -f ${location}/.${archive}.unpacked;  then
 158         if unpack "$location" "$archive"; then
 159             echo yes > ${location}/.${archive}.unpacked
 160             true
 161         else
 162             false
 163         fi
 164     fi
 165 }
 166
 167 do_patch()
 168 {
 169     local location="$1" patch_spec="$2";
 170
 171     local old_PWD="$PWD"
 172     cd $location
 173     local abs_location="$PWD"
 174
 175     local patch=`echo "$patch_spec": | cut -d: -f1`
 176     local subdir=`echo "$patch_spec": | cut -d: -f2`
 177     local patch_opt=`echo "$patch_spec": | cut -d: -f3`
 178
 179     cd ${subdir:-.}
 180
 181     local ret=true
 182
 183     if ! patch $patch_opt < $abs_location/$patch; then
 184         ret=false
 185     fi
 186
 187     cd "$old_PWD"
 188
 189     $ret
 190 }
 191
 192 patch_cached()
 193 {
 194     local location="$1" patch="$2";
 195
 196     local patchname=`echo $patch | cut -d: -f1`
 197
 198     if test "x$patchname" != "x"; then
 199         if ! test -f ${location}/.${patchname}.applied;  then
 200             if do_patch "$location" "$patch"; then
 201                 echo yes > ${location}/.${patchname}.applied
 202                 true
 203             else
 204                 false
 205             fi
 206         fi
 207     fi
 208 }
 209
 210
 211 while  test "x$1" != "x"; do
 212     if test "x${1:0:1}" == "x-" -a  "x${2:0:1}" == "x-"; then
 213         usage "$0"
 214     fi
 215
 216     case "$1" in
 217         -ao) archive_origins="$2";;
 218          -a) archive="$2";;
 219         -as) archive_suffixes="$2";;
 220          -d) destination="$2";;
 221         -po) patches_origins="$2";;
 222          -p) patches="$2";;
 223           *) echo "Unknown option \`$1'."; usage "$0";;
 224     esac
 225
 226     shift
 227     shift
 228 done
 229
 230 test -z "$archive" && usage "$0"
 231
 232 archive_origins=${archive_origins:-.}
 233 destination=${destination:-.}
 234 patches_origins=${patches_origins:-.}
 235
 236 fetch_cached "$archive_origins" "$archive" "$archive_suffixes" "$destination" archive2
 237 test -z "$archive2" && error "Error while fetching the archive \`$archive'."
 238 archive="$archive2"
 239
 240 for patch in $patches; do
 241     patch=`echo $patch | cut -d: -f1`
 242     if test "x$patch" != "x"; then
 243         if ! fetch_cached "$patches_origins" "$patch" "" "$destination"; then
 244             error "Error while fetching the patch \`$patch'."
 245         fi
 246     fi
 247 done
 248
 249 if ! unpack_cached "$destination" "$archive"; then
 250     error "Error while unpacking \`$archive'."
 251 fi
 252
 253 for patch in $patches; do
 254     if ! patch_cached "$destination" "$patch"; then
 255         error "Error while applying the patch \`$patch'."
 256     fi
 257 done