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

Contents of /meta-cvs/F-156CAB88D4EEE783E8C4B4146B5094E2

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (show annotations)
Sun Feb 10 16:43:12 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-6, mcvs-0-9, mcvs-0-5, mcvs-0-7, mcvs-0-8, mcvs-0-14, mcvs-0-11, mcvs-0-10, mcvs-0-13, mcvs-0-12, deferred-adds-branch~branch-point
Branch point for: deferred-adds-branch
Changes since 1.2: +5 -1 lines
* update.lisp (mcvs-update): Re-print the "Invoking CVS" chatter
if the user re-tries the error.

* add.lisp (mcvs-add): CVS failure is now a restartable error;
user can decide whether to roll back the effects, retry the
CVS add, or keep the effects anyway despite the failed add.

* install.sh: Stop the script if there are compilation errors.
1 #!/bin/sh
2
3 if [ $# != 1 ] ; then
4 echo "MCVS installation"
5 echo "please specify target directory as command line argument"
6 exit 1
7 else
8 TARGET=$1
9 fi
10
11 if ! clisp -K full -q -c mcvs-main.lisp ; then
12 echo "There were compilation errors."
13 exit 1
14 fi
15
16 clisp -K full -q -i mcvs-main.lisp -x '(ext:saveinitmem "mcvs.mem" :quiet t)'
17
18 if ! cp mcvs.mem "$TARGET"; then
19 echo "unable to copy to $TARGET"
20 exit 1
21 fi
22
23 if ! cat > "$TARGET/mcvs" <<END
24 #!/usr/local/bin/clisp -K full -M $TARGET/mcvs.mem
25 (setf *null-pointer* (linux:realloc (linux:malloc 1) 0))
26 (mcvs)
27 END
28 then
29 echo "could not create mcvs script in $TARGET"
30 exit 1
31 fi
32
33 if ! chmod a+x "$TARGET/mcvs" ; then
34 echo "could not set permissions of mcvs script in $TARGET"
35 exit 1
36 fi
37
38 exit 0

  ViewVC Help
Powered by ViewVC 1.1.5