path: root/ch23/support/main.sh

#!/bin/bash -x

# Exit on any error
set -e

CWD=$(pwd)

# Directory where all files created and modified by this script will be put
ROOT=$CWD/ROOT

DEST=$ROOT/DESTDIR
DEST_PACKAGES=$DEST/packages

TMP=$ROOT/TMP

export CFLAGS="-O2 -fPIC"
export CXXFLAGS="$CFLAGS"


#------------------------------------------------------------------------------
# Functions
#------------------------------------------------------------------------------

function download_sources()
{
    declare -A urls

    # Binaries
    urls[ghc-8.0.1-x86_64-deb8-linux.tar.xz]='https://downloads.haskell.org/~ghc/8.0.1/ghc-8.0.1-x86_64-deb8-linux.tar.xz'
    urls[libtinfo5_6.4-4_amd64.deb]='http://ftp.cz.debian.org/debian/pool/main/n/ncurses/libtinfo5_6.4-4_amd64.deb'

    # Non-Haskell source packages
    urls[src/cairo-1.16.0.tar.xz]='https://www.cairographics.org/releases/cairo-1.16.0.tar.xz'
    urls[src/glade3-3.8.6.tar.xz]='https://download.gnome.org/sources/glade3/3.8/glade3-3.8.6.tar.xz'
    urls[src/glib-2.60.0.tar.gz]='https://download.gnome.org/sources/glib/2.60/glib-2.60.0.tar.xz'
    urls[src/gobject-introspection-1.66.1.tar.xz]='https://download.gnome.org/sources/gobject-introspection/1.66/gobject-introspection-1.66.1.tar.xz'
    urls[src/pango-1.43.0.tar.xz]='https://download.gnome.org/sources/pango/1.43/pango-1.43.0.tar.xz'

    # Haskell source packages
    urls[packages/HDBC-2.4.0.2.tar.gz]='https://hackage.haskell.org/package/HDBC-2.4.0.2/HDBC-2.4.0.2.tar.gz'
    urls[packages/HDBC-sqlite3-2.3.3.1.tar.gz]='https://hackage.haskell.org/package/HDBC-sqlite3-2.3.3.1/HDBC-sqlite3-2.3.3.1.tar.gz'
    urls[packages/HTTP-4000.4.1.tar.gz]='https://hackage.haskell.org/package/HTTP-4000.4.1/HTTP-4000.4.1.tar.gz'
    urls[packages/HaXml-1.25.3.tar.gz]='https://hackage.haskell.org/package/HaXml-1.25.3/HaXml-1.25.3.tar.gz'
    urls[packages/QuickCheck-2.8.2.tar.gz]='https://hackage.haskell.org/package/QuickCheck-2.8.2/QuickCheck-2.8.2.tar.gz'
    urls[packages/alex-3.1.7.tar.gz]='https://hackage.haskell.org/package/alex-3.1.7/alex-3.1.7.tar.gz'
    urls[packages/base-4.9.0.0.tar.gz]='https://hackage.haskell.org/package/base-4.9.0.0/base-4.9.0.0.tar.gz'
    urls[packages/cairo-0.13.8.1.tar.gz]='https://hackage.haskell.org/package/cairo-0.13.8.1/cairo-0.13.8.1.tar.gz'
    urls[packages/convertible-1.1.1.0.tar.gz]='https://hackage.haskell.org/package/convertible-1.1.1.0/convertible-1.1.1.0.tar.gz'
    urls[packages/glade-0.13.1.tar.gz]='https://hackage.haskell.org/package/glade-0.13.1/glade-0.13.1.tar.gz'
    urls[packages/glib-0.13.4.1.tar.gz]='https://hackage.haskell.org/package/glib-0.13.4.1/glib-0.13.4.1.tar.gz'
    urls[packages/gtk-0.14.5.tar.gz]='https://hackage.haskell.org/package/gtk-0.14.5/gtk-0.14.5.tar.gz'
    urls[packages/gtk2hs-buildtools-0.13.5.0.tar.gz]='https://hackage.haskell.org/package/gtk2hs-buildtools-0.13.5.0/gtk2hs-buildtools-0.13.5.0.tar.gz'
    urls[packages/happy-1.19.5.tar.gz]='https://hackage.haskell.org/package/happy-1.19.5/happy-1.19.5.tar.gz'
    urls[packages/hashable-1.2.4.0.tar.gz]='https://hackage.haskell.org/package/hashable-1.2.4.0/hashable-1.2.4.0.tar.gz'
    urls[packages/hashtables-1.2.1.1.tar.gz]='https://hackage.haskell.org/package/hashtables-1.2.1.1/hashtables-1.2.1.1.tar.gz'
    urls[packages/mtl-2.2.2.tar.gz]='https://hackage.haskell.org/package/mtl-2.2.2/mtl-2.2.2.tar.gz'
    urls[packages/network-2.6.3.1.tar.gz]='https://hackage.haskell.org/package/network-2.6.3.1/network-2.6.3.1.tar.gz'
    urls[packages/network-uri-2.6.4.2.tar.gz]='https://hackage.haskell.org/package/network-uri-2.6.4.2/network-uri-2.6.4.2.tar.gz'
    urls[packages/old-locale-1.0.0.7.tar.gz]='https://hackage.haskell.org/package/old-locale-1.0.0.7/old-locale-1.0.0.7.tar.gz'
    urls[packages/old-time-1.1.0.4.tar.gz]='https://hackage.haskell.org/package/old-time-1.1.0.4/old-time-1.1.0.4.tar.gz'
    urls[packages/pango-0.13.2.0.tar.gz]='https://hackage.haskell.org/package/pango-0.13.2.0/pango-0.13.2.0.tar.gz'
    urls[packages/parsec-3.1.15.0.tar.gz]='https://hackage.haskell.org/package/parsec-3.1.15.0/parsec-3.1.15.0.tar.gz'
    urls[packages/polyparse-1.12.tar.gz]='https://hackage.haskell.org/package/polyparse-1.12/polyparse-1.12.tar.gz'
    urls[packages/primitive-0.6.1.1.tar.gz]='https://hackage.haskell.org/package/primitive-0.6.1.1/primitive-0.6.1.1.tar.gz'
    urls[packages/random-1.1.tar.gz]='https://hackage.haskell.org/package/random-1.1/random-1.1.tar.gz'
    urls[packages/text-1.2.2.2.tar.gz]='https://hackage.haskell.org/package/text-1.2.2.2/text-1.2.2.2.tar.gz'
    urls[packages/tf-random-0.5.tar.gz]='https://hackage.haskell.org/package/tf-random-0.5/tf-random-0.5.tar.gz'
    urls[packages/th-compat-0.1.6.tar.gz]='https://hackage.haskell.org/package/th-compat-0.1.6/th-compat-0.1.6.tar.gz'
    urls[packages/utf8-string-1.0.2.tar.gz]='https://hackage.haskell.org/package/utf8-string-1.0.2/utf8-string-1.0.2.tar.gz'
    urls[packages/vector-0.12.0.0.tar.gz]='https://hackage.haskell.org/package/vector-0.12.0.0/vector-0.12.0.0.tar.gz'

    for src in "${!urls[@]}"; do
        if [ ! -f $ROOT/$src ]; then
            dir=$ROOT/$(dirname $src)
            [ ! -d $dir ] && mkdir -p $dir
            wget -O $ROOT/$src ${urls[$src]}
        fi
    done
}

