#!/bin/bash

#Authors: Anton Ertl, Bernd Paysan
#Copyright (C) 2006,2008,2009,2012,2019 Free Software Foundation, Inc.

#This file is part of Gforth.

#Gforth 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 3
#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, see http://www.gnu.org/licenses/.

arch=$1

./gforth --die-on-signal -m 4M -p ".:~+:." -i @kernel_fi@ exboot.fs -e 'fpath= .|~+|.' -e "s\" arch/$arch/mach.fs\"" ./kernel-ec/main.fs -e "save-cross kernl-$arch.fi- /usr/local/bin/gforth bye"
if [ -f arch/$arch/mach.sh ] 
then sh arch/$arch/mach.sh kernl-$arch.fi
else cp -p kernl-$arch.fi- kernl-$arch.fi
fi
