62 lines
1.9 KiB
Bash
62 lines
1.9 KiB
Bash
#!/bin/sh
|
|
# This is based on the script by David T. Lewis posted here:
|
|
# http://lists.squeakfoundation.org/pipermail/vm-dev/2017-April/024836.html
|
|
#
|
|
# VM run utility script
|
|
# usage: run <myimage>
|
|
#
|
|
# Select a VM and run an image based on the image format number
|
|
|
|
# Search for the image filename in the command line arguments
|
|
for arg in $*; do
|
|
case ${arg} in
|
|
-*) # ignore
|
|
;;
|
|
*) # either an option argument or the image name
|
|
if test -f ${arg}; then
|
|
magic=$(file -m @share@/magic "$arg")
|
|
case "$magic" in
|
|
'Smalltalk image V3 32b*')
|
|
image=${arg}
|
|
vm=@cog-vm@/bin/pharo-cog
|
|
;;
|
|
'Smalltalk image Spur 32b*')
|
|
image=${arg}
|
|
vm=@spur-vm@/bin/pharo-spur
|
|
;;
|
|
'Smalltalk image Spur 64b*')
|
|
if "@spur64-vm@" == "none"; then
|
|
echo "error: detected 64-bit image but 64-bit VM is not available" >&2
|
|
exit 1
|
|
fi
|
|
image=${arg}
|
|
vm=@spur64-vm@/bin/pharo-spur64
|
|
;;
|
|
esac
|
|
fi
|
|
;;
|
|
esac
|
|
done
|
|
|
|
# Extra arguments to pass to the VM
|
|
args=""
|
|
|
|
# Print a message to explain our DWIM'ery.
|
|
if -n "$image"; then
|
|
echo "using VM selected by image type."
|
|
echo " image: $image"
|
|
echo " type: $magic"
|
|
echo " vm: $vm"
|
|
elif test "$#" == 0; then
|
|
echo "using default vm and image; none specified on command line"
|
|
args="@default-image@"
|
|
# XXX Just assume this is the right VM (for pharo launcher)
|
|
vm=@cog-vm@/bin/pharo-cog
|
|
else
|
|
echo "using default vm; image type not detected"
|
|
fi
|
|
|
|
# Run the VM
|
|
set -f
|
|
exec ${vm} $args "$@"
|
|
|