/[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.2 by rtoy, Wed Nov 28 01:38:20 2007 UTC revision 1.3 by rtoy, Thu Jun 11 16:04:02 2009 UTC
# Line 2  Line 2 
2    
3  usage()  usage()
4  {  {
5      echo "load-world.sh [-?p] target-directory version-string"      echo "load-world.sh [-?p] target-directory [version-string]"
6      echo "   -p    Skip loading of PCL (Mostly for cross-compiling)"      echo "   -p    Skip loading of PCL (Mostly for cross-compiling)"
7      echo "   -?    This help"      echo "   -?    This help"
8        echo " If the version-string is not given, the current date and time is used"
9      exit 1      exit 1
10  }  }
11    
12  SKIP_PCL=  SKIP_PCL=
13  NO_PCL_FEATURE=  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  while getopts "p" arg
18  do  do
# Line 20  do Line 23  do
23    esac    esac
24  done  done
25    
 if [ $# -ne 2 ]; then  
     usage  
 fi  
   
26  if [ ! -d "$1" ]  if [ ! -d "$1" ]
27  then  then
28          echo "$1 isn't a directory"          echo "$1 isn't a directory"
# Line 39  if [ -n "$SKIP_PCL" ]; then Line 38  if [ -n "$SKIP_PCL" ]; then
38      NO_PCL_FEATURE="(pushnew :no-pcl *features*)"      NO_PCL_FEATURE="(pushnew :no-pcl *features*)"
39  fi  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    

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

  ViewVC Help
Powered by ViewVC 1.1.5