Blame build-aux/ar-lib

Packit 51d0f7
#! /bin/sh
Packit 51d0f7
# Wrapper for Microsoft lib.exe
Packit 51d0f7
Packit 51d0f7
me=ar-lib
Packit 51d0f7
scriptversion=2012-03-01.08; # UTC
Packit 51d0f7
Packit 51d0f7
# Copyright (C) 2010-2014 Free Software Foundation, Inc.
Packit 51d0f7
# Written by Peter Rosin <peda@lysator.liu.se>.
Packit 51d0f7
#
Packit 51d0f7
# This program is free software; you can redistribute it and/or modify
Packit 51d0f7
# it under the terms of the GNU General Public License as published by
Packit 51d0f7
# the Free Software Foundation; either version 2, or (at your option)
Packit 51d0f7
# any later version.
Packit 51d0f7
#
Packit 51d0f7
# This program is distributed in the hope that it will be useful,
Packit 51d0f7
# but WITHOUT ANY WARRANTY; without even the implied warranty of
Packit 51d0f7
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Packit 51d0f7
# GNU General Public License for more details.
Packit 51d0f7
#
Packit 51d0f7
# You should have received a copy of the GNU General Public License
Packit 51d0f7
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
Packit 51d0f7
Packit 51d0f7
# As a special exception to the GNU General Public License, if you
Packit 51d0f7
# distribute this file as part of a program that contains a
Packit 51d0f7
# configuration script generated by Autoconf, you may include it under
Packit 51d0f7
# the same distribution terms that you use for the rest of that program.
Packit 51d0f7
Packit 51d0f7
# This file is maintained in Automake, please report
Packit 51d0f7
# bugs to <bug-automake@gnu.org> or send patches to
Packit 51d0f7
# <automake-patches@gnu.org>.
Packit 51d0f7
Packit 51d0f7
Packit 51d0f7
# func_error message
Packit 51d0f7
func_error ()
Packit 51d0f7
{
Packit 51d0f7
  echo "$me: $1" 1>&2
Packit 51d0f7
  exit 1
Packit 51d0f7
}
Packit 51d0f7
Packit 51d0f7
file_conv=
Packit 51d0f7
Packit 51d0f7
# func_file_conv build_file
Packit 51d0f7
# Convert a $build file to $host form and store it in $file
Packit 51d0f7
# Currently only supports Windows hosts.
Packit 51d0f7
func_file_conv ()
Packit 51d0f7
{
Packit 51d0f7
  file=$1
Packit 51d0f7
  case $file in
Packit 51d0f7
    / | /[!/]*) # absolute file, and not a UNC file
Packit 51d0f7
      if test -z "$file_conv"; then
Packit 51d0f7
	# lazily determine how to convert abs files
Packit 51d0f7
	case `uname -s` in
Packit 51d0f7
	  MINGW*)
Packit 51d0f7
	    file_conv=mingw
Packit 51d0f7
	    ;;
Packit 51d0f7
	  CYGWIN*)
Packit 51d0f7
	    file_conv=cygwin
Packit 51d0f7
	    ;;
Packit 51d0f7
	  *)
Packit 51d0f7
	    file_conv=wine
Packit 51d0f7
	    ;;
Packit 51d0f7
	esac
Packit 51d0f7
      fi
Packit 51d0f7
      case $file_conv in
Packit 51d0f7
	mingw)
Packit 51d0f7
	  file=`cmd //C echo "$file " | sed -e 's/"\(.*\) " *$/\1/'`
Packit 51d0f7
	  ;;
Packit 51d0f7
	cygwin)
Packit 51d0f7
	  file=`cygpath -m "$file" || echo "$file"`
Packit 51d0f7
	  ;;
Packit 51d0f7
	wine)
Packit 51d0f7
	  file=`winepath -w "$file" || echo "$file"`
Packit 51d0f7
	  ;;
Packit 51d0f7
      esac
Packit 51d0f7
      ;;
Packit 51d0f7
  esac
