common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

0.9.8.27:

Browse source 
Merge patch from James Bielman fixing self-build under Win32.
	... a little bit of an accident ensued; I ran
		canonicalize-whitespace on .sh files, which seemed to
		work (except on wc.sh) until it scribbled all over
		make.sh, confusing the shell interpreter utterly.
	... the resulting files have built the system, nevertheless.
This commit is contained in:
Christophe Rhodes 2006-01-09 13:00:17 +00:00
parent 732ad8030a
commit 04d819bb1a
32 changed files with 376 additions and 307 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
binary-distribution.sh
View file

@ -18,8 +18,8 @@ tar -cf $b-binary.tar \
$b/pubring.pgp \
$b/contrib/asdf-module.mk \
$b/contrib/vanilla-module.mk \
`for dir in $b/contrib/*; do
if test -d $dir && test -f $dir/test-passed; then
`for dir in $b/contrib/*; do
if test -d $dir && test -f $dir/test-passed; then
echo $dir
fi
done`

64
clean.sh
View file

@ -40,7 +40,7 @@ done
# are never in the sources, so must've been created
# sbcl
# the runtime environment, created by compiling C code
# sbcl.h
# sbcl.h
# information about Lisp code needed to build the runtime environment,
# created by running GENESIS
# Config, target
@ -59,7 +59,7 @@ done
# .#*, *.orig, .*.orig, *.rej
# rubbish left behind by CVS updates
# *.htm, *.html
# The system doc sources are mostly texinfo, plus various odds
# The system doc sources are mostly texinfo, plus various odds
# and ends like docstrings embedded in .lisp sources; any HTML is
# automatically-generated output.
# depend
@ -73,34 +73,34 @@ done
# test-passed
# generated by automatic directory-test-thyself procedure
find . \( \
-type l -o \
-name '*~' -o \
-name '#*#' -o \
-name '.#*' -o \
-name '*.orig' -o \
-name '.*.orig' -o \
-type l -o \
-name '*~' -o \
-name '#*#' -o \
-name '.#*' -o \
-name '*.orig' -o \
-name '.*.orig' -o \
-name '*.rej' -o \
-name '?*.x86f' -o \
-name '?*.axpf' -o \
-name '?*.lbytef' -o \
-name '?*.fasl' -o \
-name 'core' -o \
-name '?*.core' -o \
-name '*.map' -o \
-name '*.nm' -o \
-name '*.host-obj' -o \
-name '*.lisp-obj' -o \
-name '*.target-obj' -o \
-name '*.lib' -o \
-name '*.tmp' -o \
-name '*.lisp-temp' -o \
-name '*.o' -o \
-name '*.so' -o \
-name 'a.out' -o \
-name 'sbcl' -o \
-name 'sbcl.h' -o \
-name 'depend' -o \
-name 'TAGS' -o \
-name 'tags' -o \
-name 'test-passed' -o \
-name 'local-target-features.lisp-expr' \) -print | xargs rm -f
-name '?*.x86f' -o \
-name '?*.axpf' -o \
-name '?*.lbytef' -o \
-name '?*.fasl' -o \
-name 'core' -o \
-name '?*.core' -o \
-name '*.map' -o \
-name '*.nm' -o \
-name '*.host-obj' -o \
-name '*.lisp-obj' -o \
-name '*.target-obj' -o \
-name '*.lib' -o \
-name '*.tmp' -o \
-name '*.lisp-temp' -o \
-name '*.o' -o \
-name '*.so' -o \
-name 'a.out' -o \
-name 'sbcl' -o \
-name 'sbcl.h' -o \
-name 'depend' -o \
-name 'TAGS' -o \
-name 'tags' -o \
-name 'test-passed' -o \
-name 'local-target-features.lisp-expr' \) -print | xargs rm -f

10
distclean.sh
View file

@ -1,7 +1,7 @@
#!/bin/sh
set -e
# a superset of clean.sh, cleaning up not only automatically
# a superset of clean.sh, cleaning up not only automatically
# generated files but other things (e.g. customization files)
# which shouldn't be in the distribution
@ -16,10 +16,10 @@ rm -rf customize-target-features.lisp
# Since the CVS/ subdirectories on my (WHN) machine have CVS/Root
# containing
# :ext:wnewman@cvs.sbcl.sourceforge.net:/cvsroot/sbcl
# they're not useful for anyone else, so blow them away. (And even
# if we could set them up to refer to CVS in a way that someone else
# could use, perhaps referring to SourceForge anoncvs, what'd be the
# point? I'd expect a comfortable majority of those who want to do
# they're not useful for anyone else, so blow them away. (And even
# if we could set them up to refer to CVS in a way that someone else
# could use, perhaps referring to SourceForge anoncvs, what'd be the
# point? I'd expect a comfortable majority of those who want to do
# CVS operations would be inclined to start with "cvs co" anyway.)
find . \( -type d -a -name CVS \) -print | xargs rm -r

8
doc/internals/make-top.sh
View file

@ -1,14 +1,14 @@
#!/bin/sh
# After the ordeal, we went back to the Factory. Greenblatt said he
# After the ordeal, we went back to the Factory. Greenblatt said he
# was gonna locate us in a cell. He said: "Kid, I'm gonna INTERN you in a
# cell. I want your manual and your mouse."
# I said, "Greenblatt, I can understand your wantin' my manual, so
# I said, "Greenblatt, I can understand your wantin' my manual, so
# I don't have any documentation about the cell, but what do you want my
# mouse for?" and he said, "Kid, we don't want any window system problems".
# mouse for?" and he said, "Kid, we don't want any window system problems".
# I said, "Greenblatt, did you think I was gonna deexpose myself for
# litterin'?"
# Greenblatt said he was makin' sure, and, friends, Greenblatt
# Greenblatt said he was makin' sure, and, friends, Greenblatt
# was, 'cause he took out the left Meta-key so I couldn't double bucky the
# rubout and cold-boot, and he took out the Inspector so I couldn't
# click-left on Modify, set the PROCESS-WARM-BOOT-ACTION on the window,

8
doc/manual/make-tempfiles.sh
View file

@ -54,11 +54,11 @@ DOCSTRINGDIR="${DOCSTRINGDIR:-docstrings/}"
echo /creating docstring snippets from SBCL=\'$SBCLRUNTIME\' for packages \'$PACKAGES\'
$SBCL <<EOF
(load "docstrings.lisp")
(load "docstrings.lisp")
(require :asdf)
(dolist (module (quote ($MODULES)))
(require module))
(sb-texinfo:generate-includes "$DOCSTRINGDIR" $PACKAGES)
(dolist (module (quote ($MODULES)))
(require module))
(sb-texinfo:generate-includes "$DOCSTRINGDIR" $PACKAGES)
(sb-ext:quit))
EOF

2
find-gnumake.sh
View file

@ -11,7 +11,7 @@ find_gnumake() {
GNUMAKE=gmake
elif [ -x "`which gnumake`" ] ; then
# MacOS X aka Darwin
GNUMAKE=gnumake
GNUMAKE=gnumake
elif [ "GNU Make" = "`make -v | head -n 1 | cut -b 0-8`" ]; then
GNUMAKE=make
else

14
install.sh
View file

@ -3,10 +3,10 @@ set -e
# Install SBCL files into the usual places.
ensure_dirs ()
ensure_dirs ()
{
for j in $*; do
test -d $j || mkdir -p $j
for j in $*; do
test -d $j || mkdir -p $j
done;
}
@ -28,10 +28,10 @@ fi
# Before doing anything else, make sure we have an SBCL to install
if [ -f src/runtime/sbcl ]; then
if [ -f output/sbcl.core ]; then
true
true
else
echo "output/sbcl.core not found, aborting installation."
exit 1
echo "output/sbcl.core not found, aborting installation."
exit 1
fi
else
echo "src/runtime/sbcl not found, aborting installation."
@ -58,7 +58,7 @@ test -f $BUILD_ROOT$SBCL_HOME/sbcl.core && \
cp src/runtime/sbcl $BUILD_ROOT$INSTALL_ROOT/bin/
cp output/sbcl.core $BUILD_ROOT$SBCL_HOME/sbcl.core
# installing contrib
# installing contrib
SBCL="`pwd`/src/runtime/sbcl --noinform --core `pwd`/output/sbcl.core --userinit /dev/null --sysinit /dev/null --disable-debugger"
SBCL_BUILDING_CONTRIB=1

259
make-config.sh
View file

@ -17,6 +17,74 @@ set -e
# provided with absolutely no warranty. See the COPYING and CREDITS
# files for more information.
case `uname` in
Linux)
sbcl_os="linux"
;;
OSF1)
# it's changed name twice since it was called OSF/1: clearly
# the marketers forgot to tell the engineers about Digital Unix
# _or_ OSF/1 ...
sbcl_os="osf1"
;;
*BSD)
case `uname` in
FreeBSD)
sbcl_os="freebsd"
;;
OpenBSD)
sbcl_os="openbsd"
;;
NetBSD)
sbcl_os="netbsd"
;;
*)
echo unsupported BSD variant: `uname`
exit 1
;;
esac
;;
Darwin)
sbcl_os="darwin"
;;
SunOS)
sbcl_os="sunos"
;;
CYGWIN* | WindowsNT | MINGW*)
sbcl_os="win32"
;;
*)
echo unsupported OS type: `uname`
exit 1
;;
esac
link_or_copy() {
if [ "$sbcl_os" = "win32" ] ; then
cp -r "$1" "$2"
else
ln -s "$1" "$2"
fi
}
remove_dir_safely() {
if [ "$sbcl_os" = "win32" ] ; then
if [ -d "$1" ] ; then
rm -rf "$1"
elif [ -e "$1" ] ; then
echo "I'm afraid to remove non-directory $1."
exit 1
fi
else
if [ -h "$1" ] ; then
rm "$1"
elif [ -w "$1" ] ; then
echo "I'm afraid to replace non-symlink $1 with a symlink."
exit 1
fi
fi
}
echo //entering make-config.sh
echo //ensuring the existence of output/ directory
@ -30,10 +98,10 @@ echo ';;;; See make-config.sh.' >> $ltf
printf '(' >> $ltf
echo //guessing default target CPU architecture from host architecture
case `uname -m` in
*86) guessed_sbcl_arch=x86 ;;
case `uname -m` in
*86) guessed_sbcl_arch=x86 ;;
i86pc) guessed_sbcl_arch=x86 ;;
*x86_64) guessed_sbcl_arch=x86-64 ;;
*x86_64) guessed_sbcl_arch=x86-64 ;;
[Aa]lpha) guessed_sbcl_arch=alpha ;;
sparc*) guessed_sbcl_arch=sparc ;;
sun*) guessed_sbcl_arch=sparc ;;
@ -43,10 +111,10 @@ case `uname -m` in
mips*) guessed_sbcl_arch=mips ;;
*)
# If we're not building on a supported target architecture, we
# we have no guess, but it's not an error yet, since maybe
# target architecture will be specified explicitly below.
guessed_sbcl_arch=''
;;
# we have no guess, but it's not an error yet, since maybe
# target architecture will be specified explicitly below.
guessed_sbcl_arch=''
;;
esac
echo //setting up CPU-architecture-dependent information
@ -56,35 +124,28 @@ if [ "$sbcl_arch" = "" ] ; then
echo "can't guess target SBCL architecture, need SBCL_ARCH environment var"
exit 1
fi
printf ":%s" "$sbcl_arch" >> $ltf
printf ":%s" "$sbcl_arch" >> $ltf
for d in src/compiler src/assembly; do
echo //setting up symlink $d/target
original_dir=`pwd`
remove_dir_safely "$d/target"
cd ./$d
if [ -h target ] ; then
rm target
elif [ -w target ] ; then
echo "I'm afraid to replace non-symlink $d/target with a symlink."
exit 1
fi
if [ -d $sbcl_arch ] ; then
ln -s $sbcl_arch target
link_or_copy $sbcl_arch target
else
echo "missing sbcl_arch directory $PWD/$sbcl_arch"
exit 1
echo "missing sbcl_arch directory $PWD/$sbcl_arch"
exit 1
fi
cd $original_dir
done
echo //setting up symlink src/compiler/assembly
if [ -h src/compiler/assembly ] ; then
rm src/compiler/assembly
elif [ -w src/compiler/assembly ] ; then
echo "I'm afraid to replace non-symlink compiler/assembly with a symlink."
exit 1
fi
ln -s ../assembly src/compiler/assembly
remove_dir_safely src/compiler/assembly
original_dir=`pwd`
cd src/compiler
link_or_copy ../assembly assembly
cd $original_dir
echo //setting up OS-dependent information
original_dir=`pwd`
@ -93,82 +154,78 @@ rm -f Config target-arch-os.h target-arch.h target-os.h target-lispregs.h
# KLUDGE: these two logically belong in the previous section
# ("architecture-dependent"); it seems silly to enforce this in terms
# of the shell script, though. -- CSR, 2002-02-03
ln -s $sbcl_arch-arch.h target-arch.h
ln -s $sbcl_arch-lispregs.h target-lispregs.h
case `uname` in
Linux)
printf ' :elf' >> $ltf
printf ' :linux' >> $ltf
sbcl_os="linux"
if [ $sbcl_arch = "x86-64" ]; then
ln -s Config.x86_64-linux Config
else
ln -s Config.$sbcl_arch-linux Config
fi
ln -s $sbcl_arch-linux-os.h target-arch-os.h
ln -s linux-os.h target-os.h
;;
OSF1)
# it's changed name twice since it was called OSF/1: clearly
# the marketers forgot to tell the engineers about Digital Unix
# _or_ OSF/1 ...
printf ' :elf' >> $ltf
printf ' :osf1' >> $ltf
sbcl_os="osf1"
ln -s Config.$sbcl_arch-osf1 Config
ln -s $sbcl_arch-osf1-os.h target-arch-os.h
ln -s osf1-os.h target-os.h
;;
*BSD)
printf ' :bsd' >> $ltf
ln -s $sbcl_arch-bsd-os.h target-arch-os.h
ln -s bsd-os.h target-os.h
case `uname` in
FreeBSD)
printf ' :elf' >> $ltf
printf ' :freebsd' >> $ltf
sbcl_os="freebsd"
ln -s Config.$sbcl_arch-freebsd Config
;;
OpenBSD)
printf ' :elf' >> $ltf
printf ' :openbsd' >> $ltf
sbcl_os="openbsd"
ln -s Config.$sbcl_arch-openbsd Config
;;
NetBSD)
link_or_copy $sbcl_arch-arch.h target-arch.h
link_or_copy $sbcl_arch-lispregs.h target-lispregs.h
case "$sbcl_os" in
linux)
printf ' :elf' >> $ltf
printf ' :linux' >> $ltf
if [ $sbcl_arch = "x86-64" ]; then
link_or_copy Config.x86_64-linux Config
else
link_or_copy Config.$sbcl_arch-linux Config
fi
link_or_copy $sbcl_arch-linux-os.h target-arch-os.h
link_or_copy linux-os.h target-os.h
;;
osf1)
printf ' :elf' >> $ltf
printf ' :osf1' >> $ltf
link_or_copy Config.$sbcl_arch-osf1 Config
link_or_copy $sbcl_arch-osf1-os.h target-arch-os.h
link_or_copy osf1-os.h target-os.h
;;
*bsd)
printf ' :bsd' >> $ltf
link_or_copy $sbcl_arch-bsd-os.h target-arch-os.h
link_or_copy bsd-os.h target-os.h
case "$sbcl_os" in
freebsd)
printf ' :elf' >> $ltf
printf ' :freebsd' >> $ltf
link_or_copy Config.$sbcl_arch-freebsd Config
;;
openbsd)
printf ' :elf' >> $ltf
printf ' :openbsd' >> $ltf
link_or_copy Config.$sbcl_arch-openbsd Config
;;
netbsd)
printf ' :netbsd' >> $ltf
printf ' :elf' >> $ltf
sbcl_os="netbsd"
ln -s Config.$sbcl_arch-netbsd Config
;;
*)
echo unsupported BSD variant: `uname`
exit 1
;;
esac
;;
Darwin)
printf ' :mach-o' >> $ltf
printf ' :bsd' >> $ltf
sbcl_os="darwin"
ln -s $sbcl_arch-darwin-os.h target-arch-os.h
ln -s bsd-os.h target-os.h
printf ' :darwin' >> $ltf
ln -s Config.$sbcl_arch-darwin Config
;;
SunOS)
printf ' :elf' >> $ltf
printf ' :elf' >> $ltf
link_or_copy Config.$sbcl_arch-netbsd Config
;;
*)
echo unsupported BSD variant: `uname`
exit 1
;;
esac
;;
darwin)
printf ' :mach-o' >> $ltf
printf ' :bsd' >> $ltf
link_or_copy $sbcl_arch-darwin-os.h target-arch-os.h
link_or_copy bsd-os.h target-os.h
printf ' :darwin' >> $ltf
link_or_copy Config.$sbcl_arch-darwin Config
;;
sunos)
printf ' :elf' >> $ltf
printf ' :sunos' >> $ltf
sbcl_os="sunos"
ln -s Config.$sbcl_arch-sunos Config
ln -s $sbcl_arch-sunos-os.h target-arch-os.h
ln -s sunos-os.h target-os.h
;;
link_or_copy Config.$sbcl_arch-sunos Config
link_or_copy $sbcl_arch-sunos-os.h target-arch-os.h
link_or_copy sunos-os.h target-os.h
;;
win32)
printf ' :win32' >> $ltf
link_or_copy Config.$sbcl_arch-win32 Config
link_or_copy $sbcl_arch-win32-os.h target-arch-os.h
link_or_copy win32-os.h target-os.h
;;
*)
echo unsupported OS type: `uname`
exit 1
;;
echo unsupported OS type: `uname`
exit 1
;;
esac
cd $original_dir
@ -198,7 +255,7 @@ if [ "$sbcl_arch" = "x86" ]; then
printf ' :gencgc :stack-grows-downward-not-upward :c-stack-is-control-stack' >> $ltf
printf ' :stack-allocatable-closures :alien-callbacks' >> $ltf
if [ "$sbcl_os" = "linux" ] || [ "$sbcl_os" = "freebsd" ] || [ "$sbcl_os" = "netbsd" ] || [ "$sbcl_os" = "sunos" ]; then
printf ' :linkage-table' >> $ltf
printf ' :linkage-table' >> $ltf
fi
elif [ "$sbcl_arch" = "x86-64" ]; then
printf ' :gencgc :stack-grows-downward-not-upward :c-stack-is-control-stack :linkage-table' >> $ltf
@ -233,13 +290,13 @@ elif [ "$sbcl_arch" = "ppc" -a "$sbcl_os" = "darwin" ]; then
exit 1
fi
elif [ "$sbcl_arch" = "sparc" ]; then
# Test the compiler in order to see if we are building on Sun
# Test the compiler in order to see if we are building on Sun
# toolchain as opposed to GNU binutils, and write the appropriate
# FUNCDEF macro for assembler. No harm in running this on sparc-linux
# FUNCDEF macro for assembler. No harm in running this on sparc-linux
# as well.
sh tools-for-build/sparc-funcdef.sh > src/runtime/sparc-funcdef.h
if [ "$sbcl_os" = "sunos" ] || [ "$sbcl_os" = "linux" ]; then
printf ' :linkage-table' >> $ltf
printf ' :linkage-table' >> $ltf
fi
printf ' :stack-allocatable-closures' >> $ltf
elif [ "$sbcl_arch" = "alpha" ]; then

2
make-genesis-2.sh
View file

@ -27,7 +27,7 @@ echo //entering make-genesis-2.sh
# symbol table data on the C runtime. And we can get that symbol
# data only after the C runtime has been built. Therefore, even
# though we ran GENESIS earlier, we couldn't get it to make a .core
# file at that time; but we needed to run it earlier in order to
# file at that time; but we needed to run it earlier in order to
# get to where we can write a .core file.)
echo //loading and running GENESIS to create cold-sbcl.core
$SBCL_XC_HOST < make-genesis-2.lisp

2
make-target-1.sh
View file

@ -24,7 +24,7 @@ export LANG LC_ALL
#
# (This C build has to come after the first genesis in order to get
# the sbcl.h the C build needs, and come before the second genesis in
# order to produce the symbol table file that second genesis needs. It
# order to produce the symbol table file that second genesis needs. It
# could come either before or after running the cross compiler; that
# doesn't matter.)
echo //building runtime system and symbol table file

8
make-target-contrib.sh
View file

@ -51,7 +51,7 @@ done
for i in contrib/*; do
test -d $i && test -f $i/Makefile || continue;
# export INSTALL_DIR=$SBCL_HOME/`basename $i `
test -f $i/test-passed && rm $i/test-passed
test -f $i/test-passed && rm $i/test-passed
$GNUMAKE -C $i test && touch $i/test-passed
done
@ -62,10 +62,10 @@ for dir in contrib/*
do
if [ -d "$dir" -a -f "$dir/Makefile" -a ! -f "$dir/test-passed" ]; then
if $HEADER_HAS_BEEN_PRINTED; then
echo > /dev/null
echo > /dev/null
else
echo "Failed contribs:"
HEADER_HAS_BEEN_PRINTED=true
echo "Failed contribs:"
HEADER_HAS_BEEN_PRINTED=true
fi
echo " `basename $dir`"
fi

10
make.sh
View file

@ -33,7 +33,7 @@ set -e
# endlessly for a programmer to help it out with input
# on *DEBUG-IO*
# "lisp -batch" to use an existing CMU CL binary as a cross-compilation host
# "lisp -noinit -batch"
# "lisp -noinit -batch"
# to use an existing CMU CL binary as a cross-compilation host
# when you have weird things in your .cmucl-init file
# "openmcl --batch"
@ -50,7 +50,7 @@ set -e
# optimizations (especially specializable arrays) that it doesn't
# know how to implement how in a portable way. (Or maybe that wouldn't
# require a second pass, just testing at build-the-cross-compiler time
# whether the cross-compilation host returns suitable values from
# whether the cross-compilation host returns suitable values from
# UPGRADED-ARRAY-ELEMENT-TYPE?)
LANG=C
@ -87,7 +87,7 @@ tools-for-build/canonicalize-whitespace
# identify the target architecture).
# On the host system:
# SBCL_XC_HOST=<whatever> sh make-host-1.sh
# Copy src/runtime/genesis/*.h from the host system to the target
# Copy src/runtime/genesis/*.h from the host system to the target
# system.
# On the target system:
# sh make-target-1.sh
@ -112,7 +112,7 @@ NCONTRIBS=`find contrib -name Makefile -print | wc -l`
NPASSED=`find contrib -name test-passed -print | wc -l`
echo
echo "The build seems to have finished successfully, including $NPASSED (out of $NCONTRIBS)"
echo "contributed modules. If you would like to run more extensive tests on"
echo "contributed modules. If you would like to run more extensive tests on"
echo "the new SBCL, you can try:"
echo
echo " cd tests && sh ./run-tests.sh"
@ -127,7 +127,7 @@ echo " cd doc/manual && make"
echo
echo "To install SBCL (more information in INSTALL):"
echo
echo " sh install.sh"
echo " sh install.sh"
build_finished=`date`
echo

12
slam.sh
View file

@ -22,7 +22,7 @@ set -e
# This script is not a reliable way to build the system, but it is
# fast.:-| It can be useful if you are trying to debug a low-level
# problem, e.g. a problem in src/runtime/*.c or in
# src/code/cold-init.lisp. Soon, you'll find yourself wanting to
# src/code/cold-init.lisp. Soon, you'll find yourself wanting to
# test a small change in a file compiled into cold-sbcl.core without
# redoing the entire rebuild-the-system-from-scratch process. You may be
# able to avoid a complete make-host-2.sh by just letting this script
@ -57,10 +57,10 @@ set -e
# Mostly it looks as though such limitations aren't fixable without
# the aforementioned rearchitecting or solving the halting problem.
#
# To make this work, you need an after-xc.core file. To cause the
# To make this work, you need an after-xc.core file. To cause the
# system to generate an after-xc.core file, you need
# :SB-AFTER-XC-CORE in target features during an ordinary build.
# See the comments in base-target-features.lisp-expr for the
# See the comments in base-target-features.lisp-expr for the
# recommended way to make that happen.
#######################################################################
@ -89,9 +89,9 @@ case "$HOST_TYPE" in
;;
openmcl)
LISP="openmcl"
INIT="-b"
CORE="-I"
;;
INIT="-b"
CORE="-I"
;;
*) echo unknown host type: "$HOST_TYPE"
echo should be one of "sbcl", "cmucl", or "clisp"
exit 1

2
source-distribution.sh
View file

@ -4,4 +4,4 @@ set -e
# Create a source distribution. (You should run clean.sh first.)
b=${1:?missing base directory name argument}
tar cf $b-source.tar $b
tar cf $b-source.tar $b

18
src/runtime/Config.x86-win32
View file

@ -25,15 +25,19 @@ OS_SRC = win32-os.c x86-win32-os.c os-common.c
# (You *are* encouraged to design and implement a coherent stable
# interface, though.:-| As far as I (WHN 2002-05-19) know, no one is
# working on one and it would be a nice thing to have.)
OS_LINK_FLAGS = -Wl,--export-dynamic
OS_LIBS =
OS_LINK_FLAGS = -Wl,--export-dynamic,-mno-cygwin
OS_LIBS = -mno-cygwin
GC_SRC = gencgc.c
CFLAGS = -g -Wall -O3
CFLAGS = -g -Wall -O3 -mno-cygwin
ASFLAGS = $(CFLAGS)
CPP = /opt/xmingw/bin/i386-mingw32msvc-cpp
CC = /opt/xmingw/bin/i386-mingw32msvc-gcc
LD = /opt/xmingw/bin/i386-mingw32msvc-ld
NM = /opt/xmingw/bin/i386-mingw32msvc-nm
CPP = cpp
CC = gcc
LD = ld
NM = nm
# Nothing to do for after-grovel-headers.
.PHONY: after-grovel-headers
after-grovel-headers:

4
tests/clocc-ansi.test.sh
View file

@ -20,7 +20,7 @@
# While most of SBCL is derived from the CMU CL system, the test
# files (like this one) were written from scratch after the fork
# from CMU CL.
#
#
# This software is in the public domain and is provided with
# absolutely no warranty. See the COPYING and CREDITS files for
# more information.
@ -32,7 +32,7 @@ originalpwd=`pwd`
if [ "$SBCL_CLOCC_ANSI_TEST" = "" ] ; then
echo //punting clocc ansi-test because SBCL_CLOCC_ANSI_TEST is undefined
exit 104
else
else
echo //going on to run clocc ansi-test in $SBCL_CLOCC_ANSI_TEST
cd $SBCL_CLOCC_ANSI_TEST
fi

6
tests/clos.test.sh
View file

@ -6,7 +6,7 @@
# While most of SBCL is derived from the CMU CL system, the test
# files (like this one) were written from scratch after the fork
# from CMU CL.
#
#
# This software is in the public domain and is provided with
# absolutely no warranty. See the COPYING and CREDITS files for
# more information.
@ -61,7 +61,7 @@ expect_load_error $tmpfilename
# succession.
cat > $tmpfilename <<EOF
(in-package :cl-user)
(defclass another-class-with-slots ()
(defclass another-class-with-slots ()
(a-new-slot-name))
(defun foo (x)
(values (setf (slot-value x 'a-new-slot-name) 2)
@ -72,5 +72,5 @@ expect_clean_compile $tmpfilename
rm $tmpfilename
rm $compiled_tmpfilename
# success
# success
exit 104

18
tests/compiler.test.sh
View file

@ -6,7 +6,7 @@
# While most of SBCL is derived from the CMU CL system, the test
# files (like this one) were written from scratch after the fork
# from CMU CL.
#
#
# This software is in the public domain and is provided with
# absolutely no warranty. See the COPYING and CREDITS files for
# more information.
@ -39,11 +39,11 @@ expect_failed_compile $tmpfilename
# having the same name.
cat > $tmpfilename <<EOF
(in-package :cl-user)
(defun foo (x)
(defun foo (x)
(flet ((baz (y) (load y)))
(declare (notinline baz))
(baz x)))
(defun bar (x)
(defun bar (x)
(flet ((baz (y) (load y)))
(declare (notinline baz))
(baz x)))
@ -93,7 +93,7 @@ expect_clean_compile $tmpfilename
cat > $tmpfilename <<EOF
(in-package :cl-user)
(defun foo (x) (list x))
(defun bar (x)
(defun bar (x)
(declare (notinline foo))
(1+ (foo x)))
EOF
@ -162,12 +162,12 @@ fail_on_compiler_note $tmpfilename
# been there
cat > $tmpfilename <<EOF
(eval-when (:compile-toplevel :load-toplevel :execute)
(defstruct buffer-state
(defstruct buffer-state
(output-index 0)))
(defclass buffered-stream-mixin ()
((buffer-state :initform (make-buffer-state))))
(defgeneric frob (stream))
(defmethod frob ((stream t))
nil)
@ -320,7 +320,7 @@ expect_clean_compile $tmpfilename
cat > $tmpfilename <<EOF
(defun bar ()
(let ((result ""))
(nreverse result)))
(nreverse result)))
EOF
expect_clean_compile $tmpfilename
@ -355,5 +355,5 @@ expect_clean_compile $tmpfilename
rm $tmpfilename
rm $compiled_tmpfilename
# success
# success
exit 104

4
tests/core.test.sh
View file

@ -8,7 +8,7 @@
# While most of SBCL is derived from the CMU CL system, the test
# files (like this one) were written from scratch after the fork
# from CMU CL.
#
#
# This software is in the public domain and is provided with
# absolutely no warranty. See the COPYING and CREDITS files for
# more information.
@ -41,7 +41,7 @@ fi
# In sbcl-0.9.8 saving cores with callbacks didn't work on gencgc platforms
$SBCL <<EOF
(defun bar ()
(defun bar ()
(format t "~&Callbacks not supported, skipping~%")
(quit :unix-status 42))
#+alien-callbacks

38
tests/expect.sh
View file

@ -7,36 +7,36 @@ expect_load_error ()
{
# Test compiling and loading.
$SBCL <<EOF
(compile-file "$1")
;;; But loading the file should fail.
(multiple-value-bind (value0 value1) (ignore-errors (load *))
(assert (null value0))
(format t "VALUE1=~S (~A)~%" value1 value1)
(assert (typep value1 'error)))
(sb-ext:quit :unix-status 52)
(compile-file "$1")
;;; But loading the file should fail.
(multiple-value-bind (value0 value1) (ignore-errors (load *))
(assert (null value0))
(format t "VALUE1=~S (~A)~%" value1 value1)
(assert (typep value1 'error)))
(sb-ext:quit :unix-status 52)
EOF
if [ $? != 52 ]; then
echo compile-and-load $1 test failed: $?
exit 1
echo compile-and-load $1 test failed: $?
exit 1
fi
# Test loading into the interpreter.
$SBCL <<EOF
(multiple-value-bind (value0 value1) (ignore-errors (load "$1"))
(assert (null value0))
(format t "VALUE1=~S (~A)~%" value1 value1)
(assert (typep value1 'error)))
(sb-ext:quit :unix-status 52)
(multiple-value-bind (value0 value1) (ignore-errors (load "$1"))
(assert (null value0))
(format t "VALUE1=~S (~A)~%" value1 value1)
(assert (typep value1 'error)))
(sb-ext:quit :unix-status 52)
EOF
if [ $? != 52 ]; then
echo load-into-interpreter $1 test failed: $?
exit 1
echo load-into-interpreter $1 test failed: $?
exit 1
fi
}
# Test that a file compiles cleanly, with no ERRORs, WARNINGs or
# STYLE-WARNINGs.
expect_clean_compile ()
expect_clean_compile ()
{
$SBCL <<EOF
(multiple-value-bind (pathname warnings-p failure-p)
@ -105,7 +105,7 @@ expect_compiler_note ()
(compile-file "$1"))
EOF
if [ $? != 52 ]; then
echo expect-compiler-note $1 test failed: $?
exit 1
echo expect-compiler-note $1 test failed: $?
exit 1
fi
}

62
tests/filesys.test.sh
View file

@ -6,7 +6,7 @@
# While most of SBCL is derived from the CMU CL system, the test
# files (like this one) were written from scratch after the fork
# from CMU CL.
#
#
# This software is in the public domain and is provided with
# absolutely no warranty. See the COPYING and CREDITS files for
# more information.
@ -109,28 +109,28 @@ $SBCL <<EOF
(defun absolutify (pathname)
"Convert a possibly-relative pathname to absolute."
(merge-pathnames pathname
(make-pathname :directory
(pathname-directory
*default-pathname-defaults*))))
(make-pathname :directory
(pathname-directory
*default-pathname-defaults*))))
(defun sorted-truenamestrings (pathname-designators)
"Convert a collection of pathname designators into canonical form
using TRUENAME, NAMESTRING, and SORT."
(sort (mapcar #'namestring
(mapcar #'truename
pathname-designators))
#'string<))
(mapcar #'truename
pathname-designators))
#'string<))
(defun need-match-1 (directory-pathname result-sorted-truenamestrings)
"guts of NEED-MATCH"
(let ((directory-sorted-truenamestrings (sorted-truenamestrings
(directory directory-pathname))))
(directory directory-pathname))))
(unless (equal directory-sorted-truenamestrings
result-sorted-truenamestrings)
result-sorted-truenamestrings)
(format t "~&~@<DIRECTORY argument = ~_~2I~S~:>~%"
directory-pathname)
directory-pathname)
(format t "~&~@<DIRECTORY result = ~_~2I~S~:>~%"
directory-sorted-truenamestrings)
directory-sorted-truenamestrings)
(format t "~&~@<expected result = ~_~2I~S.~:>~%"
result-sorted-truenamestrings)
result-sorted-truenamestrings)
(error "mismatch between DIRECTORY and expected result"))))
(defun need-match (directory-pathname result-pathnames)
"Require that (DIRECTORY DIRECTORY-PATHNAME) return RESULT-PATHNAMES
@ -156,34 +156,34 @@ Lisp filename syntax idiosyncrasies)."
(need-match "./animal" '("animal/"))
(need-match "animal/*.*" '("animal/invertebrate/" "animal/vertebrate/"))
(need-match "animal/*/*.*"
'("animal/vertebrate/bird/"
"animal/vertebrate/mammal/"
"animal/vertebrate/snake/"))
'("animal/vertebrate/bird/"
"animal/vertebrate/mammal/"
"animal/vertebrate/snake/"))
(need-match "plant/*.*" '("plant/kingsfoil" "plant/pipeweed"))
(need-match "plant/**/*.*" '("plant/kingsfoil" "plant/pipeweed"))
(need-match "plant/**/**/*.*" '("plant/kingsfoil" "plant/pipeweed"))
(let ((vertebrates (mapcar (lambda (stem)
(concatenate 'string
"animal/vertebrate/"
stem))
'("bird/"
"mammal/"
"mammal/bear/" "mammal/bear/grizzly"
"mammal/mythical/" "mammal/mythical/mermaid"
"mammal/mythical/unicorn"
"mammal/platypus"
"mammal/rodent/" "mammal/rodent/beaver"
"mammal/rodent/mouse" "mammal/rodent/rabbit"
"mammal/rodent/rat"
"mammal/ruminant/" "mammal/ruminant/cow"
"mammal/walrus"
"snake/" "snake/python"))))
(concatenate 'string
"animal/vertebrate/"
stem))
'("bird/"
"mammal/"
"mammal/bear/" "mammal/bear/grizzly"
"mammal/mythical/" "mammal/mythical/mermaid"
"mammal/mythical/unicorn"
"mammal/platypus"
"mammal/rodent/" "mammal/rodent/beaver"
"mammal/rodent/mouse" "mammal/rodent/rabbit"
"mammal/rodent/rat"
"mammal/ruminant/" "mammal/ruminant/cow"
"mammal/walrus"
"snake/" "snake/python"))))
(need-match "animal/vertebrate/**/*.*" vertebrates)
(need-match "animal/vertebrate/mammal/../**/*.*" vertebrates)
(need-match "animal/vertebrate/mammal/../**/**/*.*" vertebrates)
#+nil
(need-match "animal/vertebrate/mammal/mythical/../**/../**/*.*"
vertebrates))
vertebrates))
(need-match "animal/vertebrate/**/robot.*" nil)
(need-match "animal/vertebrate/mammal/../**/*.robot" nil)
(need-match "animal/vertebrate/mammal/../**/robot/*.*" nil)