function verify_sources()
{
    declare -A sums

    # Binaries
    sums[ghc-8.0.1-x86_64-deb8-linux.tar.xz]='b1c06af49b29521d5b122ef3311f5843e342db8b1769ea7c602cc16d66098ced'
    sums[libtinfo5_6.4-4_amd64.deb]='dd347f794e651039e7b4c391f86c674fed7f415b3dca6b0937beb0d470f09c1a'

    # Non-Haskell source packages
    sums[src/cairo-1.16.0.tar.xz]='5e7b29b3f113ef870d1e3ecf8adf21f923396401604bda16d44be45e66052331'
    # This version of Glade designer is for GTK2
    sums[src/glade3-3.8.6.tar.xz]='aaeeebffaeb3068fb23757a2eede46adeb4c7cecc740feed7654e065491f5449'
    sums[src/glib-2.60.0.tar.gz]='20865d8b96840d89d9340fc485b4b1131c1bb24d16a258a22d642c3bb1b44353'
    sums[src/gobject-introspection-1.66.1.tar.xz]='dd44a55ee5f426ea22b6b89624708f9e8d53f5cc94e5485c15c87cb30e06161d'
    sums[src/pango-1.43.0.tar.xz]='d2c0c253a5328a0eccb00cdd66ce2c8713fabd2c9836000b6e22a8b06ba3ddd2'

    # Haskell source packages
    sums[packages/HDBC-2.4.0.2.tar.gz]='670757fd674b6caf2f456034bdcb54812af2cdf2a32465d7f4b7f0baa377db5a'
    sums[packages/HDBC-sqlite3-2.3.3.1.tar.gz]='a783d9ab707ebfc68e3e46bd1bbb5d3d5493f50a7ccf31223d9848cff986ebea'
    sums[packages/HTTP-4000.4.1.tar.gz]='df31d8efec775124dab856d7177ddcba31be9f9e0836ebdab03d94392f2dd453'
    sums[packages/HaXml-1.25.3.tar.gz]='6448a7ee1c26159c6c10db93757ed9248f647b1c0c431e7aead6aadd6d2307c7'
    sums[packages/QuickCheck-2.8.2.tar.gz]='98c64de1e2dbf801c54dcdcb8ddc33b3569e0da38b39d711ee6ac505769926aa'
    sums[packages/alex-3.1.7.tar.gz]='89a1a13da6ccbeb006488d9574382e891cf7c0567752b330cc8616d748bf28d1'
    sums[packages/base-4.9.0.0.tar.gz]='de577e8bd48de97be954c32951b9544ecdbbede721042c71f7f611af4ba8be2d'
    sums[packages/cairo-0.13.8.1.tar.gz]='1316412d51556205cfc097a354eddf0e51f4d319cde0498626a2854733f4f3c2'
    sums[packages/convertible-1.1.1.0.tar.gz]='e9f9a70904b9995314c2aeb41580d654a2c76293feb955fb6bd63256c355286c'
    sums[packages/glade-0.13.1.tar.gz]='6bb9c72052085c83c1810f1389875d260b9d65f1ea4c4e64022270291ae9be45'
    sums[packages/glib-0.13.4.1.tar.gz]='f57202ed4094cc50caa8b390c8b78a1620b3c43b913edb1e5bda0f3c5be32630'
    sums[packages/gtk-0.14.5.tar.gz]='ffdfb54247dfbdf3b9936504802e3e0d2238cf5a0c145e745899d2c17f7c7001'
    sums[packages/gtk2hs-buildtools-0.13.5.0.tar.gz]='e45f9b2f8a088a1c23b8d3618cbc765fb6a5a4bf1c8329bb513cdb18d9c14305'
    sums[packages/happy-1.19.5.tar.gz]='62f03ac11d7b4b9913f212f5aa2eee1087f3b46dc07d799d41e1854ff02843da'
    sums[packages/hashable-1.2.4.0.tar.gz]='fb9671db0c39cd48d38e2e13e3352e2bf7dfa6341edfe68789a1753d21bb3cf3'
    sums[packages/hashtables-1.2.1.1.tar.gz]='227f554a93310645c654254659969b347de3d1bf3d98901dbb5c113ece72e951'
    sums[packages/mtl-2.2.2.tar.gz]='8803f48a8ed33296c3a3272f448198737a287ec31baa901af09e2118c829bef6'
    sums[packages/network-2.6.3.1.tar.gz]='57045f5e2bedc095670182130a6d1134fcc65d097824ac5b03933876067d82e6'
    sums[packages/network-uri-2.6.4.2.tar.gz]='9c188973126e893250b881f20e8811dca06c223c23402b06f7a1f2e995797228'
    sums[packages/old-locale-1.0.0.7.tar.gz]='dbaf8bf6b888fb98845705079296a23c3f40ee2f449df7312f7f7f1de18d7b50'
    sums[packages/old-time-1.1.0.4.tar.gz]='1e22eb7f7b924a676f52e317917b3b5eeceee11c74ef4bc609c0bcec624c166f'
    sums[packages/pango-0.13.2.0.tar.gz]='4b80c8ed358699738c6956b6ab68a8867de129b521230f5c53daea208923f07c'
    sums[packages/parsec-3.1.15.0.tar.gz]='98820f4423c0027fc1693bf0fe08b4ef4aabb8eb0a7bf1143561e6b03fd21fed'
    sums[packages/polyparse-1.12.tar.gz]='f54c63584ace968381de4a06bd7328b6adc3e1a74fd336e18449e0dd7650be15'
    sums[packages/primitive-0.6.1.1.tar.gz]='f20b8c1efa50fc55a79b5b8c14a1e003ee390f72d796123e5a40e4b88ac50b8f'
    sums[packages/random-1.1.tar.gz]='b718a41057e25a3a71df693ab0fe2263d492e759679b3c2fea6ea33b171d3a5a'
    sums[packages/text-1.2.2.2.tar.gz]='31465106360a7d7e214d96f1d1b4303a113ffce1bde44a4e614053a1e5072df9'
    sums[packages/tf-random-0.5.tar.gz]='2e30cec027b313c9e1794d326635d8fc5f79b6bf6e7580ab4b00186dadc88510'
    sums[packages/th-compat-0.1.6.tar.gz]='b781a0c059872bc95406d00e98f6fa7d9e81e744730f75186583cb4dcea0a4eb'
    sums[packages/utf8-string-1.0.2.tar.gz]='ee48deada7600370728c4156cb002441de770d0121ae33a68139a9ed9c19b09a'
    sums[packages/vector-0.12.0.0.tar.gz]='27bf375d0efbff61acaeb75a2047afcbdac930191069a59da4a474b9bf80ec95'

    # Patches
    sums[patches/gtk-0.14.5.patch]='d5e0e8041a8109a1039c7a36a1c0dde6ca805f685f504b4894527e36e0ab70c2'
    # Patch forgtk2hs-buildtools gotten from https://github.com/gtk2hs/gtk2hs/pull/304
    sums[patches/gtk2hs-buildtools-0.13.5.0.patch]='54b6eeb9842e18a0d77e70f3f6ca884b59a4efef13a915e450bbdf992ac9f034'
    sums[patches/old-locale-1.0.0.7.patch]='452b1fcfde6364a7ef59d40406fa3117159fe0f2cdd1cedeaabb0efeec066d77'

    for src in "${!sums[@]}"; do
        path=$ROOT/$src
        if echo $src | grep -q '^patches/'; then
            path=$CWD/$src
        fi

        if [ ! -f $path ]; then
            echo "ERROR: File $path is missing" >&2
            exit 1
        fi

        expected=${sums[$src]}
        actual=$(sha256sum $path | awk '{ print $1 }')
        if [ "$actual" != "$expected" ]; then
            echo "ERROR: File $src has unexpected SHA256 sum (expected $expected, actual $actual)" >&2
            exit 1
        fi
    done
}

