| Revision 10724,
573 bytes
checked in by ghudson, 27 years ago
(diff) |
|
This commit was generated by cvs2svn to compensate for changes in r10723,
which included commits to RCS files with non-trunk default branches.
|
-
Property svn:executable set to
*
|
| Line | |
|---|
| 1 | #! /bin/sh |
|---|
| 2 | #__USAGE |
|---|
| 3 | #%C [-P] [-C] other options |
|---|
| 4 | # cpp is a wrapper for wcc to make it work like other cpp's |
|---|
| 5 | # -P omit #line directives from the output |
|---|
| 6 | # -C pass comments through to the output |
|---|
| 7 | # |
|---|
| 8 | #Submitted by Norton T. Allen (allen@huarp.harvard.edu) |
|---|
| 9 | |
|---|
| 10 | typeset lines=l comments="" redir="" |
|---|
| 11 | while :; do |
|---|
| 12 | case $1 in |
|---|
| 13 | -P) lines=""; shift; continue;; |
|---|
| 14 | -C) comments=c; shift; continue;; |
|---|
| 15 | esac |
|---|
| 16 | break |
|---|
| 17 | done |
|---|
| 18 | if [ ! -t 0 ]; then |
|---|
| 19 | cat >.$$.c |
|---|
| 20 | redir=.$$.c |
|---|
| 21 | fi |
|---|
| 22 | cc -c -Wc,-p$lines$comments -Wc,-pw=0 $* $redir | |
|---|
| 23 | awk 'NR>1||NF>0 {sub("^ ","");print}' |
|---|
| 24 | [ -n "$redir" ] && rm -f $redir |
|---|
Note: See
TracBrowser
for help on using the repository browser.
