Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
#!/bin/rc
2 
# Usage: install [options] srcfile dstfile
3 
# Usage: install srcfile dstfile owner group mode
4 
 
5 
fn usage {
6 
	echo 'usage: install [-c|-m mode] srcfile dstfile' >[1=2]
7 
	exit 1
8 
}
9 
 
10 
mode=775
11 
while(! ~ $#* 0){
12 
	switch($1){
13 
	case -c
14 
		;
15 
	case -m
16 
		mode=$2
17 
		shift
18 
	case -*
19 
		usage
20 
	case *
21 
		switch($#*) {
22 
		case 2
23 
			;
24 
		case 5
25 
			mode=$5	# backward compatibility
26 
		case *
27 
			usage
28 
		}
29 
		srcfile=$1
30 
		dstfile=$2
31 
		if (! test -f $dstfile || ! cmp -s $srcfile $dstfile) {
32 
			cp $srcfile $dstfile
33 
			chmod $mode $dstfile
34 
			chmod g+w $dstfile
35 
		}
36 
		exit 0
37 
	}
38 
	shift
39 
}
40 
usage