function install_libtinfo5()
{
    cd $TMP
    mkdir libtinfo5
    cd libtinfo5
    ar x ../../libtinfo5_6.4-4_amd64.deb
    tar xvf data.tar.xz
    mkdir $DEST/libtinfo5
    mv lib/x86_64-linux-gnu/libtinfo.so.5* $DEST/libtinfo5
}

function install_ghc()
{
    cd $TMP
    tar xvf ../ghc-8.0.1-x86_64-deb8-linux.tar.xz
    cd ghc-8.0.1
    ./configure --prefix=$DEST/ghc-8.0.1
    make install
}

function install_package()
{
    PRGNAM_VERSION=$1

    cd $TMP
    tar xvf ../packages/${PRGNAM_VERSION}.tar.gz
    cd $PRGNAM_VERSION

    # Apply patches if any
    for p in $(find $CWD/patches -name "${PRGNAM_VERSION}*.patch"); do
        patch -p1 < $p
    done

    # An inspiration for installing Cabal packages was taken from Haskell
    # slackbuilds at https://slackbuilds.org/result/?search=haskell&sv=15.0
    PREFIX=$DEST_PACKAGES/$PRGNAM_VERSION
    runghc Setup configure \
          --prefix=$PREFIX \
          --libdir=$PREFIX/lib \
          --libsubdir=ghc-8.0.1/$PRGNAM_VERSION \
          --enable-shared

    runghc Setup build
    runghc Setup copy
    runghc Setup register --gen-pkg-config

    # Some packages don't have libraries (the .conf file), just executables in bin/
    if [ -f $PRGNAM_VERSION.conf ]; then
        cp $PRGNAM_VERSION.conf $PACKAGE_DB

        which ghc-pkg
        ghc-pkg recache

        # Check whether the package has really been registered
        if [ -z "$(ghc-pkg list | grep "^ *$PRGNAM_VERSION$")" ]; then
           echo "ERROR: Cannot register package $PRGNAM_VERSION" >&2
           exit 1
        fi
    fi
}

