#!/bin/sh

# only-install-guile: script to install Scheme libraries into Guile without
# compiling them (it assumes they are already compiled).
# Copyright (C) 2017, 2022 Tim Chadburn
#
# 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 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/>.
#
# Author's email: tim@orbitalwintersong.org.uk

PREFIX=$1
shift
shift
SRCDESTDIR=`guile -c "(display (%site-dir))"`/$PREFIX
CMPDESTDIR=`guile -c "(display (%site-ccache-dir))"`/$PREFIX
@MKDIR_P@ $SRCDESTDIR $CMPDESTDIR

for SOURCEFILE
do
    NAME=`echo $SOURCEFILE | awk -F. '{print $1}'`
    @INSTALL@ -m 644 $SOURCEFILE $SRCDESTDIR/$NAME.scm
    @INSTALL@ -m 644 $NAME.go $CMPDESTDIR
done