#! /bin/sh # Copyright (c) 2011 Evax Software # # Permission is hereby granted, free of charge, to any person obtaining a copy # of this software and associated documentation files (the "Software"), to deal # in the Software without restriction, including without limitation the rights # to use, copy, modify, merge, publish, distribute, sublicense, and/or sell # copies of the Software, and to permit persons to whom the Software is # furnished to do so, subject to the following conditions: # # The above copyright notice and this permission notice shall be included in # all copies or substantial portions of the Software. # # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE # AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER # LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, # OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN # THE SOFTWARE. ERLANG_DOWNLOAD_URL=http://www.erlang.org/download KERL_BASE_DIR=$HOME/.kerl KERL_CONFIG=$HOME/.kerlrc KERL_DOWNLOAD_DIR=$KERL_BASE_DIR/archives KERL_BUILD_DIR=$KERL_BASE_DIR/builds KERL_CONFIGURE_OPTIONS= KERL_MAKE_OPTIONS= # ensure the base dir exsists mkdir -p $KERL_BASE_DIR # source the config file if available if [ -f "$KERL_CONFIG" ]; then . "$KERL_CONFIG"; fi usage() { echo "kerl: build and install Erlang/OTP" echo "usage: $0 [options ...]" echo "\n Command to be executed\n" echo "Valid commands are:" echo " build Build specified release" echo " install Install the specified release at the given location" echo " update Update the list of available releases from erlang.org" echo " list List releases, builds and installations" exit 1 } if [ $# -eq 0 ]; then usage; fi get_releases() { curl -s $ERLANG_DOWNLOAD_URL/ | \ sed -e 's/^.*>otp_src_\(R1[-1234567890ABCD]\+\)\.tar\.gz<.*$/\1/' \ -e '/^R/!d' } update_checksum_file() { echo "Getting the checksum file from erlang.org..." curl $ERLANG_DOWNLOAD_URL/MD5 > "$KERL_DOWNLOAD_DIR/MD5" || exit 1 } ensure_checksum_file() { if [ ! -f "$KERL_DOWNLOAD_DIR/MD5" ]; then update_checksum_file fi } check_releases() { if [ ! -f "$KERL_BASE_DIR/otp_releases" ]; then echo "Getting the available releases from erlang.org..." get_releases > "$KERL_BASE_DIR/otp_releases" fi } assert_valid_release() { check_releases for rel in `cat $KERL_BASE_DIR/otp_releases`; do if [ "$1" = "$rel" ]; then return 0 fi done echo "$1 is not a valid Erlang/OTP release" exit 1 } do_build() { assert_valid_release $1 FILENAME=otp_src_$1.tar.gz if [ ! -f "$KERL_DOWNLOAD_DIR/$FILENAME" ]; then echo "Downloading $FILENAME to $KERL_DOWNLOAD_DIR" mkdir -p "$KERL_DOWNLOAD_DIR" curl $ERLANG_DOWNLOAD_URL/$FILENAME > "$KERL_DOWNLOAD_DIR/$FILENAME" update_checksum_file fi ensure_checksum_file echo "Verifying archive checksum..." SUM=`md5sum $KERL_DOWNLOAD_DIR/$FILENAME | cut -d " " -f 1` ORIG_SUM=`grep $FILENAME $KERL_DOWNLOAD_DIR/MD5 | cut -d " " -f 2` if [ "$SUM" != "$ORIG_SUM" ]; then echo "Checksum error, check the files in $KERL_DOWNLOAD_DIR" exit 1 fi echo "Checksum verified ($SUM)" mkdir -p $KERL_BUILD_DIR mkdir -p $KERL_BASE_DIR/logs if [ ! -d $KERL_BUILD_DIR/otp_src_$1 ]; then echo "Extracting source code" cd $KERL_BUILD_DIR && tar xfz $KERL_DOWNLOAD_DIR/$FILENAME fi echo "Building Erlang/OTP $1, please wait..." cd $KERL_BUILD_DIR/otp_src_$1 ./configure $KERL_CONFIGURE_OPTIONS > \ $KERL_BASE_DIR/logs/configure_$1.log 2>&1 if [ "$?" -eq 1 ]; then echo "./configure failed"; exit 1 fi rm -f "$KERL_BASE_DIR/logs/configure_$1.log" make $KERL_MAKE_OPTIONS > $KERL_BASE_DIR/logs/build_$1.log 2>&1 if [ "$?" -eq 1 ]; then echo "Build failed, see $KERL_BASE_DIR/logs/build_$1.log"; list_remove builds $2 fi rm -f "$KERL_BASE_DIR/logs/build_$1.log" echo "Erlang/OTP $1 has been successfully built"; list_add builds $1 } do_install() { assert_valid_release $1 if ! list_has builds $1; then echo "You must build the $1 realease before installing it" exit 1 fi mkdir -p "$2" if [ ! -d "$2" ]; then echo "Destination is not a directory" exit 1 fi absdir=`cd "$2" && pwd` echo "Installing Erlang/OTP $1 in $absdir" cd $KERL_BUILD_DIR/otp_src_$1 ./configure --prefix="$absdir" > /dev/null 2>&1 make install > /dev/null 2>&1 if [ $? -eq 1 ]; then echo "Couldn't install Erlang/OTP $1 in $absdir" exit 1 fi list_add installations "$1 $absdir"; echo "export PATH=$absdir/bin:\$PATH" > $absdir/activate echo "You can activate this installation running the following command:" echo ". $absdir/activate" } list_print() { if [ -f $KERL_BASE_DIR/otp_$1 ]; then if [ -z "$2" ]; then cat $KERL_BASE_DIR/otp_$1 else echo `cat $KERL_BASE_DIR/otp_$1` fi else echo "There are no $1 available" fi } list_add() { if [ -f $KERL_BASE_DIR/otp_$1 ]; then grep $2 $KERL_BASE_DIR/otp_$1 > /dev/null 2>&1 || \ echo $2 >> $KERL_BASE_DIR/otp_$1 else echo $2 > $KERL_BASE_DIR/otp_$1 fi } list_remove() { if [ -f $KERL_BASE_DIR/otp_$1 ]; then sed -i -e '/$2/d' $KERL_BASE_DIR/otp_$1 fi } list_has() { if [ -f $KERL_BASE_DIR/otp_$1 ]; then grep $2 $KERL_BASE_DIR/otp_$1 > /dev/null 2>&1 && return 0 fi return 1 } list_usage() { echo "usage: $0 list " } case "$1" in build) if [ $# -ne 2 ]; then echo "specify a release to install (e.g. R14B02)" exit 1 fi do_build $2 ;; install) if [ $# -lt 2 ]; then echo "usage: $0 $1 [directory]" exit 1 fi if [ $# -eq 3 ]; then do_install $2 $3 else do_install $2 . fi ;; update) rm -f $KERL_BASE_DIR/otp_releases check_releases echo "The available releases are:" list_print releases spaces ;; list) if [ $# -ne 2 ]; then list_usage exit 1 fi case "$2" in releases) check_releases list_print $2 space echo "Run \"$0 update\" to update this list from erlang.org" ;; builds) list_print $2 ;; installations) list_print $2 ;; *) echo "Cannot list $2" list_usage exit 1 ;; esac ;; *) echo "unkwnown command: $1"; usage; exit 1 ;; esac