- cmucl-cvs - mailman3.common-lisp.net

[cmucl-cvs] CMUCL commit: src/general-info (release-20c.txt)
by Raymond Toy 28 Oct '10

28 Oct '10

Date: Wednesday, October 27, 2010 @ 20:03:25 Author: rtoy Path: /project/cmucl/cvsroot/src/general-info Modified: release-20c.txt Update from logs. -----------------+ release-20c.txt | 4 ++++ 1 file changed, 4 insertions(+) Index: src/general-info/release-20c.txt diff -u src/general-info/release-20c.txt:1.6 src/general-info/release-20c.txt:1.7 --- src/general-info/release-20c.txt:1.6 Wed Oct 27 08:49:09 2010 +++ src/general-info/release-20c.txt Wed Oct 27 20:03:25 2010 @@ -41,6 +41,8 @@ - RUN-PROGRAM accepts :EXTERNAL-FORMAT parameter to specify the external format to be used for any streams that RUN-PROGRAM needs to create. + - Add src/tools/build-all.sh to automate building all of the + variants (x87/sse2, unicode/8-bit). * ANSI compliance fixes: - Fixes for signaling errors with READ-CHAR and READ-BYTE @@ -62,6 +64,8 @@ Previously, it skipped over non-BMP codepoints. This also requires a fix in %COMPOSE to handle non-BMP codepoints correctly. The normalization test now passes. + - REALPART and IMAGPART no longer incorrectly returns 0 instead of + the correct part of a complex number. * Trac Tickets:

1 0

[cmucl-cvs] CMUCL commit: src/tools (build-all.sh)
by Raymond Toy 28 Oct '10

28 Oct '10

Date: Wednesday, October 27, 2010 @ 20:01:46 Author: rtoy Path: /project/cmucl/cvsroot/src/tools Modified: build-all.sh Handle -C option better, especially when given -C "" to denote the default config. --------------+ build-all.sh | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) Index: src/tools/build-all.sh diff -u src/tools/build-all.sh:1.1 src/tools/build-all.sh:1.2 --- src/tools/build-all.sh:1.1 Thu Oct 14 13:48:26 2010 +++ src/tools/build-all.sh Wed Oct 27 20:01:46 2010 @@ -35,14 +35,14 @@ VERSION="CVS Head `date '+%Y-%m-%d %H:%M:%S'`" BASE=build +CREATE_OPT="" while getopts "Ub:v:C:o:8:?" arg do case $arg in b) BASE="$OPTARG" ;; B) bootfiles="$bootfiles -B $OPTARG" ;; - C) CREATE_OPT="-C $OPTARG" - CREATE_DIRS=yes ;; + C) CREATE_OPT="$OPTARG" ;; o) OLDLISP="$OPTARG" ;; 8) OLD8="$OPTARG" ;; v) VERSION="$OPTARG" ;; @@ -66,15 +66,15 @@ if [ -n "$OLD8" ]; then # Build non-unicode versions set -x - src/tools/build.sh -f x87 -b ${BASE}-8bit $bootfiles -v "$VERSION" ${CREATE_OPT} ${UPDATE_TRANS} -o "$OLD8" - src/tools/build.sh -f sse2 -b ${BASE}-8bit $bootfiles -v "$VERSION" ${CREATE_OPT} ${UPDATE_TRANS} -o "$OLD8" + src/tools/build.sh -f x87 -b ${BASE}-8bit $bootfiles -v "$VERSION" -C "${CREATE_OPT}" ${UPDATE_TRANS} -o "$OLD8" + src/tools/build.sh -f sse2 -b ${BASE}-8bit $bootfiles -v "$VERSION" -C "${CREATE_OPT}" ${UPDATE_TRANS} -o "$OLD8" set +x fi # Build the unicode versions if [ -n "$OLDLISP" ]; then set -x - src/tools/build.sh -f x87 -b ${BASE} $bootfiles -v "$VERSION" ${CREATE_OPT} ${UPDATE_TRANS} -o "$OLDLISP" - src/tools/build.sh -f sse2 -b ${BASE} $bootfiles -v "$VERSION" ${CREATE_OPT} ${UPDATE_TRANS} -o "$OLDLISP" + src/tools/build.sh -f x87 -b ${BASE} $bootfiles -v "$VERSION" -C "${CREATE_OPT}" ${UPDATE_TRANS} -o "$OLDLISP" + src/tools/build.sh -f sse2 -b ${BASE} $bootfiles -v "$VERSION" -C "${CREATE_OPT}" ${UPDATE_TRANS} -o "$OLDLISP" set +x fi } @@ -84,13 +84,13 @@ # Build non-unicode versions if [ -n "$OLD8" ]; then set -x - src/tools/build.sh -b ${BASE}-8bit $bootfiles -v "$VERSION" ${CREATE_OPT} ${UPDATE_TRANS} -o "$OLD8" + src/tools/build.sh -b ${BASE}-8bit $bootfiles -v "$VERSION" -C "$CREATE_OPT" ${UPDATE_TRANS} -o "$OLD8" set +x fi # Build the unicode version. if [ -n "$OLDLISP" ]; then set -x - src/tools/build.sh -b ${BASE} $bootfiles -v "$VERSION" ${CREATE_OPT} ${UPDATE_TRANS} -o "$OLDLISP" + src/tools/build.sh -b ${BASE} $bootfiles -v "$VERSION" -C "$CREATE_OPT" ${UPDATE_TRANS} -o "$OLDLISP" set +x fi }

