recipes

packages recipes for the <noname> package manager
Log | Files | Refs

ar-lib (5827B)


      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-2018 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 $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