Packit 51d0f7
}
Packit 51d0f7
Packit 51d0f7
# func_at_file at_file operation archive
Packit 51d0f7
# Iterate over all members in AT_FILE performing OPERATION on ARCHIVE
Packit 51d0f7
# for each of them.
Packit 51d0f7
# When interpreting the content of the @FILE, do NOT use func_file_conv,
Packit 51d0f7
# since the user would need to supply preconverted file names to
Packit 51d0f7
# binutils ar, at least for MinGW.
Packit 51d0f7
func_at_file ()
Packit 51d0f7
{
Packit 51d0f7
  operation=$2
Packit 51d0f7
  archive=$3
Packit 51d0f7
  at_file_contents=`cat "$1"`
Packit 51d0f7
  eval set x "$at_file_contents"
Packit 51d0f7
  shift
Packit 51d0f7
Packit 51d0f7
  for member
Packit 51d0f7
  do
Packit 51d0f7
    $AR -NOLOGO $operation:"$member" "$archive" || exit $?
Packit 51d0f7
  done
Packit 51d0f7
}
Packit 51d0f7
Packit 51d0f7
case $1 in
Packit 51d0f7
  '')
Packit 51d0f7
     func_error "no command.  Try '$0 --help' for more information."
Packit 51d0f7
     ;;
Packit 51d0f7
  -h | --h*)
Packit 51d0f7
    cat <
Packit 51d0f7
Usage: $me [--help] [--version] PROGRAM ACTION ARCHIVE [MEMBER...]
Packit 51d0f7
Packit 51d0f7
Members may be specified in a file named with @FILE.
Packit 51d0f7
EOF
Packit 51d0f7
    exit $?
Packit 51d0f7
    ;;
Packit 51d0f7
  -v | --v*)
Packit 51d0f7
    echo "$me, version $scriptversion"
Packit 51d0f7
    exit $?
Packit 51d0f7
    ;;
Packit 51d0f7
esac
Packit 51d0f7
Packit 51d0f7
if test $# -lt 3; then
Packit 51d0f7
  func_error "you must specify a program, an action and an archive"
Packit 51d0f7
fi
Packit 51d0f7
Packit 51d0f7
AR=$1
Packit 51d0f7
shift
Packit 51d0f7
while :
Packit 51d0f7
do
Packit 51d0f7
  if test $# -lt 2; then
Packit 51d0f7
    func_error "you must specify a program, an action and an archive"
Packit 51d0f7
  fi
Packit 51d0f7
  case $1 in
Packit 51d0f7
    -lib | -LIB \
Packit 51d0f7
    | -ltcg | -LTCG \
Packit 51d0f7
    | -machine* | -MACHINE* \
Packit 51d0f7
    | -subsystem* | -SUBSYSTEM* \
Packit 51d0f7
    | -verbose | -VERBOSE \
Packit 51d0f7
    | -wx* | -WX* )
Packit 51d0f7
      AR="$AR $1"
Packit 51d0f7
      shift
Packit 51d0f7
      ;;
Packit 51d0f7
    *)
Packit 51d0f7
      action=$1
Packit 51d0f7
      shift
Packit 51d0f7
      break
Packit 51d0f7
      ;;
Packit 51d0f7
  esac
Packit 51d0f7
done
Packit 51d0f7
orig_archive=$1
Packit 51d0f7
shift
Packit 51d0f7
func_file_conv "$orig_archive"
Packit 51d0f7
archive=$file
Packit 51d0f7
Packit 51d0f7
# strip leading dash in $action
Packit 51d0f7
action=${action#-}
Packit 51d0f7
Packit 51d0f7
delete=
Packit 51d0f7
extract=
Packit 51d0f7
list=
Packit 51d0f7
quick=
Packit 51d0f7
replace=
Packit 51d0f7
index=
Packit 51d0f7
create=
Packit 51d0f7
Packit 51d0f7
while test -n "$action"
Packit 51d0f7
do
Packit 51d0f7
  case $action in
Packit 51d0f7
    d*) delete=yes  ;;
Packit 51d0f7
    x*) extract=yes ;;
Packit 51d0f7
    t*) list=yes    ;;
Packit 51d0f7
    q*) quick=yes   ;;
Packit 51d0f7
    r*) replace=yes ;;
Packit 51d0f7
    s*) index=yes   ;;
Packit 51d0f7
    S*)             ;; # the index is always updated implicitly
Packit 51d0f7
    c*) create=yes  ;;
Packit 51d0f7
    u*)             ;; # TODO: don't ignore the update modifier
Packit 51d0f7
    v*)             ;; # TODO: don't ignore the verbose modifier
Packit 51d0f7
    *)
Packit 51d0f7
      func_error "unknown action specified"
Packit 51d0f7
      ;;
Packit 51d0f7
  esac
