|
| 1 | +#! /bin/sh |
| 2 | +# Wrapper for Microsoft lib.exe |
| 3 | + |
| 4 | +me=ar-lib |
| 5 | +scriptversion=2019-07-04.01;# UTC |
| 6 | + |
| 7 | +# Copyright (C) 2010-2021 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 <https://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$filein |
| 49 | + / | /[!/]*)# absolute file, and not a UNC file |
| 50 | +iftest -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* | MSYS*) |
| 57 | + file_conv=cygwin |
| 58 | + ;; |
| 59 | +*) |
| 60 | + file_conv=wine |
| 61 | + ;; |
| 62 | +esac |
| 63 | +fi |
| 64 | +case$file_convin |
| 65 | +mingw) |
| 66 | + file=`cmd //Cecho"$file"| sed -e's/"\(.*\) " *$/\1/'` |
| 67 | + ;; |
| 68 | +cygwin | msys) |
| 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 | +evalset 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$1in |
| 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 | +iftest$# -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 | +iftest$# -lt 2;then |
| 126 | + func_error"you must specify a program, an action and an archive" |
| 127 | +fi |
| 128 | +case$1in |
| 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 | +whiletest -n"$action" |
| 162 | +do |
| 163 | +case$actionin |
| 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,$indexin |
| 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 | +iftest -n"$delete";then |
| 193 | +iftest! -f"$orig_archive";then |
| 194 | + func_error"archive not found" |
| 195 | +fi |
| 196 | +for member |
| 197 | +do |
| 198 | +case$1in |
| 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 | +eliftest -n"$extract";then |
| 210 | +iftest! -f"$orig_archive";then |
| 211 | + func_error"archive not found" |
| 212 | +fi |
| 213 | +iftest$# -gt 0;then |
| 214 | +for member |
| 215 | +do |
| 216 | +case$1in |
| 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"| tr -d'\r'| sed -e's/\\/\\\\/g' \ |
| 228 | +|whileread member |
| 229 | +do |
| 230 | +$AR -NOLOGO -EXTRACT:"$member""$archive"||exit$? |
| 231 | +done |
| 232 | +fi |
| 233 | + |
| 234 | +eliftest -n"$quick$replace";then |
| 235 | +iftest! -f"$orig_archive";then |
| 236 | +iftest -z"$create";then |
| 237 | +echo"$me: creating$orig_archive" |
| 238 | +fi |
| 239 | + orig_archive= |
| 240 | +else |
| 241 | + orig_archive=$archive |
| 242 | +fi |
| 243 | + |
| 244 | +for member |
| 245 | +do |
| 246 | +case$1in |
| 247 | + @*) |
| 248 | + func_file_conv"${1#@}" |
| 249 | +set x"$@""@$file" |
| 250 | + ;; |
| 251 | +*) |
| 252 | + func_file_conv"$1" |
| 253 | +set x"$@""$file" |
| 254 | + ;; |
| 255 | +esac |
| 256 | +shift |
| 257 | +shift |
| 258 | +done |
| 259 | + |
| 260 | +iftest -n"$orig_archive";then |
| 261 | +$AR -NOLOGO -OUT:"$archive""$orig_archive""$@"||exit$? |
| 262 | +else |
| 263 | +$AR -NOLOGO -OUT:"$archive""$@"||exit$? |
| 264 | +fi |
| 265 | + |
| 266 | +eliftest -n"$list";then |
| 267 | +iftest! -f"$orig_archive";then |
| 268 | + func_error"archive not found" |
| 269 | +fi |
| 270 | +$AR -NOLOGO -LIST"$archive"||exit$? |
| 271 | +fi |