build-hc-pkg

   1 #!/usr/bin/env bash
   2 set -e
   3
   4 function detect_platform_type () {
   5     local -r canon_name="canon-name/src/canon-name"
   6
   7     if ! gmake --question --file="mk/canon-name.mk" >/dev/null 2>&1; then
   8         gmake --file="mk/canon-name.mk" >&2
   9     fi
  10
  11     "$canon_name"
  12 }
  13
  14 function detect_number_of_cpus () {
  15     if ! sysctl -n hw.ncpu; then
  16         echo "WARNING: I don't know how to detect the number of processors on this platform." >&2
  17         echo "WARNING: GHC will be built using only 1 processor. Expect some slowdown." >&2
  18         echo 1
  19     fi
  20 }
  21
  22 function detect_gnu_tar () {
  23     if which gnutar >/dev/null 2>&1; then
  24         echo "gnutar"
  25     elif which gtar >/dev/null 2>&1; then
  26         echo "gtar"
  27     else
  28         echo "We need GNU tar to be installed." >&2
  29         exit 1
  30     fi
  31 }
  32
  33 function say_hello () {
  34     local -r platform=$(detect_platform_type)
  35     local -r n_cpus=$(detect_number_of_cpus)
  36
  37     echo -n "This is build-hc-pkg, running on $platform with $n_cpus "
  38     if (( $n_cpus == 1 )); then
  39         echo "processor."
  40     else
  41         echo "processors."
  42     fi
  43 }
  44
  45 function srcpath () {
  46     local -r archive="work/archive"
  47     local srcpath=""
  48
  49     if [[ -e "$archive" ]]; then
  50         srcpath=$(cat "$archive")
  51     fi
  52
  53     if [[ -z "$srcpath" || ! -e "$srcpath" ]]; then
  54         mkdir -p work
  55         read -e -p "Enter the file path to ghc-x.y.z-src.tar.bz2: " srcpath
  56         if [[ -e "$srcpath" ]]; then
  57             mkdir -p work
  58             echo "$srcpath" > "$archive"
  59         else
  60             echo "$srcpath not found." >&2
  61             exit 1
  62         fi
  63     fi
  64
  65     echo "$srcpath"
  66 }
  67
  68 function build_hc_pkg () {
  69     local -r srcpath="$(srcpath)"
  70
  71     gmake \
  72         -j $(($(detect_number_of_cpus) + 1)) \
  73         -f mk/main.mk \
  74         SRCPATH="$srcpath" \
  75         PLATFORM="$(detect_platform_type)" \
  76         GNUTAR="$(detect_gnu_tar)" \
  77         SHELL="$SHELL"
  78
  79     echo "If you are done, run \"$0 clean\" to cleanup the working directory."
  80 }
  81
  82 function main () {
  83     case "$1" in
  84         "")
  85             say_hello
  86             build_hc_pkg
  87             exit
  88             ;;
  89         "clean")
  90             echo "Cleaning..."
  91             rm -rf work
  92             exit
  93             ;;
  94         *)
  95             echo "Usage: $0 [clean]" >&2
  96             exit 1
  97             ;;
  98     esac
  99 }
 100
 101 main $@