function install_by_meson()
{
    PRGNAM_VERSION=$1

    cd $TMP
    tar xvf $ROOT/src/$PRGNAM_VERSION.tar.?z
    cd $PRGNAM_VERSION

    mkdir build
    cd build
    meson --prefix=$DEST/$PRGNAM_VERSION \
          --buildtype=release \
          ..
    ninja
    ninja install
}

function install_glib()
{
    install_by_meson glib-2.60.0
}

function install_gobject_introspection()
{
    install_by_meson gobject-introspection-1.66.1
}

function install_pango()
{
    install_by_meson pango-1.43.0
}

function install_glade()
{
    cd $TMP
    tar xvf ../src/glade3-3.8.6.tar.xz
    cd glade3-3.8.6

    ./configure --prefix=$DEST/glade3-3.8.6
    make
    make install
}

function print_env_script()
{
    cat <<EOF
export LD_LIBRARY_PATH="$DEST/libtinfo5:\$LD_LIBRARY_PATH"
export PATH="$DEST/ghc-8.0.1/bin:\$PATH"
export PACKAGE_DB="$DEST/ghc-8.0.1/lib/ghc-8.0.1/package.conf.d"

export PATH="$DEST/packages/happy-1.19.5/bin:\$PATH"
export PATH="$DEST/packages/alex-3.1.7/bin:\$PATH"
export PATH="$DEST/packages/gtk2hs-buildtools-0.13.5.0/bin/:\$PATH"

export LD_LIBRARY_PATH="$DEST/glib-2.60.0/lib64:\$LD_LIBRARY_PATH"
export PKG_CONFIG_PATH="$DEST/glib-2.60.0/lib64/pkgconfig:\$PKG_CONFIG_PATH"

export LD_LIBRARY_PATH="$DEST/gobject-introspection-1.66.1/lib64:\$LD_LIBRARY_PATH"
export PKG_CONFIG_PATH="$DEST/gobject-introspection-1.66.1/lib64/pkgconfig:\$PKG_CONFIG_PATH"

export LD_LIBRARY_PATH="$DEST/pango-1.43.0/lib64:\$LD_LIBRARY_PATH"
export PKG_CONFIG_PATH="$DEST/pango-1.43.0/lib64/pkgconfig:\$PKG_CONFIG_PATH"

export LD_LIBRARY_PATH="$DEST/glade3-3.8.6/lib64:\$LD_LIBRARY_PATH"

export PATH="$DEST/glade3-3.8.6/bin/:\$PATH"

# Indicate in the prompt that this is a special shell environment
export PS1="ch23 \$PS1"
EOF
}


