File: sh.arx

package info (click to toggle)
shtool 1.6.0-1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 400 kB
  • ctags: 5
  • sloc: perl: 379; makefile: 156; sh: 52
file content (101 lines) | stat: -rw-r--r-- 3,277 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
##
##  arx -- Extended archive command
##  Copyright (c) 1999-2002 Ralf S. Engelschall <rse@engelschall.com>
##  Originally written for shtool
##
##  This file is part of shtool and 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
##  2 of the License, or (at your option) any later version.
##
##  This file 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, write to the Free Software
##  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
##  USA, or contact Ralf S. Engelschall <rse@engelschall.com>.
##

str_tool="arx"
str_usage="[-t|--trace] [-C|--command <cmd>] <op> <archive> [<file> ...]"
arg_spec="2+"
opt_spec="t.C:"
opt_alias="t:trace,C:command"
opt_t=no
opt_C="ar"

. ./sh.common

ar_prg="$opt_C"
ar_cmd="$1"; shift
archive="$1"; shift
files="$*"

#   walk through the file list and expand archives members
tmpdir=`echo $archive | sed -e 's;[^/]*$;.arx;'`
nfiles=''
if [ ".$files" != . ]; then
    for file in $files; do
        if [ ! -f $file ]; then
            echo "$msgprefix:Error: input file not found: $file" 1>&2
            exit 1
        fi
        case $file in
            *.a )
                if [ ! -d $tmpdir ]; then
                    if [ ".$opt_t" = .yes ]; then
                        echo "mkdir $tmpdir" 1>&2
                    fi
                    mkdir $tmpdir
                fi
                case $tmpdir in
                     .arx )
                         from="../$file"
                         ;;
                     * )
                         dir=`echo $file | sed -e 's;[^/]*$;;' -e 's;\(.\)/$;\1;' -e 's;^$;.;'`
                         base=`echo $file | sed -e 's;.*/\([^/]*\)$;\1;'`
                         from="`cd $dir; pwd`/$base"
                         ;;
                esac
                if [ ".$opt_t" = .yes ]; then
                    echo "(cd $tmpdir && $ar_prg x $from)" 1>&2
                fi
                (cd $tmpdir && eval $ar_prg x $from)
                if [ $? -ne 0 ]; then
                    echo "$msgprefix:Error: member extraction failed for archive: $file" 1>&2
                    exit 1
                fi
                for member in - `eval $ar_prg t $file | sed -e '/_\.SYMDEF/d'`; do
                    [ ".$member" = .- ] && continue
                    nfiles="$nfiles $tmpdir/$member"
                done
                ;;
            * )
                nfiles="$nfiles $file"
                ;;
        esac
    done
fi

#   run the final archive command
if [ ".$opt_t" = .yes ]; then
    echo "$ar_prg $ar_cmd $archive $nfiles" 1>&2
fi
eval $ar_prg $ar_cmd $archive $nfiles
if [ $? -ne 0 ]; then
    echo "$msgprefix:Error: archive command failed" 1>&2
    exit $?
fi

#   cleanup and die gracefully
if [ -d $tmpdir ]; then
    if [ ".$opt_t" = .yes ]; then
        echo "rm -rf $tmpdir" 1>&2
    fi
    rm -rf $tmpdir
fi