#!/bin/sh # Build the usual development environment image. date=`date` srcdir=$1 lib=$2 image=$3 vm=$4 initial=$5 ./$vm -o ./$vm -i $initial batch <<EOF ,load $srcdir/env/init-defpackage.scm ((*structure-ref filenames 'set-translation!) "=scheme48/" "$srcdir/") ,load =scheme48/more-interfaces.scm =scheme48/link-packages.scm ,load =scheme48/more-packages.scm (ensure-loaded command-processor) (ensure-loaded usual-commands) ,go ((*structure-ref command 'command-processor) (structure-package usual-commands) (list "batch")) (ensure-loaded usual-features) ,structure more-structures more-structures-interface ,in debuginfo (read-debug-info "$srcdir/initial.debug") ,keep maps source files ,translate =scheme48/ $lib/ ,build ((*structure-ref package-commands-internal 'new-command-processor) "(made by $USER on $date)" usual-commands built-in-structures more-structures) $image EOF