Cleaning up io.c

Samo Penic

2019-10-16 3c6e26add4550990dc81446b2aea00a6e4d2feeb

 install-sh

@@ -1,7 +1,7 @@
#!/bin/sh
# install - install a program, script, or datafile

scriptversion=2011-11-20.07; # UTC
scriptversion=2014-09-12.12; # UTC

# This originates from X11R5 (mit/util/scripts/install.sh), which was
# later released in X11R6 (xc/config/util/install.sh) with the
@@ -41,19 +41,15 @@
# This script is compatible with the BSD install script, but was written
# from scratch.

tab='   '
nl='
'
IFS=" ""   $nl"
IFS=" $tab$nl"

# set DOITPROG to echo to test this script
# Set DOITPROG to "echo" to test this script.

# Don't use :- since 4.3BSD and earlier shells don't like it.
doit=${DOITPROG-}
if test -z "$doit"; then
  doit_exec=exec
else
  doit_exec=$doit
fi
doit_exec=${doit:-exec}

# Put in absolute file names if you don't have them in your path;
# or use environment vars.
@@ -67,17 +63,6 @@
mvprog=${MVPROG-mv}
rmprog=${RMPROG-rm}
stripprog=${STRIPPROG-strip}

posix_glob='?'
initialize_posix_glob='
  test "$posix_glob" != "?" || {
    if (set -f) 2>/dev/null; then
      posix_glob=
    else
      posix_glob=:
    fi
  }
'

posix_mkdir=

@@ -97,7 +82,7 @@
dst_arg=

copy_on_change=false
no_target_directory=
is_target_a_directory=possibly

usage="\
Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE
@@ -137,45 +122,56 @@
    -d) dir_arg=true;;

    -g) chgrpcmd="$chgrpprog $2"
   shift;;
        shift;;

    --help) echo "$usage"; exit $?;;

    -m) mode=$2
   case $mode in
     *' '* | *'   '* | *'
'*     | *'*'* | *'?'* | *'['*)
       echo "$0: invalid mode: $mode" >&2
       exit 1;;
   esac
   shift;;
        case $mode in
          *' '* | *"$tab"* | *"$nl"* | *'*'* | *'?'* | *'['*)
            echo "$0: invalid mode: $mode" >&2
            exit 1;;
        esac
        shift;;

    -o) chowncmd="$chownprog $2"
   shift;;
        shift;;

    -s) stripcmd=$stripprog;;

    -t) dst_arg=$2
   # Protect names problematic for 'test' and other utilities.
   case $dst_arg in
     -* | [=\(\)!]) dst_arg=./$dst_arg;;
   esac
   shift;;
    -t)
        is_target_a_directory=always
        dst_arg=$2
        # Protect names problematic for 'test' and other utilities.
        case $dst_arg in
          -* | [=\(\)!]) dst_arg=./$dst_arg;;
        esac
        shift;;

    -T) no_target_directory=true;;
    -T) is_target_a_directory=never;;

    --version) echo "$0 $scriptversion"; exit $?;;

    --)   shift
   break;;
    --) shift
        break;;

    -*)   echo "$0: invalid option: $1" >&2
   exit 1;;
    -*) echo "$0: invalid option: $1" >&2
        exit 1;;

    *)  break;;
  esac
  shift
done

# We allow the use of options -d and -T together, by making -d
# take the precedence; this is for compatibility with GNU install.

if test -n "$dir_arg"; then
  if test -n "$dst_arg"; then
    echo "$0: target directory not allowed when installing a directory." >&2
    exit 1
  fi
fi

if test $# -ne 0 && test -z "$dir_arg$dst_arg"; then
  # When -d is used, all remaining arguments are directories to create.
@@ -208,6 +204,15 @@
fi

if test -z "$dir_arg"; then
  if test $# -gt 1 || test "$is_target_a_directory" = always; then
    if test ! -d "$dst_arg"; then
      echo "$0: $dst_arg: Is not a directory." >&2
      exit 1
    fi
  fi
fi

