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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.6.1 by rtoy, Sat May 22 12:13:45 2004 UTC revision 1.3 by rtoy, Thu Jun 11 16:04:02 2009 UTC
# Line 1  Line 1 
1  #!/bin/sh  #!/bin/sh
2    
3  if [ "$1" = "" -o "$2" = "" ]  usage()
4  then  {
5          echo "Usage: $0 target-directory version"      echo "load-world.sh [-?p] target-directory [version-string]"
6          exit 1      echo "   -p    Skip loading of PCL (Mostly for cross-compiling)"
7  fi      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" ]  if [ ! -d "$1" ]
27  then  then
# Line 14  fi Line 31  fi
31    
32  TARGET="`echo $1 | sed 's:/*$::'`"  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  $TARGET/lisp/lisp -core $TARGET/lisp/kernel.core <<EOF
47  (in-package :cl-user)  (in-package :cl-user)
48    
# Line 25  $TARGET/lisp/lisp -core $TARGET/lisp/ker Line 54  $TARGET/lisp/lisp -core $TARGET/lisp/ker
54  (pushnew :no-clx *features*)  (pushnew :no-clx *features*)
55  (pushnew :no-clm *features*)  (pushnew :no-clm *features*)
56  (pushnew :no-hemlock *features*)  (pushnew :no-hemlock *features*)
57    $NO_PCL_FEATURE
58    
59  (load "target:tools/worldload")  (load "target:tools/worldload")
60  $2  $2

Legend:
Removed from v.1.1.6.1  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5