Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100755 47 lines (40 sloc) 1.119 kB
a561472 @amoe initial import
authored
1 #!/bin/sh -
2
3 if [ -z "$1" ]
4 then
5 USERID=`id -u`
6 if [ $USERID != 0 ]
7 then
8 echo This script must be run as root if installing to the default path.
9 exit 1
10 fi
11 INSTALL_DIR=/usr/local/bin
12 else
13 INSTALL_DIR=`cd "$1" && pwd || echo $1` # bad-dir error caught below
14 fi
15 if [ -z "$2" ]
16 then
17 SRCDIR="scheme-src/srfi-22"
18 else
19 SRCDIR=`cd "$2" && pwd || echo $2`
20 fi
a3bf664 @amoe accept debian patch: srfi-22-to-share.patch
authored
21 if [ -z "$3" ]
22 then
23 SHAREDIR=.
24 else
25 SHAREDIR=$3
26 fi
27
a561472 @amoe initial import
authored
28
29 echo "This script will install the srfi-22 support scripts in $INSTALL_DIR."
30 echo "If this is acceptable, press enter now, otherwise press CTL-C."
31 echo ""
32 echo "You can call this script with a different install dir as an argument."
33 read
34
35 test -d "$SRCDIR" || { echo "No source directory $SRCDIR">&2; exit 1; }
36 test -d "$INSTALL_DIR" || { echo "No install dir $INSTALL_DIR">&2; exit 1; }
37
38 cd "$INSTALL_DIR"
d4d27a9 @amoe make 'ant install' done twice work by overwriting existing symlinks
authored
39 ln -sf "$SHAREDIR/srfi-22.sh" scheme-r4rs
40 ln -sf "$SHAREDIR/srfi-22.sh" scheme-r5rs
41 ln -sf "$SHAREDIR/srfi-22.sh" scheme-srfi-0
42 ln -sf "$SHAREDIR/srfi-22.sh" scheme-srfi-7
43 ln -sf "$SHAREDIR/srfi-22.sh" scheme-srfi-55
44 ln -sf "$SHAREDIR/srfi-22.sh" scheme-ieee-1178-1900
a561472 @amoe initial import
authored
45
46 exit 0
Something went wrong with that request. Please try again.