1999-09-14 08:45:02 -04:00
|
|
|
#!/bin/sh
|
|
|
|
|
# Build the usual development environment image.
|
|
|
|
|
|
|
|
|
|
date=`date`
|
|
|
|
|
srcdir=$1
|
|
|
|
|
lib=$2
|
|
|
|
|
image=$3
|
|
|
|
|
vm=$4
|
|
|
|
|
initial=$5
|
|
|
|
|
USER=${USER-`logname 2>/dev/null || echo '*GOK*'`}
|
|
|
|
|
|
2003-05-01 06:21:33 -04:00
|
|
|
./$vm -o ./$vm -i $initial batch <<EOF
|
1999-09-14 08:45:02 -04:00
|
|
|
,load $srcdir/scheme/env/init-defpackage.scm
|
|
|
|
|
((*structure-ref filenames 'set-translation!)
|
|
|
|
|
"=scheme48/" "$srcdir/scheme/")
|
2004-01-26 16:30:55 -05:00
|
|
|
,load =scheme48/more-interfaces.scm =scheme48/sort/interfaces.scm
|
|
|
|
|
,load =scheme48/link-packages.scm
|
1999-09-14 08:45:02 -04:00
|
|
|
,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/build/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
|
