From 2959e1ede0ebc6fdffd7b8660f43c2ce14c9696f Mon Sep 17 00:00:00 2001
From: Taru Karttunen <taruti@taruti.net>
Date: Wed, 30 Mar 2011 17:14:36 +0300
Subject: Import sources from 2011-03-30 iso image - rc

---
 rc/bin/ape/install | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100755 rc/bin/ape/install

(limited to 'rc/bin/ape/install')

diff --git a/rc/bin/ape/install b/rc/bin/ape/install
new file mode 100755
index 000000000..8d81bec1f
--- /dev/null
+++ b/rc/bin/ape/install
@@ -0,0 +1,40 @@
+#!/bin/rc
+# Usage: install [options] srcfile dstfile
+# Usage: install srcfile dstfile owner group mode
+
+fn usage {
+	echo 'usage: install [-c|-m mode] srcfile dstfile' >[1=2]
+	exit 1
+}
+
+mode=775
+while(! ~ $#* 0){
+	switch($1){
+	case -c
+		;
+	case -m
+		mode=$2
+		shift
+	case -*
+		usage
+	case *
+		switch($#*) {
+		case 2
+			;
+		case 5
+			mode=$5	# backward compatibility
+		case *
+			usage
+		}
+		srcfile=$1
+		dstfile=$2
+		if (! test -f $dstfile || ! cmp -s $srcfile $dstfile) {
+			cp $srcfile $dstfile
+			chmod $mode $dstfile
+			chmod g+w $dstfile
+		}
+		exit 0
+	}
+	shift
+}
+usage
-- 
cgit v1.2.3