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

Contents of /meta-cvs/F-156CAB88D4EEE783E8C4B4146B5094E2

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.24 - (show annotations)
Fri Nov 24 06:47:12 2006 UTC (7 years, 4 months ago) by kaz
Branch: MAIN
CVS Tags: asdf-import-branch~merged-to-HEAD-0, mcvs-1-1-98, asdf-import-branch~branch-point, HEAD
Branch point for: asdf-import-branch
Changes since 1.23: +11 -1 lines
Introduce mcvs-debug tool for reproducing Meta-CVS problems in
a debugging environment.

* code/main.lisp (mcvs-execute): The setup of *interactive-error-io*
and *mcvs-error-treatment* is no longer done here, but in the caller.
Setting these here interferes with debugging.
(mcvs-debug-shell): Removed.
(main): Dependency on CLISP removed. Sets up *interactive-error-io*
and *mcvs-error-treatment* as mcvs-execute did previously.
Return value from mcvs-execute is now ignored.
(main-debug): New function. Sets *interactive-error-io* to
*terminal-io*, and *mcvs-error-treatment* to :decline.
Otherwise behaves like main.

* code/install.sh: Create mcvs-debug.mem in lib directory, and
mcvs-debug in bin directory. In mcvs-debug, the debugger is enabled
by passing ``-on-debug debug'' to CLISP.

* code/package.lisp (defpackage): Export main-debug.
1 #!/bin/sh
2
3 set -e
4
5 if [ $# != 1 ] ; then
6 echo
7 echo "Meta-CVS Installer"
8 echo
9 echo "Please specify the target prefix, as a full absolute path."
10 echo "For example, specifying /usr/local will place files under"
11 echo "/usr/local/bin and /usr/local/lib."
12 echo
13 exit 1
14 else
15 TARGET="$1"
16 fi
17
18 space_check()
19 {
20 if [ $# -gt 1 ] ; then
21 echo "The path \"$*\" contains whitespace."
22 exit 1
23 fi
24 }
25
26 dash_check()
27 {
28 case $1 in
29 -* )
30 echo "The path $1 looks like a command line option."
31 exit 1
32 ;;
33 esac
34 }
35
36 space_check $TARGET
37 dash_check $TARGET
38
39 TARGET_LIB=$TARGET/lib/clisp/meta-cvs
40 TARGET_BIN=$TARGET/bin
41
42 mkdir -p $TARGET_LIB
43 mkdir -p $TARGET_BIN
44
45 rm -f *.{lib,fas}
46 clisp -q -i mcvs -x "(ext:saveinitmem \"mcvs-debug\" :norc t :quiet t)"
47 cp mcvs-debug.mem $TARGET_LIB
48
49 clisp -q -c mcvs
50 clisp -q -i mcvs.lisp -x "(ext:saveinitmem \"mcvs\" :norc t :quiet t)"
51 cp mcvs.mem $TARGET_LIB
52
53 cat > $TARGET_BIN/mcvs-debug <<END
54 #!$(type -P clisp) -on-error debug -M$TARGET_LIB/mcvs-debug.mem
55 (meta-cvs:main-debug)
56 END
57
58 cat > $TARGET_BIN/mcvs <<END
59 #!$(type -P clisp) -M$TARGET_LIB/mcvs.mem
60 (meta-cvs:main)
61 END
62
63 exit 0

  ViewVC Help
Powered by ViewVC 1.1.5