#!/bin/bash
#
# Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
#     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
#     2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014,
#     2015, 2016, 2017, 2018, 2019, 2020, 2021, 2022 Massachusetts
#     Institute of Technology
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or (at
# your option) any later version.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
# 02110-1301, USA.

# inputs: binary tar
# outputs: MacOS X application

system_args ()
{
    (( ${#} >= 2 )) || usage
    DIST_TYPE=${1}
    ARCH=${2}
    shift 2
}
ARGS_FUNCTION=system_args

system_usage ()
{
    echo "usage: ${PROGRAM} TYPE ARCH [OPTIONS]"
    standard_args_usage
    echo "  ARCH must be 'i386' or 'x86-64'"
    echo "  OPTIONS are passed to the configure script"
}
USAGE_FUNCTION=system_usage

. "$(dirname "${0}")"/shared.sh
restore_release_vars

OUT=${MACOSX_OUT}-${ARCH}
ARCH_BASE=${DIST_DIR}-${ARCH}
DMG_DIR=macos-app
DMG_FILE=${ARCH_BASE}.dmg

compile ()
{
    my_configure --enable-native-code="${ARCH}" "${@}"
    my_make compile-microcode
}

make_dmg ()
{
    new_temp_dir "${DMG_DIR}"
    local APP_DIR="MIT:GNU Scheme ${RELEASE}.app"
    my_mv "${ARCH_BASE}"/src/mit-scheme.app "${DMG_DIR}"/"${APP_DIR}"
    my_ln_s /Applications "${DMG_DIR}"/.
    my_rm_f "${DMG_FILE}"
    create-dmg --volname "MIT-GNU Scheme ${RELEASE}" "${DMG_FILE}" "${DMG_DIR}"
    make_read_only "${DMG_FILE}"
}

notify "Compiling executable"
unpack_dist_dir "${ARCH_BASE}"
run_command "${OUT}"-compile "${ARCH_BASE}"/src compile "${@}"

notify "Building application bundle"
VERSION_STRING=${RELEASE} \
    run_command "${OUT}"-buildapp "${ARCH_BASE}"/src etc/macosx/make-app.sh

notify "Building disk image"
run_command "${OUT}"-makedmg "${TL_DIR}" make_dmg

cleanup_temp_files
notify_finished
