Optimize reversing an array in-place
[p5sagit/p5-mst-13.2.git] / qnx / ar
1 #! /bin/sh
2 #__USAGE
3 #%C     key library name ...
4 #       Crude cover for wlib to be compatible with ar
5 #       Supports the following key letters:
6 #       qcru
7 #       ru  replace existing modules. u indicates only replace
8 #           those which are newer
9 #       c   create the library (kinda moot)
10 #       q   quickly append to the end.
11 #
12 #This is a crude cover, but it has proved sufficient for many
13 #ports. Rather than attempt to implement subtleties of the
14 #ar syntax, I simply create a new library under all
15 #circumstances.
16 #
17 #Note that Watcom 10.6 supports ar directly, so this
18 #cover is not necessary.
19 #
20 #Increased the record size to 32 to accomodate a large library
21 #in the perl 5.003 distribution
22 #
23 #Submitted by Norton T. Allen (allen@huarp.harvard.edu)
24
25 if [ $# -lt 3 ]; then
26   use $0
27   exit 1
28 fi
29 shift
30 library=$1
31 shift
32 wlib -p=32 -n $library `for i in $*; do echo "+$i \\c"; done`