Unix installer: add support for command-line arguments

Command-line arguments replace interactive prompts, which is
better for scripting runs of the installer.

pkgs/distro-build-pkgs/distro-build-client/unix-installer/installer-header

@@ -1,4 +1,93 @@
 
+###############################################################################
+## Command-line flags
+
+show_help() {
+  echo "Command-line flags:"
+  echo "/ --unix-style : install as Unix-style"
+  echo "\ --in-place : install in-place (not Unix-style)"
+  echo "  --dest <path> : install to <path>"
+  echo "  --create-dir : create destination for Unix-style if it does not exist"
+  echo "  --create-links <dir> : create links in <dir> for in-place install"
+  echo "  -h, --help : show this help"
+}
+
+where=""
+unixstyle=""
+accept_dirs=""
+SYSDIR=""
+SYSDIR_set=""
+
+while test $# -gt 0 ; do
+ case "$1" in
+  -h | --help)
+    show_help
+    exit 0
+    ;;
+  --unix-style)
+    if test "$unixstyle" != "" ; then
+      echo "conflicting or redundant flag: --unix-style"
+      exit 1
+    fi
+    unixstyle="Y"
+    accept_dirs="Y"
+    shift
+    ;;
+  --in-place)
+    if test "$unixstyle" != "" ; then
+      echo "conflicting or redundant flag: --in-place"
+      exit 1
+    fi
+    unixstyle="N"
+    SYSDIR_set="Y"
+    shift
+    ;;
+  --dest)
+    shift
+    if test $# -lt 1 ; then
+      echo "missing path for --dest"
+      exit 1
+    fi
+    where="$1"
+    if test "$where" = "" ; then
+      echo "empty path for --dest"
+      exit 1
+    fi
+    shift
+    ;;
+  --create-dir)
+    if test "$create_dir" != "" ; then
+      echo "redundant flag: --create-dir"
+      exit 1
+    fi
+    create_dir="Y"
+    shift
+    ;;
+  --create-links)
+    if test "$SYSDIR" != "" ; then
+      echo "redundant flag: --create-links"
+      exit 1
+    fi
+    shift
+    if test $# -lt 1 ; then
+      echo "missing path for --create-links"
+      exit 1
+    fi
+    SYSDIR="$1"
+    SYSDIR_set="Y"
+    if test "$SYSDIR" = "" ; then
+      echo "empty path for --create-links"
+      exit 1
+    fi
+    shift
+    ;;
+  *)
+    echo "unrecognized command-line argument: $1"
+    exit 1
+  ;;
+ esac
+done
+
 ###############################################################################
 ## Utilities
 
@@ -91,21 +180,22 @@ echo ""
 ###############################################################################
 ## What kind of installation?
 
-echo "Do you want a Unix-style distribution?"
+if test "$unixstyle" = ""; then
-echo "  In this distribution mode files go into different directories according"
+  echo "Do you want a Unix-style distribution?"
-echo "  to Unix conventions.  A \"racket-uninstall\" script will be generated"
+  echo "  In this distribution mode files go into different directories according"
-echo "  to be used when you want to remove the installation.  If you say 'no',"
+  echo "  to Unix conventions.  A \"racket-uninstall\" script will be generated"
-echo "  the whole Racket directory is kept in a single installation directory"
+  echo "  to be used when you want to remove the installation.  If you say 'no',"
-echo "  (movable and erasable), possibly with external links into it -- this is"
+  echo "  the whole Racket directory is kept in a single installation directory"
-echo "  often more convenient, especially if you want to install multiple"
+  echo "  (movable and erasable), possibly with external links into it -- this is"
-echo "  versions or keep it in your home directory."
+  echo "  often more convenient, especially if you want to install multiple"
-if test ! "x$RELEASED" = "xyes"; then
+  echo "  versions or keep it in your home directory."
+  if test ! "x$RELEASED" = "xyes"; then
     echo "*** This is a non-release build: such a Unix-style distribution is NOT"
     echo "*** recommended, because it cannot be used to install multiple versions"
     echo "*** in the default location."
-fi
+  fi
-unixstyle="x"
+  unixstyle="x"
-while test "$unixstyle" = "x"; do
+  while test "$unixstyle" = "x"; do
     echon "Enter yes/no (default: no) > "
     read unixstyle
     case "$unixstyle" in
