File: ar

package info (click to toggle)
perl 5.42.0-2
  • links: PTS, VCS
  • area: main
  • in suites: experimental
  • size: 128,392 kB
  • sloc: perl: 534,963; ansic: 240,563; sh: 72,042; pascal: 6,934; xml: 2,428; yacc: 1,360; makefile: 1,197; cpp: 208; lisp: 1
file content (32 lines) | stat: -rw-r--r-- 850 bytes parent folder | download | duplicates (9)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#! /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`