zgcc

一个通讯程序源码

#!/bin/csh
#+-----------------------------------------------------------------------
# zgcc
# arg[1]  - filename containing list of files
# arg[2]  - output filename
# arg[3]  - path to afterlint and mkoldproto
# arg[4-] - CFLAGS
#------------------------------------------------------------------------
#+:EDITS:*/
#:09-10-1992-14:00-wht@n4hgf-ECU release 3.20
#:08-22-1992-15:39-wht@n4hgf-ECU release 3.20 BETA
#:01-21-1992-05:53-wht@n4hgf-add path as arg3
#:08-11-1991-23:47-wht@n4hgf-thanks for the -p1 suggestion to [e-mail]
#zgcc -- build prototyping "PROTOTYPES"
echo C sources in $1';' result file $2
unset noclobber
set p=$argv[3]
rm -f zg.t
if (-e /unix)
	echo 'building old-style prototypes for XENIX compiler compatibility'
	echo 'unnamed struct/union as parameter warning probably about FILE :-('
endif
foreach i(`cat $1`)
if (-e /unix)
	cc -DBUILDING_PROTOTYPES -p1 /lib/p1 -Zg $argv[4-] $i | \
		$p/mkoldproto > zg1.t
else
	cc -DBUILDING_PROTOTYPES -Zg $argv[4-] $i > zg1.t
endif
sort zg1.t > zg2.t
echo '/*' $i '*/' >> zg.t
cat zg2.t >> zg.t
end
$p/afterlint zg.t $2
rm -f zg.t zg?.t
echo Output in $2