Packit 51d0f7
  action=${action#?}
Packit 51d0f7
done
Packit 51d0f7
Packit 51d0f7
case $delete$extract$list$quick$replace,$index in
Packit 51d0f7
  yes,* | ,yes)
Packit 51d0f7
    ;;
Packit 51d0f7
  yesyes*)
Packit 51d0f7
    func_error "more than one action specified"
Packit 51d0f7
    ;;
Packit 51d0f7
  *)
Packit 51d0f7
    func_error "no action specified"
Packit 51d0f7
    ;;
Packit 51d0f7
esac
Packit 51d0f7
Packit 51d0f7
if test -n "$delete"; then
Packit 51d0f7
  if test ! -f "$orig_archive"; then
Packit 51d0f7
    func_error "archive not found"
Packit 51d0f7
  fi
Packit 51d0f7
  for member
Packit 51d0f7
  do
Packit 51d0f7
    case $1 in
Packit 51d0f7
      @*)
Packit 51d0f7
        func_at_file "${1#@}" -REMOVE "$archive"
Packit 51d0f7
        ;;
Packit 51d0f7
      *)
Packit 51d0f7
        func_file_conv "$1"
Packit 51d0f7
        $AR -NOLOGO -REMOVE:"$file" "$archive" || exit $?
Packit 51d0f7
        ;;
Packit 51d0f7
    esac
Packit 51d0f7
  done
Packit 51d0f7
Packit 51d0f7
elif test -n "$extract"; then
Packit 51d0f7
  if test ! -f "$orig_archive"; then
Packit 51d0f7
    func_error "archive not found"
Packit 51d0f7
  fi
Packit 51d0f7
  if test $# -gt 0; then
Packit 51d0f7
    for member
Packit 51d0f7
    do
Packit 51d0f7
      case $1 in
Packit 51d0f7
        @*)
Packit 51d0f7
          func_at_file "${1#@}" -EXTRACT "$archive"
Packit 51d0f7
          ;;
Packit 51d0f7
        *)
Packit 51d0f7
          func_file_conv "$1"
Packit 51d0f7
          $AR -NOLOGO -EXTRACT:"$file" "$archive" || exit $?
Packit 51d0f7
          ;;
Packit 51d0f7
      esac
Packit 51d0f7
    done
Packit 51d0f7
  else
Packit 51d0f7
    $AR -NOLOGO -LIST "$archive" | sed -e 's/\\/\\\\/g' | while read member
Packit 51d0f7
    do
Packit 51d0f7
      $AR -NOLOGO -EXTRACT:"$member" "$archive" || exit $?
Packit 51d0f7
    done
Packit 51d0f7
  fi
Packit 51d0f7
Packit 51d0f7
elif test -n "$quick$replace"; then
Packit 51d0f7
  if test ! -f "$orig_archive"; then
Packit 51d0f7
    if test -z "$create"; then
Packit 51d0f7
      echo "$me: creating $orig_archive"
Packit 51d0f7
    fi
Packit 51d0f7
    orig_archive=
Packit 51d0f7
  else
Packit 51d0f7
    orig_archive=$archive
Packit 51d0f7
  fi
Packit 51d0f7
Packit 51d0f7
  for member
Packit 51d0f7
  do
Packit 51d0f7
    case $1 in
Packit 51d0f7
    @*)
Packit 51d0f7
      func_file_conv "${1#@}"
Packit 51d0f7
      set x "$@" "@$file"
Packit 51d0f7
      ;;
Packit 51d0f7
    *)
Packit 51d0f7
      func_file_conv "$1"
Packit 51d0f7
      set x "$@" "$file"
Packit 51d0f7
      ;;
Packit 51d0f7
    esac
Packit 51d0f7
    shift
Packit 51d0f7
    shift
Packit 51d0f7
  done
Packit 51d0f7
Packit 51d0f7
  if test -n "$orig_archive"; then
Packit 51d0f7
    $AR -NOLOGO -OUT:"$archive" "$orig_archive" "$@" || exit $?
Packit 51d0f7
  else
Packit 51d0f7
    $AR -NOLOGO -OUT:"$archive" "$@" || exit $?
Packit 51d0f7
  fi
Packit 51d0f7
Packit 51d0f7
elif test -n "$list"; then
Packit 51d0f7
  if test ! -f "$orig_archive"; then
Packit 51d0f7
    func_error "archive not found"
Packit 51d0f7
  fi
Packit 51d0f7
  $AR -NOLOGO -LIST "$archive" || exit $?
Packit 51d0f7
fi