@@ -114,44 +204,47 @@ while test "$unixstyle" = "x"; do
       "" )    unixstyle="N" ;;
       * )     unixstyle="x" ;;
     esac
-done
+  done
-echo ""
+  echo ""
+fi
 
 ###############################################################################
 ## Where do you want it?
 ## sets $where to the location: target path for wholedir, prefix for unixstyle
 
-if test "$unixstyle" = "Y"; then
+if test "$where" = ""; then
+  if test "$unixstyle" = "Y"; then
     echo "Where do you want to base your installation of $DISTNAME?"
     echo "  (If you've done such an installation in the past, either"
     echo "   enter the same directory, or run 'racket-uninstall' manually.)"
     TARGET1="..."
-else
+  else
     echo "Where do you want to install the \"$TARGET\" directory tree?"
     TARGET1="$TARGET"
-fi
+  fi
-echo "  1 - /usr/$TARGET1 [default]"
+  echo "  1 - /usr/$TARGET1 [default]"
-echo "  2 - /usr/local/$TARGET1"
+  echo "  2 - /usr/local/$TARGET1"
-echo "  3 - ~/$TARGET1 ($HOME/$TARGET1)"
+  echo "  3 - ~/$TARGET1 ($HOME/$TARGET1)"
-echo "  4 - ./$TARGET1 (here)"
+  echo "  4 - ./$TARGET1 (here)"
-if test "$unixstyle" = "Y"; then
+  if test "$unixstyle" = "Y"; then
     echo "  Or enter a different directory prefix to install in."
-else
+  else
     echo "  Or enter a different \"racket\" directory to install in."
-fi
+  fi
-echon "> "
+  echon "> "
-read where
+  read where
 
-# numeric choice (make "." and "./" synonym for 4)
+  # numeric choice (make "." and "./" synonym for 4)
-if test "$unixstyle" = "Y"; then TARGET1=""
+  if test "$unixstyle" = "Y"; then TARGET1=""
-else TARGET1="/$TARGET"; fi
+  else TARGET1="/$TARGET"; fi
-case "x$where" in
+  case "x$where" in
     x | x1 ) where="/usr$TARGET1" ;;
     x2     ) where="/usr/local${TARGET1}" ;;
     x3     ) where="${HOME}${TARGET1}" ;;
     x4 | x. | x./ ) where="`pwd`${TARGET1}" ;;
     * ) expand_path_var where ;;
-esac
+  esac
+fi
 
 ###############################################################################
 ## Default system directories prefixed by $1, mimic configure behavior
@@ -242,6 +335,7 @@ wholedir_install() {
   unpack_installation "$where"
   rm_on_abort=""
 
+  if test "$SYSDIR_set" != "Y"; then
     echo ""
     echo "If you want to install new system links within the \"bin\", \"man\""
     echo "  and \"share/applications\" subdirectories of a common directory prefix"
@@ -250,6 +344,7 @@ wholedir_install() {
     echo "  but not files."
     echon "(default: skip links) > "
     read SYSDIR
+  fi
   if test "x$SYSDIR" = "x"; then :
   elif test ! -d "$SYSDIR"; then
     echo "\"$SYSDIR\" does not exist, skipping links."
@@ -312,8 +407,10 @@ unixstyle_install() {
     failwith "The entered base directory exists as a file: $where"
   elif test ! -d "$where"; then
     echo "Base directory does not exist: $where"
+    if test "$create_dir" != "Y"; then
       echon "  should I create it? (default: yes) "
       read R; case "$R" in [nN]* ) abort ;; esac
+    fi
     "$mkdir" -p "$where" || failwith "could not create directory: $where"
   elif test ! -w "$where"; then
     failwith "The entered base directory is not writable: $where"
@@ -324,6 +421,7 @@ unixstyle_install() {
   set_dirs "$where"
   # loop for possible changes
   done="N"; retry="N"
+  if test "$accept_dirs" = "Y" ; then done="Y"; fi
   while test ! "$done" = "Y" || test "x$err" = "xY" ; do
     err="N"
     if test "$retry" = "N"; then