/[cmucl]/src/tools/load-world.sh
ViewVC logotype

Contents of /src/tools/load-world.sh

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (show annotations)
Thu Jun 11 16:04:02 2009 UTC (4 years, 10 months ago) by rtoy
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, post-merge-intl-branch, merged-unicode-utf16-extfmt-2009-06-11, intl-branch-working-2010-02-19-1000, unicode-string-buffer-impl-base, release-20b-pre1, release-20b-pre2, unicode-string-buffer-base, sparc-tramp-assem-2010-07-19, amd64-dd-start, intl-2-branch-base, GIT-CONVERSION, cross-sol-x86-merged, intl-branch-working-2010-02-11-1000, RELEASE_20b, release-20a-base, cross-sol-x86-base, snapshot-2010-12, snapshot-2010-11, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, pre-merge-intl-branch, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-01, snapshot-2010-03, snapshot-2010-02, snapshot-2010-08, cross-sol-x86-2010-12-20, intl-branch-2010-03-18-1300, RELEASE_20a, release-20a-pre1, snapshot-2009-11, snapshot-2009-12, portable-clx-import-2009-06-16, cross-sparc-branch-base, intl-branch-base, portable-clx-base, snapshot-2009-08, snapshot-2009-07, HEAD
Branch point for: portable-clx-branch, cross-sparc-branch, RELEASE-20B-BRANCH, unicode-string-buffer-branch, sparc-tramp-assem-branch, RELEASE-20A-BRANCH, amd64-dd-branch, unicode-string-buffer-impl-branch, intl-branch, cross-sol-x86-branch, intl-2-branch
Changes since 1.2: +9 -5 lines
File MIME type: application/x-sh
Merge Unicode work to trunk.  From label
unicode-utf16-extfmt-2009-06-11.
1 #!/bin/sh
2
3 usage()
4 {
5 echo "load-world.sh [-?p] target-directory [version-string]"
6 echo " -p Skip loading of PCL (Mostly for cross-compiling)"
7 echo " -? This help"
8 echo " If the version-string is not given, the current date and time is used"
9 exit 1
10 }
11
12 SKIP_PCL=
13 NO_PCL_FEATURE=
14 # Default version is the date.
15 VERSION="CVS Head `date '+%Y-%m-%d %H:%M:%S'`"
16
17 while getopts "p" arg
18 do
19 case $arg in
20 p) SKIP_PCL="yes"
21 shift;;
22 \?) usage ;;
23 esac
24 done
25
26 if [ ! -d "$1" ]
27 then
28 echo "$1 isn't a directory"
29 exit 2
30 fi
31
32 TARGET="`echo $1 | sed 's:/*$::'`"
33
34 # If -p given, we want to skip loading of PCL. Do this by pushing
35 # :no-pcl onto *features*
36
37 if [ -n "$SKIP_PCL" ]; then
38 NO_PCL_FEATURE="(pushnew :no-pcl *features*)"
39 fi
40
41 # If version string give, use it, otherwise use the default.
42 if [ -n "$2" ]; then
43 VERSION=$2
44 fi
45
46 $TARGET/lisp/lisp -core $TARGET/lisp/kernel.core <<EOF
47 (in-package :cl-user)
48
49 (setf (ext:search-list "target:")
50 '("$TARGET/" "src/"))
51
52 (load "target:setenv")
53
54 (pushnew :no-clx *features*)
55 (pushnew :no-clm *features*)
56 (pushnew :no-hemlock *features*)
57 $NO_PCL_FEATURE
58
59 (load "target:tools/worldload")
60 $2
61
62 EOF

  ViewVC Help
Powered by ViewVC 1.1.5