/* -*-C-*-
-$Id: copyright.c,v 1.3 2002/11/20 18:32:26 cph Exp $
+$Id: copyright.c,v 1.4 2005/12/13 06:40:58 cph Exp $
-Copyright 2002 Massachusetts Institute of Technology
+Copyright 2005 Massachusetts Institute of Technology
-This file is part of MIT Scheme.
+This file is part of MIT/GNU Scheme.
-MIT Scheme 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 2 of the License, or (at your
-option) any later version.
+MIT/GNU Scheme 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 2 of the License, or (at
+your option) any later version.
-MIT Scheme is distributed in the hope that it will be useful, but
+MIT/GNU Scheme 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 MIT Scheme; if not, write to the Free Software Foundation,
-Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
+along with MIT/GNU Scheme; if not, write to the Free Software
+Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301,
+USA.
*/
#| -*-Scheme-*-
-$Id: copyright.scm,v 1.3 2002/11/20 18:32:19 cph Exp $
+$Id: copyright.scm,v 1.4 2005/12/13 06:41:00 cph Exp $
-Copyright 2002 Massachusetts Institute of Technology
+Copyright 2005 Massachusetts Institute of Technology
-This file is part of MIT Scheme.
+This file is part of MIT/GNU Scheme.
-MIT Scheme 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 2 of the License, or (at your
-option) any later version.
+MIT/GNU Scheme 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 2 of the License, or (at
+your option) any later version.
-MIT Scheme is distributed in the hope that it will be useful, but
+MIT/GNU Scheme 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 MIT Scheme; if not, write to the Free Software Foundation,
-Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+along with MIT/GNU Scheme; if not, write to the Free Software
+Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301,
+USA.
|#
#!/bin/sh
-# $Id: make-dist-files,v 1.22 2002/06/18 00:51:18 cph Exp $
+# $Id: make-dist-files,v 1.23 2005/12/13 06:41:02 cph Exp $
#
-# Copyright (c) 2000-2002 Massachusetts Institute of Technology
+# Copyright 2000,2001,2002,2003,2005 Massachusetts Institute of Technology
#
# 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
DESTINATION="${3}"
case "${TYPE}" in
-6001|all|std)
- ;;
-*)
- echo "Unknown distribution type: ${TYPE}"
- exit 1
- ;;
+(6001 | all | std)
+ ;;
+(snapshot)
+ [ "${VERSION}" ] || VERSION="snapshot"
+ ;;
+(*)
+ echo "Unknown distribution type: ${TYPE}"
+ echo "Valid types: std all 6001 snapshot"
+ exit 1
+ ;;
esac
+if [ "${VERSION}" = "snapshot" ]; then
+ VERSION=$(date +%Y%m%d)
+fi
+
DIST_DIR="/scheme/v7/dist"
. "${DIST_DIR}/release-prefix"
TL_DIR="$(pwd)"
BUILD_DIR_REL="$(get_release_prefix "${VERSION}")"
BUILD_DIR="${TL_DIR}/${BUILD_DIR_REL}"
-SRC_FILE="${BUILD_DIR}-src.tar.gz"
+SRC_FILE="${BUILD_DIR}.tar.gz"
STAMP_BUILD="${TL_DIR}/stamp-build"
STAMP_IMAGE="${TL_DIR}/stamp-image"
fi
MKDIR="install -d -m 755"
-INSTALL="install -p"
+INSTALL="install --preserve-timestamps"
INSTALL_DATA="${INSTALL} -m 644"
# It takes a lot of work to build the image.
tar xzf "${SRC_FILE}"
cd "${BUILD_DIR}/src"
- ./configure --enable-static-libs=yes --enable-dynamic-crypto=no \
- --with-mcrypt=no
+ ./configure --enable-static-libs=yes --enable-dynamic-modules=no \
+ --with-mcrypt=no --with-libpq=no --with-db4=no
make
cd "${BUILD_DIR}/doc"
fi
if [ ! -f "${STAMP_IMAGE}" ]; then
- rm -rf ${IMAGE_DIR}
+ rm -rf "${IMAGE_DIR}"
cd "${BUILD_DIR}/src"
make install DESTDIR="${IMAGE_DIR}"
${INSTALL_DATA} ${DIST_DIR}/info/r5rs.* "${AUXDIR}/edwin/info/."
ALL_BANDS="runtime.com compiler.com edwin.com all.com 6001.com"
- case ${TYPE} in
- std)
+ case "${TYPE}" in
+ (std | snapshot)
for BAND in ${ALL_BANDS}; do
case "${BAND}" in
- "runtime.com"|"all.com")
+ ("runtime.com"|"all.com")
;;
- *)
+ (*)
rm -f "${AUXDIR}/${BAND}"
;;
esac
done
;;
- all)
- ;;
- 6001)
+ (6001)
for BAND in ${ALL_BANDS}; do
case "${BAND}" in
- "6001.com")
+ ("6001.com")
;;
- *)
+ (*)
rm -f "${AUXDIR}/${BAND}"
;;
esac
}
if [ "${DESTINATION}" = "" ]; then
- PRE="${BUILD_DIR_REL}-ix86"
- make_tarfile "${PRE}-gnu-linux"
- ${INSTALL} ${DIST_DIR}/freebsd-bin/* "${BINDIR}/."
- make_tarfile "${PRE}-freebsd"
+ PRE="${BUILD_DIR_REL}-ix86"
+ make_tarfile "${PRE}-gnu-linux"
+ if [ -f "${DIST_DIR}/freebsd-bin/scheme" ]; then
+ ${INSTALL} "${DIST_DIR}/freebsd-bin/"* "${BINDIR}/."
+ make_tarfile "${PRE}-freebsd"
+ fi
else
- make_tarfile "${DESTINATION}"
+ make_tarfile "${DESTINATION}"
fi
rm -rf "${STAMP_IMAGE}" "${IMAGE_DIR}"
-make_doc_file ()
-{
- DOCFILE="${BUILD_DIR}-${2}.${3}"
- rm -f "${DOCFILE}"
- (cd "${TL_DIR}"; ${1} "${DOCFILE}" "${BUILD_DIR_REL}/${2}")
- chmod a-w "${DOCFILE}"
-}
-
-for TYPE in html info pdf ps; do
- IMAGE_ROOT="doc-${TYPE}"
- IMAGE_DIR="${BUILD_DIR}/${IMAGE_ROOT}"
- rm -rf "${IMAGE_DIR}"
- mkdir "${IMAGE_DIR}"
- (
- cd "${BUILD_DIR}/doc"
- make "install-${TYPE}" "${TYPE}dir=${IMAGE_DIR}"
- )
- make_doc_file "tar cvzf" "${IMAGE_ROOT}" "tar.gz"
- make_doc_file "zip -r" "${IMAGE_ROOT}" "zip"
- case "${TYPE}" in
- html | pdf)
- rm -rf "${TL_DIR}/${IMAGE_ROOT}"
- mv -f "${IMAGE_DIR}" "${TL_DIR}/."
- ;;
- esac
-done
+case "${TYPE}" in
+(std | all | 6001)
+ make_doc_file ()
+ {
+ DOCFILE="${BUILD_DIR}-${2}.${3}"
+ rm -f "${DOCFILE}"
+ (cd "${TL_DIR}"; ${1} "${DOCFILE}" "${BUILD_DIR_REL}/${2}")
+ chmod a-w "${DOCFILE}"
+ }
+
+ for FMT in html info pdf ps; do
+ IMAGE_ROOT="doc-${FMT}"
+ IMAGE_DIR="${BUILD_DIR}/${IMAGE_ROOT}"
+ rm -rf "${IMAGE_DIR}"
+ mkdir "${IMAGE_DIR}"
+ (
+ cd "${BUILD_DIR}/doc"
+ make "install-${FMT}" "${FMT}dir=${IMAGE_DIR}"
+ )
+ make_doc_file "tar cvzf" "${IMAGE_ROOT}" "tar.gz"
+ make_doc_file "zip -r" "${IMAGE_ROOT}" "zip"
+ case "${FMT}" in
+ (html | pdf)
+ rm -rf "${TL_DIR}/${IMAGE_ROOT}"
+ mv -f "${IMAGE_DIR}" "${TL_DIR}/."
+ ;;
+ esac
+ done
+ ;;
+esac
+cd "${TL_DIR}"
rm -rf "${STAMP_BUILD}" "${BUILD_DIR}"
#!/bin/sh
-# $Id: make-scmutils,v 1.4 2002/11/20 18:20:40 cph Exp $
+# $Id: make-scmutils,v 1.5 2005/12/13 06:41:03 cph Exp $
#
-# Copyright (c) 2001, 2002 Massachusetts Institute of Technology
+# Copyright 2001,2002,2004 Massachusetts Institute of Technology
#
# 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
#
# 2. Link or copy a scheme binary release into it:
#
-# ln /scheme/v7/dist/X.Y.Z/scheme-X.Y.Z-ix86-gnu-linux.tar.gz .
+# ln /scheme/v7/dist/X.Y.Z/mit-scheme-X.Y.Z-ix86-gnu-linux.tar.gz .
#
# 3. Run this script:
#
exit 1
fi
-SCHEME_TAR=$(ls scheme-*-ix86-gnu-linux.tar.gz 2> /dev/null)
+SCHEME_TAR=$(ls mit-scheme-*-ix86-gnu-linux.tar.gz 2> /dev/null)
if [ -z "${SCHEME_TAR}" ]; then
- echo "Unable to find file 'scheme-X.Y.Z-ix86-gnu-linux.tar.gz'"
+ echo "Unable to find file 'mit-scheme-X.Y.Z-ix86-gnu-linux.tar.gz'"
exit 1
fi
-SVERSION=$(echo "${SCHEME_TAR}" | tail -1 | sed -e 's/^scheme-\(..*\)-ix86-gnu-linux\.tar\.gz$/\1/')
+SVERSION=$(echo "${SCHEME_TAR}" | tail -1 | sed -e 's/^mit-scheme-\(..*\)-ix86-gnu-linux\.tar\.gz$/\1/')
+
+echo "MIT/GNU Scheme version: ${SVERSION}"
TL_DIR="$(pwd)"
SOURCE_DIR="/sw/scmutils"
DIST_DIR="/scheme/v7/dist"
-SCHEME_DIR="${TL_DIR}/scheme-${SVERSION}"
+SCHEME_DIR="${TL_DIR}/mit-scheme-${SVERSION}"
SBINDIR="${SCHEME_DIR}/bin"
SAUXDIR="${SCHEME_DIR}/lib/mit-scheme"
SCHEME="${SBINDIR}/scheme -library ${SAUXDIR}"
if [ ! -f "${STAMP_UNPACK}" ];then
- echo "Unpack MIT Scheme"
+ echo "Unpack MIT/GNU Scheme"
rm -rf "${SCHEME_DIR}"
${MKDIR} "${SCHEME_DIR}"
(cd "${SCHEME_DIR}"; tar xzf "../${SCHEME_TAR}")
cpx -qsE "${SOURCE_DIR}/src" "${BUILD_DIR}"
rm -f "${BUILD_DIR}/load.scm"
ln -s "${SOURCE_DIR}/dist/load.scm" "${BUILD_DIR}/."
- cd "${BUILD_DIR}"
- echo "Compile binaries"
- ${SCHEME} -compiler -heap 4000 > compile.out \
+ (
+ cd "${BUILD_DIR}"
+ echo "Compile binaries"
+ ${SCHEME} -compiler -heap 4000 > compile.out \
<<EOF
(load "compile")
EOF
- echo "Compiler output in ${BUILD_DIR}/compile.out"
- echo "Generate mechanics band"
- ${SCHEME} -edwin -compiler -heap 4000 > load.out \
+ echo "Compiler output in ${BUILD_DIR}/compile.out"
+ echo "Generate mechanics band"
+ ${SCHEME} -edwin -compiler -heap 4000 > load.out \
<<EOF
(load "load")
(disk-save "edwin-mechanics.com")
EOF
- echo "Output in ${BUILD_DIR}/load.out"
+ echo "Output in ${BUILD_DIR}/load.out"
+ )
touch "${STAMP_BUILD}"
fi
${MKDIR} "${BINDIR}"
${MKDIR} "${AUXDIR}"
- echo "Copy MIT Scheme"
+ echo "Copy MIT/GNU Scheme"
${MKDIR} "${MBINDIR}"
cpx -q "${SBINDIR}"/* "${MBINDIR}/."
${MKDIR} "${MAUXDIR}"
echo "Remove build directory"
rm -rf "${STAMP_BUILD}" "${BUILD_DIR}"
-echo "Remove MIT Scheme directory"
+echo "Remove MIT/GNU Scheme directory"
rm -rf "${STAMP_UNPACK}" "${SCHEME_DIR}"
echo "All done; tar file is ${TARFILE}"
#!/bin/sh
-# $Id: make-src-files,v 1.20 2002/06/18 17:59:21 cph Exp $
+# $Id: make-src-files,v 1.21 2005/12/13 06:41:04 cph Exp $
#
-# Copyright (c) 2000-2002 Massachusetts Institute of Technology
+# Copyright 2000,2001,2002,2003,2005 Massachusetts Institute of Technology
#
# 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
. /scheme/v7/dist/release-prefix
if [ $# -eq 0 ]; then
- VERSION="$(get_release)"
+ VERSION="$(get_release)"
elif [ $# -eq 1 ]; then
- VERSION="${1}"
+ VERSION="${1}"
else
- echo "usage: $0 [VERSION]"
- exit 1
+ echo "usage: $0 [VERSION]"
+ echo " VERSION may be 'snapshot' to specify today's date"
+ exit 1
fi
-INSTALL="install"
+INSTALL="install --preserve-timestamps"
INSTALL_DATA="${INSTALL} -m 644"
-PREFIX="$(get_release_prefix "${VERSION}")"
-TAG="$(get_release_tag "${VERSION}")"
-CVS="cvs -d /scheme/cvsroot"
-rm -rf ${PREFIX}
-mkdir ${PREFIX}
+if [ "${VERSION}" = "snapshot" ]; then
+ SNAPSHOT_P=true
+ PREFIX="$(get_release_prefix $(date +%Y%m%d))"
+ TAG_FLAG="-D"
+ TAG=$(date --iso-8601=seconds)
+else
+ SNAPSHOT_P=
+ PREFIX="$(get_release_prefix "${VERSION}")"
+ TAG_FLAG="-r"
+ TAG="$(get_release_tag "${VERSION}")"
+fi
-(
- cd /scheme/v7/src/runtime
- TAG_STATUS="$(${CVS} status -v version.scm | fgrep ${TAG})"
- if [ -z "${TAG_STATUS}" ]; then
- ${CVS} rtag ${TAG} v7/doc v7/src etc/xscheme.el
- fi
-)
+CVS="cvs -d ${USER}@subversions.gnu.org:/cvsroot/mit-scheme"
+
+rm -rf "${PREFIX}"
+mkdir "${PREFIX}"
+
+if [ -z "${SNAPSHOT_P}" ]; then
+ (
+ cd /scheme/v7/src/runtime
+ TAG_STATUS="$(${CVS} status -v version.scm | fgrep ${TAG})"
+ if [ -z "${TAG_STATUS}" ]; then
+ ${CVS} rtag "${TAG}" mit-scheme/v7/doc mit-scheme/v7/src \
+ mit-scheme/etc/xscheme.el
+ fi
+ )
+fi
(
- cd ${PREFIX}
- ${CVS} export -r ${TAG} -d src v7/src
+ cd "${PREFIX}"
+ ${CVS} export "${TAG_FLAG}" "${TAG}" -d src mit-scheme/v7/src
(cd src; ./Setup.sh)
- ${CVS} export -r ${TAG} -d doc v7/doc
+ ${CVS} export "${TAG_FLAG}" "${TAG}" -d doc mit-scheme/v7/doc
(cd doc; autoconf)
- ${CVS} export -r ${TAG} etc/xscheme.el
+ ${CVS} export "${TAG_FLAG}" "${TAG}" -d etc mit-scheme/etc/xscheme.el
)
-find ${PREFIX} -type f -print | xargs chmod g-w
-find ${PREFIX} -type d -print | xargs chmod g-w
+find "${PREFIX}" -type f -print | xargs chmod g-w
+find "${PREFIX}" -type d -print | xargs chmod g-w
${INSTALL_DATA} /scheme/v7/src/ChangeLog changelog.txt
-${INSTALL_DATA} /scheme/v7/src/ChangeLog ${PREFIX}/src/.
-${INSTALL_DATA} /scheme/v7/doc/ChangeLog ${PREFIX}/doc/.
-${INSTALL_DATA} /scheme/v7/dist/Makefile ${PREFIX}/.
+${INSTALL_DATA} /scheme/v7/src/ChangeLog "${PREFIX}/src/."
+${INSTALL_DATA} /scheme/v7/doc/ChangeLog "${PREFIX}/doc/."
+${INSTALL_DATA} /scheme/v7/dist/Makefile "${PREFIX}/."
-tarfile=${PREFIX}-src.tar.gz
-zipfile=${PREFIX}-src.zip
-ucfile=${PREFIX}-src-ucode.tar.gz
+tarfile="${PREFIX}.tar.gz"
+zipfile="${PREFIX}.zip"
+ucfile="${PREFIX}-ucode.tar.gz"
-rm -f ${tarfile}
-rm -f ${zipfile}
-rm -f ${ucfile}
+rm -f "${tarfile}"
+rm -f "${zipfile}"
+rm -f "${ucfile}"
-tar cvzf ${tarfile} ${PREFIX}
-tar cvzf ${ucfile} ${PREFIX}/src/COPYING ${PREFIX}/src/microcode
+tar cvzf "${tarfile}" "${PREFIX}"
+tar cvzf "${ucfile}" "${PREFIX}/src/COPYING" "${PREFIX}/src/microcode"
+chmod -w changelog.txt "${tarfile}" "${ucfile}"
-rm -rf ${PREFIX}/src/lib
-symlinks -rd ${PREFIX}
-zip -rl ${zipfile} ${PREFIX}
-
-chmod -w changelog.txt ${tarfile} ${zipfile} ${ucfile}
+if [ -z "${SNAPSHOT_P}" ]; then
+ rm -rf "${PREFIX}/src/lib"
+ symlinks -rd "${PREFIX}"
+ zip -rl "${zipfile}" "${PREFIX}"
+ chmod -w "${zipfile}"
+fi
-rm -rf ${PREFIX}
+rm -rf "${PREFIX}"
-# $Id: release-prefix,v 1.8 2002/01/29 01:36:20 cph Exp $
+# $Id: release-prefix,v 1.9 2005/12/13 06:41:05 cph Exp $
#
-# Copyright (c) 2000-2002 Massachusetts Institute of Technology
+# Copyright 2000,2001,2002,2003 Massachusetts Institute of Technology
#
# 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
get_release_prefix ()
{
v="${1:-$(get_release)}"
- echo "scheme-${v}"
+ echo "mit-scheme-${v}"
}
get_release_tag ()
projects / mit-scheme.git / commitdiff