4 function detect_platform_type () {
5 local -r canon_name="canon-name/src/canon-name"
7 if [[ ! -x "$canon_name" ]]; then
8 gmake -f mk/canon-name.mk
14 function detect_number_of_cpus () {
15 case "$(detect_platform_type)" in
17 ioreg -r -c IOCPU | fgrep -c IOCPUNumber
20 echo "WARNING: I don't know how to detect the number of processors on this platform." >&2
21 echo "WARNING: GHC will be built using only 1 processor. Expect some slowdown." >&2
27 function detect_gnu_tar () {
28 if which gnutar >/dev/null 2>&1; then
30 elif which gtar >/dev/null 2>&1; then
33 echo "We need GNU tar to be installed." >&2
38 function say_hello () {
39 local -r platform=$(detect_platform_type)
40 local -r n_cpus=$(detect_number_of_cpus)
41 echo "This is build-hc-pkg, running on $platform with $n_cpus processors."
45 local -r archive="work/archive"
48 if [[ -e "$archive" ]]; then
49 srcpath=$(cat "$archive")
52 if [[ -z "$srcpath" || ! -e "$srcpath" ]]; then
54 read -e -p "Enter the file path to ghc-x.y.z-src.tar.bz2: " srcpath
55 if [[ -e "$srcpath" ]]; then
57 echo "$srcpath" > "$archive"
59 echo "$srcpath not found." >&2
67 function build_hc_pkg () {
68 local -r srcpath="$(srcpath)"
71 -j $(($(detect_number_of_cpus) + 1)) \
74 PLATFORM="$(detect_platform_type)" \
75 GNUTAR="$(detect_gnu_tar)" \
78 echo "If you are done, run \"$0 clean\" to cleanup the working directory."
94 echo "Usage: $0 [clean]" >&2