1 0

[cmucl-cvs] CMUCL commit: src/compiler/x86 (float-sse2.lisp)
by Raymond Toy 28 Oct '10

28 Oct '10

Date: Wednesday, October 27, 2010 @ 20:00:48 Author: rtoy Path: /project/cmucl/cvsroot/src/compiler/x86 Modified: float-sse2.lisp Fix critical bug in realpart/imagpart. o realpart/complex-single-float, realpart/complex-double-float, imagpart/complex-double-float, %complex-double-float, and %complex-single-float were zeroing out the result register which is ok, except when the result register and the source register are the same. Use a temp register in this case. This bit of code tickles the bug: (defun zot-r (z) (declare (type (simple-array (complex double-float) (*)) z)) (realpart (aref z 0))) (defun zot-i (z) (declare (type (simple-array (complex double-float) (*)) z)) (imagpart (aref z 0))) (let ((z (make-array 1 :element-type '(complex double-float) :initial-element #c(42d0 -42d0)))) (zot-r z)) (let ((z (make-array 1 :element-type '(complex double-float) :initial-element #c(42d0 -42d0)))) (zot-i z)) The correct results are 42d0 and -42d0, not 0d0, of course. -----------------+ float-sse2.lisp | 49 ++++++++++++++++++++++++++++++++++++------------- 1 file changed, 36 insertions(+), 13 deletions(-) Index: src/compiler/x86/float-sse2.lisp diff -u src/compiler/x86/float-sse2.lisp:1.18 src/compiler/x86/float-sse2.lisp:1.19 --- src/compiler/x86/float-sse2.lisp:1.18 Wed Aug 11 17:29:49 2010 +++ src/compiler/x86/float-sse2.lisp Wed Oct 27 20:00:48 2010 @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group(a)cs.cmu.edu. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/compiler/x86/float-sse2.lisp,v 1.18 2010-08-11 21:29:49 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/compiler/x86/float-sse2.lisp,v 1.19 2010-10-28 00:00:48 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1390,13 +1390,19 @@ (:arg-types complex-single-float) (:results (r :scs (single-reg))) (:result-types single-float) + (:temporary (:sc single-reg) temp) (:policy :fast-safe) (:note _N"complex float realpart") (:generator 3 (sc-case x (complex-single-reg - (inst xorps r r) ; temp = 0|0|0|0 - (inst movss r x)) ; r = 0|0|0|x + (cond ((location= r x) + (inst xorps temp temp) ; temp = 0|0|0|0 + (inst movss temp x) ; temp = 0|0|0|x + (inst movss r temp)) ; r = temp + (t + (inst xorps r r) ; temp = 0|0|0|0 + (inst movss r x)))) ; r = 0|0|0|x (complex-single-stack (inst movss r (ea-for-csf-real-stack x))) (descriptor-reg @@ -1408,13 +1414,19 @@ (:arg-types complex-double-float) (:results (r :scs (double-reg))) (:result-types double-float) + (:temporary (:sc double-reg) temp) (:policy :fast-safe) - (:note _N"complex float realpart") + (:note "complex float realpart") (:generator 3 (sc-case x (complex-double-reg - (inst xorpd r r) ; temp = 0|0 - (inst movsd r x)) ; r = 0|x + (cond ((location= r x) + (inst xorpd temp temp) ; temp = 0|0 + (inst movsd temp x) ; temp = 0|x + (inst movsd r temp)) ; r = temp + (t + (inst xorpd r r) ; r = 0|0 + (inst movsd r x)))) ; r = 0|x (complex-double-stack (inst movsd r (ea-for-cdf-real-stack x))) (descriptor-reg @@ -1457,8 +1469,13 @@ (:generator 3 (sc-case x (complex-double-reg - (inst xorpd r r) ; r = 0|0 - (inst movhlps r x)) ; r = 0|b + (cond ((location= r x) + (inst xorpd temp temp) ; temp = 0|0 + (inst movhlps temp x) ; temp = 0|b + (inst movsd r temp)) ; r = temp + (t + (inst xorpd r r) ; r = 0|0 + (inst movhlps r x)))) ; r = 0|b (complex-double-stack (inst movsd r (ea-for-cdf-imag-stack x))) (descriptor-reg @@ -1835,7 +1852,7 @@ (convert-complex %complex-single-float cvtpd2ps complex-single complex-double)) (macrolet - ((convert-complex (trans op base-ea to from) + ((convert-complex (trans op base-ea to from movinst) (let ((name (symbolicate to "/" from)) (from-sc (symbolicate from "-REG")) (from-sc-stack (symbolicate from "-STACK")) @@ -1849,21 +1866,27 @@ (:arg-types ,from-type) (:results (r :scs (,to-sc))) (:result-types ,to-type) + (:temporary (:sc ,to-sc) temp) (:policy :fast-safe) (:generator 1 (sc-case x (,from-sc ;; Need to make sure the imaginary part is zero - (inst xorps r r) - (inst ,op r x)) + (cond ((location= x r) + (inst xorps temp temp) + (inst ,op temp x) + (inst ,movinst r temp)) + (t + (inst xorps r r) + (inst ,op r x)))) (,from-sc-stack (inst xorps r r) (inst ,op r (,(symbolicate "EA-FOR-" base-ea "-STACK") x))) (descriptor-reg (inst xorps r r) (inst ,op r (,(symbolicate "EA-FOR-" base-ea "-DESC") x))))))))) - (convert-complex %complex-double-float cvtss2sd sf complex-double single) - (convert-complex %complex-single-float cvtsd2ss df complex-single double)) + (convert-complex %complex-double-float cvtss2sd sf complex-double single movapd) + (convert-complex %complex-single-float cvtsd2ss df complex-single double movaps)) ;; Add and subtract for two complex arguments (macrolet

1 0

[cmucl-cvs] CMUCL commit: src/i18n/locale (cmucl.pot)
by Raymond Toy 27 Oct '10

27 Oct '10

Date: Wednesday, October 27, 2010 @ 08:50:04 Author: rtoy Path: /project/cmucl/cvsroot/src/i18n/locale Modified: cmucl.pot Regenerated from current sources. -----------+ cmucl.pot | 20 ++++++++++++++------ 1 file changed, 14 insertions(+), 6 deletions(-) Index: src/i18n/locale/cmucl.pot diff -u src/i18n/locale/cmucl.pot:1.15 src/i18n/locale/cmucl.pot:1.16 --- src/i18n/locale/cmucl.pot:1.15 Sun Sep 26 19:47:45 2010 +++ src/i18n/locale/cmucl.pot Wed Oct 27 08:50:04 2010 @@ -5550,11 +5550,15 @@ msgstr "" #: src/code/misc.lisp -msgid "Returns a string describing the implementation version." +msgid " Unicode" msgstr "" #: src/code/misc.lisp -msgid " Unicode" +msgid "" +msgstr "" + +#: src/code/misc.lisp +msgid "Returns a string describing the implementation version." msgstr "" #: src/code/misc.lisp @@ -9152,6 +9156,14 @@ msgstr "" #: src/code/fd-stream.lisp +msgid "Use Unicode replacement character instead" +msgstr "" + +#: src/code/fd-stream.lisp +msgid "Use question mark character instead" +msgstr "" + +#: src/code/fd-stream.lisp msgid "" "Create a stream for the given unix file descriptor.\n" " If input is non-nil, allow input operations.\n" @@ -9180,10 +9192,6 @@ msgstr "" #: src/code/fd-stream.lisp -msgid "Use Unicode replacement character instead" -msgstr "" - -#: src/code/fd-stream.lisp msgid "" "This is a string that OPEN tacks on the end of a file namestring to produce\n" " a name for the :if-exists :rename-and-delete and :rename options. Also,\n"

1 0

[cmucl-cvs] CMUCL commit: src/general-info (release-20c.txt)
by Raymond Toy 27 Oct '10

27 Oct '10

Date: Wednesday, October 27, 2010 @ 08:49:09 Author: rtoy Path: /project/cmucl/cvsroot/src/general-info Modified: release-20c.txt Update from logs. -----------------+ release-20c.txt | 3 +++ 1 file changed, 3 insertions(+) Index: src/general-info/release-20c.txt diff -u src/general-info/release-20c.txt:1.5 src/general-info/release-20c.txt:1.6 --- src/general-info/release-20c.txt:1.5 Tue Oct 12 18:00:14 2010 +++ src/general-info/release-20c.txt Wed Oct 27 08:49:09 2010 @@ -38,6 +38,9 @@ READ-SEQUENCE cannot do that unless the stream is a binary-text-stream. This is an incompatible change from previous releases. + - RUN-PROGRAM accepts :EXTERNAL-FORMAT parameter to specify the + external format to be used for any streams that RUN-PROGRAM + needs to create. * ANSI compliance fixes: - Fixes for signaling errors with READ-CHAR and READ-BYTE

1 0

[cmucl-cvs] CMUCL commit: cmucl-www/cmucl-www/www (download.html)
by Raymond Toy 26 Oct '10

26 Oct '10

Date: Tuesday, October 26, 2010 @ 10:17:25 Author: rtoy Path: /project/cmucl/cvsroot/cmucl-www/cmucl-www/www Modified: download.html o Remove links for 20b-pre2 and 20b-pre1. o Add links for Solaris 10 binaries. ---------------+ download.html | 85 +++++--------------------------------------------------- 1 file changed, 8 insertions(+), 77 deletions(-) Index: cmucl-www/cmucl-www/www/download.html diff -u cmucl-www/cmucl-www/www/download.html:1.24 cmucl-www/cmucl-www/www/download.html:1.25 --- cmucl-www/cmucl-www/www/download.html:1.24 Wed Sep 29 20:32:09 2010 +++ cmucl-www/cmucl-www/www/download.html Tue Oct 26 10:17:25 2010 @@ -116,10 +116,14 @@ </ul> --> </td> - <td> - - + <td> + + <ul> + <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/cmucl-20b-sparcv…">Unicode</a></li> + <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/cmucl-20b-sparcv…">Unicode extras</a></li> + <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/cmucl-20b-non-un…">Non-Unicode</a></li> + <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/cmucl-20b-non-un…">Non-Unicode extras</a></li> + </ul> </td> <td> @@ -148,79 +152,6 @@ </td> </tr> <tr> - <th>20b-pre2</th> - <td> - <ul> - <li><a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Unicode</a></li> - <li><a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Unicode extras</a></li> - <li><a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Non-Unicode</a></li> - <li><a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Non-Unicode extras</a></li> - </ul> - </td> - <td> - <ul> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Unicode</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Unicode extras</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Non-Unicode</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Non-Unicode extras</a></li> - </ul> - </td> - <td></td> - <td></td> - <td></td> - <td> - <ul> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Unicode</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Unicode extras</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Non-Unicode</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-20b-p…">Non-Unicode extras</a></li> - </ul> - </td> - <td> - <ul> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/cmucl-src-2…">Source code</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre2/release-20b…">Release notes for 20b</a></li> - </ul> - </td> - </tr> - - <tr> - <th>20b-pre1</th> - <td> - <ul> - <li><a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Unicode</a></li> - <li><a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Unicode extras</a></li> - <li><a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Non-Unicode</a></li> - <li><a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Non-Unicode extras</a></li> - </ul> - </td> - <td> - <ul> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Unicode</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Unicode extras</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Non-Unicode</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Non-Unicode extras</a></li> - </ul> - </td> - <td></td> - <td> - <ul> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Unicode</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Unicode extras</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Non-Unicode</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-20b-p…">Non-Unicode extras</a></li> - </ul> - </td> - <td></td> - <td></td> - <td> - <ul> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/cmucl-src-2…">Source code</a></li> - <li> <a href="http://common-lisp.net/project/cmucl/downloads/release/20b/pre1/release-20b…">Release notes for 20b</a></li> - </ul> - </td> - </tr> - <tr> <td>2010-07</td> <td> <ul>

1 0

[cmucl-cvs] CMUCL commit: src/code (string.lisp)
by Raymond Toy 26 Oct '10

26 Oct '10

Date: Tuesday, October 26, 2010 @ 09:56:08 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: string.lisp Add trailing newline. -------------+ string.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) Index: src/code/string.lisp diff -u src/code/string.lisp:1.28 src/code/string.lisp:1.29 --- src/code/string.lisp:1.28 Wed Oct 13 14:00:44 2010 +++ src/code/string.lisp Tue Oct 26 09:56:08 2010 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/string.lisp,v 1.28 2010-10-13 18:00:44 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/string.lisp,v 1.29 2010-10-26 13:56:08 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1727,4 +1727,4 @@ (incf idx 2) (incf idx)) (push c cp))) - (nreverse cp))) \ No newline at end of file + (nreverse cp)))

