[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. A much more thorough cover is available from
#http://www.fdma.com/pub/qnx/porting/ar
#
#Note that Watcom 10.6 supports ar directly, so this
#cover is not necessary.
#
#Increased the record size to 32 to accomodate 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
	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`