From 82d0f92ab8b84466ae20ab919c1f9c3577b5cecb Mon Sep 17 00:00:00 2001
From: Laurent Bercot <ska-skaware@skarnet.org>
Date: Mon, 22 May 2017 21:56:04 +0000
Subject:  Initial commit

---
 bin/cpa | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100755 bin/cpa

(limited to 'bin/cpa')

diff --git a/bin/cpa b/bin/cpa
new file mode 100755
index 0000000..2100191
--- /dev/null
+++ b/bin/cpa
@@ -0,0 +1,17 @@
+#!/bin/sh -e
+
+test "$#" -ge 3 || { echo "cpa: fatal: too few arguments" 1>&2 ; exit 100 ; }
+
+output="$1"
+source=$($output/build-build/command/s6-linkname -f -- $2)
+dest="$3"
+
+
+srcname=$(basename "$source")
+destdir="$output"/$(dirname "$dest")
+destname=$(basename "$dest")
+
+{ cd $(dirname "$source") && tar c "$srcname" ; } | { cd "$destdir" && tar x ; }
+if test "$srcname" != "$destname" ; then
+  mv -f "$destdir/$srcname" "$destdir/$destname"
+fi
-- 
cgit v1.2.3