"Fossies" - the Fresh Open Source Software Archive

Member "gawk-5.1.0/extension/build-aux/ar-lib" (13 Apr 2020, 5875 Bytes) of package /linux/misc/gawk-5.1.0.tar.xz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Bash source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file. See also the latest Fossies "Diffs" side-by-side code changes report for "ar-lib": 5.0.1_vs_5.1.0.

    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-2020 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* | MSYS*)
   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 | 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   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" | tr -d '\r' | sed -e 's/\\/\\\\/g' \
  228       | while read member
  229         do
  230           $AR -NOLOGO -EXTRACT:"$member" "$archive" || exit $?
  231         done
  232   fi
  233 
  234 elif test -n "$quick$replace"; then
  235   if test ! -f "$orig_archive"; then
  236     if test -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 $1 in
  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   if test -n "$orig_archive"; then
  261     $AR -NOLOGO -OUT:"$archive" "$orig_archive" "$@" || exit $?
  262   else
  263     $AR -NOLOGO -OUT:"$archive" "$@" || exit $?
  264   fi
  265 
  266 elif test -n "$list"; then
  267   if test ! -f "$orig_archive"; then
  268     func_error "archive not found"
  269   fi
  270   $AR -NOLOGO -LIST "$archive" || exit $?
  271 fi