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

Contents of /meta-cvs/F-156CAB88D4EEE783E8C4B4146B5094E2

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (hide annotations)
Sat Jun 22 02:27:44 2002 UTC (11 years, 9 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-20, partial-sandbox-branch~branch-point, old-convert-hacking-branch~branch-point, partial-sandbox-branch~merged-to-HEAD-0, mcvs-0-16, mcvs-0-15, mcvs-0-17, mcvs-0-19, mcvs-0-18
Branch point for: partial-sandbox-branch, old-convert-hacking-branch
Changes since 1.3: +1 -1 lines
* clisp-linux.sh (:clisp-old): Added to *features*
for CLISP 2.28 or higher.
(*null-pointer*): Only defined when :clisp-old is present.
(pointer-null): Use new ffi:foreign-pointer-null if :clisp-old
feature is not present.

* install.sh: Don't do *null-pointer* workaround hack
unless :clisp-old feature is present in the memory image.
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.4 #+clisp-old (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