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/ar89 | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 rc/bin/ape/ar89

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

diff --git a/rc/bin/ape/ar89 b/rc/bin/ape/ar89
new file mode 100755
index 000000000..7a0a97a08
--- /dev/null
+++ b/rc/bin/ape/ar89
@@ -0,0 +1,15 @@
+#!/bin/rc
+
+flagfmt='c,d,p,r,t,u,v,x'
+args='archive [files ...]'
+
+if(! ifs=() eval `{aux/getflags $*} || ~ $#* 0) {
+	aux/usage
+	exit usage
+}
+
+key=''
+for(i in c d p r t x u v)
+	if(f=flag$i ~ $#$f 1)
+		key=$key$i
+exec /$cputype/bin/ar $key $*
-- 
cgit v1.2.3