--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/ar	Sun Mar 22 06:52:06 2009 +0000
@@ -0,0 +1,61 @@
+#!/bin/sh
+#
+#
+# Copyright 2009 by William Astle <lost@l-w.ca>
+#
+#This file is part of LWTOOLS.
+#
+#LWTOOLS is free software: you can redistribute it and/or modify it under the
+#terms of the GNU General Public License as published by the Free Software
+#Foundation, either version 3 of the License, or (at your option) any later
+#version.
+#
+#This program is distributed in the hope that it will be useful, but WITHOUT
+#ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+#FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
+#more details.
+#
+#You should have received a copy of the GNU General Public License along with
+#this program. If not, see <http://www.gnu.org/licenses/>.
+
+# this was based somewhat on the "ar" script from gcc6809
+
+# This script is a frontend to the lwar library manager, to make it
+# look more like GNU ar.  Not all ar features are supported here.
+# It basically translates ar style options into lwar format.
+
+# Parse and translate command-line options
+
+# ar options cheatsheet:
+# r: insert (with replace)
+# c: create archive
+# u: only replace newer files
+# v: verbose mode
+# x: extract files from archive
+
+options=$1; shift
+case $options in
+	rc|cru|-rc|-cru)
+		options="--replace --create"
+		;;
+	rv)
+		options="--replace"
+		;;
+	x|-x)
+		options="--extract"
+		;;
+	*)
+		options="--replace --create $options"
+		if [ "$libname" = "" ]; then
+			libname=$options
+		fi
+		;;
+esac
+
+if [ "x$options" = "x" ]; then
+	echo "ar (m6809): no options given"
+	exit 1
+fi
+
+# Run the real lwar with translated options.
+exec lwar $options $*