aboutsummaryrefslogblamecommitdiffstats
path: root/kerl
blob: 48b96ade412989d6c9d4526c48a8b101a32060a5 (plain) (tree)





























                                                                               
                   
 


                             
















































































                                                                            
                                                                            
























                                                                   
                                                 







                                                        





















































                                                                                      

                                                                            

                                                           




























































































                                                                            
#! /bin/sh

# Copyright (c) 2011 Evax Software <contact(at)evax(dot)org>
#
# 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=
KERL_INSTALL_AGNER=

# 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 <command> [options ...]"
    echo "\n  <command>       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, see $KERL_BASE_DIR/logs/configure_$1.log";
        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";
    cat <<ACTIVATE > "$absdir/activate"
# credits to virtualenv
kerl_deactivate() {
    if [ -n "\$_KERL_SAVED_PATH" ]; then
        PATH="\$_KERL_SAVED_PATH"
        export PATH
        unset _KERL_SAVED_PATH
    fi
    if [ -n "\$_KERL_SAVED_AGNER_BIN" ]; then
        AGNER_BIN="\$_KERL_SAVED_AGNER_BIN"
        export AGNER_BIN
        unset _KERL_SAVED_AGNER_BIN
    fi
    if [ -n "\$_KERL_SAVED_AGNER_PREFIX" ]; then
        AGNER_PREFIX="\$_KERL_SAVED_AGNER_PREFIX"
        export AGNER_PREFIX
        unset _KERL_SAVED_AGNER_PREFIX
    fi
    if [ -n "\$BASH" -o -n "\$ZSH_VERSION" ]; then
        hash -r
    fi
    if [ ! "\$1" = "nondestructive" ]; then
        unset -f kerl_deactivate
    fi
}
kerl_deactivate nondestructive
_KERL_SAVED_PATH="\$PATH"
export _KERL_SAVED_PATH
_KERL_SAVED_AGNER_BIN="\$AGNER_BIN"
export _KERL_SAVED_AGNER_BIN
_KERL_SAVED_AGNER_PREFIX="\$AGNER_PREFIX"
export _KERL_SAVED_AGNER_PREFIX
PATH="$absdir/bin:\$PATH"
export PATH
AGNER_BIN="$absdir/bin"
export AGNER_BIN
AGNER_PREFIX="$absdir/agner"
export AGNER_PREFIX
if [ -n "\$BASH" -o -n "\$ZSH_VERSION" ]; then
    hash -r
fi
ACTIVATE
    if [ -n "$KERL_INSTALL_AGNER" ]; then
        echo "Installing agner in $absdir..."
        . "$absdir/activate" && cd "$absdir" && \
        git clone https://github.com/agner/agner.git agner_build > /dev/null 2>&1 && \
        cd agner_build && make > /dev/null 2>&1 && \
        ./agner install agner > /dev/null 2>&1
        if [ "$?" -eq 1 ]; then
            echo "Couldn' install agner in $absdir"
            exit 1
        fi
    fi
    rm -Rf "$absdir/agner_build"
    echo "You can activate this installation running the following command:"
    echo ". $absdir/activate"
    echo "Later on, you can leave the installation typing:"
    echo "kerl_deactivate"
}

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 <releases|builds|installations>"
}

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 <release> [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