From d325d2226cf55b63037dc62cefb7fa952d770d50 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Sun, 31 Jan 2021 14:14:05 +0000
Subject: Bind $home/bin/rc to rc/ instead of ./

---
 rc/xp | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100755 rc/xp

(limited to 'rc/xp')

diff --git a/rc/xp b/rc/xp
new file mode 100755
index 0000000..07c637f
--- /dev/null
+++ b/rc/xp
@@ -0,0 +1,20 @@
+#!/bin/rc -e
+
+# xp -- safer and more useful cp
+# for copying directories, use dxp (or perhaps -r?)
+
+flagfmt='t directory'
+args='files ... | from to'
+if(! ifs=() eval `{aux/getflags $*} || ~ $#* 0){
+	aux/usage
+	exit usage
+}
+
+if(~ $flagt '') {
+	if(! ~ $#* 2){
+		echo must be two arguments only without -t >[1=2]
+		aux/usage
+		exit usage
+	}
+	exec cp $1 $2
+}
-- 
cgit v1.2.3