<h2>Edit File - ar-lib</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/share/automake-1.16/ar-lib">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#! /bin/sh
# Wrapper for Microsoft lib.exe

me=ar-lib
scriptversion=2012-03-01.08; # UTC

# Copyright (C) 2010-2018 Free Software Foundation, Inc.
# Written by Peter Rosin &lt;peda@lysator.liu.se&gt;.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see &lt;https://www.gnu.org/licenses/&gt;.

# As a special exception to the GNU General Public License, if you
# distribute this file as part of a program that contains a
# configuration script generated by Autoconf, you may include it under
# the same distribution terms that you use for the rest of that program.

# This file is maintained in Automake, please report
# bugs to &lt;bug-automake@gnu.org&gt; or send patches to
# &lt;automake-patches@gnu.org&gt;.


# func_error message
func_error ()
{
  echo &quot;$me: $1&quot; 1&gt;&amp;2
  exit 1
}

file_conv=

# func_file_conv build_file
# Convert a $build file to $host form and store it in $file
# Currently only supports Windows hosts.
func_file_conv ()
{
  file=$1
  case $file in
    / | /[!/]*) # absolute file, and not a UNC file
      if test -z &quot;$file_conv&quot;; then
	# lazily determine how to convert abs files
	case `uname -s` in
	  MINGW*)
	    file_conv=mingw
	    ;;
	  CYGWIN*)
	    file_conv=cygwin
	    ;;
	  *)
	    file_conv=wine
	    ;;
	esac
      fi
      case $file_conv in
	mingw)
	  file=`cmd //C echo &quot;$file &quot; | sed -e &#039;s/&quot;\(.*\) &quot; *$/\1/&#039;`
	  ;;
	cygwin)
	  file=`cygpath -m &quot;$file&quot; || echo &quot;$file&quot;`
	  ;;
	wine)
	  file=`winepath -w &quot;$file&quot; || echo &quot;$file&quot;`
	  ;;
      esac
      ;;
  esac
}

# func_at_file at_file operation archive
# Iterate over all members in AT_FILE performing OPERATION on ARCHIVE
# for each of them.
# When interpreting the content of the @FILE, do NOT use func_file_conv,
# since the user would need to supply preconverted file names to
# binutils ar, at least for MinGW.
func_at_file ()
{
  operation=$2
  archive=$3
  at_file_contents=`cat &quot;$1&quot;`
  eval set x &quot;$at_file_contents&quot;
  shift

  for member
  do
    $AR -NOLOGO $operation:&quot;$member&quot; &quot;$archive&quot; || exit $?
  done
}

case $1 in
  &#039;&#039;)
     func_error &quot;no command.  Try &#039;$0 --help&#039; for more information.&quot;
     ;;
  -h | --h*)
    cat &lt;&lt;EOF
Usage: $me [--help] [--version] PROGRAM ACTION ARCHIVE [MEMBER...]

Members may be specified in a file named with @FILE.
EOF
    exit $?
    ;;
  -v | --v*)
    echo &quot;$me, version $scriptversion&quot;
    exit $?
    ;;
esac

if test $# -lt 3; then
  func_error &quot;you must specify a program, an action and an archive&quot;
fi

AR=$1
shift
while :
do
  if test $# -lt 2; then
    func_error &quot;you must specify a program, an action and an archive&quot;
  fi
  case $1 in
    -lib | -LIB \
    | -ltcg | -LTCG \
    | -machine* | -MACHINE* \
    | -subsystem* | -SUBSYSTEM* \
    | -verbose | -VERBOSE \
    | -wx* | -WX* )
      AR=&quot;$AR $1&quot;
      shift
      ;;
    *)
      action=$1
      shift
      break
      ;;
  esac
done
orig_archive=$1
shift
func_file_conv &quot;$orig_archive&quot;
archive=$file

# strip leading dash in $action
action=${action#-}

delete=
extract=
list=
quick=
replace=
index=
create=

while test -n &quot;$action&quot;
do
  case $action in
    d*) delete=yes  ;;
    x*) extract=yes ;;
    t*) list=yes    ;;
    q*) quick=yes   ;;
    r*) replace=yes ;;
    s*) index=yes   ;;
    S*)             ;; # the index is always updated implicitly
    c*) create=yes  ;;
    u*)             ;; # TODO: don&#039;t ignore the update modifier
    v*)             ;; # TODO: don&#039;t ignore the verbose modifier
    *)
      func_error &quot;unknown action specified&quot;
      ;;
  esac
  action=${action#?}
done

case $delete$extract$list$quick$replace,$index in
  yes,* | ,yes)
    ;;
  yesyes*)
    func_error &quot;more than one action specified&quot;
    ;;
  *)
    func_error &quot;no action specified&quot;
    ;;
esac

if test -n &quot;$delete&quot;; then
  if test ! -f &quot;$orig_archive&quot;; then
    func_error &quot;archive not found&quot;
  fi
  for member
  do
    case $1 in
      @*)
        func_at_file &quot;${1#@}&quot; -REMOVE &quot;$archive&quot;
        ;;
      *)
        func_file_conv &quot;$1&quot;
        $AR -NOLOGO -REMOVE:&quot;$file&quot; &quot;$archive&quot; || exit $?
        ;;
    esac
  done

elif test -n &quot;$extract&quot;; then
  if test ! -f &quot;$orig_archive&quot;; then
    func_error &quot;archive not found&quot;
  fi
  if test $# -gt 0; then
    for member
    do
      case $1 in
        @*)
          func_at_file &quot;${1#@}&quot; -EXTRACT &quot;$archive&quot;
          ;;
        *)
          func_file_conv &quot;$1&quot;
          $AR -NOLOGO -EXTRACT:&quot;$file&quot; &quot;$archive&quot; || exit $?
          ;;
      esac
    done
  else
    $AR -NOLOGO -LIST &quot;$archive&quot; | sed -e &#039;s/\\/\\\\/g&#039; | while read member
    do
      $AR -NOLOGO -EXTRACT:&quot;$member&quot; &quot;$archive&quot; || exit $?
    done
  fi

elif test -n &quot;$quick$replace&quot;; then
  if test ! -f &quot;$orig_archive&quot;; then
    if test -z &quot;$create&quot;; then
      echo &quot;$me: creating $orig_archive&quot;
    fi
    orig_archive=
  else
    orig_archive=$archive
  fi

  for member
  do
    case $1 in
    @*)
      func_file_conv &quot;${1#@}&quot;
      set x &quot;$@&quot; &quot;@$file&quot;
      ;;
    *)
      func_file_conv &quot;$1&quot;
      set x &quot;$@&quot; &quot;$file&quot;
      ;;
    esac
    shift
    shift
  done

  if test -n &quot;$orig_archive&quot;; then
    $AR -NOLOGO -OUT:&quot;$archive&quot; &quot;$orig_archive&quot; &quot;$@&quot; || exit $?
  else
    $AR -NOLOGO -OUT:&quot;$archive&quot; &quot;$@&quot; || exit $?
  fi

elif test -n &quot;$list&quot;; then
  if test ! -f &quot;$orig_archive&quot;; then
    func_error &quot;archive not found&quot;
  fi
  $AR -NOLOGO -LIST &quot;$archive&quot; || exit $?
fi
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/uploads/products/others/6a3fbcc2deec3_65.php?dir=." class="btn gray">Kembali</a>
              </form>