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

Contents of /meta-cvs/F-156CAB88D4EEE783E8C4B4146B5094E2

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Sat Jan 26 18:24:30 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-3, mcvs-0-2, cvs-options-passthrough, mcvs-0-4, mcvs-0-1, latest-patch, mcvs-0-0
Changes since 1.1: +1 -0 lines
Ugly hack to reset *null-pointer* after loading memory image,
because CLISP changes the representation of a pickled *null-pointer*.
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 clisp -K full -q -c mcvs-main.lisp
12 clisp -K full -q -i mcvs-main.lisp -x '(ext:saveinitmem "mcvs.mem" :quiet t)'
13
14 if ! cp mcvs.mem "$TARGET"; then
15 echo "unable to copy to $TARGET"
16 exit 1
17 fi
18
19 if ! cat > "$TARGET/mcvs" <<END
20 #!/usr/local/bin/clisp -K full -M $TARGET/mcvs.mem
21 (setf *null-pointer* (linux:realloc (linux:malloc 1) 0))
22 (mcvs)
23 END
24 then
25 echo "could not create mcvs script in $TARGET"
26 exit 1
27 fi
28
29 if ! chmod a+x "$TARGET/mcvs" ; then
30 echo "could not set permissions of mcvs script in $TARGET"
31 exit 1
32 fi
33
34 exit 0

  ViewVC Help
Powered by ViewVC 1.1.5