30
tests/finalize.test.sh
View file

@ -19,12 +19,12 @@ ${SBCL:-sbcl} <<EOF > /dev/null &
(let ((junk (mapcar (lambda (_)
(declare (ignore _))
(let ((x (gensym)))
(finalize x (lambda ()
;; cons in finalizer
(finalize x (lambda ()
;; cons in finalizer
(setf *tmp* (make-list 10000))
(incf *count*)))
x))
(make-list 10000))))
(incf *count*)))
x))
(make-list 10000))))
(setf junk (foo junk))
(foo junk))
@ -46,21 +46,21 @@ WAITED=0
echo "Waiting for SBCL to finish stress-testing finalizers"
while true; do
if [ -f finalize-test-passed ]; then
echo "OK"
rm finalize-test-passed
exit 104 # Success
echo "OK"
rm finalize-test-passed
exit 104 # Success
elif [ -f finalize-test-failed ]; then
echo "Failed"
rm finalize-test-failed
exit 1 # Failure
echo "Failed"
rm finalize-test-failed
exit 1 # Failure
fi
sleep 1
WAITED=$(($WAITED+1))
if (($WAITED>60)); then
echo
echo "timeout, killing SBCL"
kill -9 $SBCL_PID
exit 1 # Failure, SBCL probably hanging in GC
echo
echo "timeout, killing SBCL"
kill -9 $SBCL_PID
exit 1 # Failure, SBCL probably hanging in GC
fi
done