#------------------------------------------------------------------------------
# MAIN
#------------------------------------------------------------------------------

if [ ! -f main.sh -o ! -d patches ]; then
    echo "ERROR: Current directory must be the one containing this script and the patches" >&2
    exit 1
fi

if [ ! -d $ROOT ]; then
    mkdir -p $DEST
fi

if [ ! -d $DEST ]; then
    mkdir -p $DEST
fi

if [ ! -d $TMP ]; then
    mkdir -p $TMP
fi

print_env_script >$DEST/env
source $DEST/env

download_sources
verify_sources

install_libtinfo5
install_ghc

install_package random-1.1
install_package primitive-0.6.1.1
install_package tf-random-0.5
install_package QuickCheck-2.8.2
install_package mtl-2.2.2
install_package text-1.2.2.2
install_package polyparse-1.12
install_package HaXml-1.25.3
install_package old-locale-1.0.0.7
install_package old-time-1.1.0.4
install_package convertible-1.1.1.0
install_package utf8-string-1.0.2
install_package HDBC-2.4.0.2
install_package HDBC-sqlite3-2.3.3.1
install_package network-2.6.3.1
install_package parsec-3.1.15.0
install_package th-compat-0.1.6
install_package network-uri-2.6.4.2
install_package HTTP-4000.4.1
install_package hashable-1.2.4.0
install_package vector-0.12.0.0
install_package hashtables-1.2.1.1
install_package network-2.6.3.1
install_package alex-3.1.7
install_package happy-1.19.5
install_package gtk2hs-buildtools-0.13.5.0

install_glib

install_package glib-0.13.4.1
install_package cairo-0.13.8.1

install_gobject_introspection
install_pango

install_package pango-0.13.2.0

install_package gtk-0.14.5
install_package glade-0.13.1

install_glade