1 0

[cmucl-cvs] CMUCL commit: src/lisp (print.c)
by Raymond Toy 22 Oct '10

22 Oct '10

Date: Friday, October 22, 2010 @ 00:07:33 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Modified: print.c Oops. Need to include stdint.h to get uint16_t defined. ---------+ print.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) Index: src/lisp/print.c diff -u src/lisp/print.c:1.29 src/lisp/print.c:1.30 --- src/lisp/print.c:1.29 Sun Oct 10 10:55:57 2010 +++ src/lisp/print.c Fri Oct 22 00:07:33 2010 @@ -1,7 +1,8 @@ -/* $Header: /project/cmucl/cvsroot/src/lisp/print.c,v 1.29 2010-10-10 14:55:57 rtoy Exp $ */ +/* $Header: /project/cmucl/cvsroot/src/lisp/print.c,v 1.30 2010-10-22 04:07:33 rtoy Exp $ */ #include <stdio.h> #include <string.h> +#include <stdint.h> #include "print.h" #include "lisp.h" #include "internals.h"

1 0

[cmucl-cvs] CMUCL commit: src/tools (make-main-dist.sh)
by Raymond Toy 15 Oct '10

15 Oct '10

Date: Friday, October 15, 2010 @ 10:21:28 Author: rtoy Path: /project/cmucl/cvsroot/src/tools Modified: make-main-dist.sh Add DOCDIR variable so the location of the documentation files can be changed. Patch supplied by Stelian Ionescu, from a patch for gentoo. -------------------+ make-main-dist.sh | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) Index: src/tools/make-main-dist.sh diff -u src/tools/make-main-dist.sh:1.26 src/tools/make-main-dist.sh:1.27 --- src/tools/make-main-dist.sh:1.26 Wed Sep 8 08:06:23 2010 +++ src/tools/make-main-dist.sh Fri Oct 15 10:21:28 2010 @@ -29,6 +29,7 @@ fi DESTDIR=${INSTALL_DIR:-release-$$} +DOCDIR=${DOCDIR:-doc/cmucl} MANDIR=${MANDIR:-man/man1} TARGET="`echo $1 | sed 's:/*$::'`" VERSION=$2 @@ -86,11 +87,11 @@ # set -x echo Installing main components install -d ${GROUP} ${OWNER} -m 0755 $DESTDIR/bin -install -d ${GROUP} ${OWNER} -m 0755 $DESTDIR/doc/cmucl install -d ${GROUP} ${OWNER} -m 0755 $DESTDIR/lib/cmucl install -d ${GROUP} ${OWNER} -m 0755 $DESTDIR/lib/cmucl/lib install -d ${GROUP} ${OWNER} -m 0755 $DESTDIR/lib/cmucl/lib/subsystems install -d ${GROUP} ${OWNER} -m 0755 $DESTDIR/lib/cmucl/lib/ext-formats +install -d ${GROUP} ${OWNER} -m 0755 $DESTDIR/${DOCDIR} install -d ${GROUP} ${OWNER} -m 0755 $DESTDIR/${MANDIR} install ${GROUP} ${OWNER} -m 0755 $TARGET/lisp/lisp $DESTDIR/bin/ if [ "$EXECUTABLE" = "true" ] @@ -150,11 +151,11 @@ $DESTDIR/${MANDIR}/ install ${GROUP} ${OWNER} -m 0644 src/general-info/lisp.1 \ $DESTDIR/${MANDIR}/ -install ${GROUP} ${OWNER} -m 0644 src/general-info/README $DESTDIR/doc/cmucl/ +install ${GROUP} ${OWNER} -m 0644 src/general-info/README $DESTDIR/${DOCDIR} if [ -f src/general-info/release-$VERSION.txt ] then install ${GROUP} ${OWNER} -m 0644 src/general-info/release-$VERSION.txt \ - $DESTDIR/doc/cmucl/ + $DESTDIR/${DOCDIR} fi if [ -z "$INSTALL_DIR" ]; then

