Deprecate open3.pl with a warning
[perl.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. A much more thorough cover is available from
16 #http://www.fdma.com/pub/qnx/porting/ar
17 #
18 #Note that Watcom 10.6 supports ar directly, so this
19 #cover is not necessary.
20 #
21 #Increased the record size to 32 to accomodate a large library
22 #in the perl 5.003 distribution
23 #
24 #Submitted by Norton T. Allen (allen@huarp.harvard.edu)
25
26 if [ $# -lt 3 ]; then
27   use $0
28   exit 1
29 fi
30 shift
31 library=$1
32 shift
33 wlib -p=32 -n $library `for i in $*; do echo "+$i \\c"; done`