#!/bin/sh

# 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 file is part of MIT/GNU Scheme.
#
# MIT/GNU Scheme 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.
#
# MIT/GNU Scheme 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 MIT/GNU Scheme; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
# 02110-1301, USA.

set -e

if test ${#} != 1; then
    echo "usage: ${0} TARGET_ARCH" >&2
    exit 1
fi

cd `dirname "${0}"`
TARGET_ARCH=${1}

MACHINE=`./choose-machine.sh "${TARGET_ARCH}"`

if test -z "${MACHINE}"; then
    echo "Unknown target arch: ${TARGET_ARCH}" >&2
    exit 1
fi

LINKS="compiler.cbf compiler.pkg compiler.sf make.com make.bin"

for FN in machine ${LINKS}; do
    if test -e ${FN} && test ! -L ${FN}; then
	echo "${FN} is not a symbolic link; refusing to clobber it." >&2
	exit 1
    fi
done

CMDS="rm -f machine && ln -s machines/${MACHINE} machine"
echo "${CMDS}"; eval "${CMDS}"

for FN in ${LINKS}; do
    CMDS="rm -f ${FN} && ln -s machine/${FN} ${FN}"
    echo "${CMDS}"; eval "${CMDS}"
done

case ${TARGET_ARCH} in
svm1-32be|svm1-32le)
    ln -sf wordsize-32.scm machine/wordsize.scm
    ;;
svm1-64be|svm1-64le)
    ln -sf wordsize-64.scm machine/wordsize.scm
    ;;
esac

case ${TARGET_ARCH} in
svm1-32be|svm1-64be|aarch64be)
    ln -sf big-endian.scm machine/endian.scm
    ;;
svm1-32le|svm1-64le|aarch64le)
    ln -sf little-endian.scm machine/endian.scm
    ;;
esac