if test -z "$dir_arg"; then
  do_exit='(exit $ret); exit $ret'
  trap "ret=129; $do_exit" 1
  trap "ret=130; $do_exit" 2
@@ -223,16 +228,16 @@

    *[0-7])
      if test -z "$stripcmd"; then
   u_plus_rw=
        u_plus_rw=
      else
   u_plus_rw='% 200'
        u_plus_rw='% 200'
      fi
      cp_umask=`expr '(' 777 - $mode % 1000 ')' $u_plus_rw`;;
    *)
      if test -z "$stripcmd"; then
   u_plus_rw=
        u_plus_rw=
      else
   u_plus_rw=,u+rw
        u_plus_rw=,u+rw
      fi
      cp_umask=$mode$u_plus_rw;;
  esac
@@ -269,41 +274,15 @@
    # If destination is a directory, append the input filename; won't work
    # if double slashes aren't ignored.
    if test -d "$dst"; then
      if test -n "$no_target_directory"; then
   echo "$0: $dst_arg: Is a directory" >&2
   exit 1
      if test "$is_target_a_directory" = never; then
        echo "$0: $dst_arg: Is a directory" >&2
        exit 1
      fi
      dstdir=$dst
      dst=$dstdir/`basename "$src"`
      dstdir_status=0
    else
      # Prefer dirname, but fall back on a substitute if dirname fails.
      dstdir=`
   (dirname "$dst") 2>/dev/null ||
   expr X"$dst" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
        X"$dst" : 'X\(//\)[^/]' \| \
        X"$dst" : 'X\(//\)$' \| \
        X"$dst" : 'X\(/\)' \| . 2>/dev/null ||
   echo X"$dst" |
       sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
         s//\1/
         q
       }
       /^X\(\/\/\)[^/].*/{
         s//\1/
         q
       }
       /^X\(\/\/\)$/{
         s//\1/
         q
       }
       /^X\(\/\).*/{
         s//\1/
         q
       }
       s/.*/./; q'
      `

      dstdir=`dirname "$dst"`
      test -d "$dstdir"
      dstdir_status=$?
    fi
