[perl5.git] / qnx / ar

#! /bin/sh
#__USAGE
#%C	key library name ...
#	Crude cover for wlib to be compatible with ar
#	Supports the following key letters:
#	qcru
#	ru  replace existing modules. u indicates only replace
#	    those which are newer
#	c   create the library (kinda moot)
#	q   quickly append to the end.
#
#This is a crude cover, but it has proved sufficient for many
#ports. Rather than attempt to implement subtleties of the
#ar syntax, I simply create a new library under all
#circumstances.
#
#Note that Watcom 10.6 supports ar directly, so this
#cover is not necessary.
#
#Increased the record size to 32 to accommodate a large library
#in the perl 5.003 distribution
#
#Submitted by Norton T. Allen (allen@huarp.harvard.edu)

if [ $# -lt 3 ]; then
  use $0
  exit 1
fi
shift
library=$1
shift
wlib -p=32 -n $library `for i in $*; do echo "+$i \\c"; done`
Commit	Line	Data
ff68c719	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
08d7a6b2	15	#circumstances.
ff68c719	16	#
	17	#Note that Watcom 10.6 supports ar directly, so this
	18	#cover is not necessary.
	19	#
149e12f2	20	#Increased the record size to 32 to accommodate a large library
ff68c719	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`