source: vendor/perl/5.8.8/qnx/cpp@ 3186

#! /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 ([email protected])

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