@@ -314,74 +293,81 @@
  if test $dstdir_status != 0; then
    case $posix_mkdir in
      '')
   # Create intermediate dirs using mode 755 as modified by the umask.
   # This is like FreeBSD 'install' as of 1997-10-28.
   umask=`umask`
   case $stripcmd.$umask in
     # Optimize common cases.
     *[2367][2367]) mkdir_umask=$umask;;
     .*0[02][02] | .[02][02] | .[02]) mkdir_umask=22;;
        # Create intermediate dirs using mode 755 as modified by the umask.
        # This is like FreeBSD 'install' as of 1997-10-28.
        umask=`umask`
        case $stripcmd.$umask in
          # Optimize common cases.
          *[2367][2367]) mkdir_umask=$umask;;
          .*0[02][02] | .[02][02] | .[02]) mkdir_umask=22;;

     *[0-7])
       mkdir_umask=`expr $umask + 22 \
         - $umask % 100 % 40 + $umask % 20 \
         - $umask % 10 % 4 + $umask % 2
       `;;
     *) mkdir_umask=$umask,go-w;;
   esac
          *[0-7])
            mkdir_umask=`expr $umask + 22 \
              - $umask % 100 % 40 + $umask % 20 \
              - $umask % 10 % 4 + $umask % 2
            `;;
          *) mkdir_umask=$umask,go-w;;
        esac

   # With -d, create the new directory with the user-specified mode.
   # Otherwise, rely on $mkdir_umask.
   if test -n "$dir_arg"; then
     mkdir_mode=-m$mode
   else
     mkdir_mode=
   fi
        # With -d, create the new directory with the user-specified mode.
        # Otherwise, rely on $mkdir_umask.
        if test -n "$dir_arg"; then
          mkdir_mode=-m$mode
        else
          mkdir_mode=
        fi

   posix_mkdir=false
   case $umask in
     *[123567][0-7][0-7])
       # POSIX mkdir -p sets u+wx bits regardless of umask, which
       # is incompatible with FreeBSD 'install' when (umask & 300) != 0.
       ;;
     *)
       tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$
       trap 'ret=$?; rmdir "$tmpdir/d" "$tmpdir" 2>/dev/null; exit $ret' 0
        posix_mkdir=false
        case $umask in
          *[123567][0-7][0-7])
            # POSIX mkdir -p sets u+wx bits regardless of umask, which
            # is incompatible with FreeBSD 'install' when (umask & 300) != 0.
            ;;
          *)
            # $RANDOM is not portable (e.g. dash);  use it when possible to
            # lower collision chance
            tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$
            trap 'ret=$?; rmdir "$tmpdir/a/b" "$tmpdir/a" "$tmpdir" 2>/dev/null; exit $ret' 0

       if (umask $mkdir_umask &&
      exec $mkdirprog $mkdir_mode -p -- "$tmpdir/d") >/dev/null 2>&1
       then
         if test -z "$dir_arg" || {
         # Check for POSIX incompatibilities with -m.
         # HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or
         # other-writable bit of parent directory when it shouldn't.
         # FreeBSD 6.1 mkdir -m -p sets mode of existing directory.
         ls_ld_tmpdir=`ls -ld "$tmpdir"`
         case $ls_ld_tmpdir in
           d????-?r-*) different_mode=700;;
           d????-?--*) different_mode=755;;
           *) false;;
         esac &&
         $mkdirprog -m$different_mode -p -- "$tmpdir" && {
           ls_ld_tmpdir_1=`ls -ld "$tmpdir"`
           test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1"
         }
       }
         then posix_mkdir=:
         fi
         rmdir "$tmpdir/d" "$tmpdir"
       else
         # Remove any dirs left behind by ancient mkdir implementations.
         rmdir ./$mkdir_mode ./-p ./-- 2>/dev/null
       fi
       trap '' 0;;
   esac;;
            # As "mkdir -p" follows symlinks and we work in /tmp possibly;  so
            # create the $tmpdir first (and fail if unsuccessful) to make sure
            # that nobody tries to guess the $tmpdir name.
            if (umask $mkdir_umask &&
                $mkdirprog $mkdir_mode "$tmpdir" &&
                exec $mkdirprog $mkdir_mode -p -- "$tmpdir/a/b") >/dev/null 2>&1
            then
              if test -z "$dir_arg" || {
                   # Check for POSIX incompatibilities with -m.
                   # HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or
                   # other-writable bit of parent directory when it shouldn't.
                   # FreeBSD 6.1 mkdir -m -p sets mode of existing directory.
                   test_tmpdir="$tmpdir/a"
                   ls_ld_tmpdir=`ls -ld "$test_tmpdir"`
                   case $ls_ld_tmpdir in
                     d????-?r-*) different_mode=700;;
                     d????-?--*) different_mode=755;;
                     *) false;;
                   esac &&
                   $mkdirprog -m$different_mode -p -- "$test_tmpdir" && {
                     ls_ld_tmpdir_1=`ls -ld "$test_tmpdir"`
                     test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1"
                   }
                 }
              then posix_mkdir=:
              fi
              rmdir "$tmpdir/a/b" "$tmpdir/a" "$tmpdir"
            else
              # Remove any dirs left behind by ancient mkdir implementations.
              rmdir ./$mkdir_mode ./-p ./-- "$tmpdir" 2>/dev/null
            fi
            trap '' 0;;
        esac;;
    esac

    if
      $posix_mkdir && (
   umask $mkdir_umask &&
   $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir"
        umask $mkdir_umask &&
        $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir"
      )
    then :
    else
