Codebase list swi-prolog / upstream/7.6.4+dfsg packages / ln-install
upstream/7.6.4+dfsg

Tree @upstream/7.6.4+dfsg (Download .tar.gz)

ln-install @upstream/7.6.4+dfsg — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#!/bin/sh

mode=755
files=
target=
here=`pwd`

while [ "$#" != 0 ]; do
case "$1" in
	-m)	mode="$2"
		shift
		;;
	*)	if [ "$#" = 1 ]; then
		  target="$1"
		  done=yes
		else
		  case $1 in
		    /*) files="$files $1"
		        ;;
		    *)  files="$files $here/$1"
			;;
		  esac
		fi
		shift
		;;
esac
done
    
#echo files = $files
#echo target = $target

if [ -d "$target" ]; then
  for f in $files; do
    rm -f "$target"/`basename $f`
    (cd $target && ln -s $f .)
  done
else
  rm -f $target
  ln -s $files $target
fi