diff options
Diffstat (limited to 'ch23/support/main.sh')
| -rwxr-xr-x | ch23/support/main.sh | 360 |
1 files changed, 360 insertions, 0 deletions
diff --git a/ch23/support/main.sh b/ch23/support/main.sh new file mode 100755 index 0000000..f248c28 --- /dev/null +++ b/ch23/support/main.sh @@ -0,0 +1,360 @@ +#!/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 |