28
tests/run-program.test.sh
View file

@ -8,7 +8,7 @@
# While most of SBCL is derived from the CMU CL system, the test
# files (like this one) were written from scratch after the fork
# from CMU CL.
#
#
# This software is in the public domain and is provided with
# absolutely no warranty. See the COPYING and CREDITS files for
# more information.
@ -22,10 +22,10 @@ export PATH
${SBCL:-sbcl} <<EOF
;; test that $PATH is searched
(assert (zerop (sb-ext:process-exit-code
(sb-ext:run-program "true" () :search t :wait t))))
(assert (not (zerop (sb-ext:process-exit-code
(sb-ext:run-program "false" () :search t :wait t)))))
(assert (zerop (sb-ext:process-exit-code
(sb-ext:run-program "true" () :search t :wait t))))
(assert (not (zerop (sb-ext:process-exit-code
(sb-ext:run-program "false" () :search t :wait t)))))
(let ((string (with-output-to-string (stream)
(sb-ext:run-program "/bin/echo"
'("foo" "bar")
@ -36,8 +36,8 @@ ${SBCL:-sbcl} <<EOF
;; (instead of CMU CL alist-of-keywords convention).
(let ((string (with-output-to-string (stream)
(sb-ext:run-program "/usr/bin/env" ()
:output stream
:environment '("FEEFIE=foefum")))))
:output stream
:environment '("FEEFIE=foefum")))))
(assert (string= string "FEEFIE=foefum
")))
;; The default Unix environment for the subprocess is the same as
@ -45,13 +45,13 @@ ${SBCL:-sbcl} <<EOF
;; other programs, but not like CMU CL.)
(let ((string (with-output-to-string (stream)
(sb-ext:run-program "/usr/bin/env" ()
:output stream)))
(expected (apply #'concatenate
'string
(mapcar (lambda (environ-string)
(concatenate 'string
environ-string
(string #\newline)))
:output stream)))
(expected (apply #'concatenate
'string
(mapcar (lambda (environ-string)
(concatenate 'string
environ-string
(string #\newline)))
(sb-ext:posix-environ)))))
(assert (string= string expected)))
;; That's not just because POSIX-ENVIRON is having a bad hair

4
tests/run-tests.sh
View file

@ -6,7 +6,7 @@
# --break-on-failure Break into the debugger when a test fails
# unexpectedly
# --break-on-expected-failure Break into the debugger when any test fails
#
#
# If no test files are specified, runs all tests.
# This software is part of the SBCL system. See the README file for
@ -15,7 +15,7 @@
# While most of SBCL is derived from the CMU CL system, the test
# files (like this one) were written from scratch after the fork
# from CMU CL.
#
#
# This software is in the public domain and is provided with
# absolutely no warranty. See the COPYING and CREDITS files for
# more information.

2
tests/side-effectful-pathnames.test.sh
View file

@ -6,7 +6,7 @@
# While most of SBCL is derived from the CMU CL system, the test
# files (like this one) were written from scratch after the fork
# from CMU CL.
#
#
# This software is in the public domain and is provided with
# absolutely no warranty. See the COPYING and CREDITS files for
# more information.

2
tests/stress-gc.sh
View file

@ -6,7 +6,7 @@
# While most of SBCL is derived from the CMU CL system, the test
# files (like this one) were written from scratch after the fork
# from CMU CL.
#
#
# This software is in the public domain and is provided with
# absolutely no warranty. See the COPYING and CREDITS files for
# more information.

2
tests/toplevel.sh
View file

@ -9,7 +9,7 @@
# While most of SBCL is derived from the CMU CL system, the test
# files (like this one) were written from scratch after the fork
# from CMU CL.
#
#
# This software is in the public domain and is provided with
# absolutely no warranty. See the COPYING and CREDITS files for
# more information.

2
tools-for-build/grovel-features.sh
View file

@ -12,7 +12,7 @@ featurep() {
$GNUMAKE $bin -I ../src/runtime > /dev/null 2>&1 && ./$bin > /dev/null 2>&1
if [ "$?" = 104 ]
then
printf " :$1"
printf " :$1"
fi
rm -f $bin
}

32
tools-for-build/grovel-headers.c
View file

@ -20,22 +20,27 @@
#include <stdio.h>
#include <sys/types.h>
#include <sys/times.h>
#ifdef _WIN32
#include <stdlib.h>
#else
#include <sys/times.h>
#include <sys/wait.h>
#include <sys/ioctl.h>
#include <sys/termios.h>
#ifdef __APPLE_CC__
#include "../src/runtime/ppc-darwin-dlshim.h"
#include "../src/runtime/ppc-darwin-langinfo.h"
#else
#include <dlfcn.h>
#include <langinfo.h>
#endif
#endif
#include <sys/stat.h>
#include <sys/wait.h>
#include <sys/ioctl.h>
#include <sys/termios.h>
#include <fcntl.h>
#include <unistd.h>
#include <signal.h>
#include <errno.h>
#ifdef __APPLE_CC__
#include "../src/runtime/ppc-darwin-dlshim.h"
#include "../src/runtime/ppc-darwin-langinfo.h"
#else
#include <dlfcn.h>
#include <langinfo.h>
#endif
#include "genesis/config.h"
@ -74,7 +79,9 @@ main(int argc, char *argv[])
;;;; See the program \"grovel-headers.c\".\n\
\n\
");
#ifdef _WIN32
printf (";;; This file is presently unused for the Windows version of sbcl.\n");
#else
printf("(in-package \"SB!ALIEN\")\n\n");
printf (";;;flags for dlopen()\n");
@ -223,5 +230,6 @@ main(int argc, char *argv[])
defsignal("sigxcpu", SIGXCPU);
defsignal("sigxfsz", SIGXFSZ);
#endif
#endif // _WIN32
return 0;
}

22
tools-for-build/sparc-funcdef.sh
View file

@ -2,23 +2,23 @@ cd ./tools-for-build
TMP=sparc-funcdef.S
SUN_FUNCDEF="#define FUNCDEF(x) .type x, #function"
GNU_FUNCDEF="#define FUNCDEF(x) .type x,@function"
SUN_FUNCDEF="#define FUNCDEF(x) .type x, #function"
GNU_FUNCDEF="#define FUNCDEF(x) .type x,@function"
echo $SUN_FUNCDEF > $TMP
# cribbed from ldso_stubs, just "some code"
echo "
.globl ldso_stub__printf ;
FUNCDEF(ldso_stub__printf) ;
ldso_stub__printf: ;
sethi %hi(printf),%g1 ;
jmpl %g1+%lo(printf),%g0 ;
nop /* delay slot*/ ;
.Lprintfe1: ;
.size ldso_stub__printf,.Lprintfe1-ldso_stub__printf ;" >> $TMP
.globl ldso_stub__printf ;
FUNCDEF(ldso_stub__printf) ;
ldso_stub__printf: ;
sethi %hi(printf),%g1 ;
jmpl %g1+%lo(printf),%g0 ;
nop /* delay slot*/ ;
.Lprintfe1: ;
.size ldso_stub__printf,.Lprintfe1-ldso_stub__printf ;" >> $TMP
if $GNUMAKE sparc-funcdef.o > /dev/null 2>&1 ; then
echo $SUN_FUNCDEF
echo $SUN_FUNCDEF
else
echo $GNU_FUNCDEF
fi

2
tools-for-build/whitespacely-canonical-filenames
View file

@ -11,7 +11,7 @@
# conservative syntax used in SBCL sources)
source_extensions='.lisp .lisp-expr .c .h'
# other candidates:
# .sh
# .sh: if ./make.sh is altered, Bad Things happen
# ?
for source_extension in $source_extensions; do

2
version.lisp-expr
View file

@ -17,4 +17,4 @@
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
"0.9.8.26"
"0.9.8.27"