Fixing battery alarm when measurement of current is missing (Closes: #854643).
[debian/lxpanel.git] / ar-lib
1 #! /bin/sh
2 # Wrapper for Microsoft lib.exe
3
4 me=ar-lib
5 scriptversion=2012-03-01.08; # UTC
6
7 # Copyright (C) 2010-2014 Free Software Foundation, Inc.
8 # Written by Peter Rosin <peda@lysator.liu.se>.
9 #
10 # This program is free software; you can redistribute it and/or modify
11 # it under the terms of the GNU General Public License as published by
12 # the Free Software Foundation; either version 2, or (at your option)
13 # any later version.
14 #
15 # This program is distributed in the hope that it will be useful,
16 # but WITHOUT ANY WARRANTY; without even the implied warranty of
17 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18 # GNU General Public License for more details.
19 #
20 # You should have received a copy of the GNU General Public License
21 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
22
23 # As a special exception to the GNU General Public License, if you
24 # distribute this file as part of a program that contains a
25 # configuration script generated by Autoconf, you may include it under
26 # the same distribution terms that you use for the rest of that program.
27
28 # This file is maintained in Automake, please report
29 # bugs to <bug-automake@gnu.org> or send patches to
30 # <automake-patches@gnu.org>.
31
32
33 # func_error message
34 func_error ()
35 {
36   echo "$me: $1" 1>&2
37   exit 1
38 }
39
40 file_conv=
41
42 # func_file_conv build_file
43 # Convert a $build file to $host form and store it in $file
44 # Currently only supports Windows hosts.
45 func_file_conv ()
46 {
47   file=$1
48   case $file in
49     / | /[!/]*) # absolute file, and not a UNC file
50       if test -z "$file_conv"; then
51         # lazily determine how to convert abs files
52         case `uname -s` in
53           MINGW*)
54             file_conv=mingw
55             ;;
56           CYGWIN*)
57             file_conv=cygwin
58             ;;
59           *)
60             file_conv=wine
61             ;;
62         esac
63       fi
64       case $file_conv in
65         mingw)
66           file=`cmd //C echo "$file " | sed -e 's/"\(.*\) " *$/\1/'`
67           ;;
68         cygwin)
69           file=`cygpath -m "$file" || echo "$file"`
70           ;;
71         wine)
72           file=`winepath -w "$file" || echo "$file"`
73           ;;
74       esac
75       ;;
76   esac
77 }
78
79 # func_at_file at_file operation archive
80 # Iterate over all members in AT_FILE performing OPERATION on ARCHIVE
81 # for each of them.
82 # When interpreting the content of the @FILE, do NOT use func_file_conv,
83 # since the user would need to supply preconverted file names to
84 # binutils ar, at least for MinGW.
85 func_at_file ()
86 {
87   operation=$2
88   archive=$3
89   at_file_contents=`cat "$1"`
90   eval set x "$at_file_contents"
91   shift
92
93   for member
94   do
95     $AR -NOLOGO $operation:"$member" "$archive" || exit $?
96   done
97 }
98
99 case $1 in
100   '')
101      func_error "no command.  Try '$0 --help' for more information."
102      ;;
103   -h | --h*)
104     cat <<EOF
105 Usage: $me [--help] [--version] PROGRAM ACTION ARCHIVE [MEMBER...]
106
107 Members may be specified in a file named with @FILE.
108 EOF
109     exit $?
110     ;;
111   -v | --v*)
112     echo "$me, version $scriptversion"
113     exit $?
114     ;;
115 esac
116
117 if test $# -lt 3; then
118   func_error "you must specify a program, an action and an archive"
119 fi
120
121 AR=$1
122 shift
123 while :
124 do
125   if test $# -lt 2; then
126     func_error "you must specify a program, an action and an archive"
127   fi
128   case $1 in
129     -lib | -LIB \
130     | -ltcg | -LTCG \
131     | -machine* | -MACHINE* \
132     | -subsystem* | -SUBSYSTEM* \
133     | -verbose | -VERBOSE \
134     | -wx* | -WX* )
135       AR="$AR $1"
136       shift
137       ;;
138     *)
139       action=$1
140       shift
141       break
142       ;;
143   esac
144 done
145 orig_archive=$1
146 shift
147 func_file_conv "$orig_archive"
148 archive=$file
149
150 # strip leading dash in $action
151 action=${action#-}
152
153 delete=
154 extract=
155 list=
156 quick=
157 replace=
158 index=
159 create=
160
161 while test -n "$action"
162 do
163   case $action in
164     d*) delete=yes  ;;
165     x*) extract=yes ;;
166     t*) list=yes    ;;
167     q*) quick=yes   ;;
168     r*) replace=yes ;;
169     s*) index=yes   ;;
170     S*)             ;; # the index is always updated implicitly
171     c*) create=yes  ;;
172     u*)             ;; # TODO: don't ignore the update modifier
173     v*)             ;; # TODO: don't ignore the verbose modifier
174     *)
175       func_error "unknown action specified"
176       ;;
177   esac
178   action=${action#?}
179 done
180
181 case $delete$extract$list$quick$replace,$index in
182   yes,* | ,yes)
183     ;;
184   yesyes*)
185     func_error "more than one action specified"
186     ;;
187   *)
188     func_error "no action specified"
189     ;;
190 esac
191
192 if test -n "$delete"; then
193   if test ! -f "$orig_archive"; then
194     func_error "archive not found"
195   fi
196   for member
197   do
198     case $1 in
199       @*)
200         func_at_file "${1#@}" -REMOVE "$archive"
201         ;;
202       *)
203         func_file_conv "$1"
204         $AR -NOLOGO -REMOVE:"$file" "$archive" || exit $?
205         ;;
206     esac
207   done
208
209 elif test -n "$extract"; then
210   if test ! -f "$orig_archive"; then
211     func_error "archive not found"
212   fi
213   if test $# -gt 0; then
214     for member
215     do
216       case $1 in
217         @*)
218           func_at_file "${1#@}" -EXTRACT "$archive"
219           ;;
220         *)
221           func_file_conv "$1"
222           $AR -NOLOGO -EXTRACT:"$file" "$archive" || exit $?
223           ;;
224       esac
225     done
226   else
227     $AR -NOLOGO -LIST "$archive" | sed -e 's/\\/\\\\/g' | while read member
228     do
229       $AR -NOLOGO -EXTRACT:"$member" "$archive" || exit $?
230     done
231   fi
232
233 elif test -n "$quick$replace"; then
234   if test ! -f "$orig_archive"; then
235     if test -z "$create"; then
236       echo "$me: creating $orig_archive"
237     fi
238     orig_archive=
239   else
240     orig_archive=$archive
241   fi
242
243   for member
244   do
245     case $1 in
246     @*)
247       func_file_conv "${1#@}"
248       set x "$@" "@$file"
249       ;;
250     *)
251       func_file_conv "$1"
252       set x "$@" "$file"
253       ;;
254     esac
255     shift
256     shift
257   done
258
259   if test -n "$orig_archive"; then
260     $AR -NOLOGO -OUT:"$archive" "$orig_archive" "$@" || exit $?
261   else
262     $AR -NOLOGO -OUT:"$archive" "$@" || exit $?
263   fi
264
265 elif test -n "$list"; then
266   if test ! -f "$orig_archive"; then
267     func_error "archive not found"
268   fi
269   $AR -NOLOGO -LIST "$archive" || exit $?
270 fi