/[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 - (hide 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 kaz 1.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 kaz 1.3 if ! clisp -K full -q -c mcvs-main.lisp ; then
12     echo "There were compilation errors."
13     exit 1
14     fi
15    
16 kaz 1.1 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 kaz 1.2 (setf *null-pointer* (linux:realloc (linux:malloc 1) 0))
26 kaz 1.1 (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