/[meta-cvs]/meta-cvs/F-156CAB88D4EEE783E8C4B4146B5094E2
ViewVC logotype

Diff of /meta-cvs/F-156CAB88D4EEE783E8C4B4146B5094E2

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

revision 1.12 by kaz, Wed Sep 25 15:55:57 2002 UTC revision 1.13 by kaz, Mon Oct 14 03:05:40 2002 UTC
# Line 95  if ! chmod a+x "$TARGET_BIN/mcvs" ; then Line 95  if ! chmod a+x "$TARGET_BIN/mcvs" ; then
95    exit 1    exit 1
96  fi  fi
97    
98    if ! cat > $TARGET_BIN/mcvs-upgrade <<END
99    #!/bin/sh
100    TARGET_LIB="$TARGET_LIB"
101    LISPRUN="\$TARGET_LIB/lisp.run -M \$TARGET_LIB/lispinit.mem"
102    
103    if [ \$# != 1 ] ; then
104      echo
105      echo "Syntax:"
106      echo
107      echo "  mcvs-upgrade <path-to-source>"
108      echo
109      echo "The path specifies the directory which holds unpacked Meta-CVS source,"
110      echo "the place where the file mcvs-main.lisp is located."
111      echo
112      echo "This upgrade mechanism is intended to make it possible to use a"
113      echo "newer version of Meta-CVS without having to obtain a complete binary"
114      echo "distribution that includes the Lisp executable, and without having"
115      echo "to install the Lisp development environment to build the sources."
116      echo
117      echo "Note that it's not possible to upgrade if the newer Meta-CVS sources"
118      echo "rely on new C functions being linked into the Lisp system; get a"
119      echo "new binary distribution, or set up CLISP and compile Meta-CVS from"
120      echo "the sources using its install.sh script"
121      echo
122      echo "Ignore the copious compiler warnings about objects and functions"
123      echo "being redefined; this is what we want."
124      echo
125      exit 1
126    fi
127    
128    SOURCE_PATH="\$1"
129    
130    if ! cd "\$SOURCE_PATH" ; then
131      echo "unable to change to \$SOURCE_PATH"
132      exit 1
133    fi
134    
135    if ! \$LISPRUN -c mcvs-main ; then
136      echo "unable to compile"
137      exit 1
138    fi
139    
140    if ! \$LISPRUN -q -i mcvs-main -x '(ext:saveinitmem "mcvs.mem" :quiet t)' ; then
141      echo "unable to load and generate memory image"
142      exit 1
143    fi
144    
145    if ! cp mcvs.mem \$TARGET_LIB/lispinit.mem ; then
146      echo "unable to copy new Meta-CVS image to \$TARGET_LIB directory."
147      exit 1
148    fi
149    
150    echo
151    echo "It appears that Meta-CVS has been re-generated from the given sources."
152    echo
153    
154    END
155    then
156      echo "Could not create mcvs script in $TARGET."
157      exit 1
158    fi
159    
160    if ! chmod a+x "$TARGET_BIN/mcvs-upgrade" ; then
161      echo "Could not set permissions of mcvs script in $TARGET."
162      exit 1
163    fi
164    
165  exit 0  exit 0

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

  ViewVC Help
Powered by ViewVC 1.1.5