dslinux/user/perl/qnx ar cpp

[cayenne]

Update of /cvsroot/dslinux/dslinux/user/perl/qnx
In directory antilope:/tmp/cvs-serv17422/qnx

Added Files:
	ar cpp 
Log Message:
Adding fresh perl source to HEAD to branch from

--- NEW FILE: cpp ---
#! /bin/sh
#__USAGE
#%C	[-P] [-C] other options
#	cpp is a wrapper for wcc to make it work like other cpp's
#	-P omit #line directives from the output
#	-C pass comments through to the output
#
#Submitted by Norton T. Allen (allen at huarp.harvard.edu)

typeset lines=l comments="" redir=""
while :; do
  case $1 in
	-P) lines=""; shift; continue;;
	-C) comments=c; shift; continue;;
  esac
  break
done
if [ ! -t 0 ]; then
  cat >.$$.c
  redir=.$$.c
fi
cc -c -Wc,-p$lines$comments -Wc,-pw=0 $* $redir |
  awk 'NR>1||NF>0 {sub("^ ","");print}'
[ -n "$redir" ] && rm -f $redir

--- NEW FILE: 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 at 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`