1 0

[cmucl-cvs] CMUCL commit: src/tools (build-all.sh)
by Raymond Toy 14 Oct '10

14 Oct '10

Date: Thursday, October 14, 2010 @ 13:48:26 Author: rtoy Path: /project/cmucl/cvsroot/src/tools Added: build-all.sh Initial revision. --------------+ build-all.sh | 102 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 102 insertions(+) Index: src/tools/build-all.sh diff -u /dev/null src/tools/build-all.sh:1.1 --- /dev/null Thu Oct 14 13:48:26 2010 +++ src/tools/build-all.sh Thu Oct 14 13:48:26 2010 @@ -0,0 +1,102 @@ +#! /bin/sh + +# Build all variants of cmucl. This means build x87 and sse2 versions +# for both unicode and non-unicode variants. +# Basically call build.sh to do the builds. + +usage () +{ + echo "build-all.sh [bBCvU] [-o old] [-8 old8bit]" + echo "" + echo "Build all variants of cmucl for a specific architecture." + echo "This means build the unicode and non-unicode variants." + echo "For x86 architectures, the x87 and sse2 cores are also built." + echo "This script basically automates calling build.sh for all the" + echo "variants, using the most common options. If there are special" + echo "requirements, then you must use build.sh itself instead of this" + echo "script." + echo "" + echo " -b d Basename of the different build directories." + echo " ${d}-2, ${d}-3, ${d}-4 for unicode" + echo " ${d}-8bit-2, ${d}-8bit-3, ${d}-8bit-4 for non-unicode" + echo " -B file Use file as a boot file. Maybe be specified more than once" + echo " The file is relative to the bootfiles/<version> directory" + echo ' -C [l m] Create the build directories. The args are what' + echo ' you would give to create-target.sh for the lisp' + echo ' and motif variant.' + echo ' -v v Use the given string as the version. Default is' + echo " today's date" + echo " -o x Use specified Lisp to build unicode version." + echo " (only applicable for build 1)" + echo " -8 x Use specified Lisp to build 8-bit version." + echo " (only applicable for build 1)" + echo " -U Update and overwite the CVS translations files." +} + +VERSION="CVS Head `date '+%Y-%m-%d %H:%M:%S'`" +BASE=build + +while getopts "Ub:v:C:o:8:?" arg +do + case $arg in + b) BASE="$OPTARG" ;; + B) bootfiles="$bootfiles -B $OPTARG" ;; + C) CREATE_OPT="-C $OPTARG" + CREATE_DIRS=yes ;; + o) OLDLISP="$OPTARG" ;; + 8) OLD8="$OPTARG" ;; + v) VERSION="$OPTARG" ;; + U) UPDATE_TRANS="-U" ;; + \?) usage ;; + esac +done + +if [ "$BASE" = "" ]; then + echo "-b option required" + exit 1 +fi + +if [ "$OLDLISP" = "" -a "$OLD8" = "" ]; then + echo "-o or -8 option required" + exit 1 +fi + +buildx86 () +{ + if [ -n "$OLD8" ]; then + # Build non-unicode versions + set -x + src/tools/build.sh -f x87 -b ${BASE}-8bit $bootfiles -v "$VERSION" ${CREATE_OPT} ${UPDATE_TRANS} -o "$OLD8" + src/tools/build.sh -f sse2 -b ${BASE}-8bit $bootfiles -v "$VERSION" ${CREATE_OPT} ${UPDATE_TRANS} -o "$OLD8" + set +x + fi + # Build the unicode versions + if [ -n "$OLDLISP" ]; then + set -x + src/tools/build.sh -f x87 -b ${BASE} $bootfiles -v "$VERSION" ${CREATE_OPT} ${UPDATE_TRANS} -o "$OLDLISP" + src/tools/build.sh -f sse2 -b ${BASE} $bootfiles -v "$VERSION" ${CREATE_OPT} ${UPDATE_TRANS} -o "$OLDLISP" + set +x + fi +} + +buildsun4 () +{ + # Build non-unicode versions + if [ -n "$OLD8" ]; then + set -x + src/tools/build.sh -b ${BASE}-8bit $bootfiles -v "$VERSION" ${CREATE_OPT} ${UPDATE_TRANS} -o "$OLD8" + set +x + fi + # Build the unicode version. + if [ -n "$OLDLISP" ]; then + set -x + src/tools/build.sh -b ${BASE} $bootfiles -v "$VERSION" ${CREATE_OPT} ${UPDATE_TRANS} -o "$OLDLISP" + set +x + fi +} + +case `uname -m` in + i386*|x86*) buildx86 ;; + sun*) buildsun4 ;; + *) echo "Unsupported architecture: `uname -m`" ;; +esac

1 0