@@ -391,53 +377,51 @@
      # directory the slow way, step by step, checking for races as we go.

      case $dstdir in
   /*) prefix='/';;
   [-=\(\)!]*) prefix='./';;
   *)  prefix='';;
        /*) prefix='/';;
        [-=\(\)!]*) prefix='./';;
        *)  prefix='';;
      esac

      eval "$initialize_posix_glob"

      oIFS=$IFS
      IFS=/
      $posix_glob set -f
      set -f
      set fnord $dstdir
      shift
      $posix_glob set +f
      set +f
      IFS=$oIFS

      prefixes=

      for d
      do
   test X"$d" = X && continue
        test X"$d" = X && continue

   prefix=$prefix$d
   if test -d "$prefix"; then
     prefixes=
   else
     if $posix_mkdir; then
       (umask=$mkdir_umask &&
        $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break
       # Don't fail if two instances are running concurrently.
       test -d "$prefix" || exit 1
     else
       case $prefix in
         *\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;;
         *) qprefix=$prefix;;
       esac
       prefixes="$prefixes '$qprefix'"
     fi
   fi
   prefix=$prefix/
        prefix=$prefix$d
        if test -d "$prefix"; then
          prefixes=
        else
          if $posix_mkdir; then
            (umask=$mkdir_umask &&
             $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break
            # Don't fail if two instances are running concurrently.
            test -d "$prefix" || exit 1
          else
            case $prefix in
              *\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;;
              *) qprefix=$prefix;;
            esac
            prefixes="$prefixes '$qprefix'"
          fi
        fi
        prefix=$prefix/
      done

      if test -n "$prefixes"; then
   # Don't fail if two instances are running concurrently.
   (umask $mkdir_umask &&
    eval "\$doit_exec \$mkdirprog $prefixes") ||
     test -d "$dstdir" || exit 1
   obsolete_mkdir_used=true
        # Don't fail if two instances are running concurrently.
        (umask $mkdir_umask &&
         eval "\$doit_exec \$mkdirprog $prefixes") ||
          test -d "$dstdir" || exit 1
        obsolete_mkdir_used=true
      fi
    fi
  fi
@@ -472,15 +456,12 @@

    # If -C, don't bother to copy if it wouldn't change the file.
    if $copy_on_change &&
       old=`LC_ALL=C ls -dlL "$dst"   2>/dev/null` &&
       new=`LC_ALL=C ls -dlL "$dsttmp"   2>/dev/null` &&

       eval "$initialize_posix_glob" &&
       $posix_glob set -f &&
       old=`LC_ALL=C ls -dlL "$dst"     2>/dev/null` &&
       new=`LC_ALL=C ls -dlL "$dsttmp"  2>/dev/null` &&
       set -f &&
       set X $old && old=:$2:$4:$5:$6 &&
       set X $new && new=:$2:$4:$5:$6 &&
       $posix_glob set +f &&

       set +f &&
       test "$old" = "$new" &&
       $cmpprog "$dst" "$dsttmp" >/dev/null 2>&1
    then
@@ -493,24 +474,24 @@
      # to itself, or perhaps because mv is so ancient that it does not
      # support -f.
      {
   # Now remove or move aside any old file at destination location.
   # We try this two ways since rm can't unlink itself on some
   # systems and the destination file might be busy for other
   # reasons.  In this case, the final cleanup might fail but the new
   # file should still install successfully.
   {
     test ! -f "$dst" ||
     $doit $rmcmd -f "$dst" 2>/dev/null ||
     { $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null &&
       { $doit $rmcmd -f "$rmtmp" 2>/dev/null; :; }
     } ||
     { echo "$0: cannot unlink or rename $dst" >&2
       (exit 1); exit 1
     }
   } &&
        # Now remove or move aside any old file at destination location.
        # We try this two ways since rm can't unlink itself on some
        # systems and the destination file might be busy for other
        # reasons.  In this case, the final cleanup might fail but the new
        # file should still install successfully.
        {
          test ! -f "$dst" ||
          $doit $rmcmd -f "$dst" 2>/dev/null ||
          { $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null &&
            { $doit $rmcmd -f "$rmtmp" 2>/dev/null; :; }
          } ||
          { echo "$0: cannot unlink or rename $dst" >&2
            (exit 1); exit 1
          }
        } &&

   # Now rename the file to the real destination.
   $doit $mvcmd "$dsttmp" "$dst"
        # Now rename the file to the real destination.
        $doit $mvcmd "$dsttmp" "$dst"
      }
    fi || exit 1